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.
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.