Code : Tout sélectionner
; Ar-S
Macro B ( a, b )
Beep_(a,b)
EndMacro
Macro Ms (mm)
MessageRequester("Yop !", mm, #MB_ICONEXCLAMATION )
EndMacro
C.s = "74,111,121,101,117,120,32,97,110,110,105,118,101,114,115,97,105,114,101,32,33,"
N = CountString(C.s,",")
For i = 1 To N
Car.i = Val (StringField(C.s,i,",") )
P.s = Chr(Car)
Phrase.s + P
Next
B(200,400) : B(200,100)
B(230,600) : B(200,600)
B(270,700) : B(255,900)
B(200,400) : B(200,100)
B(230,600) : B(200,700)
B(310,500) : B(270,800)
B(200,400) : B(200,100)
B(410,600) : B(340,500)
B(270,500) : B(255,400)
B(230,200) : B(230,800)
B(360,400) : B(360,100)
B(340,600) : B(270,600)
B(305,600) : B(270,800)
Ms (Phrase)
End