voici le code
Spoiler
Module Module1
Sub Main()
Dim Lettre As String = ""
Dim Nombre As Integer
Randomize()
Dim NombreMystere As Integer = CInt(Rnd() * 1000 + 1)
Dim NombreDeCoups As Integer = 0
Dim Prenom As String
Console.WriteLine("----------------Jeu du Nombre Mystère----------------")
Console.WriteLine("Avant de commencer, je vais vous demander votre prénom.")
Prenom = Console.ReadLine()
Console.WriteLine("Bonjour " & Prenom & ", vous allez jouer au jeu du Nombre Mystère réalisé par Matthieu Lepers. Si vous rencontrez un problème avec ce jeu, veuillez le contacté à cette adresse : matthieulepers@hotmail.fr")
Console.WriteLine()
Do
Console.WriteLine("Entrez un nombre entre 1 et 1000")
NombreDeCoups = NombreDeCoups + 1
Lettre = Console.ReadLine()
If Nombre > NombreMystere Then
Console.Beep(1000, 200)
Console.WriteLine("Entrez un nombre plus petit")
Console.WriteLine()
ElseIf Nombre < NombreMystere Then
Console.Beep(500, 200)
Console.WriteLine("Entrez un nombre plus grand")
Console.WriteLine()
ElseIf Nombre = NombreMystere Then
Console.Beep(1000, 200)
Console.Beep(1000, 200)
Console.Beep(1000, 200)
Console.WriteLine("Bravo " & Prenom & ", vous avez trouvé le Nombre Mystère qui était " & NombreMystere & " en " & NombreDeCoups & " coups.")
End If
Loop Until IsNumeric(Lettre)
Console.WriteLine("Appuyez sur une touche pour continuer...")
Console.ReadKey()
End Sub
End Module
Sub Main()
Dim Lettre As String = ""
Dim Nombre As Integer
Randomize()
Dim NombreMystere As Integer = CInt(Rnd() * 1000 + 1)
Dim NombreDeCoups As Integer = 0
Dim Prenom As String
Console.WriteLine("----------------Jeu du Nombre Mystère----------------")
Console.WriteLine("Avant de commencer, je vais vous demander votre prénom.")
Prenom = Console.ReadLine()
Console.WriteLine("Bonjour " & Prenom & ", vous allez jouer au jeu du Nombre Mystère réalisé par Matthieu Lepers. Si vous rencontrez un problème avec ce jeu, veuillez le contacté à cette adresse : matthieulepers@hotmail.fr")
Console.WriteLine()
Do
Console.WriteLine("Entrez un nombre entre 1 et 1000")
NombreDeCoups = NombreDeCoups + 1
Lettre = Console.ReadLine()
If Nombre > NombreMystere Then
Console.Beep(1000, 200)
Console.WriteLine("Entrez un nombre plus petit")
Console.WriteLine()
ElseIf Nombre < NombreMystere Then
Console.Beep(500, 200)
Console.WriteLine("Entrez un nombre plus grand")
Console.WriteLine()
ElseIf Nombre = NombreMystere Then
Console.Beep(1000, 200)
Console.Beep(1000, 200)
Console.Beep(1000, 200)
Console.WriteLine("Bravo " & Prenom & ", vous avez trouvé le Nombre Mystère qui était " & NombreMystere & " en " & NombreDeCoups & " coups.")
End If
Loop Until IsNumeric(Lettre)
Console.WriteLine("Appuyez sur une touche pour continuer...")
Console.ReadKey()
End Sub
End Module
Et a ceux qui ne s'y connaissent pas merci de ne pas poster