MUSIQUE - GÉNÉRATEUR DE MÉLODIES CHROMATIQUES ALÉATOIRES

Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()
End Sub

'ce qui se passe lorsque vous cliquez sur le bouton ------------------------------
Private Sub jouer_Click()

'initialisation du champ texte -------------------------------------------------------
Text1.Text = ""

'déclaration des différentes variables ----------------------------------------------
Dim a As Single
Dim i As Single
Dim j As Single
Dim n As Single
Dim entier As Single
Dim note(0 To 36) As Single
Dim jeu(0 To 24) As Single
Dim jeu_mel(0 To 24) As String
Dim tempo(0 To 2) As Single
Dim t As Single
Dim tint As Single
Dim rythm(0 To 24) As Single
Dim txt As String
Dim mel(0 To 36) As String

'125=double-croche 250=croche 500=noire ----------------------------------------
tempo(0) = 125
tempo(1) = 250
tempo(2) = 500

'notes de la gamme chromatique en partant du la 220 hz -----------------------
note(0) = 220
note(1) = 233
note(2) = 247
note(3) = 262
note(4) = 277
note(5) = 294
note(6) = 311
note(7) = 330
note(8) = 349
note(9) = 370
note(10) = 392
note(11) = 415
note(12) = 440
note(13) = 466
note(14) = 494
note(15) = 523
note(16) = 554
note(17) = 587
note(18) = 622
note(19) = 659
note(20) = 698
note(21) = 740
note(22) = 784
note(23) = 830
note(24) = 880
note(25) = 932
note(26) = 988
note(27) = 1047
note(28) = 1109
note(29) = 1175
note(30) = 1245
note(31) = 1319
note(32) = 1397
note(33) = 1480
note(34) = 1568
note(35) = 1661
note(36) = 1760

'notes de musiques -----------------------------------------------------------------
mel(0) = "la1"
mel(1) = "la#1"
mel(2) = "si1"
mel(3) = "do1"
mel(4) = "do#1"
mel(5) = "ré1"
mel(6) = "ré#1"
mel(7) = "mi1"
mel(8) = "fa1"
mel(9) = "fa#1"
mel(10) = "sol1"
mel(11) = "sol#1"
mel(12) = "la2"
mel(13) = "la#2"
mel(14) = "si2"
mel(15) = "do2"
mel(16) = "do#2"
mel(17) = "ré2"
mel(18) = "ré#2"
mel(19) = "mi2"
mel(20) = "fa2"
mel(21) = "fa#2"
mel(22) = "sol2"
mel(23) = "sol#2"
mel(24) = "la3"
mel(25) = "la#3"
mel(26) = "si3"
mel(27) = "do3"
mel(28) = "do#3"
mel(29) = "ré3"
mel(30) = "ré#3"
mel(31) = "mi3"
mel(32) = "fa3"
mel(33) = "fa#3"
mel(34) = "sol3"
mel(35) = "sol#3"
mel(36) = "la4"

'fabrication du rythme ---------------------------------------------------------------
For i = 0 To 24
t = Int(Rnd * 10) / 3
tint = Int(((t / 3) - Int(t / 3)) * 3.00001)
rythm(i) = tempo(tint)
Next i

'fabrication de la mélodie -----------------------------------------------------------
For i = 0 To 24
n = Int(Rnd * 100)
entier = Int(((n / 36) - Int(n / 36)) * 36.00001)
jeu(i) = note(entier)
jeu_mel(i) = mel(entier)
Next i

'affichage de la mélodie ------------------------------------------------------------
For i = 0 To 24
txt = jeu_mel(i)
Text1.Text = Text1.Text + " " + txt
Next i

'exécution de la mélodie ------------------------------------------------------------
For i = 0 To 24
Beep jeu(i), rythm(i)
Next i

End Sub