FMOD Ex - Mehrere Musikdateien gleichzeitig/synchron spielen

[Lebostein]

Tud mir leid, aber ich suche nach einer einfachen und allgemeinen Lösung. Und wie gesagt, ich brauch für andere Events, die durch die Musik ausgelöst werden sollen, undbedingt eine Funktion wie GetPosition(Sound), die PB im Moment nicht bieten kann. Ansonsten schließe ich mich deiner Meinung an, möglichst viel mit den Bordmitteln zu erledigen. Ich kann es ja auch nicht leiden, wenn die Leute hier wie wild mit der Windows-API arbeiten und der plattformübergreifende Gedanke von PB flöten geht.

PS: Da fällt mir ein, ich wollte mal eine Sektion für das Forum hier vorschlagen, in der nur echter und plattformübergreifender PB-Code veröffentlicht werden darf.

[bobobo]

najaaaa .. die getpositionfunktion kannst du aus "meinem" code ableiten. da läuft ein
selbsthäkel-timer mit elapsedmilliseconds() , daraus kannst du an sich die position
ermitteln

[Lebostein]

Och menno

[bobobo]

wenn's geht dann geht's eben, aber vermutlich hakt's an was anderem

nochmal Leckerli

[bobobo]

es lässt mir keine ruhe
hier nochmal "deine"Lösung, korrigiert um eine funktionierende VolumeSteuerung
(sobald channels ins Spiel kommen müssen die auch mit angegeben werden)

Code: Alles auswählen

#Spur_Name = 10
#Spur_Laut = 50

Structure spur
  file.s
  sound.l
  laut.l
  channel.l
EndStructure

Global NewList spur.spur()

Procedure CreateSpur(file.s, laut.l)
  AddElement(spur())
  spur()\file = file
  spur()\laut = laut
EndProcedure

CreateSpur("HDL_basslauf.ogg", 100)
CreateSpur("HDL_floete.ogg", 0)
CreateSpur("HDL_schlagwerk.ogg", 0)
CreateSpur("HDL_gitarre1.ogg", 0)
CreateSpur("HDL_gitarre2.ogg", 0)
CreateSpur("HDL_orgel.ogg", 0)
CreateSpur("HDL_lebostein.ogg", 0)

; ------------------------------------------------

InitSound()
UseOGGSoundDecoder()

ForEach spur()
  spur()\sound = LoadSound(#PB_Any, spur()\file)
  
Next

ForEach spur()
  spur()\channel=PlaySound(spur()\sound, #PB_Sound_Loop | #PB_Sound_MultiChannel)
  SoundVolume(spur()\sound, spur()\laut,spur()\channel)
Next

; ------------------------------------------------

OpenWindow(0, 0, 0, 600, 250, "iMuse", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)

ForEach spur()
  index = ListIndex(spur())
  TextGadget(#Spur_Name + index, 50, 20 + index * 25, 300, 18, "Spur " + Str(index + 1) + ": " + spur()\file)
  TrackBarGadget(#Spur_Laut + index, 300, 20 + index * 25, 150, 18, 0, 100): SetGadgetState(#Spur_Laut + index, spur()\laut)
Next

; ------------------------------------------------

Repeat

Event = WaitWindowEvent(20)

ForEach spur()
  index = ListIndex(spur())
  If Event = #PB_Event_Gadget And EventGadget() = #Spur_Laut + index
    Debug #Spur_Laut + index
    Debug GetGadgetState(#Spur_Laut + index)
    spur()\laut = GetGadgetState(#Spur_Laut + index)
    SoundVolume(spur()\sound, spur()\laut,spur()\channel)
  EndIf
Next

Until Event = #PB_Event_CloseWindow

lebostein.ogg

[Lebostein]

Und wie könnte man einen Befehl wie SetSoundPosition() mit PB realisieren? Scheint mir, selbst mit eigenen Timern, nicht möglich zu sein...

[bobobo]

wenn ich dich oben richtig verstanden habe, brauchst du das gar nicht. du musst die
entsprechende tonspur zur geeigneten zeit doch nur einblenden, oder vertu ich mich da?