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

san115592

Corrida de cavalos

3 mensagens neste tópico

corrida entre dois cavalos, programa  gera dois nuneros aleatórios um para cada cavalo, esse  numero aletori e a distancia que ele percorre nessa jogada, quero que o programa todas essas distancias ate ao limite fixado para a corrida.

tenho algum codigo para melhor visializarem. Obri

Dim passoMax, ComprimentoCorrida, cava1, cava2, somacava1, somacava2 As Integer

        If RadioButton1.Checked = True Then
            ComprimentoCorrida = TextBox2.Text
            passoMax = TextBox1.Text
            Randomize()
            cava1 = Int(passoMax - 1 + 1) * Rnd() + 1
            cava2 = Int(passoMax - 1 + 1) * Rnd() + 1
            'Label4.Text = cava1
            Label5.Text = cava2
            'somacava1 = 0
            'Do
            'somacava1 += cava1
            'Loop Until ComprimentoCorrida <= cava1
            Label4.Text = cava1
        End If


        If RadioButton2.Checked = True Then
            ComprimentoCorrida = TextBox2.Text
            passoMax = ComprimentoCorrida * 0.25
            Randomize()
            cava1 = Int(passoMax - 1 + 1) * Rnd() + 1
            cava2 = Int(passoMax - 1 + 1) * Rnd() + 1
            Label4.Text = cava1
            Label5.Text = cava2

        End If

        If RadioButton3.Checked = True Then
            ComprimentoCorrida = TextBox2.Text
            passoMax = ComprimentoCorrida * 0.05
            Randomize()
            cava1 = Int(passoMax - 1 + 1) * Rnd() + 1
            cava2 = Int(passoMax - 1 + 1) * Rnd() + 1
            Label4.Text = cava1
            Label5.Text = cava2
        End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boa noite,

Penso que ja consegui resolver o que queria, agora n sou capaz de ultrapassar a ultima questão, ous seja CBApostacav2.checked não a consigo limpr para iniciar uma nova corrida, quem pode ajudar!!

obrigada

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boa noite,

Penso que ja consegui resolver o que queria, agora n sou capaz de ultrapassar a ultima questão, ous seja CBApostacav2.checked não a consigo limpr para iniciar uma nova corrida, quem pode ajudar!!

obrigada

Desculpa mas nesta altura o tempo tem sido pouco.

O que está a faltar ? Não entendo o que queres fazer a checkbox.

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