Üye
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Çok basit bir oyun yapacağız.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Bu programdaki amacımız 60 saniye içinde butona herkesten daha çok tıklamak.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]1 Timer[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]1 Button[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]3 Tane Label ekleyeceğiz[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Label 1'i text'ini boş bırakıyoruz.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Label 2'nin text'ini kalan süre olarak yazıyor.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Label 3'ün text'i ise 60 olarak yazıyoruz.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Timerin interval'ini Properties'ten 1000 yapıyoruz[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Bu programdaki amacımız 60 saniye içinde butona herkesten daha çok tıklamak.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]1 Timer[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]1 Button[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]3 Tane Label ekleyeceğiz[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Label 1'i text'ini boş bırakıyoruz.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font=tahoma, verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif]Label 2'nin text'ini kalan süre olarak yazıyor.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Label 3'ün text'i ise 60 olarak yazıyoruz.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Timerin interval'ini Properties'ten 1000 yapıyoruz[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
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
