CatchSound() vor MessageRequester?

[edel]

EventGadget() , was geaendert wurde steht in der Hilfe.

[Kaeru Gaman]

tjo... sowas überseh ich mal schnell wenn ich nur den code lese und nicht teste....

[Fluid Byte]

Der Befehl EventGadgetID() ist aus früheren PB Versionen und jetzt einfach nur EventGadget().

[edel]

Code: Alles auswählen

  InitSound()

  #button_XYZ = 0
  #button_ABC = 1
  
  #Sound      = 0
  
  hwnd = OpenWindow(0, 400, 400, 400, 200, "Was möchten Sie hören?", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)

  If CreateGadgetList(hwnd)
    ButtonGadget(#button_XYZ, 260, 50, 100, 70, "Band XYZ")
    ButtonGadget(#button_ABC, 30, 50, 100, 70, "Band ABC")
  EndIf
  
  Repeat
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget
      
      Select EventGadget()
        Case #button_XYZ 
          If CatchSound(#Sound , ?Music1)
            PlaySound(#Sound ) 
          EndIf 
        Case #button_ABC
          If CatchSound(#Sound , ?Music2)
            PlaySound(#Sound ) 
          EndIf 
      EndSelect
      
    EndIf
    
  Until event = #PB_Event_CloseWindow


  DataSection
  Music1: IncludeBinary "c:\date.wav"
  Music2: IncludeBinary "c:\rammstein.wav"
  EndDataSection

Muesste so klappen.

[Kaeru Gaman]

@edel
aber warum catchst du den sound on-demand und nich vorab?

...geht beides, denk ich....

[edel]

Weil ich so ein Objekt spare

ne keine Ahnung, fand ich huebsch ... oder so

[by night]

Code: Alles auswählen

  InitSound()

  #button_XYZ = 0
  #button_ABC = 1
  
  #Sound      = 0
  
  hwnd = OpenWindow(0, 400, 400, 400, 200, "Was möchten Sie hören?", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)

  If CreateGadgetList(hwnd)
    ButtonGadget(#button_XYZ, 260, 50, 100, 70, "Band XYZ")
    ButtonGadget(#button_ABC, 30, 50, 100, 70, "Band ABC")
  EndIf
  
  Repeat
    EventID = WaitWindowEvent()
    
    If EventID = #PB_Event_Gadget
      
      Select EventGadget()
        Case #button_XYZ 
          If CatchSound(#Sound , ?Music1)
            PlaySound(#Sound ) 
          EndIf 
        Case #button_ABC
          If CatchSound(#Sound , ?Music2)
            PlaySound(#Sound ) 
          EndIf 
      EndSelect
      
    EndIf
    
  Until event = #PB_Event_CloseWindow


  DataSection
  Music1: IncludeBinary "c:\date.wav"
  Music2: IncludeBinary "c:\rammstein.wav"
  EndDataSection

Muesste so klappen.

Wenn ich deinen Code bentze kommt folgende Fehlermeldung:

"polink: fatal error internal error write_executable_image.

[ts-soft]

Hm ... Er sagt mir "EventGadgetID() is not a function, array, makro or linked list"

Laß das ID weg

Code: Alles auswählen

EventGadget()

Das andere ist noch die alte Syntax von vor PB4

@Kaeru
wer weiß was hinter ?Music2 steckt, wird doch ?Music1 nicht mehr hören wollen

[by night]

Kann mir keiner was zu diesem Fehler sagen?

""polink: fatal error internal error write_executable_image."

[ts-soft]

Guck mal im Taskmanager ob da noch eine Exe Deines Programmes läuft
und schiess es ab.