Zelaron Gaming Forum

Zelaron Gaming Forum (http://zelaron.com/forum/index.php)
-   Tech Help (http://zelaron.com/forum/forumdisplay.php?f=329)
-   -   need help in vb (http://zelaron.com/forum/showthread.php?t=38658)

osmoses-jones 2006-02-01 08:04 PM

need help in vb
 
Ok i got to make a random guessing game for my class. But it don't work for me here the code plz tell me what i am doing wrong.

Code:

Private Sub cmdClickToPlay_Click()
    Dim intNumber As Integer
    Dim intGuess As String
   
    'The code below will generate a random number between 1 and 50...
    Randomize
    intNumber = Int(Rnd * 50) + 1
   
   
End Sub

Private Sub Click_Click()
Dim intNumber As Integer
Dim intGuess As String

Do While intGuess = intNumber
Loop

intGuess = InputBox("i am guessing a number guess what it is")

If intGuess = intNumber Then
    intGuess = InputBox(" you guess it")
    List1.AddItem Str(intGuess)

End If

If intGuess > intNumber Then
    intGuess = InputBox("your guess is to high")
    List1.AddItem Str(intGuess)

End If
If intGuess < intNumber Then
    intGuess = InputBox(" your guess is to low")
    List1.AddItem Str(intGuess)

End If

End Sub



All times are GMT -6. The time now is 02:45 PM.

Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
This site is best seen with your eyes open.