PIANO MIDI VIRTUEL

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 - 21 sept. 2002 à 15:34
CORBnet Messages postés 47 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 7 janvier 2012 - 11 févr. 2005 à 22:14

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4583-piano-midi-virtuel

CORBnet Messages postés 47 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 7 janvier 2012
11 févr. 2005 à 22:14

un exe ds le zzzzzzzip ca serait comme même sympa

cs_carolito Messages postés 2 Date d'inscription mercredi 5 mars 2003 Statut Membre Dernière intervention 28 août 2003
28 août 2003 à 12:15

Je suis assez impressionné par ton travail sur les différentes versions de PIANO VIRTUEL !!!

Si tu n'y vois pas d'inconvénient et bien sûr si tu as le temps, j'aimerais bien que tu m'explique comment on utilise les différentes fonctions MIDI de l'API WINMM.DLL - pour créer et lire des fichiers *.mid .

D'avance MERCI de ton aide !!!

mon e-mail : carolito@tiscali.fr

cs_Apophis Messages postés 75 Date d'inscription samedi 16 juin 2001 Statut Membre Dernière intervention 16 septembre 2006
5 oct. 2002 à 16:27

Comme le dit Patrice99 la version 4 de mon programme permet de gérer le clavier (toutesles octaves grace aux pavé numérique, et les dièses). Je dois cependant admettre que mon code n'est pas optimisé. Je le ferais quand j'aurais du temps.
http://www.vbfrance.com/article.aspx?Val=5569
(-;

yclic Messages postés 31 Date d'inscription dimanche 22 septembre 2002 Statut Membre Dernière intervention 9 juin 2010
22 sept. 2002 à 16:18

Bravo pour le pb de repetition, mais on ne peut plus jouer plusieurs notes en meme temp.

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
22 sept. 2002 à 13:36

Le code est beaucoup + simple que l'original, bravo. Pour le pb de la répétition, voir la version 4 du Piano, ça fonctionnait déjà très bien :
http://www.vbfrance.com/article.aspx?Val=5569

ArseneDeGallium Messages postés 6 Date d'inscription dimanche 4 août 2002 Statut Membre Dernière intervention 12 avril 2005
22 sept. 2002 à 10:25

Merci pour l'idée. Je ne connaissais pas cette instruction :-)

Je vais modifier ma source et la renvoyer
A+

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
21 sept. 2002 à 18:44

J'adore choose... c'est un peu comme iif... enfin bon. Euuuhhh Chooseiif ? !!

VicoLaChips2 Messages postés 436 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 2 février 2010 2
21 sept. 2002 à 15:34

Bonjour :)

Ma suggestion :

1 - Pour les évènements keypress up et down.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim nIndex As Integer
nIndex = InStr("azertyui", LCase(Chr(Str$(KeyCode))))
If nIndex > 0 Then
If m_blnCanPlay Then
Play_Midi_Note Choose(nIndex, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79), 0
End If
End If
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
m_blnCanPlay = False
End Sub

Private Sub form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim nIndex As Integer
nIndex = InStr("azertyui", LCase(Chr(Str$(KeyCode))))
If nIndex > 0 Then
Stop_Midi_Note Choose(nIndex, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79), 0
End If
m_blnCanPlay = True
End Sub

Dans l'évènement form_initialize mettre m_blnCanPlay à true.

Plus de répétitions de notes et procédures optimisées !! A+

Discussions similaires

Récupération nom de serveur

disque virtuel et reseau

Paiement Carte Visa

comment recuperer le nom du serveur

essayage en ligne des lunettes

Votre réponse

Discussions similaires