Basit bir Tıklama Oyunu


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Fenerbahçe    0 Yorum    129 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 02.02.2016, 01:35:37 #1
Fenerbahçe Cezalı Üye
Cezalı Üye
Status: Çevrimdışı Yorum Sayısı:24 Konu Sayısı:14 Üyelik Tarihi:02.02.2016

Çok basit bir oyun yapacağız.
Bu programdaki amacımız 60 saniye içinde butona herkesten daha çok tıklamak.

1 Timer

1 Button

3 Tane Label ekleyeceğiz


Label 1'i text'ini boş bırakıyoruz.

Label 2'nin text'ini kalan süre olarak yazıyor.

Label 3'ün text'i ise 60 olarak yazıyoruz.

Timerin interval'ini Properties'ten 1000 yapıyoruz
Kod:
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static a As Byte
Timer1.Start()
a = a + 1
Label1.Text = (a & " kere tıkladınız")
If Label3.Text = "0" Then
Label3.Text = "60"
a = 1
Label1.Text = a

End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label3.Text = Label3.Text - 1
If Label3.Text = "0" Then
Timer1.Stop()
MsgBox("Süre Doldu")

End If
End Sub







Aradığınızı Bulamadınız Mı ?
 Çalışıyor Spam Bot (Basit,Hızlı)

Konuyu görüntüleyenler:
1 Misafir