Saturday, May 16, 2009

Code from GUI NumberGuesser

Public Class Form1

Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click
Dim numberGuessed As Integer = txtNumber.Text
Dim luckyNumber As Integer = 77

If Math.Abs(luckyNumber - numberGuessed) < 10 Then
MsgBox("You are within 10!")
End If
End Sub
End Class

No comments: