Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 03:44:49

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[VISUAL STUDIO 2010] LES TESTS CASES C'EST BIEN, MAIS JE VAIS DEVOIR TOUT RééCRIRE ? par Etienne Margraff

MVP[GRIBOUILLON].ADDYEAR par Gribouillon

RE : REQUETES IMBRIQUéES SOUS SQL SERVER par jack

RE : [DéPLACé VB.NET -> VBA] APPEL DE FONCTION DANS UNE MACRO par c148270

RE : VERIFIER UNE CONDITION SUR 12 FEUILLES AVEC LA MEME COMMANDE par jack

RE : DEMANDE D'INFORMATION FONCTIONNALITé DE VB 6 ET BASE ACCESS par c148270

RE : DEMANDE D'INFORMATION FONCTIONNALITé DE VB 6 ET BASE ACCESS par jack

+ de logiciels à télécharger

1 464 132 membres
40 nouveaux aujourd'hui
15 044 membres club

Trouver une ressource

Trouvez une ressource parmi 40 093 codes, 1 302 727 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PIANO CONSOLE

Information sur la source

Catégorie :Multimedia

Classé sous : piano, beep, console, ReadKey, ConsoleKeyInfo Niveau : Initié Date de création : 11/12/2007 Vu / téléchargé: 5 954 / 313

Auteur : coldman

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (3)

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Piano
- Piano
  - bin
    - Debug
      - Piano.xml 737 octets
    - Release
  - My Project
    - Application.Designer.vb 486 octets
    - Application.myapp481 octets
    - AssemblyInfo.vb 1 254 octets
    - Resources.Designer.vb 2 965 octets
    - Resources.resx 5 612 octets
    - Settings.Designer.vb 3 034 octets
    - Settings.settings279 octets
  - obj
    - Debug
      - TempPE
        
        My Project.Resources.Designer.vb.dll7 680 octets
      - Piano.Resources.resources180 octets
      - Piano.vbproj.GenerateResource.Cache784 octets
      - Piano.xml 737 octets
    - Release
    - Piano.vbproj.FileList.txt 252 octets
    - Piano.vbproj.FileListAbsolute.txt 414 octets
  - Module1.vb 4 564 octets
  - Piano.vbproj 3 859 octets
- Piano.sln 911 octets
- Piano.suo11 776 octets

Télécharger le zip

Sources de la même categorie

CREATION D'UN ACTIVEX OCX POUR FMOD.DLL par Luciol44

LECTEUR DE MEDIAS À DEUX PLATEAUX par johndave

ANALYSE DE SIGNAL AUDIO-NUMÉRIQUE par Orohena

MP3 ID3 TAG CLEANER par gilgamesh44

MYLYRICS EDITEUR DE LYRICS (PAROLES) par johndave

Toutes les sources de la catégorie Multimedia

Sources en rapport avec celle ci

SEVENZIP CONSOLE par PWM63

YMTOOLS - AGENDA - BACKUP ET AUTRES OUTILS par ym_trainz

IP2COUNTRY, UN IMPORT DE CSV VERS MYSQL EN CONSOLE ET UN PRO... par ghuysmans99

LA CONSOLE WINDOWS, EN VB6 par ghuysmans99

REDIRECTION D'UNE APPLICATION CONSOLE VERS UN TEXTBOX par riadhh05

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

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 ?