Page 1 sur 1
___BeeeeeeeeeeeeeeeeeeeeeeP___
Publié : dim. 11/nov./2007 1:53
par Mytic
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
Publié : dim. 11/nov./2007 2:17
par Huitbit
Original!
Le petit "_", ça veut dire que ça vient de Windows ?
PureBasic pourrait avoir ce genre de fonction en plus perfectionné!
Sur MSX, il y avait
play pour la musique (3 canaux et 9 sur certains jeux) et
sound pour générer des sons en quelques lignes.
En ce moment je découvre le format wav (voir truc et astuces), peut-être que j'arriverais à faire une macro
.
Ciao!
Publié : dim. 11/nov./2007 5:57
par Kwai chang caine
Cool, j'ai eteint la lumiere, mis le néon lumiere noire, et dansé sur la table.
Merci pour ce code
Publié : dim. 11/nov./2007 11:58
par Mytic
Beep_ : c’est une api Windows.
J’ai posté ces exemples pour montrer que avec un simple Beep on pouvait faire des miracles à l’ancienne bien sur.
<==========================>
Nouveau défit pour Moi !!!
Générer une voix avec ce Beep ?!
Publié : dim. 11/nov./2007 13:38
par venom
bonjour,
moi j'avais commencer zelda une fois,
voici l'original
http://www.youtube.com/watch?v=Kf6w7_bxWNM
et la mienne:
Code : Tout sélectionner
Beep_(500, 700)
Delay(500)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(280)
Beep_(450, 100)
Delay(50)
Beep_(500, 120)
Delay(550)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(280)
Beep_(450, 100)
Delay(50)
Beep_(500, 120)
Delay(500)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(50)
Beep_(500, 100)
Delay(150)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(130)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(150)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(130)
Beep_(350, 100)
Delay(50)
Beep_(350, 100)
Delay(120)
Beep_(500, 250)
Delay(200)
Beep_(350, 500)
Delay(200)
Beep_(500, 250)
Delay(50)
Beep_(500, 250)
Delay(30)
Beep_(600, 100)
Delay(30)
Beep_(650, 100)
Delay(30)
Beep_(700, 250)
Delay(70)
Beep_(500, 250)
Delay(50)
Beep_(500, 250)
Delay(30)
Beep_(600, 100)
Delay(30)
Beep_(650, 100)
Delay(30)
Beep_(700, 250)
Delay(100)
Beep_(750, 200)
Delay(70)
Beep_(750, 200)
Delay(70)
Beep_(800, 100)
Delay(70)
Beep_(800, 100)
Delay(70)
Beep_(890, 400)
c'est loin d'etre fini mais j'ai pas continuer
sa serai marrant un editeur pour sa
@++
Publié : dim. 11/nov./2007 13:53
par Mytic
@Venom
Sympa...
pour l'éditeur ça ne devrai pas être dure , je vais essayer d'en faire un.
Publié : dim. 11/nov./2007 14:33
par Ar-S
Ouai ! Un
PureTracker 
Publié : dim. 11/nov./2007 20:57
par Buckethead
LOL excellent Mytic !
+1 Ar-S, oui fait nous un PureTracker <3
Ca m'a vraiment surpris. Ca m'a aussi fait un peu penser au petit piezo de l'Amstrad CPC 464. Le bon temps où l'on programmait son chipsound en basic ...
Publié : dim. 11/nov./2007 22:52
par Mytic
Merci Merci....
Publié : jeu. 13/déc./2007 13:22
par Thyphoon
Mytic a écrit :
pour l'éditeur ça ne devrai pas être dure , je vais essayer d'en faire un.
Alors cet éditeur tu as réussi a faire quelques choses ?
Buckethead a écrit :Ca m'a aussi fait un peu penser au petit piezo de l'Amstrad CPC 464. Le bon temps où l'on programmait son chipsound en basic ...
Quoi le AY-3-8910 de General Instrument traité de vulgaire "petit piezo". Ce merveilleux petit chip qu'on trouve aussi dans l'Atari ST,Msx et l'oric. l'AY-3-8910 n'a rien a voir avec le vulgaire buzzer du pc !! Attention
