Discussion :

[Danaxia]

Bonjour le forum et bon dimanche à vous, voilà j'ai récupéré ce fichier tres sympa dont je ne connais pas l'auteur, j'aimerai savoir comment changer de l'addition en division ou en soustraction. quel code il faut changer. Merci de votre savoir. Dan

[Maxence HUBICHE]

multiplication

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " x " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 * N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 * N2
  End If
  Next ' Fin du For

division

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " / " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 / N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 / N2
  End If
  Next ' Fin du For

etc.

[Danaxia]

multiplication

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " x " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 * N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 * N2
  End If
  Next ' Fin du For

division

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  N2 = Int((100 * Rnd) + 1) ' Génération d'un nombre au hasard N2
  Reponse = InputBox("Combien font " & N1 & " / " & N2 & " ?")
  ' Si le joueur répond correctement :
  If Reponse = N1 / N2 Then
    MsgBox "Bonne réponse !"
    Score = Score + 1 ' On augmente son score s'il répond bien
  Else ' Sinon...
    ' Sinon, son score ne bouge pas...
    MsgBox "Désolé... la bonne réponse était " & N1 / N2
  End If
  Next ' Fin du For

etc.

Merci pour ta réponse je vais essayer maintenant je dirai si j'ai bien compris et merci encore.

Et por faire la soustraction je n'y arrive pas, désolé de redemander votre aide. Merci. Dan

[Maxence HUBICHE]

ok... alors, essaie de remarquer ce qui change dans les deux codes ci-dessus.
En tout, il y a 3 différences...
Et comme c'est le week-end => détente ! tu vas jouer au jeu des 3 différences.
Vas-tu les trouver ?

[Danaxia]

ok... alors, essaie de remarquer ce qui change dans les deux codes ci-dessus.
En tout, il y a 3 différences...
Et comme c'est le week-end => détente ! tu vas jouer au jeu des 3 différences.
Vas-tu les trouver ?

Ok Je vais y arriver et bonne soirée à toi. Dan