Į VB6 laikmatis

Chronometras yra įrankis, kuris ... Oh well, aš nemanau, kad tikslinga paaiškinti, kas Chronometras, o turėtų suprasti, kaip padaryti "Visual Basic 6.

Funkcijas yra labai paprasta: Start mygtuką, kad nustos chronometras bus pradėtas netrukus, skaičiuojant sekundžių nuo to laiko tarpu.

Paspaudus mygtuką dar kartą, o jo antraštė Stop, laikrodis issivalys save ir sustoti.

Mes sukurti naują EXE mūsų kopiją VB6 ir sukurti formą, pridedant etiketę, vadovavimo ir laikmatis:

Priskirti etiketėje turi pavadinimą, mygtuko valdiklio pavadinimas ir priskirti pavadinimą laikmačio laiką.

Mes dukart spustelėkite laikmatis ir pridėkite šį kodą:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Tiesiog nueikite padidinti vieneto vertę etiketę.

Kuo sudėtingesnė kodas būtų taikomas mygtuką:

 Private Sub comando_Click ()



    



 Jei comando.Caption = "Pradėti" Tada



        



 tempo.Enabled = True



        



 comando.Caption = "Stabdyti"



        



 Skambučių tempo_Timer



        



 tempo.Interval = 1000



    



 Kitas



        



 tempo.Enabled = False



        



 comando.Caption = "Pradėti"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Mes patikrinti, pirma, kad jo yra capition Pradėti, tokiu atveju mes einame, kad:

• Įjungti laikmatį paleisti;
• pervardyti iš Pradėti Stop mygtuką antraštę;
• skambinti funkcija, kuri žingsniu laikmačio nulį;
• nustatyti antrą (1000) intervalinis laikmatis veikia.

Šiuo metu laikrodis dingo ir atrodys taip:

Paspauskite dar kartą sustoti, vykdymo metu, programa prasidės kita sąlyga bloką, ir vykdo šias funkcijas:

• sulaikyti laikmatį;
• keisti mygtuką antraštę nuo stopo iki pradžios;
• sustabdyti intervalas;
• naujo chronometras vertę.