Kronometre Yapımı (Formun Kontrol Çubuklarını Yok Etme)

Bilgisayarınızın kaç saat açık kaldığını öğrenmek için basit bir kronometre yapalım.

Bilgisayarınızın kaç saat açık kaldığını öğrenmek için basit bir kronometre yapalım.

Önce formumuza 5 adet label ve 1 adet timer ekleyelim:

Dikkat ederseniz başla butonu koymadım çünkü program başlar başlamaz sayacın atmasını istiyorum siz buton koyabilirsiniz.

Formun sağ tarafında bulunan kısma gelip Caption yazan yeri komple silelim.

Clipscontrols, Controlbox ve ShowInTaskbar yazan yerleri False yapalım. Form Laoyut kısmından projemizin saatin üstüne gelmesini sağlayalım ve formumuz aşağıdaki şekli aldıysa sorun yok demek ki :)



Formun boş bi yerine tıklayalım ve Form_load kısmına


Label1.Caption = "00"

Timer1.Enabled = True



Label2.Caption = "00"

Label3.Caption = "00"

Label4.Caption = "00"

Label5.Caption = Time



Command1.Caption = "başla"

Timer1.Interval = 1



yazalım.

Böylece sayacımız 0'dan başlasın ve label5'de bize sistem saatini göstersin. Timer'imizin intervali "0" olsun ve enabled false olsun.

İçine:


a = a + 1

Label1.Caption = a

If a = 99 Then

b = b + 1

If b < 10 Then

Label2.Caption = "0" & b

Else

Label2.Caption = b

End If

a = 0

End If

If b = 60 Then

b = 0

c = c + 1

Label3.Caption = c

End If

If c = 60 Then

c = 0

d = d + 1

Label4.Caption = d

End If



şeklinde yazalım.

Açıklamak gerekirse abcd şeklinde değişkenlerimizi tanıttık. Eğer a=99 olursa, b (yani saniye) 1 sayı artacak; saniye yani b 60 olduğunda c (yani dakika) 1 artacak, aynı şekilde d sayısı, yani saat de öyledir.

Artık formumuzu çalıştırabilirsiniz. Bu kronometreden yola çıkarak kafe takip programlarınıza ekleyebilirsiniz.

Kolay gelsin arkadaşlar...
  • Etiketler;
İnan Yılmaz
Hakkında bilgiler en kısa sürede eklenecektir.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

arkadaşlar Sizin için burda Değişkenlerle abcd yi tanımlamadım çünkü bunu sizin yapmanızı istedim

Yukarı Git