Πώς να κάνει ένα παιχνίδι Timed για Visual Basic

Για να κάνετε μια χρονομετρημένη αγώνα σε Visual Basic, δημιουργήστε ένα απλό κουίζ που θέτει ένα " Timer" έλεγχο μετά από κάθε ερώτηση υποβάλλεται . Πείτε τη συσκευή απέτυχε να ανταποκριθεί στην πρόκληση, αν το χρονόμετρο παρέλθει . Μπορείτε να χρησιμοποιήσετε τις δηλώσεις του προγραμματισμού αυτού του έργου για να δημιουργήσει μια ποικιλία από κουίζ , συμπεριλαμβανομένων κουίζ για τα μαθηματικά , την ιστορία ή τη γεωγραφία . Οδηγίες
Η

1 Κάντε κλικ στο μενού "Αρχείο" . Επιλέξτε " Νέα " και στη συνέχεια κάντε κλικ στο " Windows φόρμας " στοιχείο από τη λίστα που εμφανίζεται . Αυτό δείχνει ότι θέλετε να κάνετε μια νέα εφαρμογή που χρησιμοποιεί μια μορφή για την εισαγωγή δεδομένων . 2

Σύρετε το " κουμπί" έλεγχος από τον πίνακα εργαλείων επάνω στη φόρμα . Αυτό το κουμπί θα επιτρέπουν στο χρήστη να αρχίσει το παιχνίδι . Σύρετε ένα άλλο κουμπί στη φόρμα για να παρέχει στο χρήστη με ένα μέσο για να υποβάλει σχετική απάντηση .
Εικόνων 3

Τοποθετήστε ένα " Πλαίσιο κειμένου " ελέγχου στη φόρμα για να δώσει στο χρήστη ένα παράθυρο εισόδου πληκτρολογήστε την απάντηση .
Η 4

Σύρετε ένα " Timer" ελέγχου από τον πίνακα εργαλείων επάνω στη φόρμα , στη συνέχεια, πληκτρολογήστε " 10000 " για την ιδιότητα Interval . Αυτή η δράση καθορίζει το διάστημα αντίστροφη μέτρηση του χρονοδιακόπτη για 10 δευτερόλεπτα.
5

Κάντε διπλό κλικ στο δεύτερο κουμπί για να μπείτε στο παράθυρο προγραμματισμού . Επικολλήστε τις ακόλουθες δηλώσεις στο παράθυρο :

Δημόσιας Τάξης Form1Dim q ( 0 Σε 2 ) Ως StringDim α ( 0 Σε 2 ) Όπως StringDim iCurQ As Integer = - 1Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal ε. Όπως System.EventArgs ) Λαβές Button1.Click ' αρχίσει το παιχνίδι

q ( 0 ) = «Τι εθνικό μνημείο δείχνει τέσσερις προέδρους των ΗΠΑ στην πέτρα ; " q ( 1 ) = " Ποιος ανακάλυψε το φως λάμπα ; " q ( 2 ) = " από ποια επιστήμονας έκανε η θεωρία της σχετικότητας έρθει ; " α ( 0 ) = " Mount Rushmore "a ( 1 ) = " Edison " α ( 2 ) = " Αϊνστάιν " ? gotoTeacher ( ) End Sub Sub

gotoTeacher ( ) iCurQ = iCurQ + 1Αν ( iCurQ > 2 ) Στη συνέχεια, EndMsgBox ( q ( iCurQ ) ) Timer1.Enabled = TrueEnd Sub

Private Sub Button2_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές φοιτητής Button2.Click » απάντησε . σταματήσει timerTimer1.Enabled = FalseevaluateAnswer ( ) gotoTeacher ( ) Timer1.Enabled = TrueEnd Sub

Sub evaluateAnswer ( ) Αν ( TextBox1.Text = a ( iCurQ ) ) ThenMsgBox ( "Correct" ) ElseMsgBox ( "Λάθος . Η σωστή απάντηση είναι " & ένα ( iCurQ ) ) End IfEnd SubEnd Class

Οι παραπάνω δηλώσεις του " Button1 "υπο - ρουτίνα αναθέσει Visual Basic για να δημιουργήσετε μεταβλητές για τις ερωτήσεις του παιχνιδιού και απαντήσεις . Η " Button1 " υπο - ρουτίνα σετ τις προαναφερθείσες μεταβλητές με τις πραγματικές ερωτήσεις κουίζ και απαντήσεις . Η " gotoTeacher " υπο - ρουτίνα ζητά τον παίκτη με μια ερώτηση . Η " Button2 » και « αξιολογούν Answer" υπο - ρουτίνες αξιολογεί την απάντηση του παίκτη .
Η 6

Αντιγράψτε τις ακόλουθες δηλώσεις προγραμματισμού κάτω από το "End Sub" δήλωση του " Αξιολόγηση Answer" sub - ρουτίνα :

Private Sub Timer1_Tick ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως System.EventArgs ) Λαβές Timer1.Tick ' Student δεν ανταποκρίθηκε στο χρόνο . Αυτό θεωρείται λάθος answer.Timer1.Enabled = FalseMsgBox ( "Λάθος . Η σωστή απάντηση είναι " & α ( iCurQ ) ) gotoTeacher ( ) End Sub

" Timer1 " εκτελείται κάθε φορά που η ιδιότητα Interval από το χρονόμετρο φτάσει στο μηδέν .
Η 7

Πατήστε F5 για να εκτελέσετε το παιχνίδι .
Η
εικόνων