.visualbasic1

Dim Sinaliz(1 To 6)

Const MAXNUM = 50

Private Sub Command1_Click()
  
Command3d1.Caption = "Retire a Próxima Bolinha"

For i = 1 To 6

If Sinaliz(i) = False Then

Sinaliz(i) = True

If i = 6 Then

Command3d1.Caption = "Recomeçar"

End If

Exit Sub

End If

Next i

For i = 1 To 6

Sinaliz(i) = False

Next i

End Sub

Private Sub Command3D1_Click()
  
Command3d1.Caption = "Retire a Próxima Bolinha"

For i = 1 To 6

If Sinaliz(i) = False Then

Sinaliz(i) = True

If i = 6 Then

Command3d1.Caption = "Recomeçar"

End If

Exit Sub

End If

Next i

For i = 1 To 6

Sinaliz(i) = False

Next i

End Sub

Private Sub Form_Load()

Embaralha Date$ + Time$ + Str$(Timer)

Left = (Screen.Width - Width) / 2

Top = (Screen.Height - Height) / 2

End Sub

Private Sub menAjudaLoteria_Click()

'ARQUIMSG "LOTERIA.MSG", 1

End Sub

Private Sub menSair_Click()

'Tudo terminado

Unload Loteria

End Sub

Private Sub menSobreLoteria_Click()

'Exibe a caixa de diálogo Sobre

Sobre.Show MODAL

End Sub

Private Sub Temporiz1_Timer()

'Verifica cada bolinha do sorteio

For i = 1 To 6

'Sinaliz = True se a bolinha já foi retirada

If Sinaliz(i) = False Then

'Gera número diferente

Do
            
'Gera qualquer número dentro da faixa

n = AleatorioInteiro(1, MAXNUM)

'Já apanhada

OKSinaliz = True

For j = 1 To i

K = Val(Rotulo1(j).Caption)

If j < i And n = K Then

OKSinaliz = False

Exit For

End If

Next j

'Apanha somente se o número for diferente

If OKSinaliz = True Then

Rotulo1(i).Caption = n

End If

Loop Until OKSinaliz = True

End If

Next i

End Sub

Clique aqui para voltar para a página inicial