dk.pt
Power Member
Boas,
tou percisand de um ajudinha pra o meu jogo do bingo... :S
e o seguinte eu kero k saia numeros a sorte... mas kand sair o numero do cartaz nao kero k volte a repetir o mesmo numero...
o meu codigo ta asim...
Cumps
tou percisand de um ajudinha pra o meu jogo do bingo... :S
e o seguinte eu kero k saia numeros a sorte... mas kand sair o numero do cartaz nao kero k volte a repetir o mesmo numero...
o meu codigo ta asim...
Código:
Private Sub Command1_Click()
Dim d As Integer
Randomize
d = Int((Rnd * 11) + 1)
Label12 = d
If d = 1 Then
Line3.Visible = True
Line4.Visible = True
ElseIf d = 2 Then
Line5.Visible = True
Line6.Visible = True
ElseIf d = 3 Then
Line7.Visible = True
Line8.Visible = True
ElseIf d = 4 Then
Line9.Visible = True
Line10.Visible = True
ElseIf d = 5 Then
Line11.Visible = True
Line12.Visible = True
ElseIf d = 6 Then
Line13.Visible = True
Line14.Visible = True
ElseIf d = 7 Then
Line15.Visible = True
Line16.Visible = True
ElseIf d = 8 Then
Line17.Visible = True
Line18.Visible = True
ElseIf d = 9 Then
Line19.Visible = True
Line20.Visible = True
ElseIf d = 10 Then
Line21.Visible = True
Line22.Visible = True
End If
If (Line3.Visible = True) And (Line4.Visible = True) And (Line5.Visible = True) And (Line6.Visible = True) And (Line7.Visible = True) And (Line8.Visible = True) And (Line9.Visible = True) And (Line10.Visible = True) And (Line11.Visible = True) And (Line12.Visible = True) And (Line13.Visible = True) And (Line14.Visible = True) And (Line15.Visible = True) And (Line16.Visible = True) And (Line17.Visible = True) And (Line18.Visible = True) And (Line19.Visible = True) And (Line20.Visible = True) And (Line21.Visible = True) And (Line22.Visible = True) Then
MsgBox "Parabens, Voce GANHOU!!!"
End
End If
End Sub
Cumps
Última edição: