Discussion :

[Jcvag44800]

Bonjour/Bonsoir

Je suis un débutant en VisualBasic, soyez indulgent s'il vous plait

Voilà, je suis en train de faire un programme s'intitulant " Plus ou moin "
Le but, et donc de trouver le chiffre géneré aléatoirement.

Le voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Module Module1
 
    Sub Main()
        ' Déclaration des variables
        Dim RandomClass As New Random()
        Dim RandomNumber As Integer
        Dim NombreEntree As String
        Dim Niveau As Integer = 1
        Dim Jeu As Integer = 0
        Dim NombreMini As Integer
        Dim NombreMax As Integer
        ' Présentation du programme
        Console.WriteLine("Bienvenue dans le plus ou moin")
        Console.WriteLine("Celui-ci est crée avec le langage de programmation VisualBasic.NET ( VB.NET )")
        Console.WriteLine("Merci d'appuyer sur <<Entrer>>")
        Console.Read()
        ' Création du nombre alétoire ( de 1 à 100 )
        RandomNumber = RandomClass.Next(1, 100)
        Console.WriteLine("On commence !")
        Console.WriteLine("On commence de 1 à 100")
        NombreMini = 1
        NombreMax = 100
        ' Boucle infinie permettant de jouer en illimité =) !
        Do
 
            Console.Read()
            Console.WriteLine("Entrer le nombre")
            Console.WriteLine("Valeur: " & RandomNumber)
            NombreEntree = Console.ReadLine()
            ' Si le nombre entree est égal au nombre généré:
            If NombreEntree = RandomNumber Then
                NombreMax += 100
                Niveau += 1
                Console.WriteLine("Bien joué !")
                Console.WriteLine("Niveau " & Niveau & ": de " & NombreMini & " à " & NombreMax)
                RandomNumber = RandomClass.Next(NombreMini, NombreMax)
                NombreEntree = 0
                Console.WriteLine("Le chiffre à rechercher se situe maintenant entre " & NombreMini & " et " & NombreMax)
                ' Sinon, si le nombre entree est plus petit que le nombre généré:
            ElseIf NombreEntree < RandomNumber Then
                Console.WriteLine("Le nombre recherché est plus petit !")
                ' Sinon, si le nombre entree est plus grand que le nombre généré:
            ElseIf NombreEntree > RandomNumber Then
                Console.WriteLine("Le nombre recherché est plus grand !")
            End If
            ' Faire en sorte que le jeu ne se termine jamais:
        Loop Until Jeu = 1
        Console.Read()
    End Sub
 
End Module

Le problème est le suivant:

J'entre pour la première fois le chiffre géneré aléatoirement, ça marche, il m'affiche bien le message " Bien joué ! ...... "
Je suis donc dans le niveau 2, et le nombre à trouver se trouve entre 1 et 200.
J'entre donc n'importe quel chiffre, et un message apparait sur VB:

L'exception System.InvalidCastException n'a pas été gérée
Message=La conversion de la chaîne "" en type 'Double' n'est pas valide.
Source=Microsoft.VisualBasic
StackTrace:
à Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
à Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value)
à ConsoleApplication1.Module1.Main() dans C:\Users\Alexandre\documents\visual studio 2010\Projects\ConsoleApplication1\ConsoleApplication1\Module1.vb:ligne 31
à System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading.ThreadHelper.ThreadStart()
InnerException: System.FormatException
Message=Le format de la chaîne d'entrée est incorrect.
Source=Microsoft.VisualBasic
StackTrace:
à Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
à Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble(String Value, NumberFormatInfo NumberFormat)
InnerException:

Voilà, je ne comprends pas ce problème, enfin je pense que ça vient du type de format...

Cordialement

[Pol63]

visual basic est configuré par défaut pour laisser écrire n'importe quoi
il faut aller dans les propriétés du projet pour mettre option strict on et option explicite on

une fois que ca serait fait, il va te souligner en erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If NombreEntree = RandomNumber Then

car nombreentree est un string, et randomnumber est un nombre
comparer un string et un nombre est illogique il faut convertir le string en nombre ou l'inverse, sans les paramètres précités, la conversion est implicite
mais une conversion n'est pas toujours possible "aaa" n'est pas convertible en nombre tout comme "" (chaine vide) dans ton cas
avec les paramètres précités ca oblige à faire la convertion explcitement par code et en théorie à se poser la question de la faisabilité

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if not integer.tryparse(...) then console.writeline ("entrez un nombre")

[Jcvag44800]

Salut,

Merci de ton aide.
Cependant, que dois-je mettre ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if not integer.tryparse(...)

Je ne vois pas vraiment ce que je dois mettre en ces parenthèses ...
Aussi, où dois-je mettre ceci, je ne vois pas vraiment, a moin que ce soit à la place de Console.WriteLine("Entrer un nombre")

