Creazione di un timer
Questa volta voglio mostrarvi come creare un timer in visual basic. Net utilizzando il componente timer.
Beh, non pretendo che questo è un esempio passo passo mostrando ciascuna delle proprietà modificate di ciascun controllo, al contrario, voglio concentrarmi sulla funzionalità del timer e mi consentono di progettare. Basta mostrar loro che ho fatto.
I comandi utilizzati sono: una forma, tre pulsanti e due etichette. Abbiamo anche bisogno di aggiungere un Timer al form. Sembrerebbe più o mesi come segue: 
Ma la prima cosa che definire quattro variabili private a livello di forma.
Ore private As Integer = 0 Private minuti As Integer = 0 Secondo privato As Integer = 0 Private millisecondi As Integer = 0
Il componente Timer deve avere la proprietà Interval a 100.
Creeremo una funzione per visualizzare in Label1 nel tempo:
Sub StampaTempo ()
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
In caso di tick del componente Timer è dove si colloca tutta la logica del cronometro. Copiare il seguente codice qui:
+ = 1 millisecondo Poi, se millisecondo = 9 millisecondo = 0 secondi + = 1 Se secondo = 59 quindi secondo = 0 + = 1 minuto Poi Se = 59 minuti minuto = 0 ora + = 1 End If End If End If StampaTempo ()
Ebbene, ciò che rimane è il codice dei tre pulsanti. Il pulsante di avviamento attiva il timer:
Timer1.Enabled = True
Il tasto Pausa arresta il timer:
Timer1.Enabled = False
E il pulsante di reset per ripristinare i valori delle variabili:
tempo = 0 minuto = 0 secondo = 0 millisecondo = 0 StampaTempo ()
Spero che questo esempio non prova complicata e soprattutto che possa essere utile. Infine vi lascio una fotografia istantanea della cronometro è in funzione: 
30 Responses to "Come creare un cronometro"
Commento
Informazioni Bitacoras.com ...
Rate in Bitacoras.com: Questa volta voglio mostrarvi come creare un timer in visual basic Net utilizza il componente timer.. Beh, non pretendo che questo è un esempio passo passo mostrando ciascuna delle proprietà modificate di ...
La ringrazio molto Stavo cominciando con Net molto utile. E ben descritto.
Arrivederci.
Gli esempi sono molto buone ... e grazie per il contributo di conoscenze per tiens q q e recentemente iniziato a ...
Ciao!
px vi ringrazio molto è stato di grande aiuto il codice è più servito a me salvare la mia vita ... lol
Non tutto funziona grazie ...
bye bye kuidate ...
Grazie uomo molto molto ... senza complicazioni in questo esempio, molto molto buono, che Dio vi aiuterà, come ...
Contributo molto bene è così mi congratulo con voi!
vi ringrazio molto mi ha aiutato molto
Il timer va bene solo che non al tempo dopo 59 secondi 00:01:59:0 piace salti da 58 a 00 e 59 non esiste, si prega di controllare il proprio codice
La soluzione sarebbe così
+ = 1 millisecondo
Se millisecondo = 10 quindi
Millisecond = 0
Secondo + = 1
Se secondo = 60 quindi
Secondo = 0
Minute + = 1
Se Minute = 60 quindi
Min = 0
Tempo + = 1
End If
End If
End If
StampaTempo ()
Così il secondo o minuto 59 ci sarebbe, ma siamo grati per il contributo.
Molto bene, vi ringrazio molto! Ho ottenuto il mio Sono duranga
GRAZIE! Mi sono svegliato l'esempio logica xq realizzare un progetto mega spero di continuare a valutare l'istanza esempio di questa portata suviendo Dio benedica
Sono nuovo di programmazione Haci fare il mio progetto.
Public Class Form1
Ore private As Integer = 0
Private minuti As Integer = 0
Secondo privato As Integer = 0
Private millisecondi As Integer = 0
Sub StampaTempo ()
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 (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
+ = 1 millisecondo
Poi, se millisecondo = 9
millisecondo = 0
secondi + = 1
Se secondo = 59 quindi
secondo = 0
+ = 1 minuto
Poi Se = 59 minuti
minuto = 0
ora + = 1
End If
End If
End If
StampaTempo ()
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
Fine
End Sub
La ringrazio molto per il contributo
Buona codice!
Buon codice .... ho servito alla perfezione al di sopra corretto l'errore .... grazie
grazie per il vostro contributo mi ha servito molto utile
Ciao amico quisioera sapere dove fate il vostro blog?? Questa pagina?
Mi potete aiutare
Ciao
Faccio questo blog a Buenos Aires, Argentina. Saluti.
Corro questo grazie al vostro grande meravigliosi AORA tutorial e ho un'idea di come utilizzare il timer.
Grax x il codice
zi me zirvio!
○ ^ ^
grazie per questo codice Sto programmando jejej qualcosa di più grande
grazie ...
Eccellente Codice di particolarmente utile per sviluppare qualche applicazione per monitorare i tempi di attesa di un processo
Grazie mille
niente!
e se il conto alla rovescia tanto grave?
Un ottimo esempio che avevo gettato in c + + programmazione con il mio profresor ma non aveva idea era di input visivi, grazie Basic.net per un molto semplice ma molto atractivo.Gracias
solo una cosa molto buona, il pulsante di reset se si preme è impostato a 0, ma ancora a corto di tempo solo per questo si dovrebbe mettere
Btn_reset_Click Private Sub (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_reset.Click
Timer1.Enabled = False
tempo = 0
minuto = 0
secondo = 0
millisecondo = 0
StampaTempo ()
End Sub
Hi grazia per il contributo
Voglio sapere come adattarsi alle ASP con VB quanto, utilizzando la tabella codici sta facendo postback
Grazie
molte grazie, stavo cercando
Informazioni molto buone mi ha salvato dalla A PROBLEMI
..
..
GRAZIE
La ringrazio molto per i contributi. Sono molto chiare e molto buona.