Kronometre uygulaması

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