CLAVIER MUSICAL SIMPLE

Commentaire de Abdelelansari le 29/03/2008 23:43:11

        Bonsoir alpha5
J'aime bien savoir comment ça marche mais je ne peux pas compiler ce programme avec la manière dont il est exposé
car méme si on télécharge le zip on ne peux pas avoir le fichier exécutable .Une aide aux débutants.    Merci

Commentaire de aeder le 30/03/2008 16:33:25

Salut
et voici la traduction en VB6 / VBA :

Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal DwFreq As Long, ByVal Dwduration As Long) As Long
Const ½ton = 2 ^ (1 / 12)
Const UT = (LA * ½ton ^ 3) / 2
Const REb = (LA * ½ton ^ 4) / 2
Const RE = (LA * ½ton ^ 5) / 2
Const MIb = (LA * ½ton ^ 6) / 2
Const MI = (LA * ½ton ^ 7) / 2
Const FA = (LA * ½ton ^ 8) / 2
Const SOLb = (LA * ½ton ^ 9) / 2
Const SOL = (LA * ½ton ^ 10) / 2
Const LAb = (LA * ½ton ^ 11) / 2
Const LA = 440
Const SIb = LA * ½ton
Const SI = LA * ½ton ^ 2
Const UT2 = LA * ½ton ^ 3
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim iBeep As Long
    Select Case KeyCode
    Case 67: iBeep = UT * 2 ^ Shift
    Case 68: iBeep = RE * 2 ^ Shift
    Case 69: iBeep = MI * 2 ^ Shift
    Case 70: iBeep = FA * 2 ^ Shift
    Case 71: iBeep = SOL * 2 ^ Shift
    Case 72, 65: iBeep = LA * 2 ^ Shift
    Case 73, 66: iBeep = SI * 2 ^ Shift
    Case 74: iBeep = UT2 * 2 ^ Shift
    End Select
    APIBeep iBeep, 200 ' do
End Sub
Comme ça, tout le monde en profite
Merci Pythagore