bin neu hier und habe folgendes Problem: Ich muss alten PB-Code von 5.0 auf 5.62 portieren. Den Code habe ich nicht geschrieben. Es wurde mit einer
alten Zeiger-Variante gearbeitet.
Kann mir jemande sagen, wie ich es umschreiben muß?
Code: Alles auswählen
Global mx,my,mk,soundplay.b,sprache.b,bewegt.b,winx,winy,winh,winb,oldergebnis,sampelrate
Procedure play()
If soundload=0
Goto playraus
EndIf
Shared *start,sampelrate
If sampelrate<44101
If samplebyte=16
*my.l=@insound()
Else
*my.l=@insound8()
EndIf
CatchSound(0, *my)
PlaySound(0)
StatusBarText(#StatusBar_Window_0, 2,"Sound Pos. :",#PB_StatusBar_Right)
soundplay=1
Else
MessageRequester(translate("Fehler"),translate( "Samplerate über 44100"), 0)
EndIf
playraus:
EndProcedure