Basit Bir Sayı Tutma Oyunu [Vb baslangıc]

sR-77 · 7 Eki 2011

Eklenecek Nesneler

1 Text Box
1 Buton
2 Label

Public Class Form1
Dim a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Sayi As Integer
Static x As String = "100"
Sayi = TextBox1.Text
If Sayi = a Then
MsgBox(x & " Puan Kazandınız. ")
Else
x = x - 10
Label3.text = x & ". Puan Kaldı."
If x = 0 Then
MsgBox("0 Puan Kaldı. İyi Günler")
Application.Exit()
Else

If Sayi < a Then
Label2.Text = "Artırt"
Else
Label2.Text = "Azalt"
End If
End If
End If

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Randomize(TimeOfDay.Second)
a = Rnd() * 100
Label4.Text = a
End Sub
End Class

Basit Bir Sayı Tutma Oyunu [Vb baslangıc]

sR-77

Katılımcı Üye

Sosyal medya sayfalarımız