in meinem Player habe ich noch einen Geschwindigkeitsregler mit eingebaut, das ganze läuft über die MCI_Send_String Methode.
Beim regeln des Speeds setzt das Musikstück immer kurz aus, wie kann ich das verhindern ???
Code: Alles auswählen
Procedure MP3_Speed(Nb,Tempo)
i=mciSendString_("set MP3_"+Str(Nb)+" speed "+Str(Tempo),0,0,0)
ProcedureReturn i
EndProcedure
Procedure MP3_Play(Nb,Tempo)
Tempo = Tempo*10
i=mciSendString_("set MP3_"+Str(Nb)+" speed "+Str(Tempo),0,0,0)
i=mciSendString_("play MP3_"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure speed0() ; plus 1 Prozent
speed + 10
MP3_Speed(1,speed)
If speed > 1200 : speed = 1200 : EndIf
SetGadgetText(#speed2,Str(speed/10)+"%")
EndProcedure
Procedure speed1() ; minus 1 Prozent
speed - 10
MP3_Speed(1,speed)
If speed < 800 : speed = 800 : EndIf
SetGadgetText(#speed2,Str(speed/10)+"%")
EndProcedure
Procedure speed2() ; auf 100% setzen
speed = 1000
MP3_Speed(1,speed)
SetGadgetText(#speed2,Str(speed/10)+"%")
EndProcedure