Kronometre uygulaması

Aug 10,2008 00:00 by RubeNiS
Zaman fonksiyonlarını kullanarak geliştirilmiş küçük bir Visual basic uygulamasıdır. Uygulama başalama ve bitiş zamanını gösteren ve bunların arasındaki farkı bulan bir programdır. Visual Basic'de yeni bir proje başlatın. Form üzerine 2 tane buton yerleştirin. Bunlardan birinin başlatma ve digerinide sonlandırma olarak kullanacağız. Ekran üzerinede 3 tane textbox yerleştirelimki bunlarda da başlangıç , bitiş ve geçen zamanı gösterebilelim. From'un general declarations kısmında aşağıdaki kodu girin.

Dim BasAni As Variant
Dim durAni As Variant
Dim GecenSure As Variant

Yukarıda programda kullancağımız değişkenleri tanımlıyoruz.

Daha sonra başlat dügmesinin click event'ine aşağıdaki kodu giriniz.

Private Sub DugBas_Click()
BasAni = Now
metBas.Text = Format(BasAni, "hh:mm:ss")
metDur.Text = ""
metSüre = ""
End Sub

Durdur dügmesinin click event'ine aşağıdaki kodu giriniz.

Private Sub DugDur_Click()
durAni = Now
GecenSure = durAni - BasAni
metDur.Text = Format(durAni, "hh:mm:ss")
metSüre.Text = Format(GecenSure, "hh:mm:ss")
End Sub