Πώς να χρησιμοποιήσετε ένα χρονόμετρο σε Visual Basic

Το χρονόμετρο ελέγχου σε Visual Basic είναι μια πολύ χρήσιμη συσκευή που στέλνει έναν παλμό σε μια εφαρμογή σε προκαθορισμένα χρονικά διαστήματα . Ο έλεγχος μπορεί να εμφανίσει ενημερώσεις από πόσο καιρό μια εγκατάσταση λαμβάνει από την αντίστροφη μέτρηση , την παρακολούθηση ό, τι ένας χρήστης κάνει ή να εκτελέσει άλλες ρουτίνες , ενώ ένα κύριο πρόγραμμα εκτελείται . Αν Visual Basic Express , το οποίο είναι ένα πρόγραμμα NET , εμπλέκεται μερικές από τις λέξεις κώδικα θα διαφέρουν . Τα πράγματα που θα χρειαστείτε
Visual Basic
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic και να επιλέξετε "New Project " ένα "Standard EXE . " Κάντε κλικ στο " Αρχείο" και "Αποθήκευση form1 ως" και να του δώσετε ένα όνομα όπως " timerproject . " Στη συνέχεια, κάντε κλικ στο κουμπί "Αποθήκευση σχεδίου ως" και ονομάστε το "Timer Project. " Visual Basic εφαρμόζει τις σωστές επεκτάσεις αρχείων από προεπιλογή . 2

Αλλάξτε το " Λεζάντα " ακίνητο στον πίνακα Ακίνητα στην κάτω δεξιά γωνία για να "Timer Ελέγχου . "
Εικόνων 3

Τοποθετήστε ένα χρονόμετρο Ελέγχου σχετικά με τη μορφή , κάνοντας διπλό κλικ στο " Χρονόμετρο " ελέγχου , η οποία εμφανίζεται ως εικονίδιο του ρολογιού , στην εργαλειοθήκη στο αριστερό πλαίσιο . Ο έλεγχος δεν θα είναι ορατό όταν το πρόγραμμα εκτελείται . Για λόγους σαφήνειας , κάντε κλικ και σύρετε σε μια χαμηλότερη γωνία της φόρμας .
Η 4

Βάλτε μια ετικέτα στη φόρμα , κάνοντας διπλό κλικ στο " ετικέτα " ελέγχου , που αντιπροσωπεύεται από το γράμμα "Α" η Εργαλειοθήκη . Κάντε κλικ στο " Ετικέτα " τώρα σχετικά με τη μορφή , και στη συνέχεια, στον πίνακα Properties αλλάξετε το όνομα της ετικέτας σε "Clock " και να διαγράψετε τα γράμματα στη γραμμή λεζάντα . Επαναλάβετε αυτή τη διαδικασία για μια δεύτερη ετικέτα και ονομάστε το « Χαιρετισμός ». Αλλαγή του πλάτους των δύο εταιρειών έως το 2000 .
5

Κάντε κλικ View> Code στην κορυφή για να ανοίξει ένα παράθυρο κώδικα . Γράψτε τον κώδικα για μια εκδήλωση χρονοδιακόπτη . Αυτό είναι μόνο ένα παράδειγμα ? Για τον έλεγχο επιθυμητό χρονόμετρο σας χρησιμοποιεί, θα πρέπει να τροποποιήσετε τον κώδικα για να κάνει ό, τι θέλετε να κάνετε : Private Sub Form_Load ( ) Timer1.Interval = " 5000 αριθμοί αντιπροσωπεύουν χιλιοστά του δευτερολέπτου , έτσι 5000 ισούται με μία φορά κάθε 5 δευτερόλεπτα ? Αλλαγή αυτό είναι επιθυμητό periodCall Timer1_TimerEnd SubPrivate Sub Timer1_Timer ( ) Dim strGreeting1 , strGreeting2 , strTime Όπως StringstrTime = Ώρα $ Clock.Caption = Ώρα $ strGreeting = " Γεια Σου ! " Αν Mid $ ( strTime , 7 , 1 ) = " 1 " ThenGreeting . Caption = strGreetingElse : Greeting.Caption = " " End Sub IfEnd
Η 6

Δοκιμάστε την κωδικοποίηση πατώντας το πλήκτρο " F5 " . Η τρέχουσα ώρα θα πρέπει να εμφανίζει και να ενημερώνει κάθε 5 δευτερόλεπτα . Όταν το πρώτο ψηφίο της ένδειξης δευτερολέπτων πέφτει μεταξύ 10 και 19 , οι λέξεις « Γεια Σου ! " θα εμφανιστεί και στη συνέχεια εξαφανίζονται για 50 δευτερόλεπτα . Εάν κανένα από αυτά τα γεγονότα συμβαίνουν , ελέγξτε τον κώδικα στο Βήμα Πέντε για την ακρίβεια .
Η 7

Γυρίστε αυτό σε ένα τελικό πρόγραμμα , κάνοντας κλικ στο File > Make Timer Project.exe.Run το πρόγραμμα από όπου και αν βρίσκεστε αποθηκεύσατε .
Η
εικόνων