Thema: Lucky 7
Einzelnen Beitrag anzeigen
Alt 29.05.2012, 16:03   #4 (permalink)
asdfasdf
Gast
 

Beiträge: n/a

Standard AW: Lucky 7

Image1.Visible = False 'Münzen Verdecken
Label1.Caption = Int(Rnd * 10) 'Zahlen wählen
Label2.Caption = Int(Rnd * 10)
Label3.Caption = Int(Rnd * 10)
'falls zwei der Zahlen 7 sind, Münzen anzeigen
If (Label1.Caption = 7) And (Label2.Caption = 7) _
Or (Label1.Caption = 7) And (Label3.Caption = 7) _
Or (Label2.Caption = 7) And (Label3.Caption = 7) Then
Image1.Visible = True
Beep
End If

So gehts muss ich grad beim probearbeiten lösen bin schon viel weiter komm aber an einer stelle nicht weiter....
  Mit Zitat antworten