HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Ve birde forma Timer ekliyoruz.Combobox'ın Collection özelliğinden 1000,2000,3000 değerlerini veriyoruz.
Public Class'ın altına kalansure isimli bir değişken tanımlıyoruz;
Dim kalansure As Integer
Başla butonu içerisine aşağıdaki kodları yazıyoruz;
kalansure = txtsure.Text
lblsure.Text = kalansure
lbkayit.Items.Add("Kronometre başladı: " & Now.TimeOfDay.ToString)
tmrkronometre.Interval = ComboBox1.Text
tmrkronometre.Start()
Dur butonu içerisine ise şu kodları yazıyoruz;
tmrkronometre.Stop()
lbkayit.Items.Add("Kronometre durduruldu: " & Now.TimeOfDay.ToString)
Timer'ın Tick özelliğine ise;
kalansure = kalansure - 1
lblsure.Text = kalansure
If kalansure = 0 Then
tmrkronometre.Stop()
lbkayit.Items.Add("Süre Doldu: " & Now.TimeOfDay.ToString)
MsgBox("Süre Doldu", MsgBoxStyle.Information, "Bilgi")
End If
kodlarını yazıyoruz.
Tabi bu arada kontrollerin isimlerini değiştirmeyi unutmuyoruz :
Timer : tmrkronometre
Listbox : lbkayit
Başla Butonu : btnbasla
Dur Butonu : btndur
Combobox1 : Combobox1
Textbox : txtsure
0 Yazan labelin ismi : lblsure
Dersimizin sonuna gelmiş bulunuyoruz.Bir sonraki dersimizde buluşmak üzere...
Hepinize kolay gelsin
