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

will.i.am

[VB6] Ajuda num programa

2 mensagens neste tópico

O que se passa é o seguinte...O meu prof de TP(Técnicas de Programação) mandou-me fazer um trabalho que consiste na realização de um programa que simule um gerador de apostas do Totoloto e do Euromilhões...E eu tenho tido algumas dificuldades(já postei alguns tópicos para tirar as dúvidas) porque parte da matéria exigida para este trabalho ele não a deu.E está a fazer o trabalho a alguns colegas meus durante as aulas.Colégio "semi-privado" é assim :D ...Já fiz a interface do programa ( http://img512.imageshack.us/img512/3117/printscreenaw9.jpg ) e o código respectivo para uma aposta, mas está-me a dar este erro ao corrê-lo ( http://img264.imageshack.us/img264/9532/printscreen2cf2.jpg ).Se conseguir pôr o código a funcionar para uma aposta depois é provável que o consiga pôr também a funcionar para as apostas múltiplas...O código que fiz é o seguinte :

 Private Sub btn_gerar_Click(Index As Integer)
            Dim vec_en1(4), vec_ee1(1) As Integer
            Dim ja_saiu As Boolean

            If (opt_euromilhoes = True And opt_euromilhoes_uma_aposta = True) Then
            Cls 'Limpa o Form
            i = 0
            Do While i < 4
               ja_saiu = False
               n = Int(49 * Rnd) + 1
               For j = 0 To 4
                   If n = vec_en1(j) And ja_saiu = False Then ja_saiu = True
               Next
               If ja_saiu = False Then
                  vec_en1(i) = n
                  i = i + 1
               End If
               Loop
            i = 0
            Do While i < 2
               ja_saiu = False
               n = Int(9 * Rnd) + 1
               For j = 0 To 1
                   If n = vec_ee1(j) And ja_saiu = False Then ja_saiu = True
               Next
               If ja_saiu = False Then
                  vec_ee1(i) = n
                  i = i + 1
               End If
            Loop
            txt_euromilhoes_numeros1.Text = vec1(0) & " " & vec1(1) & " " & vec1(2) & " " & vec1(3) & " " & vec1(4)
            txt_euromilhoes_estrelas1.Text = vec2(0) & " " & vec2(1)
End Sub

Agradeço desde já toda a ajuda que me possam dar :thumbsup:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Se poderes mandar o source zipado eu vejo isso e ja te mando :D

Problema resolvido

:thumbsup:

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