PureBoard

Verfasst: **18.03.2007 16:18**

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

Verfasst: **18.03.2007 16:21**

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

Verfasst: **18.03.2007 16:24**

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

Verfasst: **18.03.2007 16:25**

  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.

Verfasst: **18.03.2007 16:27**

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

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

Verfasst: **18.03.2007 17:00**

Weil ich so ein Objekt spare

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

Verfasst: **18.03.2007 18:02**

edel hat geschrieben:

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.

Verfasst: **18.03.2007 18:03**

by night hat geschrieben: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

Verfasst: **18.03.2007 19:47**

Kann mir keiner was zu diesem Fehler sagen?

""polink: fatal error internal error write_executable_image."

Verfasst: **18.03.2007 19:52**

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

PureBoard

CatchSound() vor MessageRequester?