bei mci und speed setzt das Musikstück aus
Verfasst: 26.02.2005 21:08
Habe da ein Problem,
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 ???
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