[Pol63]

quand tu tapes tryparse( ca t'explique en info bulle ce qu'il faut après
de plus si tu fais F1 sur tryparse après l'avoir écrit ca va t'expliquer ce que fait la fonction et ce qu'elle attend en paramètre
ainsi tu devrais savoir ou ca se place, mais en théorie, il faut tester que ce qui a été saisie est transformable en nombre avant de faire une comparaison de ce soit disant nombre

[Jcvag44800]

D'accord,

Je dois donc faire comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
           Console.Read()
            If Not Integer.TryParse(NombreEntree, RandomNumber) Then Console.WriteLine("entrez un nombre")
            Console.WriteLine("Entrer le nombre")
            Console.WriteLine("Valeur: " & RandomNumber)

[Gurdil le nain]

Non, car si tu fais comme cela et qu'il arrive à parser la chaine entrée par l'utilisateur, il va stocker la valeur dans ton RandomNumber alors que c'est la valeur à trouver.

Il faut faire un truc du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim NombreEntree As String
Dim EntreeParsee As Integer
Integer.TryParse(NombreEntree, EntreeParsee)

[Jcvag44800]

Comme ceci alors ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            Console.WriteLine("Valeur: " & RandomNumber)
            NombreEntree = Console.ReadLine()
            Integer.TryParse(NombreEntree, EntreeParsee)
            ' Si le nombre entree est égal au nombre généré:
            If EntreeParsee = RandomNumber Then

Je suis assez perdu là...

[Pol63]

integer.tryparse est une fonction, une fonction a une valeur de retour
la valeur de retour de tryparse est un booléen qui vaut true si la conversion a réussi, il faut donc tester cette valeur de retour

de plus si al conversion a réussie tryparse écrit directement la valeur (grave au byref) dans la variable que tu lui donnes

ce qui donne au niveau algo un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
dim nombreAlteat as integer
do
  dim saisie as string
  dim nombresaisi as integer
  do
     saisie = readline
  loop until integer.tryparse(saisie,nombresaisi)
  if nombreAlteat <> nombresaisi then write "non"
loop until nombreAlteat = nombresaisi
write "trouvé !"

[Jcvag44800]

Merci à vous, ça marche très bien ! =)

Voici mon code ( Refait entierrement à l'occasion ):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Module Module1
 
    Sub Main()
        Dim RandomClass As New Random()
        Dim ValeurSaisie As String
        Dim ValeurSaisie2 As Integer
        Dim NombreMistere As Integer
        Dim Jeu As Integer = 0
        Dim NombreMax As Integer = 100
        Dim Niveau As Integer = 0
        Dim Essais As Integer = 0
        Console.WriteLine("Bienvenue dans le plus ou moin créé par Jcvag44800.")
        Console.WriteLine("Ce jeu consiste à trouver un nombre généré aléatoirement.")
        Console.WriteLine("Vous entrez par exemple 51, le programme vous dit si le nombre à trouver est plus grand, ou plus petit")
        Console.WriteLine("Bonne chance ! ( appuyer sur enter )")
        Console.Read()
        Console.Clear()
        NombreMistere = RandomClass.Next(1, 100)
        Console.WriteLine("Vous êtes au niveau 1, le nombre à trouver se trouve entre 0 et 100.")
        Console.WriteLine("Entrer un nombre:")
        Do
            Do
                ValeurSaisie = Console.ReadLine()
            Loop Until Integer.TryParse(ValeurSaisie, ValeurSaisie2)
 
            If ValeurSaisie2 > NombreMistere Then
                Console.WriteLine("Le nombre à trouver est plus petit.")
                Essais += 1
            ElseIf ValeurSaisie2 < NombreMistere Then
                Console.WriteLine("Le nombre à trouver est plus grand.")
                Essais += 1
            Else
                Console.Clear()
                NombreMax += 100
                Niveau += 1
                NombreMistere = RandomClass.Next(1, NombreMax)
                Console.WriteLine("Valeur trouvé ( " & NombreMistere & " ) ! ( " & Essais & " essais )")
                Console.WriteLine("Bien joué, tu viens de réussir le niveau " & Niveau & " =) !")
                Console.WriteLine("Maintenant, la valeur se trouve entre 0 et " & NombreMax)
            End If
        Loop Until Jeu = 1
        Console.Read()
    End Sub
 
End Module

Est-il correct ?

Cordialement

[Gurdil le nain]

Bonjour,

Il me semble qu'il reste une petite erreur : tu modifie le nombre mystère avant de l'afficher...et donc tu affiches le nombre mystère suivant alors que le joueur ne l'a pas encore trouvé.

Cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NombreMistere = RandomClass.Next(1, NombreMax)

devrait se trouver à la fin du else, après les affichages.

[Jcvag44800]

Bonsoir,

Oui j'avais vu ça

Cordialement