• Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.


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
936
J'aime
298
Points
4 291
#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