Het creëren van een timer
Deze keer wil ik laten zien hoe je een timer in Visual Basic te creëren. Net het gebruik van de timer component.
Nou, niet beweren dat dit een stap voor stap voorbeeld laten zien van elk van de gewijzigde eigenschappen van elke controle, integendeel, ik wil me concentreren op de functionaliteit van de timer, en ik zal u laten ontwerpen. Gewoon laten zien dat ik deed.
De gebruikte controls zijn: een formulier, drie knoppen en twee labels. We moeten ook een timer toe te voegen aan het formulier. Het zou er meer of maand als volgt: 
Maar het eerste wat we zullen vier private variabelen te definiëren op het niveau van de vorm.
Prive-uren As Integer = 0 Private minuten As Integer = 0 Private seconden As Integer = 0 Private milliseconden As Integer = 0
De Timer component moet beschikken over een interval eigendom tot 100.
We maken een functie in label1 weer te geven in de tijd:
Sub printTime ()
Label1.Text = hora.ToString.PadLeft (2, "0") en ""
Minuto.ToString.PadLeft Label1.Text & = (2, "0") en ""
Segundo.ToString.PadLeft Label1.Text & = (2, "0") en ""
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
In de teek bij de Timer-component is waar je plaatst alle logica van de stopwatch. Er Kopieer de volgende code:
+ = 1 milliseconde Dan als milliseconde = 9 milliseconde = 0 seconden + = 1 Als seconde = 59 Dan seconden = 0 + = 1 minuut Dan If = 59 minuten minuten = 0 uur + = 1 End If End If End If printTime ()
Nou, wat overblijft is de code van de drie knoppen. De start-knop activeert de timer:
Timer1.Enabled = True
De Pauze knop stopt de timer:
Timer1.Enabled = False
En de reset-knop om de waarden van de variabelen te resetten:
tijd = 0 minuten = 0 seconden = 0 milliseconde = 0 printTime ()
Ik hoop dat dit voorbeeld niet bewijst ingewikkeld en vooral dat nuttig zal zijn. Tot slot laat ik u een momentopname van de stopwatch loopt: 
32 Responses to "Hoe maak je een stopwatch maken"
Commentaar
Informatie Bitacoras.com ...
Prijs in Bitacoras.com: Deze keer wil ik laten zien hoe je een timer in Visual Basic Net het gebruik van de timer component.. Nou, doe niet alsof dat dit een stap voor stap voorbeeld met elk van de gewijzigde eigenschappen van ...
Dank u zeer Ik was nog maar net begonnen met een zeer nuttig zijn. Net en goed beschreven.
Tot ziens.
Voorbeelden hiervan zijn zeer goed ... en bedankt voor het bijdragen van kennis voor q en q tiens sinds kort ...
Hello!
px heel erg bedankt was een enorme hulp uw code is meer gediend me lol mijn leven gered ...
niet helemaal te werken dankzij ...
bye bye kuidate ...
Heel erg bedankt man ... zonder complicaties dit voorbeeld, heel erg goed, dat God zal u helpen als ...
Zeer goede bijdrage is, dus ik feliciteer je!
heel erg bedankt heeft me veel geholpen
De timer is prima maar niet op de tijd na 59 seconden 00:01:59:0 het niet erg springt 58 tot 00 en 59 bestaat niet, controleer dan uw eigen code
De oplossing dus
+ = 1 milliseconde
Als milliseconden = 10 Toen
Milliseconde = 0
Tweede + = 1
Als de tweede = 60 Dan
Tweede = 0
Minute + = 1
Als Minute = 60 Dan
Min = 0
Tijd + = 1
End If
End If
End If
PrintTime ()
Dus de tweede of minuut 59 zou bestaan, maar zijn dankbaar voor de bijdrage.
Zeer goed, dank u wel! Ik heb mijn Ik ben duranga
BEDANKT! Ik werd wakker het voorbeeld logica XQ een mega-project dat ik hoop te blijven evalueren dit voorbeeld exemplaar van deze omvang suviendo God bless
Ik ben nieuw in de programmering Haci doe mijn project.
Public Class Form1
Prive-uren As Integer = 0
Private minuten As Integer = 0
Private seconden As Integer = 0
Private milliseconden As Integer = 0
Sub printTime ()
Label1.Text = hora.ToString.PadLeft (2, "0") en ""
Minuto.ToString.PadLeft Label1.Text & = (2, "0") en ""
Segundo.ToString.PadLeft Label1.Text & = (2, "0") en ""
Milisegundo.ToString.PadLeft Label1.Text & = (1, "0")
Label1.Refresh ()
End Sub
Timer1_Tick Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ = 1 milliseconde
Dan als milliseconde = 9
milliseconde = 0
seconden + = 1
Als seconde = 59 Dan
seconden = 0
+ = 1 minuut
Dan If = 59 minuten
minuten = 0
uur + = 1
End If
End If
End If
printTime ()
End Sub
Private Sub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Button4_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Einde
End Sub
Hartelijk dank voor de bijdrage
Goede code!
Goede code .... Ik diende tot in de perfectie boven de fout met .... bedankt
bedankt voor uw bijdrage geserveerd mij zeer nuttig
Hallo vriend quisioera weten waar je je blog??? Is deze pagina?
Kun je me helpen
Hi
Ik doe dit blog in Buenos Aires, Argentinië. Groeten.
Ik loop deze grote prachtige dankzij je tutorial aora en ik heb een idee van hoe de timer te gebruiken.
Grax x-code
zi zirvio mij!
○ ^ ^
bedankt voor deze code Ik ben het programmeren van iets groters jejej
bedankt ...
uitstekende code vooral nuttig om enkele applicatie te ontwikkelen om de wachttijden van een proces te volgen
Heel erg bedankt
alles!
en als af te tellen als serieus?
Een zeer goed voorbeeld dat ik had geworpen in c + + programmeren met mijn profresor, maar had geen idee dat het was in visuele input basic.net bedankt voor een zeer eenvoudige en toch zeer atractivo.Gracias
slechts een zeer goede zaak, in de reset-knop als je het druk is ingesteld op 0, maar nog steeds bijna geen tijd meer voor dat alleen u zou moeten zetten
Btn_reset_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reset.Click
Timer1.Enabled = False
tijd = 0
minuten = 0
seconden = 0
milliseconde = 0
printTime ()
End Sub
Hi genade voor de bijdrage
Ik wil hoe te ASP aan te passen met VB sinds weten via de code pagina aan het doen is postback
Bedankt
veel dank, was ik op zoek
ZEER goede informatie hebt me gered van een probleem
..
..
BEDANKT
Hartelijk dank voor de bijdragen. Ze zijn zeer duidelijk en zeer goed.
Zeer goede bijdrage, is wat ik zocht!
bedankt
Kunt u mij vertellen als je deed met de label1.refresh ()
Dank u.