logic check

[jdrott1]

can someone check this logic for me? i'm trying to get a random
number between 1 and 38.

group 1-12 is winner everything else is a loser (for now)

everytime i run the logic i receive 297+ wins

Do While counter < 300
randomnumber = CInt(Int((38 - 1 + 1) * Rnd(Rnd()) + 1))
If randomnumber <= 12 Then
First12 = True
ElseIf randomnumber >= 13 <= 24 Then
Second12 = True
ElseIf randomnumber >= 25 <= 36 Then
Third12 = True
Else
zero1 = True
End If

If First12 = True Then
Wins = Wins + 1
lblWins.Text = Wins
Else
Loses = Loses + 1
lblLoses.Text = Loses
End If

counter = counter + 1
lblCounter.Text = counter & " Spins"
Loop

[jdrott1]

Re: logic check

On Feb 19, 2:15 pm, jdrott1 <jonathandr...@ gmail.comwrote:

can someone check this logic for me?  i'm trying to get a random
number between 1 and 38.
>
group 1-12 is winner  everything else is a loser (for now)
>
everytime i run the logic i receive 297+ wins
>
Do While counter < 300
            randomnumber = CInt(Int((38 - 1 + 1) * Rnd(Rnd()) + 1))
            If randomnumber <= 12 Then
                First12 = True
            ElseIf randomnumber >= 13 <= 24 Then
                Second12 = True
            ElseIf randomnumber >= 25 <= 36 Then
                Third12 = True
            Else
                zero1 = True
            End If
>
            If First12 = True Then
                Wins = Wins + 1
                lblWins.Text = Wins
            Else
                Loses = Loses + 1
                lblLoses.Text = Loses
            End If
>
            counter = counter + 1
            lblCounter.Text = counter & " Spins"
        Loop

this would probably help

ElseIf randomnumber >= 13 And randomnumber <= 24 Then
Second12 = True
ElseIf randomnumber >= 25 And randomnumber <= 36 Then

[Tom Shelton]

Re: logic check

On 2008-02-19, jdrott1 <jonathandrott@ gmail.comwrote:

can someone check this logic for me? i'm trying to get a random
number between 1 and 38.
>
group 1-12 is winner everything else is a loser (for now)
>
everytime i run the logic i receive 297+ wins
>
Do While counter < 300
randomnumber = CInt(Int((38 - 1 + 1) * Rnd(Rnd()) + 1))
If randomnumber <= 12 Then
First12 = True
ElseIf randomnumber >= 13 <= 24 Then
Second12 = True
ElseIf randomnumber >= 25 <= 36 Then
Third12 = True
Else
zero1 = True
End If
>
If First12 = True Then
Wins = Wins + 1
lblWins.Text = Wins
Else
Loses = Loses + 1
lblLoses.Text = Loses
End If
>
counter = counter + 1
lblCounter.Text = counter & " Spins"
Loop

Some things you might want to look into...

System.Random. To get a random integer between 1 and 38:
Dim r as new random()
dim randomNumber as integer = r.next(1, 39)

you also might want to look into the visual basic select case statement:

select randomNumber
case is <= 12
' do cool stuff
case 13 to 24
' do more cool stuff
case 25 to 36
' even more cool stuff
case default
' it didn't match
end select

HTH

--
Tom Shelton