PDA

Afficher la version complète : je débute et jé un erreur ds mon code



Visiteur MP
24/07/2004, 11h24
voici mon code, cé pour un petit projet de simulation dune machine a sous mais ala ligne \"else if (label1.Caption=7)+(label2.Caption=7) then\" la sa met \"cette instruction doit etre la premiere de la ligne\"et je vois pas ce que sa veut dire. quelqun pourrait il mexpliquer.




Dim monscore
Private Sub btnjouer_Click()
Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
monscore = monscore - 1
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
monscore = monscore + 2
else if (label1.Caption=7)+(label2.Caption=7) then
end if
Text1.Text = monscore
End Sub

Visiteur MP
24/07/2004, 14h43
bonjour,

if (label1.Caption=7)+(label2.Caption=7)
c\'est censé faire quoi ?

if (label1.Caption=7) and (label2.Caption=7)
if (label1.Caption=7) or (label2.Caption=7)
val(label1.Caption)+val(label2.Caption) ...tout ça fonctionne mais, dans un test
faire une addition de (zones=valeur),
je ne comprend pas ...
@+

Biboup
24/07/2004, 14h50
bonjour c\'est pas un gros bug mais sinon ca marche impec!!



Label1.Caption = Int(Rnd * 10)
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
monscore = monscore - 1
If (Label1.Caption = 7) Or (Label2.Caption = 7) Or (Label3.Caption = 7) Then
monscore = monscore + 2
Else
If (Label1.Caption = 7) + (Label2.Caption = 7) Then

End If
End If
Text1.Text = monscore

le seul probleme réside dans le else if.....
je l\'ai séparé et ca marche!!

Voila j\'espere t\'avoir aider!

Pour bul => le plus correspond a and (enfin si j\'ai bien compris le programme!!) c\'est pour te faire gagner plus de points si tu as deux chiffres gagnants!!
Tu peut confirmer banana_destruct!!

Visiteur MP
25/07/2004, 13h41
merci beaucoup sa fonctionne maintenan jai remarqué que en fait il ne fallait pas mettre else if avec un espace mais elseif comme sa sans espace