Saat örnek VB.Net
Merhaba arkadaşlar
saat yapmak için aşağıdaki gibi bir form oluşturuyoruz formumuzda 3 tane label 3 tane textbox ve bir tane Timer ekliyoruz formumuzun görüntüsü aşağıdaki gibidir ve formun altındaki kodları yazıyoruz
Form1 load ‘ine aşağıdaki kodlar yazıyoruz
Public Class Form1 Dim saat, dakika, saniye As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Interval = 1000 End Sub
Timer1_tick nede aşağıdaki kodları yazıyoruz
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick saniye = saniye + 1 TextBox1.Text = saat TextBox2.Text = dakika TextBox3.Text = saniye If saniye = 59 Then dakika = dakika + 1 saniye = 0 End If End Sub End Class
Üst teki kodları yazdıktan sonra tıklıyarak çalıştırıyoruz ve saat çalışmaya başlıyor çalışır haldeki görüntüsü ise aşağıdaki gibidir.
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.