Crearea unui timer
De data aceasta vreau să arăt cum să creaţi un cronometru în Visual Basic. Net folosind componenta timer.
Ei bine, nu pretind că acesta este un pas cu pas exemplu care arată fiecare dintre proprietăţile modificate de fiecare control, dimpotrivă, vreau să se concentreze asupra funcţionalităţii de contorul de timp şi vă voi lăsa să proiectaţi. Doar le arătăm că am făcut.
Controalele utilizate sunt: un formular, trei butoane şi două etichete. Avem, de asemenea, nevoie de a adăuga un timer pentru a forma. Aceasta ar arata mai mult sau luni, după cum urmează: 
Dar primul lucru pe care vom defini cele patru variabile private, la nivel de formă.
Privare de oră ca integer = 0 Privare de minute ca integer = 0 Două privat ca integer = 0 Milisecunde private ca Integer = 0
Componenta Programatorul trebuie să aibă proprietatea sa interval de la 100.
Vom crea o funcţie pentru a afişa în Label1-a lungul timpului:
Sub printTime ()
Label1.Text hora.ToString.PadLeft = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
În cazul în care capusa a componentei timer-ul este în cazul în care vă puneţi toate logica a cronometrului. Copiaţi codul de mai jos acolo:
+ = 1 milisecunde Apoi, dacă milisecunde = 9 milisecunde = 0 două + = 1 Dacă secunde = 59 Apoi, secunde = 0 + = 1 minut Apoi, dacă = 59 minute minute = 0 ora + = 1 Final, dacă Final, dacă Final, dacă printTime ()
Ei bine, ceea ce rămâne este codul de cele trei butoane. Butonul de pornire activeaza cronometrul:
Timer1.Enabled = True
Butonul Pause opreşte cronometrul:
Timer1.Enabled = Fals
Şi butonul de resetare pentru a reseta valorile variabilelor:
timp = 0 minute = 0 secunde = 0 milisecunde = 0 printTime ()
Sper că acest exemplu nu se dovedeşte complicat şi mai presus de toate, care va fi util. În cele din urmă am lăsa un instantaneu al cronometrul se execută: 
32 Responses to "Cum de a crea un cronometru"
Comentariu
Bitacoras.com informaţii ...
Rata de în Bitacoras.com: de data aceasta vreau să vă arăt cum să creaţi un cronometru în Visual Basic Net folosind componenta timer.. Ei bine, nu pretind că acesta este un pas cu pas exemplu care arată fiecare dintre proprietăţile modificate de ...
Va multumesc foarte mult am fost doar începând cu Net foarte utile. Si bine descrise.
La revedere.
Exemple sunt foarte bune ... şi mulţumiri pentru contribuţia de cunoştinţe pentru TIENS q şi q recent, a început ...
Buna ziua!
px vă mulţumesc foarte mult a fost un ajutor imens codul este mult mai servit-mi salveze viaţa mea ... lol
nu destul de muncă, datorită ...
Bye Bye kuidate ...
Vă mulţumesc foarte mult om ... fără complicaţii acest exemplu, foarte, foarte bine, că Dumnezeu te va ajuta ca ...
Contribuţie foarte bună este aşa vă felicit!
vă mulţumesc foarte mult ma ajutat foarte mult
Timer-ul este bine nu doar pentru perioada de după 59 de secunde 00:01:59:0 nu minte sare de la 58 la 00 şi 59 nu există, vă rugăm să verificaţi propriul cod
Soluţia ar fi atât de
+ = 1 milisecunde
Dacă milisecunde = 10 Apoi,
Milisecunde = 0
În al doilea rând + = 1
În cazul în care două = 60 Apoi,
În al doilea rând = 0
Minut + = 1
Dacă minute = 60 Apoi,
Min = 0
Timp + = 1
Final, dacă
Final, dacă
Final, dacă
PrintTime ()
Astfel, a doua sau 59 minute ar putea exista, dar sunt recunoscători pentru contribuţia.
Foarte bine, vă mulţumesc foarte mult! Am eu mi sunt duranga
Vă mulţumim! M-am trezit de exemplu logica XQ face un proiect de mega sper să continue acest caz, evaluarea exemplu în acest sens suviendo magnitudine Dumnezeu să binecuvânteze
Sunt nou la programare Haci face meu proiect.
Public class Form1
Privare de oră ca integer = 0
Privare de minute ca integer = 0
Două privat ca integer = 0
Milisecunde private ca Integer = 0
Sub printTime ()
Label1.Text hora.ToString.PadLeft = (2, "0") & ":"
Minuto.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Segundo.ToString.PadLeft Label1.Text & = (2, "0") & ":"
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Timer1_Tick Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Timer1.Tick
+ = 1 milisecunde
Apoi, dacă milisecunde = 9
milisecunde = 0
două + = 1
Dacă secunde = 59 Apoi,
secunde = 0
+ = 1 minut
Apoi, dacă = 59 minute
minute = 0
ora + = 1
Final, dacă
Final, dacă
Final, dacă
printTime ()
End Sub
Private Sub Button1_Click (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click (ByVal Ca expeditor System.Object, ByVal e ca System.EventArgs) Manere Button2.Click
Timer1.Enabled = Fals
End Sub
Button4_Click Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere Button4.Click
Capăt
End Sub
Vă mulţumesc foarte mult pentru contribuţia
Codul de bune!
Codul de bune .... am servit la perfectiune de mai sus corectat eroarea .... mulţumiri
Vă mulţumim pentru contribuţia dumneavoastră mi-a servit foarte utila
Bine ai venit prieten quisioera stiu de unde faci blog-ul dvs.??? Este această pagină?
Mă puteţi ajuta
Hi
Eu fac acest blog, în Buenos Aires, Argentina. Salutări.
Eu conduc foarte mari datorita minunate la aora tutorial si am o idee de modul de utilizare a timer.
grax x cod
Zi-mi zirvio!
○ ^ ^
multumesc pentru acest cod am programare jejej ceva mai mare
mulţumesc ...
Codul excelente, mai ales util pentru a dezvolta unele aplicaţii de monitorizare a timpilor de aşteptare ale unui proces
Multumesc mult
nimic!
şi în cazul în care pentru a conta în jos ca fiind grave?
Un exemplu foarte bun mi-am aruncat în C + + de programare cu profresor mea, dar nu a avut nici o idee a fost mulţumită de intrare în basic.net vizuale pentru o foarte simplu, şi totuşi foarte atractivo.Gracias
doar un lucru foarte bun, în butonul de reset, dacă apăsaţi este setat la 0, dar încă în criză de timp pentru care doar va trebui să pună
Btn_reset_Click Private Sub (expeditor ByVal Ca System.Object, ByVal e ca System.EventArgs) Manere btn_reset.Click
Timer1.Enabled = Fals
timp = 0
minute = 0
secunde = 0
milisecunde = 0
printTime ()
End Sub
Hi har pentru contribuţia
Vreau să ştiu cum să se adapteze la ASP cu VB, deoarece prin utilizarea pagina de cod este de a face postback
Mulţumiri
multe multumiri, am fost în căutarea
INFORMAŢII FOARTE BINE ma salvat de la un necaz
..
..
Multumesc
Vă mulţumesc foarte mult pentru contribuţiile. Ele sunt foarte clare şi foarte bine.
Contribuţie foarte bine, este ceea ce am fost căutaţi pentru!
mulţumiri
Pot să-mi spui ca ai facut cu label1.refresh ()
Mulţumesc.