Ir para o conteúdo
nram

Euro milhoes - codigo fonte

Mensagens Recomendadas

nram    0
nram

Olá, para aqueles que nao teem sorte ao Euro Milhoes, deixo aqui o meu programa... ahahah.... que tenham sorte.. :P...

Private Sub Command1_Click()
For h = 0 To 49
Label2(h).BackColor = vbBlack
Next
For q = 0 To 8
Label3(q).BackColor = vbBlack
Next
Dim X(1 To 8) As Integer
X(1) = 51
X(2) = 52
X(3) = 53
X(4) = 54
X(5) = 55
X(7) = 56
X(8) = 80
For t = 7 To 8
Do
Randomize
X(t) = Int((Rnd * 9) + 1)
Loop Until X(7) <> X(8)
Next
For r = 1 To 5
Do
Randomize
X(r) = Int((Rnd * 50) + 1)
Loop Until X(1) <> X(2) And X(1) <> X(3) And X(1) <> X(4) And X(1) <> X(5) And X(2) <> X(3) And X(2) <> X(4) And X(2) <> X(5) And X(3) <> X(4) And X(3) <> X(5) And X(4) <> X(5)
Next

For n = 0 To 49
    If X(1) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(2) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(3) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(4) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For n = 0 To 49
    If X(5) = Label2(n).Caption Then
    Label2(n).BackColor = vbRed
    End If
Next
For k = 0 To 8
    If X(7) = Label3(k).Caption Then
    Label3(k).BackColor = vbRed
    End If
Next
For k = 0 To 8
    If X(8) = Label3(k).Caption Then
    Label3(k).BackColor = vbRed
    End If
Next
End Sub

Private Sub Command2_Click()
w = MsgBox("Deseja mesmo sair?", vbYesNo + vbInformation, "S  A  I  R")
    If w = vbYes Then
    MsgBox "By: NRAM5, nunomorais_90@msn.com", , "Contact_me"
    End
    End If
End Sub

---> O meu código do euro milhoes! Até agora funcionou bem, experimentem... ahahah

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Sir Pereira    3
Sir Pereira

Boas,

É possível colocares comentários. Não entendi as linhas x(1)=50, ...

Obrigado.

Abraço.

Aconselho-te a enviares-lhe um PM, que o post é de há dois anos, e não sei se ele anda aqui por "estes lados" :confused:

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
nram    0
nram

Boas,

É possível colocares comentários. Não entendi as linhas x(1)=50, ...

Obrigado.

Abraço.

Acho que te deves estar a referir a x(1) = 51, se sim, penso que fiz isso para as estrelas! como x(2) = 52, mas não te posso confirmar! Nem VB tenho neste momento.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade