Code : Tout sélectionner
MessageRequester("test1","Electrochoc")
For i = 0 To 120
Beep_(i+100,10)
Next i
MessageRequester("test2","Ferrarie")
For i = 0 To 100
Beep_(i+150,50)
Next i
For i = 0 To 100
Beep_(200-i,60)
Next i
MessageRequester("test3","joyeux anniversaire")
Beep_(1046,250):Beep_(1046,250)
Beep_(1175,500):Beep_(1046,500)
Beep_(1397,500):Beep_(1318,1000)
Beep_(1046,250):Beep_(1046,250)
Beep_(1175,500):Beep_(1046,500)
Beep_(1568,500):Beep_(1397,1000)
Beep_(1046,250):Beep_(1046,250)
Beep_(2093,500):Beep_(1760,500)
Beep_(1397,500):Beep_(1318,500)
Beep_(1175,1000):Beep_(1868,250)
Beep_(1868,250):Beep_(1760,500)
Beep_(1397,500):Beep_(1568,500)
Beep_(1397,1500);
RandomSeed(6001)
MessageRequester("test4","Cybernétique")
For i = 0 To 60
Beep_(Random(i*100),Random(100))
Next i
MessageRequester("test5","frère Jacque")
dur = 1
SOL=200: LA=220: SI=250: DO=265: RE=300: MI=340: FA_DIESE=380: SOL2=400:
mus$ = "Q2S2D2Q2Q2S2D2Q2D2F2G4D2F2G4G1H1G1F1D2Q2G1H1G1F1D2Q2S2G2Q4S2G2Q4"
For i = 1 To Len(mus$)
Note$ = Mid(mus$,i,1)
If Val(Note$) > 0 And Val(Note$) < 9
dur = Val(Note$)
;Debug dur
Else
Select UCase(Note$)
Case "Q":f = SOL
Case "S": f = LA
Case "D": f = SI
Case "F": f = DO
Case "G": f = RE
Case "H": f = MI
Case "J": f = FA_DIESE
Case "K": f = SOL2
Case "P": f = PAUSE
Default: f = 0
EndSelect
EndIf
Beep_(f,dur*120)
Next i
End
.
