Δοκιμάστε κωδικοποιεί μια εφαρμογή που προσομοιώνει ένα χρονόμετρο αντίστροφης μέτρησης . Ο χρήστης εισάγει τον αριθμό των δευτερολέπτων του προγράμματος είναι να ορίσετε ένα χρονοδιακόπτη από? Το πρόγραμμα να κάνει την αντίστροφη μέτρηση , εμφανίζοντας τον αριθμό των υπόλοιπων δευτερόλεπτα και μια οπτική προειδοποίηση στο τέλος της αντίστροφης μέτρησης
Για να ξεκινήσει αυτό το έργο , . ανοίξει το Visual Basic IDE ( ολοκληρωμένο περιβάλλον ανάπτυξης ) . Επιλέξτε " Αρχείο" > " Νέα " > " Windows Forms Application ". Στο παράθυρο Form Designer , σύρετε τα ακόλουθα στοιχεία ελέγχου στη φόρμα από την εργαλειοθήκη . Πρώτη σύρετε ένα πλαίσιο κειμένου για τον χρήστη να πληκτρολογήσει τον αριθμό των δευτερολέπτων για να μετρήσει κάτω από το . Σύμφωνα με αυτό το πλαίσιο κειμένου χώρα μία άλλη μία για το πρόγραμμα για να δείτε τα δευτερόλεπτα που απομένουν . Κάτω από αυτό το δεύτερο πλαίσιο κειμένου , τοποθετήστε ένα κουμπί για τον χρήστη για να ξεκινήσει το χρονόμετρο . Επίσης , drag and drop ένα χρονοδιακόπτη στη φόρμα . Ο χρήστης δεν θα δει αυτόν τον έλεγχο , αλλά τον κωδικό σας θα .
Αλλάξτε την ιδιότητα κείμενο το κουμπί "Έναρξη ". Να είστε βέβαιος ότι η περίπτωση κάθε γράμμα αντιστοιχεί "Start ". Μπορείτε να αποκτήσετε πρόσβαση στο παράθυρο Ιδιότητες με "Προβολή " > "Ιδιότητες".
Εικόνων Γράφοντας το Πρόγραμμα
Η
Τώρα που έχετε δημιουργήσει τη φόρμα , γράψτε τον κωδικό η οποία χρησιμοποιεί τη φόρμα για να επικοινωνεί με το χρήστη . Κάντε διπλό κλικ στο κουμπί . Το παράθυρο κώδικα σκάει επάνω , με το δρομέα μέσα στο κενό Button1_Click λειτουργία . Η λειτουργία αυτή θα ονομάζεται όταν ο χρήστης πατήσει το κουμπί της φόρμας σας .
Το πρώτο τμήμα του παρακάτω κώδικα καθορίζει το χρονικό διάστημα του χρονοδιακόπτη σε χιλιοστά του δευτερολέπτου και ξεκινά το χρονόμετρο με τη ρύθμιση " Enabled " την περιουσία του . Οι δράσεις αυτές να συμβεί μόνο αν το κείμενο του κουμπιού διαβάζει "Start ".
Private Sub Button1_Click ( ... [ επιχειρήματα παραλείπονται για λόγους σαφήνειας ] ) Αν ( Button1.Text = " Start" ) ThennSecsLeft = CInt ( TextBox1.Text ) Button1.Text = " Stop" Timer1.Interval = 1000Timer1.Enabled = TrueElseButton1.Text = " Start" Timer1.Enabled = False
End Sub IfEnd
Το τελευταίο τμήμα του κώδικα , από τα υπόλοιπα , χειρίζεται την υπόθεση , όταν το χρονόμετρο είναι ήδη σε λειτουργία . Το πρόγραμμα απενεργοποιεί το χρονοδιακόπτη , μέσω της " Enabled " περιουσία του και αλλάζει το κείμενο του κουμπιού για να καταστεί δυνατή η επανεκκίνηση του προγράμματος .
Η Εκδήλωση του χρονόμετρο
Η
Κάθε δευτερόλεπτο ( 1,000 χιλιοστά του δευτερολέπτου) που περνά προκαλεί η λειτουργία Timer1_Tick να εκτελέσει . Η εφαρμογή σας πρέπει να κάνει πολλά πράγματα για τον ίδιο σκοπό πει ο χρήστης πόσα δευτερόλεπτα παραμένουν στην αντίστροφη μέτρηση και να εντοπίσετε το τέλος της αντίστροφης μέτρησης , και όταν τελειώσει η αντίστροφη μέτρηση , απενεργοποιήστε το χρονόμετρο και να ειδοποιεί το χρήστη . Ο ακόλουθος κώδικας ολοκληρώνει τις εργασίες αυτές.
Private Sub Timer1_Tick ( ... )
TextBox2.Text = nSecsLeftIf ( nSecsLeft = 0 ) = ThenTimer1.Enabled FalseMsgBox ( "Τέλος ! " )
Button1.Text = "Start " ElsenSecsLeft = nSecsLeft - 1
End If
End Sub
τρέξει τελικά το πρόγραμμά σας . Στη συνέχεια πειραματίζονται με αυτό . Για παράδειγμα , γράφουν κώδικα που κάνει κάτι άλλο εκτός από εμφανίζει ένα πλαίσιο μηνύματος .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα