• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

nram

Euro milhoes - codigo fonte

6 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tive a ver e funciona...  :confused:

vou ver se analiso melhor o código...

:D

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas,

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

Obrigado.

Abraço.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

boa tarde podes me mandar o layout do programa por email freddysantos7@hotmail.com.sff

0

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