Graphics 1024,768,16,1
SetBuffer BackBuffer()
ClsColor 0,0,0

Color 0,255,255

insgesamt_start=millisecs()

start=millisecs()

lied1=LoadSound("Musik/spiel1.mp3"):ChannelID=PlaySound(lied1)


.schleife



jetzt=millisecs()

;Musik stoppen und starten
If jetzt>start+10000



       StopChannel(ChannelID):FreeSound lied1:lied1=0
      
      
       anzahl=anzahl+1
      
       datei$="zeit.txt"
       file=WriteFile(datei$)
       WriteLine file,laeuft_seit
       WriteLine file,"Sekunden"
       WriteLine file,anzahl
       WriteLine file,"Durchgänge"
       CloseFile file
      
      
      
       start=millisecs()

       lied1=LoadSound("Musik/spiel1.mp3"):ChannelID=PlaySound(lied1)
      
      
EndIf

 laeuft_seit=(jetzt-insgesamt_start)/1000
 
;Ausgabe
Cls
Text 10,10,"Musik_tester"
Text 10,30,"Anzahl der Durchläufe: "+anzahl
Text 10,50,"läuft seit "+laeuft_seit+" Sekunden"

Flip

If KeyHit(1)=1 Then End


Goto schleife

Timer=CreateTimer(24)
...
Waittimer Timer
...