Piano console

Soyez le premier à donner votre avis sur cette source.

Vue 16 930 fois - Téléchargée 516 fois

Description

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 / Exemple :


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

Conclusion :


c'est sympa le mode console aussi.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
5
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.
Messages postés
7
Date d'inscription
mardi 11 décembre 2007
Statut
Membre
Dernière intervention
11 juillet 2010

oui t'as raison mais faut pas oublié le mode console aussi :) des fois il fait l'affair aussi loool merci pour tes coms
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010

Un Select Case aurait été plus judicieux ici, et pour ce genre d'application, je prefèrais (pour mon cas) une interface graphique.
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.