Mon code VB n'accepte pas "or"

Version imprimable

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

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

Code:

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.

Bonsoir,

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

http://www.imabox.fr/a3/1420092250XE9BXZ54.png

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

Code:

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+

20/09/2014, 22h58
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.
20/09/2014, 23h00
stracoma

OR

wallace1, merci beaucoup;
c'est l'erreur de débutant
Maintenant ça marche Nickel
Merciiiiiiiii
20/09/2014, 23h05
wallace1
Citation:

Envoyé par stracoma

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 :ccool: :
Code:

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+
20/09/2014, 23h07
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
20/09/2014, 23h11
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 ;))

C'est bien ça:

Code:

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

Mon cher wallace1, en voulant explorer toutes les possibilités, j'ai essayé la méthode que vous avez proposée, mais ça ne marche pas:
Code:

1 2 3 4 5 6 7 8 9 10 R = Console.ReadLine() If R.ToLower = "a" Then plus(pnombre, dnombre) ElseIf R.ToLower = "s" Then mois(pnombre, dnombre) ElseIf R.ToLower = "m" Then fois(pnombre, dnombre) ElseIf R.ToLower = "d" Then division(pnombre, dnombre) End If
il donne le message: la résolution de surcharge a échoué, car aucun "ToLower"accessible n’accepte ce nombre d'arguments

21/09/2014, 00h49
wallace1

@Sehnsucht : A cette heure ci faut pas trop m'en demander.....
@Stracoma : le principal étant l'exploration de plusieurs solutions et de choisir celle qui te corresponds le mieux moyennant quelques ajustements ;)

Sur ce bonne nuit.
21/09/2014, 15h26
Lord - Nelson

Bonjour stracoma

Ta variable R serais pas numérique par hasard (Char = Un caractère mais c'est une valeur numérique non ?) ? :aie:
Met ta variable R en string plutôt :)

Sinon, j'ai rien dis ^^
21/09/2014, 16h23
stracoma

Bonjour Lord-Nelson, votre remarque est juste. En changeant char par string, il n'y a plus d'erreur.
Donc le char est pris par le programme pour une valeur numérique.
Une épine retirée
merci
21/09/2014, 16h27
rv26t
Bonjour,

@Lord - Nelson
Non, R est de type Char (il n'est pas difficile de consulter la doc)

Le problème vient de la conversion implicite, il suffit de mettre Option Stric On.
Avec la déclaration Dim R As Char R devrait être traité ainsi Char.ToLower(R) pour être correctement utilisé.
Mais en fait, ici cette variable n'est même pas utile, on peut traiter directement l'entrée.
Code:

1 2 3 4 5 Select Case Console.ReadLine().ToLower Case "a" plus(pnombre, dnombre) Case "s" '...
Avec l'option Option Stric On, on verra aussi les conversions implicites qui ne seront plus acceptées :
Dim pnombre As Integer = Console.ReadLine() integer - string
Dim R As Char = "" char - string
Par contre ici If R.ToLower = "a" Then l'erreur était visible directement : méthode de la classe string appliquée sur un type Char.