SAYI OYUNU

Konu: SAYI OYUNU Paz Ağus. 22, 2010 12:27 pm

İlk baş Formumuza 2 button ekliyoruz ve 1.nin içine sayı oyununa başla 2.ye çıkış yazın ve aşağıdaki kodları yapıştırın

Public Class Form1
Dim a, b, s As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
a = Rnd() * 20
MsgBox("1 ile 20 arasındaki sayıyı bil")
s = 0
Do While (s < 5)

b = InputBox("SayıyıBil")
s = s + 1
If a = b Then
MsgBox(s & "." & "denemede Bildin")
Exit Do
End If

If a < b Then
MsgBox("Aşağı In")
End If
If a > b Then
MsgBox("Yukarı çık")

End If

Loop
If a <> b Then
MsgBox("Cevabı bilemedin" & a & "idi")
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(" Güle Güle ")
Application.Exit()
End Sub
End Class

KADİR SELEN

» Buttton YAKALAMA Oyunu
» 2 Sayı Arasındaki Asal Sayıları Bulup Listeleme
» Vısual studio 2005 ile Cümledeki Harf -Karakter-Sayı Bulma
» Boom! Oyunu
» Refenranduma Evet Oyunu :D !!