RANDOMIZE EM BOTOES
Coloquei 05 botoes em um form, a ideia é gerar 02 numeros em cada um conforme abaixo:
Dim Valores1() As Integer
Private Sub Sorteio()
[ô]Sortear os números
Dim Aa, Sorteio1 As Integer
Dim Res(10)
ReDim Valores1(1)
Valores1(1) = Int((10 * Rnd))
Randomize
For Aa = 1 To 10
Do
Sorteio1 = Int(10 * (Rnd))
If Not JáFoiSorteadoEsteNumero(Sorteio1) Then Exit Do
Loop
Res(Aa) = Sorteio1
Next
Cmb(0) = Res(1) & [Ô]-[Ô] & Res(2)
Cmb(1) = Res(3) & [Ô]-[Ô] & Res(4)
Cmb(2) = Res(5) & [Ô]-[Ô] & Res(6)
Cmb(3) = Res(7) & [Ô]-[Ô] & Res(8)
Cmb(4) = Res(9) & [Ô]-[Ô] & Res(10)
Erase Valores1
DoEvents
End Sub
Function JáFoiSorteadoEsteNumero(Nn As Integer) As Boolean
Dim Np
For Np = 2 To UBound(Valores1)
If Valores1(Np) = Nn Then
JáFoiSorteadoEsteNumero = True
Exit Function
End If
Next
ReDim Preserve Valores1(UBound(Valores1) + 1)
Valores1(UBound(Valores1)) = Nn
JáFoiSorteadoEsteNumero = False
End Function
Private Sub Form_Load()
Sorteio
End Sub
Tá dando erro (Type Mismatch) aqui Cmb(0) = Res(1) & [Ô]-[Ô] & Res(2).....
Com Label funciona, poeque com botão não? Onde estou errando?
Dim Valores1() As Integer
Private Sub Sorteio()
[ô]Sortear os números
Dim Aa, Sorteio1 As Integer
Dim Res(10)
ReDim Valores1(1)
Valores1(1) = Int((10 * Rnd))
Randomize
For Aa = 1 To 10
Do
Sorteio1 = Int(10 * (Rnd))
If Not JáFoiSorteadoEsteNumero(Sorteio1) Then Exit Do
Loop
Res(Aa) = Sorteio1
Next
Cmb(0) = Res(1) & [Ô]-[Ô] & Res(2)
Cmb(1) = Res(3) & [Ô]-[Ô] & Res(4)
Cmb(2) = Res(5) & [Ô]-[Ô] & Res(6)
Cmb(3) = Res(7) & [Ô]-[Ô] & Res(8)
Cmb(4) = Res(9) & [Ô]-[Ô] & Res(10)
Erase Valores1
DoEvents
End Sub
Function JáFoiSorteadoEsteNumero(Nn As Integer) As Boolean
Dim Np
For Np = 2 To UBound(Valores1)
If Valores1(Np) = Nn Then
JáFoiSorteadoEsteNumero = True
Exit Function
End If
Next
ReDim Preserve Valores1(UBound(Valores1) + 1)
Valores1(UBound(Valores1)) = Nn
JáFoiSorteadoEsteNumero = False
End Function
Private Sub Form_Load()
Sorteio
End Sub
Tá dando erro (Type Mismatch) aqui Cmb(0) = Res(1) & [Ô]-[Ô] & Res(2).....
Com Label funciona, poeque com botão não? Onde estou errando?
Meu caro
esse Cmb(0)...é o q? Botão
se for coloque
Cmb(0).Caption = Res(1) & [Ô]-[Ô] & Res(2)...
boa sorte
SINKERTEC, era isso mesmo q estava faltando. Valeu!
NUm eskece de encerrar o bagua...
abraços...
precisando estamos na área!!
Tópico encerrado , respostas não são mais permitidas