Taimeris VB6

Hronometrs ir instruments, kas ... oh labi, es nedomāju, ka ir lietderīgi paskaidrot, ko hronometrs drīzāk vajadzētu saprast, kā padarīt Visual Basic 6.

Funkcijas ir ļoti vienkāršs: Start pogu, kas pārtrauks hronometra tiks uzsākta drīz, skaitot sekundes no brīža, kad pa to laiku.

Noklikšķinot uz pogas vēlreiz, bet tās paraksts ir Stop, pulkstenis būs reset sevi un stop.

Mēs radām jaunu EXE mūsu kopijas VB6 un izveidotu formu, pievienojot uzlīmi, komandu un taimeris:

Piešķirt etiķeti nosaukums, no pogas kontroli un piešķirt nosaukumu taimera laiks.

Mēs veiciet dubultklikšķi uz taimeri un pievienot šādu kodu:

 Private Sub tempo_Timer ()



    



 conta.Caption conta.Caption + 1 =







 End Sub

Just go, lai palielinātu vērtību, etiķetes vienību.

Sarežģītāka kodekss jāpiemēro, lai pogu:

 Private Sub comando_Click ()



    



 Ja comando.Caption = "Start" Tad



        



 tempo.Enabled = True



        



 comando.Caption = "Stop"



        



 Zvanu tempo_Timer



        



 tempo.Interval = 1000



    



 Vēl



        



 tempo.Enabled = False



        



 comando.Caption = "Start"



        



 tempo.Interval = 0



        



 conta.Caption = 0



    



 Beigas Ja







 End Sub

Mēs vispirms pārbaudīt, ka viņa ir capition Start, un tādā gadījumā mēs ejam, lai:

• Ieslēgt taimeri, lai palaistu;
• pārdēvēt uzrakstu uz pogas Start Stop;
• lai izsauktu funkciju, kas soli taimeris;
• iestatīt otru (1000) intervāla taimeris darbojas.

Šajā brīdī pulkstenis ir aizgājuši, un izskatās šādi:

Noklikšķiniet vēlreiz, lai apturētu, palaist laikā, programma stāsies Else nosacījuma bloku, un veic šādas funkcijas:

• izslēgt taimeri;
• mainīt parakstu uz pogas Apturēt, lai Start;
• pārtraukt intervālu;
• Lai nodzēstu hronometru vērtību.