Krijimi i një Timer
Këtë herë unë dua të tregoj se si të krijoni një kohë në Visual Basic. Net duke përdorur komponentë timer.
E pra, nuk pretendoj se ky është një hap pas hapi shembull duke treguar secilën prej pronave të modifikuar të çdo kontrolli, në të kundërtën, unë dua të përqëndrohemi në funksionalitetin e timer dhe unë do të ju lejojnë të hartuar. Vetëm tregojë atyre që kam bërë.
Kontrollet e përdorura janë: një formë, tre butona dhe dy etiketat. Ne gjithashtu duhet të shtoni një Timer për formën. Kjo do të shikojmë më shumë apo muaj si vijon: 
Por gjëja e parë që ne do të përcaktojë katër variablat private në nivelin e formës.
Si ore private Integer = 0 Minuta privat si Integer = 0 Dytë Private Si Integer = 0 Milliseconds privat si Integer = 0
Komponenti Timer duhet të ketë pasurinë e tij në interval 100.
Ne do të krijojë një funksion për të shfaqur në label1 me kalimin e kohës:
PrintTime Sub ()
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 ()
Sub End
Në rast shënoni e komponentit Timer është ajo ku ju vendosni të gjithë logjikën e të kronometër. Kopjoni kodin e mëposhtëm atje:
+ = 1 Millisekonda Pastaj, nëse Millisekonda = 9 Millisekonda = 0 dytë + = 1 Nëse sekonda = 59 Pastaj i dytë = 0 + = 1 minutë Pastaj if = 59 minuta minutë = 0 ore + = 1 Nëse End Nëse End Nëse End printTime ()
E pra, ajo që mbetet është kodi i tre butona. Button start aktivizon timer:
Timer1.Enabled = True
Ndalo button ndalon timer:
Timer1.Enabled = False
Dhe butonin rishkruhet për të rivendosur vlerat e variablave:
time = 0 minutë = 0 i dytë = 0 Millisekonda = 0 printTime ()
Shpresoj që ky shembull nuk ka provuar e komplikuar dhe mbi të gjitha që do të jenë të dobishme. Më në fund unë të largohet nga ju një fotografi e kronometër po kandidon: 
32 Responses to "Si të krijoni një kronometër"
Koment
Informacione Bitacoras.com ...
Shkalla në Bitacoras.com: Kjo kohë unë dua të tregoj se si të krijoni një kohë në Visual Basic neto duke përdorur përbërës timer.. E pra, nuk pretendoj se ky është një hap pas hapi shembull duke treguar secilën prej pronave të modifikuar të ...
Thank you very much Unë kam qenë vetëm fillimi me Net shumë të dobishme. Dhe përshkruar mirë.
Mirupafshim.
Shembuj janë shumë të mira ... dhe faleminderit per kontributin njohuri për q dhe q tiens kohët e fundit ka filluar ...
Hello!
px thank you very much ishte një ndihmë e madhe code juaj është më shërbeu mua shpëtojë jetën time lol ...
jo fare të punojë në sajë ...
bye bye kuidate ...
Faleminderit njeri shume shume ... pa komplikime këtë shembull, shumë shumë mirë, se Zoti do t'ju ndihmojë të ...
Kontribut shumë i mirë është kështu që unë ju përgëzoj!
thank you very much më ndihmoi shumë
Timer është e mirë jo vetëm për kohën pas 59 sekondave 00:01:59:0 jo mendje hedhje nga 58 në 00 dhe 59 nuk ekziston, ju lutem shikoni kodin tuaj
Zgjidhja do të jetë aq
+ = 1 Millisekonda
Nëse Millisekonda = 10 Atëherë
Millisekonda = 0
Së dyti + = 1
Nese dytë = 60 Then
Së dyti = 0
Minute + = 1
Nëse Minute = 60 Pastaj
Min = 0
Koha + = 1
Nëse End
Nëse End
Nëse End
PrintTime ()
Kështu 59 dytë apo minuta do të ekzistonte, por jemi mirënjohës për kontributin.
Shumë mirë, thank you very much! I kam unë time jam duranga
FALEMINDERIT! U zgjova logjika shembull xq të bëjë një projekt mega unë shpresoj që të vazhdojë vlerësuar këtë rast shembullin e kësaj bekoftë magnitudë suviendo Perëndisë
Unë jam i ri në programimit Haxhi bërë projektin tim.
Publik Class Form1
Ore Private Si Integer = 0
Minuta privat si Integer = 0
Dytë Private Si Integer = 0
Milliseconds privat si Integer = 0
PrintTime Sub ()
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 ()
Sub End
Timer1_Tick Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Timer1.Tick
+ = 1 Millisekonda
Pastaj, nëse Millisekonda = 9
Millisekonda = 0
dytë + = 1
Nëse sekonda = 59 Pastaj
i dytë = 0
+ = 1 minutë
Pastaj if = 59 minuta
minutë = 0
ore + = 1
Nëse End
Nëse End
Nëse End
printTime ()
Sub End
Private Sub Button1_Click (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Button1.Click
Timer1.Enabled = True
Sub End
Private Sub Button2_Click (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Button2.Click
Timer1.Enabled = False
Sub End
Button4_Click Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton Button4.Click
Fund
Nën Fundi
Ju faleminderit shumë për kontributin e
Kodi i mirë!
Kodi i mirë .... kam shërbyer të përsosjes lart korrigjuar gabimin .... faleminderit
faleminderit për kontributin tuaj shërbyer më shumë të dobishme
Pershendetje mik quisioera dini se ku ju bëni blogun tuaj? A është kjo faqe?
Mund të ju ndihmojë mua
Hi
Bëj këtë blog në Buenos Aires, Argjentinë. Përshëndetje.
I drejtuar këtë falë të mëdha të mrekullueshme për aora tuaj tutorial dhe kam një ide se si të përdorin timer.
grax x Kodi
zi zirvio mua!
○ ^ ^
faleminderit për këtë kod që unë jam programimit jejej diçka më të madhe
faleminderit ...
Kodi shkëlqyer veçanërisht të dobishme për të zhvilluar një kërkesë për të monitoruar pritjes herë e një procesi të
Thanks a lot
çdo gjë!
dhe në qoftë se për të numëruar poshtë si serioze?
Një shembull shumë i mirë që kisha hedhur në c + + programimit me profresor tim, por nuk kishte asnjë ide se ajo ishte në sajë të dhëna vizuale basic.net për një shumë të thjeshtë dhe ende shumë atractivo.Gracias
vetëm një gjë shumë e mirë, në sustë risistemimi nëse ju shtypni ajo është e vendosur për 0, por ende ka mbetur shumë kohë për të cilat vetëm ju do të keni për të vënë
Btn_reset_Click Private Sub (ByVal sender Si System.Object, e ByVal e As System.EventArgs) trajton btn_reset.Click
Timer1.Enabled = False
time = 0
minutë = 0
i dytë = 0
Millisekonda = 0
printTime ()
Sub End
Hiri Hi për kontributin e
Unë dua të di se si për të përshtatur të Policisë së Shtetit me VB pasi duke përdorur faqe kod është bërë postback
Falënderim
faleminderit shumë, unë isha duke kërkuar
INFORMATA SHUME E MIRE më shpëtoi nga një vështirësi
..
..
FALEMINDERIT
Ju faleminderit shumë për kontributet. Ata janë shumë të qarta dhe shumë të mira.
Kontribut shumë i mirë, është ajo që unë isha duke kërkuar për të!
falënderim
Mund të më thoni si ju bëri me label1.refresh së stemës
Ju faleminderit.