Programalama > VISUAL BASIC

Alt Alta 5 Tane Text Box Açyn ve 2 Tane de Command Buton Ekleyin...
___________________________________________
dim tes as integer
dim st as integer
dim sakla as integer
dim uyary as string
dim i as integer
________________________________
Private Sub Form_Load()

End Sub
________________________________
Private Sub Command1_Click()

tes = Text1.text

sakla = tes

Text4.text =sakla

Text1.text=""

End Sub

________________________________
Private Sub Command2_Click()

tes =Text1.text

st =Text2.text

If st = sakla Then
	i = i + 1
	uyary="Tebrikler i denemede bildiniz!"
	Text5.text = i
End If

If st < sakla Then
	i = i + 1
	Text2.text = ""
	uyary="Tahmininiz Küçük!"
	Text5.text = i
End If

If st > sakla Then
	i = i + 1	
	Text2.text = ""
	uyary="Tahmininiz Büyük!"
	Text5.text = i
End If

Text3.text = uyary

End Sub

Fatih KOÇAK