euromilhoes em vb

[mickael]

boas ppl to a fazer o euromilhoes em vb o problema é k cheguei a uma parte em k blokiei... nao sei fazer a parte das verificaçoes e das apostas tipo o programa kuando clico em 'gerar chave' e o programa tem de por cruzes em 5 numeros e duas estrelas.. e o utilizador tem de poder escolher o numero de apostas k deseja ( k é preciso usar array's e ai sou um zero a eskerda) em cada aposta podem ser sempre os mesmos numeros e as mesmas estrelas mas cada aposta tem os seus numeros e estrelas por ex: a aposta1 tem os numeros, 1;3;5;22;45 e as estrelas 9 e 3 a aposta 2 ja tem de ter por ex: 11;10;7;9;20 e as estrelas 7 e 1... o código k tenho é este:

Private Sub ajuda_Click()
FrmAjuda.Show vbModeless
End Sub
 
 
Private Sub Form_Load()
End Sub
Private Sub sair_Click()
    'Dim escolha
 
   ' escolha = MsgBox("Quer mesmo sair ?", vbYesNo + vbQuestion, " ")
    'If (escolha = vbYes) Then
     '   End
    'End If
    'podes usar apenas:
    If MsgBox("Quer mesmo sair ?", vbYesNo + vbQuestion, " ") = vbYes Then End
 
End Sub
Private Sub Command1_Click()
' criação dos array's de variaveis
Dim numeros(1 To 5) As Byte
Dim estrelas(1 To 2) As Byte
Dim j As Byte
Dim i As Byte
Dim repetido As Boolean
'inicialização dos numeros aleatórios
Randomize
'geração automática de numeros
Do
    repetido = False
    For j = 1 To 5
        numeros(j) = Int(Rnd() * 50) + 1
    Next j
'verificação se existem n repetidos
    For j = 1 To 4
        For i = j + 1 To 5
            If numeros(j) = numeros(i) Then repetido = True
        Next i
    Next j
Loop While repetido = True
'geração automática de estrelas
Do
    For j = 1 To 2
        estrelas(j) = Int(Rnd() * 9) + 1
    Next j
Loop While estrelas(1) = estrelas(2)
'atribuição dos numeros e estrelas aos
'respectivos labels
For j = 1 To 4 'alterei isto
    Label1(j - 1).Caption = numeros(j)
Next j
For j = 1 To 2
    Label2(j - 1).Caption = estrelas(j)
Next j
End Sub

ah e dps tenho o segundo form k é o da ajuda... lol mas esse so tem o unload me para o botao 'ok'

 

[mickael]

ah e acho k tenho de criar uma label para cada numeros k eu kero nas apostas...

 

[Rikazzold]

lol podes facilitar o trbalho... eu nao precebi muito bem... mas onde é que o utilizador tem que introduzir os número?... bom nesse caso fazes com que o utilizadopr introduza os respectivos números e executas uma linha de códico tipo 'random' e depois disso o ulitilador compara... naos sei se tes de usar array's >_>
(peço desculpa se não ajudei nada ... eu tou a tentar seguir um pouco o raciocinio do pascal )

cump

 

[mickael]

sim sei k tenho de usar array's.. tipo pas apostas.. em coordenadas x e y... so k nao sei como fazer...

 

[Kayvlim]

Um aparte: eu acho que poderias dividir em funções a geração dos números, e a verificação por números repetidos. Especialmente para estruturar melhor o código e teres menos confusão

É só uma opinião pessoal. É assim que eu faço.

Cumps [[[[[[[]]]]]]]
angelofwisdom