Discussion :

[stracoma]

Mes chers amis bonsoir, j'ai besoin de votre aide.

Je ne sais pas pourquoi ce code n’accepte pas "or"

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
Module Module1
 
    Sub Main()
        Console.WriteLine("entrer le premier nombre")
        Dim pnombre As Integer = Console.ReadLine()
        Console.WriteLine("entrer le second nombre")
        Dim dnombre As Integer = Console.ReadLine()
        Console.WriteLine("Quelle opération voulez vous faire? ")
        Dim R As Char = ""
        Console.WriteLine("si addition tapez 'A'")
        Console.WriteLine("si soustraction tapez 'S'")
        Console.WriteLine("si mustiplication tapez 'M'")
        Console.WriteLine("si division tapez 'D'")
        R = Console.ReadLine()
        If R = "A" Or "a" Then
            plus(pnombre, dnombre)
        ElseIf R = "S" Or "s" Then
            mois(pnombre, dnombre)
        ElseIf R = "M" Or "m" Then
            fois(pnombre, dnombre)
        ElseIf R = "D" Or "d" Then
            division(pnombre, dnombre)
        End If
        Console.ReadKey()
    End Sub
    Sub plus(ByVal nombre1 As Integer, ByVal nombre2 As Integer)
        Console.WriteLine(nombre1 + nombre2)
    End Sub
    Sub mois(ByVal nombre1 As Integer, ByVal nombre2 As Integer)
        Console.WriteLine(nombre1 - nombre2)
    End Sub
    Sub fois(ByVal nombre1 As Integer, ByVal nombre2 As Integer)
        Console.WriteLine(nombre1 * nombre2)
    End Sub
    Sub division(ByVal nombre1 As Integer, ByVal nombre2 As Integer)
        Console.WriteLine(nombre1 / nombre2)
    End Sub
 
End Module

il me donne comme message:La conversion de la chaîne "a" en type 'Boolean' n'est pas valide.

[wallace1]

Bonsoir,

o_O...... il faut revoir la table de vérité pour comprendre ta grossière erreur !!




Pour corriger ton problème il faut que tu ré-évalues ta condition pour "a" c'est à dire comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        R = Console.ReadLine()
        If R = "A" Or R = "a" Then
            plus(pnombre, dnombre)
        ElseIf R = "S" Or R = "s" Then
            mois(pnombre, dnombre)
        ElseIf R = "M" Or R = "m" Then
            fois(pnombre, dnombre)
        ElseIf R = "D" Or R = "d" Then
            division(pnombre, dnombre)
        End If
        Console.ReadKey()

Bonne lecture.
A+

[Sehnsucht]

Une autre approche dites du "éviter de se prendre la tête pour rien" ; serait de faire en sorte de n'avoir pas à utiliser de Or, pour cela plusieurs méthodes :

convertir la lecture en "tout minuscule" ou "tout majuscule" comme ça on teste directement en minuscule ou en majuscule
utiliser une méthode de comparaison insensible à la casse (= le fait que ce soit en minuscule ou en majuscule)
utiliser l'opérateur like en lui passant une classe de caractère contenant les 2 possibilités (minuscules et majuscules) [là c'est déjà plus du bricolage par rapport aux 2 première]
etc.

[stracoma]

wallace1, merci beaucoup;
c'est l'erreur de débutant
Maintenant ça marche Nickel
Merciiiiiiiii

[wallace1]

wallace1, merci beaucoup;
c'est l'erreur de débutant
Maintenant ça marche Nickel
Merciiiiiiiii

Je souhaitais resté dans ton contexte mais il est clair que l'approche d'ami Sehnsucht est bien moins prise de tête :

Code :

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

1
2
3
4
5
6
7
 
        R = Console.ReadLine()
        If R.ToLower = "a" Then
            plus(pnombre, dnombre)
        If R.ToLower = "s" Then
            mois(pnombre, dnombre)
        End If

A+

[stracoma]

Sehnsucht
Effectivement c'est plus pratique de mettre toute la saisie en majuscule ou miniscule, mais étant débutant j'explore toutes les pistes.
Mais opérateur Like, je connais pas (j'y arriverai dans le tuto)
Merci

[Sehnsucht]

@wallace1:
Dans ce cas, de 2 choses l'une, soit tu appliques directement le .ToLower (ToLowerInvariant serait sans doute mieux même) sur le Console.ReadLine histoire de pas le faire 50 fois (bien sûr si on doit conserver la valeur initiale avec sa casse là, c'est pas la bonne approche) ; soit utilises un Select Case au lieu d'un enchainement de If ou de If/Else If (dans un Select Case, le "critère" n'est évalué qu'une seule fois )

[stracoma]

C'est bien ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 R = Console.ReadLine().ToLower
        Select Case R
            Case "a"
                plus(pnombre, dnombre)
            Case "s"
                mois(pnombre, dnombre)
            Case "m"
                fois(pnombre, dnombre)
            Case "d"
                division(pnombre, dnombre)
        End Select

J'avance, merci à vous