additon résultats random

Question

help !
je veut additonner les valeurs de 2 résultats de random pour aller mettre la somme dans une condition pour savoir si la somme des deux tirages =3 en locurence et il refuse de réagir! kes ki se passe?
merci

voila le code :

dim a as integer
dim b as integer

Private Sub image2_Click()
Randomize  
a = Int((4 * Rnd) + 1)     
If a = 1 Then
image2.Picture = LoadPicture("..\NEW\cartes\0.bmp")
ElseIf a = 2 Then
image2.Picture = LoadPicture("..\NEW\cartes\1.bmp")
ElseIf a = 3 Then
image2.Picture = LoadPicture("..\NEW\cartes\2.bmp")
Else
image2.Picture = LoadPicture("..\NEW\cartes\3.bmp")
End If
End Sub

Private Sub image3_Click()
Randomize   'la random s'initialise
b = Int((4 * Rnd) + 1)    
If b = 1 Then
image3.Picture = LoadPicture("..\NEW\cartes\0.bmp")
ElseIf b = 2 Then
image3.Picture = LoadPicture("..\NEW\cartes\1.bmp")
ElseIf b = 3 Then
image3.Picture = LoadPicture("..\NEW\cartes\2.bmp")
Else
image3.Picture = LoadPicture("..\NEW\cartes\3.bmp")
End If
End Sub
Private Sub arbitre()

End Sub
If a + b = 3 Then
MsgBox "gagné"
Else
MsgBox "perdu"
End If
End Sub

cmoapierre · Answer

c normal
fo ke tu appel ta procedure arbitre
Tu fé
call arbitre()
voila

cs_DARKSIDIOUS · Answer

Il faut appeller arbiter, mais également mettre du code dans arbitre : enlève le premier End sub dans ta définition de arbitre !

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

crenaud76 · Answer

Et pour simplifier le code, dans tes evt Click, tu peut remplacer tes If ... else ... endif par ca :

Image3.picture= Loadpicture("..
ew\cartes" & cstr(b-1) & ".bmp")

Christophe R.

augure3 · Answer

merci !

mais mon call arbitre jle met ou?
voila ce ke ca donne grace à vous :

Dim a, b As Single

Private Sub image2_Click()
Randomize   'la random s'initialise
a = Int((4 * Rnd) + 1)     'le script va selectionner un chifre entre 1 et 12 et l'enregistrer dans "a"
image2.Picture = LoadPicture("..
ew\cartes" & CStr(a - 1) & ".bmp") 'le super if else elseif
End Sub

Private Sub image3_Click()
Randomize   'la random s'initialise
b = Int((4 * Rnd) + 1)     'le script va selectionner un chifre entre 1 et 12 et l'enregistrer dans "a"
image3.Picture = LoadPicture("..
ew\cartes" & CStr(b - 1) & ".bmp")
End Sub

Private Sub arbitre()
If a + b = 3 Then
MsgBox "gagné"
Else
MsgBox "perdu"
End If
End Sub

crenaud76 · Answer

Ben tu fais appel à arbitre (Call Arbitre) la ou tu veux tester si la somme de a et b vaut 3, c'est tout !
A noter que le "Call ..." est optionel, plutôt que de mettre "Call Arbite", tu peux simplement mettre "Arbitre".
Cela permet parfois de simplifer le code, même si içi, vu le nomde ta procédure, ce serait plutôt justifier de le mettre (tout dépend si tu utilises des nom ou des verbes pour nommer tes procédures) 
Et tout cela n'ai qu'une question de gôut !!

Christophe R.

Additon résultats random

5 réponses

Discussions similaires