Clavier musical simple
Soyez le premier à donner votre avis sur cette source.
Vue 10 829 fois - Téléchargée 970 fois
Description
Ce petit programme permet de jouer les 8 notes de musique avec le clavier de l'ordinateur a z e r t y u i.il est très simple j'espère qu'il satisfera quelques un.
Codes Sources
A voir également
- Clavier musical simple
- Clavier musical 1touche=1sons - Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
- Systeme de navigation au clavier très simple. - Codes sources - Javascript (Navigation)
- Delphi / Pascal : Petit clavier musical utilisant un calcul automatique de la fréquence des n - Guide
- Claviox : un programme simple permettant d'apprendre à taper au clavier - Codes sources - Visual Basic / VB.NET (Divers)
- Visual Basic / VB.NET : Addin vb6 - indenteur de code simple à lancer par raccourcis clavier - Guide
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
- Messages postés
-
4525
- Date d'inscription
- dimanche 29 septembre 2002
- Statut
- Modérateur
- Dernière intervention
- 22 avril 2019
9J'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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.