Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[PROG] PoM (plus ou moins)
Auteur Message
Répondre en citant
Message [PROG] PoM (plus ou moins) 
Voilà un PoM, un petit plus ou moins crée par moi même. ^^

Code:
    Sub Main()
        Console.Title = "PoM by iLgend"
        StartGame()
    End Sub

    Private Sub StartGame()

        Dim Rand As New Random
        Dim NumberTest As Integer = 0
        Dim Number As Integer = 0

        Dim Find As Boolean = False
        Dim Correct As Boolean = False

        While Not Correct

            Console.Write("Choisissez le nombre de chiffre du nombre à trouver (1, 2, 3) : ")

            Select Case Console.ReadLine

                Case 1
                    Number = Rand.Next(0, 9)
                    Correct = True

                Case 2
                    Number = Rand.Next(10, 99)
                    Correct = True

                Case 3
                    Number = Rand.Next(100, 999)
                    Correct = True

                Case Else
                    Console.WriteLine("Vous devez entrer un nombre correct (1, 2, 3).")

            End Select

        End While

        While Not Find

            Console.Write("Nombre : ")

            NumberTest += 1

                Select Case Console.ReadLine

                Case Number
                    Find = True

                Case Is < Number
                    Console.WriteLine("Plus")

                Case Is > Number
                    Console.WriteLine("Moins")

                Case Else
                    Console.WriteLine("Vous devez entrer un nombre.")

            End Select

        End While

        Console.WriteLine("Vous avez trouvé " & Number & " en " & NumberTest & " essai !")
        Console.Read()

    End Sub




Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch