Πώς να Επαναφορά τσιμπούρια σε VB6

Μαθαίνοντας πώς να παρακολουθείτε χρόνο στο πρόγραμμα της Visual Basic σας 6.0 είναι σημαντικό όταν δείχνει το χρονικό διάστημα μεταξύ των διαφόρων δράσεων ή όταν debugging του χρόνου διαφορετικών αλγορίθμων . Η ενσωματωμένη λειτουργία " GetTickCount " σας επιτρέπει να παρακολουθείτε το ποσό των χιλιοστών του δευτερολέπτου που έχουν περάσει ανάμεσα σε δύο γεγονότα . Επαναφορά του αριθμού τσιμπούρι γίνεται με ένα απλό τηλεφώνημα και πάλι τη λειτουργία " GetTickCount " . Αφαιρώντας δύο " GetTickCount " αναγνώσεις σας δίνει μια μέτρηση του χρόνου που έχει περάσει . Οδηγίες
Η

1 Ανοίξτε το αρχείο VB6 σας στο Microsoft Visual Studio 6.0 2

να αναγνωρίσει δύο μεταβλητές για να παρακολουθείτε την έναρξη και τη λήξη του χρονοδιακόπτη , προσθέτοντας τον παρακάτω κώδικα στη λειτουργία σας . :

Dim lng_Beg Όπως Long

Dim lng_End Όπως Long
εικόνων 3

Καλέστε τη λειτουργία " GetTickCount " για να ξεκινήσει την παρακολούθηση του χρόνου με την προσθήκη του κώδικα :

lng_Beg = GetTickCount ( )

η λειτουργία " GetTickCount " αποθηκεύει τον αριθμό των χιλιοστών του δευτερολέπτου που έχουν περάσει από το σύστημα σε λειτουργία . Αν το σύστημα έχει μείνει για περισσότερο από 49,7 ημέρες , μια υπερχείλιση είναι δυνατή επειδή ο χρόνος αποθηκεύεται ως DWORD 32 -bit . Σε πολλά συστήματα, ο πραγματικός χρόνος μεταξύ τσιμπούρια είναι 10 ή 16 ms .
Η 4

Προσθέστε τον κώδικα που θέλετε με το χρόνο , όπως μια θηλιά , την επεξεργασία ενός αρχείου ή την ανάκτηση πληροφοριών από μια βάση δεδομένων .
Φτηνές 5

επαναφορά των τσιμπούρια καλώντας και πάλι τη λειτουργία " GetTickCount » , με την προσθήκη του κώδικα :

lng_Beg = GetTickCount ( )

Η προηγούμενη μέτρηση τσιμπούρι τώρα απορρίπτεται <. br >
6

Τελειώστε τον κωδικό που θέλετε με το χρόνο και στη συνέχεια να καλέσετε τη λειτουργία " GetTickCount " και πάλι με την προσθήκη του κώδικα :

lng_End = GetTickCount ( )
Η 7

Εμφανίζει το ποσό των χιλιοστών του δευτερολέπτου που έχουν περάσει από την επαναφορά του μετρητή τσιμπούρι με την προσθήκη του κώδικα :

MsgBox CStr ( lng_End - lng_Beg )

Η " CStr " μετατρέπει το "Long " τύπος δεδομένων σε ένα εκτυπώσιμο string .
8

Αποθηκεύστε το αρχείο VB6 και να συγκεντρώσει και να εκτελέσετε το πρόγραμμα για να δείτε πόσο καιρό παίρνει για να εκτελέσει τον κώδικά σας .

Η