Accueil > > > LA PETITE MUSIQUE DU HAUT-PARLEUR SYSTÈME
LA PETITE MUSIQUE DU HAUT-PARLEUR SYSTÈME
Information sur la source
Description
Hé bien c'est une classe qui permet de faire de la musique avec le speaker de la carte mère. On écrit la musique sous forme de chaine (octave & note & altération & rythme), puis elle est convertie en fréquences et en durées. On peux mémoriser plusieurs voix et en jouer une ou plusieurs en même temps, au tempo voulu. En plus du module de classe (Speaker.cls) il y a un projet de démonstration avec quelques partitions pour l'exemple.
Source
- 'Format d'une note : Octave(fac) & Note(oblig) & Altération(fac) & Rythme(fac)
- 'Si l'octave ou le rythme n'est pas précisé c'est le même que le précédent
-
- 'Octave : de 0 à 9
- 'Note : de A à G, ou S (silence)
- 'Altération : # ou &
- 'Rythme : r (ronde), b (blanche), n (noire), c (croche), d (double), t (triple), q (quadruple)
-
- 'La : "A"
- 'Do dièse 4 : "4C#"
- 'Si bémol : "B&"
- 'Sol noire 2 : "2Gn"
- 'Ré bémol blanche pointé : "D&b."
- 'Fa 2 temps 1/2 (liaison) : "Fb_c
- 'Do et sol en blanche : "C|Gb"
- 'Accord do 7e en croche double pointé : "C|E|G|B&c.."
-
- 'Au clair de la lune : "3Cc C C D En D Cc E D D Cb"
-
-
- 'jouer une voix
- Speaker.Charger "Cc C C D En D Cc E D D Cb"
- Speaker.Jouer
-
- 'la jouer plus vite (par défaut ça joue à 60)
- Speaker.Jouer 120
-
- 'rajouter 2 voix et jouer les 3
- Speaker.Charger "1Cb. Dn C D Cb", 2
- Speaker.Charger "6Cn S E D C S C", 3
- Speaker.Jouer
-
- 'jouer les voix 2 à 3 très vite
- Speaker.Jouer 200, 2, 3
-
- 'effacer la voix 1
- Speaker.Charger "", 1
-
- 'commencer à jouer une note
- Speaker.JouerNote "A#|Dn._b"
-
- 'l'arrêter
- Speaker.StopperNote
'Format d'une note : Octave(fac) & Note(oblig) & Altération(fac) & Rythme(fac)
'Si l'octave ou le rythme n'est pas précisé c'est le même que le précédent
'Octave : de 0 à 9
'Note : de A à G, ou S (silence)
'Altération : # ou &
'Rythme : r (ronde), b (blanche), n (noire), c (croche), d (double), t (triple), q (quadruple)
'La : "A"
'Do dièse 4 : "4C#"
'Si bémol : "B&"
'Sol noire 2 : "2Gn"
'Ré bémol blanche pointé : "D&b."
'Fa 2 temps 1/2 (liaison) : "Fb_c
'Do et sol en blanche : "C|Gb"
'Accord do 7e en croche double pointé : "C|E|G|B&c.."
'Au clair de la lune : "3Cc C C D En D Cc E D D Cb"
'jouer une voix
Speaker.Charger "Cc C C D En D Cc E D D Cb"
Speaker.Jouer
'la jouer plus vite (par défaut ça joue à 60)
Speaker.Jouer 120
'rajouter 2 voix et jouer les 3
Speaker.Charger "1Cb. Dn C D Cb", 2
Speaker.Charger "6Cn S E D C S C", 3
Speaker.Jouer
'jouer les voix 2 à 3 très vite
Speaker.Jouer 200, 2, 3
'effacer la voix 1
Speaker.Charger "", 1
'commencer à jouer une note
Speaker.JouerNote "A#|Dn._b"
'l'arrêter
Speaker.StopperNote
Conclusion
Ce code ne marche que sur 2000 et XP, l'API Beep fonctionne mal sur les autres systèmes. Et puis la classe n'est pas très complète j'ai pas eu le temps de finir, à vous de l'améliorer.
Note : suivant les buzzer on entend des choses assez différentes. Il faut bien faire attention à la propriété "Echantillonage" : normalement plus elle est faible mieux ça marche, mais certains buzzers émettent un grésillement infame si elle est trop petite. Pour ce que j'ai vu, ça marche pas mal entre 1 et 30 ms.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|