Δημιουργία ενός χρονοδιακόπτη
Αυτή τη φορά θέλω να σας δείξω πώς να δημιουργήσετε ένα χρονόμετρο σε Visual Basic. Net χρησιμοποιώντας το στοιχείο χρονόμετρο.
Λοιπόν, δεν προσποιούνται ότι αυτό είναι ένα βήμα προς βήμα παράδειγμα που δείχνει κάθε φορά ιδιότητες του κάθε ελέγχου, αντιθέτως, θέλω να επικεντρωθώ στη λειτουργικότητα του χρονοδιακόπτη και εγώ θα σας αφήσει να σχεδιάσουν. Απλά να τους δείξουμε ότι έκανα.
Οι έλεγχοι που χρησιμοποιούνται είναι: μια μορφή, τρία κουμπιά και δύο ετικέτες. Πρέπει επίσης να προσθέσετε ένα χρονόμετρο για να μορφή. Θα μοιάζουν περισσότερο ή μήνα, ως εξής: 
Αλλά το πρώτο πράγμα που θα καθορίσει τέσσερις ιδιωτικές μεταβλητές στο επίπεδο της φόρμας.
Ιδιωτικός ώρα As Integer = 0 Ιδιωτικός λεπτά As Integer = 0 Ιδιωτικός δεύτερο As Integer = 0 Ιδιωτικός χιλιοστά του δευτερολέπτου As Integer = 0
Η συνιστώσα χρονοδιακόπτη πρέπει να έχει περιουσία του διαστήματος έως 100.
Εμείς θα δημιουργήσει μια λειτουργία για να εμφανιστεί σε Label1 την πάροδο του χρόνου:
Υπο 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 ()
Sub End
Σε περίπτωση κρότωνα του στοιχείου χρονοδιακόπτη είναι όπου μπορείτε να τοποθετήσετε όλα τη λογική του χρονομέτρου. Αντιγράψτε τον παρακάτω κώδικα εκεί:
+ = 1 χιλιοστό του δευτερολέπτου Στη συνέχεια, αν χιλιοστό του δευτερολέπτου = 9 χιλιοστό του δευτερολέπτου = 0 δευτερόλεπτα + = 1 Αν δευτερόλεπτα = 59 Στη συνέχεια, = 0 δευτερόλεπτα + = 1 λεπτό Τότε Αν = 59 λεπτά λεπτό = 0 ώρες + = 1 End If End If End If printTime ()
Λοιπόν, αυτό που μένει είναι ο κωδικός για τα τρία κουμπιά. Το πλήκτρο έναρξης ενεργοποιεί το χρονόμετρο:
Timer1.Enabled = True
Το κουμπί Παύση σταματά το χρονόμετρο:
Timer1.Enabled = False
Και το κουμπί επαναφοράς για να επαναφέρετε τις τιμές των μεταβλητών:
χρόνος = 0 λεπτό = 0 = 0 δευτερόλεπτα χιλιοστό του δευτερολέπτου = 0 printTime ()
Ελπίζω ότι το παράδειγμα αυτό δεν αποδειχθεί περίπλοκη και πάνω από όλα που θα είναι χρήσιμες. Τέλος, σας αφήνω ένα στιγμιότυπο από το χρονόμετρο τρέχει: 
-
Σελιδοδείκτης για Delicious - Digg αυτό το post
- Προτείνετε στο Facebook
- Οι φήμες επάνω
- Μοιραστείτε το mrwong
- Μοιραστείτε μέσω MySpace
- μετοχή μέσω Reddit
- Μοιραστείτε με Stumblers
- Μερίδιο επάνω technorati
- Tweet About It
- Οι φήμες επάνω
- Προσυπογράψτε στα σχόλια σε αυτό το post
- Σελιδοδείκτης στον browser
- Πες το σε ένα φίλο
32 απαντήσεις σε "Πώς να δημιουργήσετε ένα Χρονόμετρο"
Σχόλιο
Πληροφορίες Bitacoras.com ...
Τιμή στο Bitacoras.com: Αυτή τη φορά θέλω να σας δείξω πώς να δημιουργήσετε ένα χρονόμετρο σε Visual Basic Net χρησιμοποιώντας το στοιχείο χρονόμετρο.. Λοιπόν, δεν ισχυρίζομαι ότι αυτό είναι ένα βήμα προς βήμα παράδειγμα που δείχνει κάθε φορά ιδιότητες του ...
Σας ευχαριστώ πολύ που μόλις άρχιζε με πολύ χρήσιμες. Καθαρή και καλά που περιγράφονται.
Αντίο.
Παραδείγματα είναι πολύ καλή ... και τις ευχαριστίες για τη συμβολή της γνώσης για το q και q Ο όμιλος TIENS πρόσφατα ξεκίνησε ...
Γεια σας!
px Σας ευχαριστώ πάρα πολύ, ήταν μια τεράστια βοήθεια κωδικό σας είναι πιο σερβίρεται με σώσει τη ζωή μου ... lol
δεν εργάζονται αρκετά, χάρη ...
kuidate αντίο ...
Ευχαριστώ πολύ τον άνθρωπο ... χωρίς επιπλοκές αυτό το παράδειγμα, πολύ πολύ καλό, ότι ο Θεός θα σας βοηθήσει ...
Πολύ καλή συμμετοχή είναι γι 'αυτό σας συγχαίρω!
σας ευχαριστώ πολύ που με βοήθησε πολύ
Το χρονόμετρο είναι μια χαρά όχι μόνο με το χρόνο 59 δευτερόλεπτα μετά από 00:01:59:0 δεν πειράζει άλματα 58 έως 00 και 59 δεν υπάρχει, παρακαλούμε να ελέγξετε τον δικό σας κώδικα
Η λύση θα ήταν τόσο
+ = 1 χιλιοστό του δευτερολέπτου
Αν χιλιοστών του δευτερολέπτου = 10 Στη συνέχεια,
Χιλιοστών του δευτερολέπτου = 0
Δεύτερη + = 1
Εάν η δεύτερη = 60 Στη συνέχεια,
Δεύτερη = 0
Λεπτό + = 1
Αν λεπτό = 60 Στη συνέχεια,
Ελάχιστο = 0
Χρόνος + = 1
End If
End If
End If
PrintTime ()
Έτσι, η δεύτερη ή 59 λεπτών θα υπάρχουν, αλλά είναι ευγνώμων για τη συνεισφορά.
Πολύ καλό, σας ευχαριστώ πολύ! Πήρα εγώ μου είμαι duranga
ΕΥΧΑΡΙΣΤΩ! Ξύπνησα το παράδειγμα λογική XQ κάνει ένα μεγάλο έργο Ελπίζω να συνεχίσει την αξιολόγηση αυτής παράδειγμα παράδειγμα αυτού του μεγέθους suviendo Θεός ευλογεί
Είμαι νέος στον προγραμματισμό Haci κάνω το έργο μου.
Δημόσια τάξη Φόρμα1
Ιδιωτικός ώρα As Integer = 0
Ιδιωτικός λεπτά As Integer = 0
Ιδιωτικός δεύτερο As Integer = 0
Ιδιωτικός χιλιοστά του δευτερολέπτου As Integer = 0
Υπο 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 ()
Sub End
Timer1_Tick Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Timer1.Tick
+ = 1 χιλιοστό του δευτερολέπτου
Στη συνέχεια, αν χιλιοστό του δευτερολέπτου = 9
χιλιοστό του δευτερολέπτου = 0
δευτερόλεπτα + = 1
Αν δευτερόλεπτα = 59 Στη συνέχεια,
= 0 δευτερόλεπτα
+ = 1 λεπτό
Τότε Αν = 59 λεπτά
λεπτό = 0
ώρες + = 1
End If
End If
End If
printTime ()
Sub End
Private Sub Button1_Click (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Button1.Click
Timer1.Enabled = True
Sub End
Private Sub Button2_Click (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Button2.Click
Timer1.Enabled = False
Sub End
Button4_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές Button4.Click
Τέλος
Sub End
Σας ευχαριστώ πολύ για τη συνεισφορά
Καλή κωδικό!
Καλή κωδικό .... υπηρέτησα στην τελειότητα πάνω διόρθωσε το σφάλμα χάρη ....
ευχαριστίες για τη συμβολή σας σερβίρεται με πολύ χρήσιμη
Γειά σου φίλε quisioera ξέρει πού κάνετε το blog σας? Είναι αυτή η σελίδα;
Μπορείς να με βοηθήσεις
Γεια
Να κάνω αυτό το blog στο Μπουένος Άιρες, Αργεντινή. Χαιρετισμοί.
Τρέχω αυτό μεγάλη χάρη στον υπέροχο aora σας φροντιστήριο και έχω μια ιδέα για το πώς να χρησιμοποιήσετε το χρονοδιακόπτη.
grax x κώδικα
Zi zirvio μου!
○ ^ ^
ευχαριστίες για αυτόν τον κώδικα προγραμματισμού είμαι κάτι μεγαλύτερο jejej
χάρη ...
εξαιρετική κωδικό ιδιαίτερα χρήσιμο να αναπτυχθεί κάποια εφαρμογή για την παρακολούθηση του χρόνου αναμονής μιας διαδικασίας
Ευχαριστώ πολύ
τίποτα!
και αν η αντίστροφη μέτρηση ως σοβαρό;
Ένα πολύ καλό παράδειγμα που είχα ρίξει σε C + + προγραμματισμό με profresor μου, αλλά δεν είχε καμία ιδέα ότι ήταν σε οπτικά ερεθίσματα χάρη basic.net για έναν πολύ απλό αλλά και πολύ atractivo.Gracias
μόνο ένα πολύ καλό πράγμα, το κουμπί επαναφοράς, εάν πατήσετε το έχει οριστεί σε 0, αλλά εξακολουθεί να τρέχει ο χρόνος για το μόνο που θα πρέπει να βάλετε
Btn_reset_Click Private Sub (ByVal αποστολέα Όπως System.Object, ByVal e Όσον System.EventArgs) Λαβές btn_reset.Click
Timer1.Enabled = False
χρόνος = 0
λεπτό = 0
= 0 δευτερόλεπτα
χιλιοστό του δευτερολέπτου = 0
printTime ()
Sub End
Γεια χάριτος για τη συνεισφορά
Θέλω να ξέρω πώς να προσαρμοστούν σε ASP με VB, δεδομένου ότι με τη χρήση του κωδικού σελίδα κάνει postback
Ευχαριστίες
ευχαριστώ, έψαχνα
ΠΟΛΥ ΚΑΛΗ ΠΛΗΡΟΦΟΡΙΕΣ με έσωσε από μια χωρίς προβλήματα
..
..
ΕΥΧΑΡΙΣΤΩ
Σας ευχαριστώ πολύ για τις συνεισφορές. Είναι πολύ σαφές και πολύ καλή.
Πολύ καλή συμμετοχή, είναι αυτό που έψαχνα!
ευχαριστίες
Μπορείτε να μου πείτε, όπως κάνατε με την label1.refresh ()
Σας ευχαριστώ.