Ajastimen VB6

Sekuntikello on työkalu, ... No, en usko, on aiheellista selvittää, mitä sekuntikello vaan pitäisi ymmärtää, miten Visual Basic 6.

Toiminnot ovat hyvin yksinkertaisia: Käynnistä-painiketta, joka lopettaa sekuntikello käynnistetään heti, laskenta sekuntia aikaa välin.

Klikkaamalla painiketta uudelleen, kun sen otsikko on Stop, kello nollautuu itsestään ja lopeta.

Luomme uuden EXE meidän kopio VB6 ja luoda lomake, lisäämällä etikettiin, komento ja ajastin:

Määritä etiketissä on nimi, nimi painikehallinta ja antaa nimen ajastimen aikaa.

Me Kaksoisnapsauta ajastin ja lisätä seuraava koodi:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Mene vain kasvattaa arvoa etiketissä yksikkö.

Monimutkaisempi koodi soveltaa painiketta:

 Private Sub comando_Click ()



    



 Jos comando.Caption = "Käynnistä" Sitten



        



 tempo.Enabled = True



        



 comando.Caption = "Pysäytä"



        



 Soita tempo_Timer



        



 tempo.Interval = 1000



    



 Muu



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 End If







 End Sub

Me ensin tarkistaa, että hänen on capition Start, jolloin mennään, jotta:

• Ajastin juosta;
• Nimeä painikkeessa alusta Lopeta;
• soittaa toiminnon, joka suurentaa ajastin;
• asettaa toisen (1000) intervalliajastin käynnissä.

Tässä vaiheessa kello on mennyt ja se näyttää seuraavalta:

Klikkaa uudelleen pysäyttääksesi, suorituksen aikana, ohjelma tulee Else ehdollista Block, ja suorittaa seuraavat toiminnot:

• kytkeä ajastin pois käytöstä;
• muuttuvat painikkeessa otsapenkereestä Start;
• pysäyttää aikaväli;
• nollata sekuntikello arvo.