Programalama > VISUAL BASIC

Dim a, b As Integer

Private Sub Command1_Click()
If Val(Text1) = Val(a) Then
Label1.Caption = ""
MsgBox b + 1 & " SEFERDE BİLDİNİZ"
List1.Visible = 0
Text1.Visible = 0
Command1.Visible = 0
Command3.Visible = 1
b = 0
Else
If Val(Text1) > a Then
Label1.Caption = "KÜÇÜK SAYI GİR"
b = b + 1
End If
If Val(Text1) < a Then
Label1.Caption = "BÜYÜK SAYI GİR"
b = b + 1
End If
List1.AddItem Text1
Text1 = ""
End If
End Sub

Private Sub Command2_Click()
List1.Visible = 1
Text1.Visible = 1
Command1.Visible = 1
Command3.Visible = 0
Randomize
a = (Val(Rnd * 100))
List1.Clear
Label1 = ""
Text1 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
List1.Visible = False
Text1.Visible = 0
Command1.Visible = 0
Command3.Visible = 1
End Sub

Private Sub Label1_Click()

End Sub