JEU MULTIPLICATION ADDITION SOUSTRACTION DIVISION
Jp50
-
2 sept. 2001 à 05:32
kitkat92 Messages postés 4 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 23 janvier 2009 - 23 janv. 2009 à 16:28
kitkat92 Messages postés 4 Date d'inscription vendredi 23 janvier 2009 Statut Membre Dernière intervention 23 janvier 2009 - 23 janv. 2009 à 16:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1776-jeu-multiplication-addition-soustraction-division
https://codes-sources.commentcamarche.net/source/1776-jeu-multiplication-addition-soustraction-division
23 janv. 2009 à 16:28
2 sept. 2001 à 05:32
dans le Command1 de la form 5, place le code suivant.
Private Sub Command1_Click()
If Option1 = True Then
num = 49
num2 = 5
score = 1
End If
If Option2 = True Then
num = 199
num2 = 10
score = 3
End If
If Option3 = True Then
num = 499
num2 = 40
score = 5
End If
Randomize
Label3.Caption = Int(Rnd * num) + 1
Label2.Caption = Label3.Caption * (Int(Rnd * num2) + 2)
End Sub