Saat

Saat.

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

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