selection methods

[neo2k4]

' Nikki Gough

Imports System.Console

Module SelectionMethods


Sub Main()

Dim iNumber As Integer
WriteLine ("Enter an intege between 1 and 10: ")
iNumber = ReadLine()
Dim MyRandom As Integer
If iNumber = 1 Then
WriteLine("You entered 1")
ElseIf iNumber = 2 Then
WriteLine("You entered 2")
ElseIf iNumber = 3 Then
WriteLine("You entered 3")
ElseIF iNumber = 4 Then
WriteLine("You entered 4")
ElseIf iNumber = 5 Then
WriteLine("You entered 5")
ElseIf iNumber = 6 Then
WriteLine("You entered 6")
ElseIf iNumber = 7 Then
WriteLine("You entered 7")
ElseIf iNumber = 8 Then
WriteLine("You entered 8")
ElseIf iNumber = 9 Then
WriteLine("You entered 9")
ElseIf iNumber = 10 Then
WriteLine("You entered 10")
Else
WriteLine("You didn't enter any number between 1-10")
End If

MyRandom =CInt(Int((6 * RND()) +1))

WriteLine()
WriteLine("Press enter to continue")
ReadLine()

End Sub


End Module


i have the following above but need help as i need the user to guess a random number between 1 and 6 generated by the computer, then hint to the user if its to high or to low. or correct.

regrads


neo

[yaksplat]

try this...it should get you going in the right direction:

        Dim iNumber As Integer
        WriteLine("Enter an integer between 1 and 10: ")
        iNumber = ReadLine()
        Dim MyRandom As Integer
        MyRandom = CInt(Int((10 * Rnd()) + 1))

        While iNumber <> MyRandom
            If iNumber >= 1 And iNumber <= 10 Then
                WriteLine("You entered " & iNumber)
                If iNumber > MyRandom Then
                 'do something here
                ElseIf iNumber < MyRandom Then
                 'do something here
                ElseIf iNumber = MyRandom Then
                 'do something here
                End If
            Else
                WriteLine("You didn't enter any number between 1-10")
            End If
        End While

[neo2k4]

update

Module Module1

Dim iNumber As Integer
WriteLine("Enter an integer between 1 and 10: ")
iNumber = ReadLine()
Dim MyRandom As Integer
MyRandom = CInt(Int((10 * Rnd()) + 1))

While iNumber <> MyRandom
If iNumber >= 1 And iNumber <= 10 Then
WriteLine("You entered " & iNumber)
If iNumber > MyRandom Then
System.Console.WriteLine("lower")
ElseIf iNumber < MyRandom Then
System.Console.WriteLine("Higher")
ElseIf iNumber = MyRandom Then
System.Console.WriteLine("Your answer is correct")
End If
Else
WriteLine("You didn't enter any number between 1-10")
End If
End While

End Sub

End Module




still getting errors e.g. end while not a matching declaration

regards

neo

[neo2k4]

this update of code correct then guys or do i need a little bit more adding?


regards

neo

[yaksplat]

You need to add a way to ask for a new number, otherwise you'll be stuck in an endless loop

[neo2k4]

Module Module1

Dim iNumber As Integer
WriteLine("Enter an integer between 1 and 10: ")
iNumber = ReadLine()
Dim MyRandom As Integer
MyRandom = CInt(Int((10 * Rnd()) + 1))

While iNumber <> MyRandom
If iNumber >= 1 And iNumber <= 10 Then
WriteLine("You entered " & iNumber)
If iNumber > MyRandom Then
System.Console.WriteLine("lower")
iNumber = ReadLine()
ElseIf iNumber < MyRandom Then
System.Console.WriteLine("Higher")
inumber = ReadLine()
ElseIf iNumber = MyRandom Then
System.Console.WriteLine("Your answer is correct")
End If
Else
WriteLine("You didn't enter any number between 1-10")
End If
End While

End Sub

End Module

regards neo

[yaksplat]

looks right, but without testing, i don't think it will ever print ("Your answer is correct"). I believe that the loop will be left before that is hit.

Jim