Comanda cronometrului (timer) este utilizată pentru a efectua o acțiune după o anumită perioadă de timp. Proprietatea principală a elementului este Interval - specifică intervalul de timp, care determină cât de des trebuie să notifice aplicația ceasul. Proprietatea Interval este specificată în milisecunde (1000 milisecunde = 1 secundă). Vreau să observ că valoarea maximă posibilă a acestei proprietăți este de 65 de secunde.
Singurul eveniment temporizat este Timer. Pentru a afla cum funcționează acest eveniment, creați un nou proiect, puneți elementul Timer pe formular. Setați intervalul la 1000 (1 secundă). În evenimentul Timer1_Timer, lipiți următorul cod:
Iată câteva exemple de utilizare a unui cronometru.
Implementarea funcției "așteptați" în VB
Acest exemplu va arăta modul în care puteți implementa funcția de așteptare în VB. Mai întâi, puneți timerul (Timer1) pe formular și setați proprietatea Enabled = False. Pentru a testa procedura, adăugați două etichete (Label1 și Label2) și un buton de comandă (Command1) la formular. Scrieți următoarea subrutină și codul evenimentului Timer pentru cronometru:
Public Sub Wait (secunde)
Timer1.Enabled = Timp real de activare
Timer1.Interval = 1000 * secunde 'setarea intervalului pentru cronometru
În timp ce Timer1.Interval> 0
DoEvents
merge încet
Timer1.Enabled = False 'Opriți cronometrul
End Sub
Private Sub Timer1_Timer ()
Timer1.Interval = 0
End Sub
Acum puteți utiliza funcția de așteptare ori de câte ori aveți nevoie de întârziere, de exemplu:
Private Sub Command1_Click ()
Label1.Caption = Acum
Așteptați (5)
Label2.Caption = Acum
End Sub
De exemplu, este necesar ca la fiecare două minute să existe un eveniment
Dezavantajul acestei metode este adăugarea de variabile suplimentare la programul dvs. În plus, acest program a fost testat în modul de testare, când sarcina pe computer nu a fost. Și nu este clar cum se va comporta acest program în modul real de funcționare.
Dim timp cât e lung, e atât de lung
Private Sub Form_Load ()
n = 1
End Sub
Private Sub Timer1_Timer ()
s = s + 1
Selectați Casele
Cauza 120 * n '120 - numărul în minute
Form2.Show ": afișați formularul
n = n + 1
Sfârșit Selectați
End Sub
Site-ul este optimizat pentru o rezoluție de 1024x768
Articole similare
-
Ide microsoft studioul vizual, programarea cursurilor limbi si, si, pascal
-
Crearea unui proiect în limbajul de asamblare în studioul microsoft 2018
Trimiteți-le prietenilor: