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

san115592

Corrida de cavalos

Recommended Posts

san115592

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


Clarisse

Share this post


Link to post
Share on other sites
san115592

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


Clarisse

Share this post


Link to post
Share on other sites
jpaulino

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.