FAITE VOTRE MUSIQUE (MAJ)

Signaler
Messages postés
442
Date d'inscription
samedi 23 novembre 2002
Statut
Membre
Dernière intervention
19 octobre 2005
-
Messages postés
12
Date d'inscription
mercredi 10 octobre 2007
Statut
Membre
Dernière intervention
23 mars 2011
-
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/6168-faite-votre-musique-maj

Messages postés
12
Date d'inscription
mercredi 10 octobre 2007
Statut
Membre
Dernière intervention
23 mars 2011

Salut, je voudrais bien l'utiliser mais cela m'est impossible, je ne dispose que de Virtual basic 2008 et quand il fait la convertion vb6 vers vb8, il dit qu'il manque pause.bas alors qu'il y est, donc impossible a ouvrir, tu pourrais le compiler si c'est possible car pour l'instant je ne peut absolument pas l'ouvrir.
Messages postés
1
Date d'inscription
dimanche 25 mars 2007
Statut
Membre
Dernière intervention
26 février 2010

Concrètement, comment utiliser ce programme ? Il n'y a pas une version compilée ?
Messages postés
48
Date d'inscription
dimanche 17 juin 2001
Statut
Membre
Dernière intervention
11 décembre 2008

Bonne initiative d'améliorer le code.
Messages postés
93
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
25 juin 2010

euh CDbl(nbDemi_tons) à la place de CDbl(ConvertNote(mNote)), excusez-moi.
Messages postés
93
Date d'inscription
lundi 3 juillet 2006
Statut
Membre
Dernière intervention
25 juin 2010

Belle source,
cependant je pense qu'un calcul des fréquences à partir de la note serait plus simple : (cela éviterait les dizaines de lignes à la fin)
Public Sub JouerNote(ByVal nbDemi_tons As Integer)
Dim Freq As Double
Freq = 440 * ((2 ^ (1 / 12)) ^ CDbl(ConvertNote(mNote)))
Call Beep(CLng(Freq), 200)
End Sub
(nbDemi_tons étant le nombre de demi-tons par rapport au La de référence (440 Hz))

Bonne continuation ;)
Afficher les 21 commentaires