begin process at 2012 02 16 03:27:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Multimedia

 > PIANO CONSOLE

PIANO CONSOLE


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Multimedia Source .NET ( DotNet ) Classé sous :piano, beep, console, ReadKey, ConsoleKeyInfo Niveau :Initié Date de création :11/12/2007 Vu / téléchargé :8 404 / 386
Auteur : coldman

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Piano en mode Console c'est sympa !!
Enfaite pour ce qui est des details j'ai utiliser la fonction "Console.ReadKey()" elle permet de recupérer un seul caractère, le resultat de cette fonction on doit le mettre dans une variable de type "ConsoleKeyInfo", après pour récupérer quelle touche a été tapé on utilise "variable.KeyChar".
et bien j'ai mis deux octaves :
pour le premier :
   - Do : w
   - Do# : s
   - Ré : x
   - Ré# : d
   - Mi : c
   - Fa : v
   - Fa# : g
   - Sol : b
   - Sol# : h
   - La : n
   - La# : j
   - Si : ,
et pour le deuxième :
   - Do : e
   - Do# : '
   - Ré : r
   - Ré# : (
   - Mi : t
   - Fa : y
   - Fa# : -
   - Sol : u
   - Sol# : _
   - La : )
   - La# : o
   - Si : ,
et pour quitter vous cliquez sur "p"

Source

  • Module Module1
  • Sub Main()
  • Dim a As ConsoleKeyInfo
  • Do
  • Console.Clear()
  • Console.ForegroundColor = ConsoleColor.Yellow
  • Console.WriteLine(" ô♫ PIANO ♫ô")
  • a = Console.ReadKey
  • If a.KeyChar = "w" Then
  • Console.Beep(262, 200)
  • ElseIf a.KeyChar = "s" Then
  • Console.Beep(277, 200)
  • ElseIf a.KeyChar = "x" Then
  • Console.Beep(294, 200)
  • ElseIf a.KeyChar = "d" Then
  • Console.Beep(311, 200)
  • ElseIf a.KeyChar = "c" Then
  • Console.Beep(330, 200)
  • ElseIf a.KeyChar = "v" Then
  • Console.Beep(349, 200)
  • ElseIf a.KeyChar = "g" Then
  • Console.Beep(370, 200)
  • ElseIf a.KeyChar = "b" Then
  • Console.Beep(392, 200)
  • ElseIf a.KeyChar = "h" Then
  • Console.Beep(415, 200)
  • ElseIf a.KeyChar = "n" Then
  • Console.Beep(440, 200)
  • ElseIf a.KeyChar = "j" Then
  • Console.Beep(466, 200)
  • ElseIf a.KeyChar = "," Then
  • Console.Beep(494, 200)
  • ElseIf a.KeyChar = "e" Then
  • Console.Beep(524, 200)
  • ElseIf a.KeyChar = "'" Then
  • Console.Beep(554, 200)
  • ElseIf a.KeyChar = "r" Then
  • Console.Beep(588, 200)
  • ElseIf a.KeyChar = "(" Then
  • Console.Beep(622, 200)
  • ElseIf a.KeyChar = "t" Then
  • Console.Beep(660, 200)
  • ElseIf a.KeyChar = "y" Then
  • Console.Beep(698, 200)
  • ElseIf a.KeyChar = "-" Then
  • Console.Beep(740, 200)
  • ElseIf a.KeyChar = "u" Then
  • Console.Beep(784, 200)
  • ElseIf a.KeyChar = "_" Then
  • Console.Beep(830, 200)
  • ElseIf a.KeyChar = "i" Then
  • Console.Beep(880, 200)
  • ElseIf a.KeyChar = ")" Then
  • Console.Beep(932, 200)
  • ElseIf a.KeyChar = "o" Then
  • Console.Beep(988, 200)
  • End If
  • Loop While a.KeyChar <> "p"
  • End Sub
  • End Module 
Module Module1

    Sub Main()
        Dim a As ConsoleKeyInfo
        Do
            Console.Clear()
            Console.ForegroundColor = ConsoleColor.Yellow
            Console.WriteLine("           ô&#9835; PIANO &#9835;ô")
            a = Console.ReadKey
            If a.KeyChar = "w" Then
                Console.Beep(262, 200)
            ElseIf a.KeyChar = "s" Then
                Console.Beep(277, 200)
            ElseIf a.KeyChar = "x" Then
                Console.Beep(294, 200)
            ElseIf a.KeyChar = "d" Then
                Console.Beep(311, 200)
            ElseIf a.KeyChar = "c" Then
                Console.Beep(330, 200)
            ElseIf a.KeyChar = "v" Then
                Console.Beep(349, 200)
            ElseIf a.KeyChar = "g" Then
                Console.Beep(370, 200)
            ElseIf a.KeyChar = "b" Then
                Console.Beep(392, 200)
            ElseIf a.KeyChar = "h" Then
                Console.Beep(415, 200)
            ElseIf a.KeyChar = "n" Then
                Console.Beep(440, 200)
            ElseIf a.KeyChar = "j" Then
                Console.Beep(466, 200)
            ElseIf a.KeyChar = "," Then
                Console.Beep(494, 200)
            ElseIf a.KeyChar = "e" Then
                Console.Beep(524, 200)
            ElseIf a.KeyChar = "'" Then
                Console.Beep(554, 200)
            ElseIf a.KeyChar = "r" Then
                Console.Beep(588, 200)
            ElseIf a.KeyChar = "(" Then
                Console.Beep(622, 200)
            ElseIf a.KeyChar = "t" Then
                Console.Beep(660, 200)
            ElseIf a.KeyChar = "y" Then
                Console.Beep(698, 200)
            ElseIf a.KeyChar = "-" Then
                Console.Beep(740, 200)
            ElseIf a.KeyChar = "u" Then
                Console.Beep(784, 200)
            ElseIf a.KeyChar = "_" Then
                Console.Beep(830, 200)
            ElseIf a.KeyChar = "i" Then
                Console.Beep(880, 200)
            ElseIf a.KeyChar = ")" Then
                Console.Beep(932, 200)
            ElseIf a.KeyChar = "o" Then
                Console.Beep(988, 200)
            End If
        Loop While a.KeyChar <> "p"
    End Sub

