VB6 bir zamanlayıcı

Bir kronometre bir araçtır ... iyi ah, ben bir kronometre yerine bir Visual Basic 6 nasıl anlamak gerektiğini açıklamak için uygun olduğunu düşünmüyorum.

Fonksiyonları çok basit: kronometre durur Başlat düğmesi arada zaman saniye sayma, yakında başlanacaktır.

Resim başlığında Dur iken tekrar düğmeyi tıklamak, saat kendini yeniden ve durur.

Biz VB6 bizim kopyasını yeni bir EXE oluşturmak ve bir etiket, bir komut ve bir zaman sayacı ekleme, bir form oluşturun:

Etiket adı, düğme kontrol adı olan atama ve zamanlayıcı zaman adı atayın.

Biz sayacı çift tıklayın ve aşağıdaki kodu ekleyin:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Sadece bir birimin etiket değerini artırmak için gidin.

Daha karmaşık kod düğmesine uygulanabilir:

 Private Sub comando_Click ()



    



 Daha sonra comando.Caption = "Başlat"



        



 tempo.Enabled = True



        



 comando.Caption = "Durdur"



        



 Çağrı tempo_Timer



        



 tempo.Interval = 1000



    



 Başka



        



 tempo.Enabled = False



        



 comando.Caption = "Başlat"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Onun gidiyoruz, bu durumda sırayla, capition Başlat olduğunu ilk kontrol edin:

• Çalıştırmak için zamanlayıcı etkinleştirme;
• Durdur Başlat düğmesinin başlığı yeniden adlandırmak;
• işlevini çağırmak için bu artışlarla zamanlayıcı;
• ikinci (1000) aralık sayacı çalışıyor ayarlamak için kullanılır.

Bu noktada saat gitmiş ve aşağıdaki gibi görünecektir:

Dur için çalışma zamanında, program Else koşullu blok girecek ve aşağıdaki görevleri yerine tekrar tıklayın:

• zamanlayıcı devre dışı bırakmak;
• gelen diyalog kutusunda değişen Başlat Durdur;
• aralığı durdurmak için;
• Kronometre değerini sıfırlamak için.