sistemin çalışma mantığı ise program başlangıcında form sistemdeki saati bir kez okuyor,yazdığımız kodlar da gerekli işlemi yaparak labellere yazıyor...
saat uygulamasında 3 adet label ile 1 adet timer nesnesine ihtiyacımız var... nesneleri resimdeki gibi yerleştiriyoruz...
şimdi kodları yazmaya geçelim...formumuzu çift tıklıyarak başlıyoruz...
Dim saat, dakika, saniye 'saati dakikayı saniyeyi tanımlarken private sub form load ın ustunde olması bize tanımlamamızın her blokta yürütüleceğini gösterir...
Private Sub Form_Load()
Label1.Caption = Hour(Time)
Label2.Caption = Minute(Time)
Label3.Caption = Second(Time)
saat = Hour(Time)
dakika = Minute(Time)
saniye = Second(Time)
End Sub
Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If saniye = 60 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0
End If
End If
End If
Label1.Caption = saat
Label2.Caption = dakika
Label3.Caption = saniye
End Sub
programımız bittikten sonra şu şekilde bir görüntüsü olacaktır...
programımız bitti... görsel olarak yine zayıf oldu ama kodlar doğru çalışıyor...görsel düzenlemesini de siz yapabilirsiniz...
rar şifresi:staticiation
Videoyu ve saati indirmek için tıkla
Alıntı değildir!!!