End Module

 Conclusion

c'est sympa le mode console aussi.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MON LECTEUR MP3 par kentharold
Source avec Zip Source avec une capture LECTEUR MULTIMÉDIA par lartiguef
Source avec Zip Source avec une capture RENOMMER SOUS-TITRES par memejoueur
Source .NET (Dotnet) "PARLEUR" EN VB 2010 par clementgeek41
Source avec Zip Source avec une capture CHANGER LE VOLUME SYSTÉME SANS ACTIVEX par kayoub5
Toutes les sources de la catégorie Multimedia

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) CLONE/FORK DES FLUX DE LA CONSOLE : PERMETTRE LA REDIRECTION... par ShareVB
Source avec Zip Source avec une capture Source .NET (Dotnet) PATCHEUR DE FICHIER par tototh
Source avec Zip Source avec une capture [VBA] EXCEL - UNE CALCULATRICE SUR UN USERFORM par lermite222
Source avec Zip Source avec une capture Source .NET (Dotnet) MINUTERIE ET DIVERS API par lermite222
Source avec Zip Source avec une capture Source .NET (Dotnet) MIDI IN PIANO par myorgan

Commentaires et avis

Commentaire de yvesyves le 11/12/2007 18:03:31

T'as l'air d'aimer les caractères spéciaux toi. Je rajouterais £µ%¨£+°0

Commentaire de yvesyves le 11/12/2007 18:06:29

Un Select Case aurait été plus judicieux ici, et pour ce genre d'application, je prefèrais (pour mon cas) une interface graphique.

Commentaire de coldman le 11/12/2007 22:54:44

oui t'as raison mais faut pas oublié le mode console aussi :) des fois il fait l'affair aussi loool merci pour tes coms

Commentaire de EhJoe le 17/12/2011 21:02:11 1/10

Bonjour,

N'importe quoi, c'est juste l'API en mode synchrone qui gère les hartz et leur duré, ça n'a rien à voir avec la carte son et la possibilité de jouer réellement de la musique, source à dégager, inutile !

Cordialement, Joe.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Console win32 [ par Dom ] Je cherche à executer un logicielen ligne de commande 32bit et à rediriger la sortie dans un pictureboxou textbox de vb.La console ne doit pas s'affic problème beep [ par luluc ] Je n'arrive pas à émettre un son avec la commande beep. Qui aurait la réponse ? comment faire pour... [ par p@scal ] bonjourj'ais trois boutons.Command1Command2Command3comment je peux faire pour que si je click dans un ordre precis, j'obtinne une action ? (un beep pa Problème.....avec Verifier si 1 valeur est 1 entier... [ par Chricl ] Voila j'ai le problème suivant:Dim bb = Text1.Text If b = Int(b) Then Beep End Ifle problème est que lorsque je clique sur le bouton, ça ne fait pa Client/serveur, comment réinitialiser les connexions [ par DavidT ] J'ai créé 1 winsock1 pour processus.L'un est le client et écoute sur le port 30000le thème de mon programme est de créé une application permettant d'é Client/serveur, comment réinitialiser les connexions [ par DavidT ] J'ai créé une seule winsock1 par processus.L'un est le client et écoute sur le port 30000L'autre est une console qui envoie des ordres sur le clientle Comment faire pour éxecuter un beep toute les 30mn ? [ par Nestor ] Comment faire pour éxecuter un BEEP toute les 30mn par exemple ?ps: il est cool ce site. Controler la totalité des controles [ par Stratege ] Salut !!!J'ai un p'tit probleme , voila :J'ai créé une console avec laquelle je souhaiterai pouvoir controler n'importe kelle propriété d'un controle AIDE TRES URGENT SVP SUR COMMANDE DOS SHELL [ par fakiridim ] luss'je galère un petit peu^avec ma console dosen fait j'arrive bien à lancer mon executable dos (shell monprog etc....) mais une fois que ce soft est Le BEEP !! [ par xinventor ] Pourquoi quand je met beep dans mon prog, c'est windows qui fait un beep par ma carte son et non le speaker de mon PC ?


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Monument Valley Utah known as The Mittens
Photo ?? 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,295 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)