Basit bir Tıklama Oyunu

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

Ç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


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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

allerine sağlık murat .)
saol :D
önemli diil :D

Yukarı Git