1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

euromilhoes em vb

Discussão em 'Programação' iniciada por mickael, 9 de Dezembro de 2006. (Respostas: 4; Visualizações: 4670)

  1. mickael

    mickael Power Member

    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:

    Código:
    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'

    [​IMG]
     
    Última edição: 9 de Dezembro de 2006
  2. mickael

    mickael Power Member

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

    Rikazzold Power Member

    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 :lol: :lol: )

    cump ;)
     
  4. mickael

    mickael Power Member

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

    Kayvlim Undefined Moderator
    Staff Member

    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
     

Partilhar esta Página