YOUPASS - convertir le crédit téléphonique en monnaie ! : Partenaire RealityGaming.fr

Visual Basic JustForFun-Music Tetris

Statut
N'est pas ouverte pour d'autres réponses.

Patrick-N

Développeur
Premium
Inscrit
17 Mars 2013
Messages
935
J'aime
296
Points
4 291
Reply from Patrick-N Forums généraux Informatique ⌨️ Programmation Programmation logiciel : JustForFun-Music Tetris #1
Salut je vous partage ce tuto comment faire la music de Tetris avec Visual Basic !

1-Ouvrez VisualBasic!
2-cliquez sur nouveau projet puis application console
3-efface tous !
coller ce code :
Code:
Imports System.Threading
Module Module1
'Tetris
    Sub Main()
        Console.Beep(1320, 500)
        Console.Beep(990, 250)
        Console.Beep(1056, 250)
        Console.Beep(1188, 250)
        Console.Beep(1320, 125)
        Console.Beep(1188, 125)
        Console.Beep(1056, 250)
        Console.Beep(990, 250)
        Console.Beep(880, 500)
        Console.Beep(880, 250)
        Console.Beep(1056, 250)
        Console.Beep(1320, 500)
        Console.Beep(1188, 250)
        Console.Beep(1056, 250)
        Console.Beep(990, 750)
        Console.Beep(1056, 250)
        Console.Beep(1188, 500)
        Console.Beep(1320, 500)
        Console.Beep(1056, 500)
        Console.Beep(880, 500)
        Console.Beep(880, 500)
        Thread.Sleep(250)
        Console.Beep(1188, 500)
        Console.Beep(1408, 250)
        Console.Beep(1760, 500)
        Console.Beep(1584, 250)
        Console.Beep(1408, 250)
        Console.Beep(1320, 750)
        Console.Beep(1056, 250)
        Console.Beep(1320, 500)
        Console.Beep(1188, 250)
        Console.Beep(1056, 250)
        Console.Beep(990, 500)
        Console.Beep(990, 250)
        Console.Beep(1056, 250)
        Console.Beep(1188, 500)
        Console.Beep(1320, 500)
        Console.Beep(1056, 500)
        Console.Beep(880, 500)
        Console.Beep(880, 500)
        Thread.Sleep(500)
        Console.Beep(1320, 500)
        Console.Beep(990, 250)
        Console.Beep(1056, 250)
        Console.Beep(1188, 250)
        Console.Beep(1320, 125)
        Console.Beep(1188, 125)
        Console.Beep(1056, 250)
        Console.Beep(990, 250)
        Console.Beep(880, 500)
        Console.Beep(880, 250)
        Console.Beep(1056, 250)
        Console.Beep(1320, 500)
        Console.Beep(1188, 250)
        Console.Beep(1056, 250)
        Console.Beep(990, 750)
        Console.Beep(1056, 250)
        Console.Beep(1188, 500)
        Console.Beep(1320, 500)
        Console.Beep(1056, 500)
        Console.Beep(880, 500)
        Console.Beep(880, 500)
        Thread.Sleep(250)
        Console.Beep(1188, 500)
        Console.Beep(1408, 250)
        Console.Beep(1760, 500)
        Console.Beep(1584, 250)
        Console.Beep(1408, 250)
        Console.Beep(1320, 750)
        Console.Beep(1056, 250)
        Console.Beep(1320, 500)
        Console.Beep(1188, 250)
        Console.Beep(1056, 250)
        Console.Beep(990, 500)
        Console.Beep(990, 250)
        Console.Beep(1056, 250)
        Console.Beep(1188, 500)
        Console.Beep(1320, 500)
        Console.Beep(1056, 500)
        Console.Beep(880, 500)
        Console.Beep(880, 500)
        Thread.Sleep(500)
        Console.Beep(660, 1000)
        Console.Beep(528, 1000)
        Console.Beep(594, 1000)
        Console.Beep(495, 1000)
        Console.Beep(528, 1000)
        Console.Beep(440, 1000)
        Console.Beep(419, 1000)
        Console.Beep(495, 1000)
        Console.Beep(660, 1000)
        Console.Beep(528, 1000)
        Console.Beep(594, 1000)
        Console.Beep(495, 1000)
        Console.Beep(528, 500)
        Console.Beep(660, 500)
        Console.Beep(880, 1000)
        Console.Beep(838, 2000)
        Console.Beep(660, 1000)
        Console.Beep(528, 1000)
        Console.Beep(594, 1000)
        Console.Beep(495, 1000)
        Console.Beep(528, 1000)
        Console.Beep(440, 1000)
        Console.Beep(419, 1000)
        Console.Beep(495, 1000)
        Console.Beep(660, 1000)
        Console.Beep(528, 1000)
        Console.Beep(594, 1000)
        Console.Beep(495, 1000)
        Console.Beep(528, 500)
        Console.Beep(660, 500)
        Console.Beep(880, 1000)
        Console.Beep(838, 2000)
    End Sub

End Module
Merci
 
Statut
N'est pas ouverte pour d'autres réponses.


Discussions similaires

Haut