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

Soyez le premier à donner votre avis sur cette source.

Vue 31 727 fois - Téléchargée 422 fois

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 !

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
90
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
27 juillet 2009

Tien jvien de fair la nouvelle version pour VB6 :) garde le bien au chaud ce code ,tu pourra lexaminer quand tora VB6 :

Option Explicit
Public Réponse As Long, Résultat As Long, TotalQu As Long, Points 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"
If MsgBox("Voulez-vous faire une Multiplication?", vbYesNo, "Révision des Tables") = vbNo Then GoTo Suite1
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
Suite1:: If MsgBox("Voulez-vous faire une Soustraction?", vbYesNo, "Révision des Tables") = vbNo Then GoTo Suite2
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", 0))
Call Compr("Soustraction")
If MsgBox("Encore?", vbYesNo, "Révision de la table de Soustraction") = vbNo Then Exit Do
Loop
Suite2:: If MsgBox("Voulez-vous faire une Addition?", vbYesNo, "Révision des Tables") = vbNo Then GoTo Suite3
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
Suite3:: FinScores
End Sub
Sub Compr(TypeTable As String)
TotalQu = TotalQu + 1
If Réponse = Résultat Then
MsgBox "Bravo ! Tu as trouvé !", vbOKOnly, "Révision des tables de " & TypeTable: Points = Points + 1
Else
MsgBox "Raté ! La Réponse était : " & Résultat, vbOKOnly, "Révision des tables de " & TypeTable
End If
End Sub
Sub FinScores()
If TotalQu <> 0 Then MsgBox "Votre Scores est de : " & Points & "" & TotalQu & ", " & Int(100 / TotalQu * Points) & "%"
End
End Sub
Messages postés
19
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
29 juin 2004

non rien laisse tomber... en tout cas merci pour ton truc pour vb6 !
Messages postés
90
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
27 juillet 2009

J'ai pas compris la Shadow575 ?
Messages postés
19
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
29 juin 2004

merci scalpel ! moulet ça re dérange pas que je laisse ton truc pour vb6 dans le zip et dans la source (même si toi tu refais un autre truc pour la mettre) ?
Messages postés
3
Date d'inscription
lundi 28 juin 2004
Statut
Membre
Dernière intervention
29 juin 2004

lol moi aussi je debute

pas tro mal ta source shadow
Afficher les 36 commentaires

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.