Révision des tables de multiplication, de soustraction et d'addition + la mëme chose pour vb6

Télécharger le projet
Commenter

Description

Petit prog simple qui vous donne une addition, une soustraction ou une multiplication au hasard (selon ce que vous lui demandez) et vous demande la réponse. Vous dis ensuite si c'est vrai ou faux et vous demande si vous voulez recommencer. Peut être utile pour faire réviser les goss.

nouveau : MouLeT a adapter ce code source à vb6 !!! merci à lui !

Source / Exemple : 


'code vbs (by shadow575)

do
' Vous deamande ce que vous voulez faire
nb = 0
nb = Inputbox("Salut ! Qu'est ce que tu veux faire ?" & vbCrLf & " 1 = additions" & vbCrLf & " 2 = soustractions" & vbCrLf & " 3 = multiplications" , "robot math"," ")
nb = nb * 1
' Vous demande combien vous voulez en faire
nb2 = 1
nb2 = Inputbox("Tu veux en faire combien ?" , "robot math" , "1")
nb2 = nb2 - 1
for i = 0 to nb2

' vous demande la réponse d'une addition simple (si vous avez chosi addition) 
'et vous dis si c'est vrai ou faux (si c'est faux, il vous donne la réponse exacte)
if nb = 1 then
randomize

a = Int(10 * rnd)

b = Int(10 * rnd)
c = a + b

reponse = 0
reponse = Inputbox( a &  " + " & b & " = ?" , "robot math" , " ")
reponse = reponse * 1
if c = reponse then
Msgbox "Bravo tu as trouvé !" , vbokonly + vbApplicationModal , "robot math"
else
Msgbox "Raté ! Tu as perdu !" , vbokonly + vbApplicationModal , "robot math"
Msgbox "La bonne réponse était " & a & " + " & b & " = " & c & " !" , vbokonly + vbmodal , "robot math"
end if
end if
' vous demande la réponse d'une soustraction simple (si vous avez chosi 
'soustraction) 
'et vous dis si c'est vrai ou faux (si c'est faux, il vous donne la réponse exacte)
if nb = 2 then
randomize

a = Int(10 * rnd)

b = Int(10 * rnd)

if a>b then
c = a-b
reponse = 0
reponse = Inputbox ( a & " - " & b & " = ?" , "robot math" , "")
reponse = reponse * 1
end if
if a < b then
c = b-a
reponse = Inputbox ( b & " - " & a & " = ?" , "robot math" , "")
reponse = reponse * 1
end if
if c = reponse then
Msgbox "Bravo tu as trouvé !" , vbokonly + vbApplicationModal , "robot math"
else
Msgbox "Raté ! Tu as perdu !" , vbokonly + vbApplicationModal , "robot math"
Msgbox "La bonne réponse était " & a & " - " & b & " = " & c & " !" , vbokonly + vbApplicationModal , "robot math"
end if
end if
' vous demande la réponse d'une multiplication simple (si vous avez chosi 
'multiplication) 
'et vous dis si c'est vrai ou faux (si c'est faux, il vous donne la réponse exacte)
if nb = 3 then
randomize

a = Int(10 * rnd)

b = Int(10 * rnd)

c = a*b
reponse = 0
reponse = Inputbox ( a & " X " & b & " = ?" , "robot math" , "")
reponse = reponse * 1
if c = reponse then
Msgbox "Bravo tu as trouvé !" , vbokonly + vbApplicationModal , "robot math"
else
Msgbox "Raté ! Tu as perdu !" , vbokonly + vbApplicationModal , "robot math"
Msgbox "La bonne réponse était " & a & " X  " & b & " = " & c & " !" , vbokonly + vbApplicationModal , "robot math"
end if
end if

next

'Vous demande si vous voulez faire une autre opération, si oui il revient au début,
'sinon c'est terminé !
 
If Not (MsgBox("Encore une autre opération ?" , vbQuestion + vbYesNoCancel + vbApplicationModal + 0,"robot math") = vbYes) Then
Msgbox "A bientôt" , vbokonly + vbApplicationModal , "robot math"
exit do
end if
loop

' même code sauf que c'est our vb6 (by Moulet)

' à mettre dans une form

Option Explicit
Public Réponse As Long, Résultat As Long
Private Sub Form_Load()
Dim X1 As Long, X2 As Long
Randomize: MsgBox "Bienvenue dans le programme de révision de la table de Multiplication, Addition et Soustraction !", vbOKOnly, "Révision des Tables"
Do
    X1 = Int(10 * Rnd) + 1: X2 = Int(10 * Rnd) + 1
    Résultat = (X1 * X2): Réponse = Val(InputBox(X1 & " * " & X2 & " = ?", "Révision de la table de Multiplication", 0))
    Call Compr("Multiplication")
    If MsgBox("Encore?", vbYesNo, "Révision de la table de Multiplication") = vbNo Then Exit Do
Loop
Do
    X1 = Int(1000 * Rnd) + 1: X2 = Int(1000 * Rnd) + 1
    Résultat = (X1 - X2): Réponse = Val(InputBox(X1 & " - " & X2 & " = ?", "Révision de la table de Soustraction", -10001))
    Call Compr("Soustraction")
    If MsgBox("Encore?", vbYesNo, "Révision de la table de Soustraction") = vbNo Then Exit Do
Loop
Do
    X1 = Int(100000 * Rnd) + 1: X2 = Int(100000 * Rnd) + 1
    Résultat = (X1 + X2): Réponse = Val(InputBox(X1 & " + " & X2 & " = ?", "Révision de la table d'Addition", 0))
    Call Compr("Addition")
    If MsgBox("Encore?", vbYesNo, "Révision de la table de d'Addition") = vbNo Then Exit Do
Loop
End
End Sub
Sub Compr(TypeTable As String)
If Réponse = Résultat Then
    MsgBox "Bravo ! Tu as trouvé !", vbOKOnly, "Révision des tables de " & TypeTable
    Else
    MsgBox "Raté !", vbOKOnly, "Révision des tables de " & TypeTable
End If
End Sub

Conclusion :


Voilà ! si vous trouvez ce code nul ou alors d'un niveau très bas, sachez que je débute et que c'est la première source que je publi sur ce site !

J'ai écris ça à ma façon (qui n'est peut être pas la meilleure façon) mais bon, l'important c'est quen ça marche non ?

merci et @ +

pour le code pour vb6 faut poser des questions à Moulet parceque moi je sais pas !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.