Visual Basic Tutorial παιχνίδι

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

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

Σχεδιάστε τη φόρμα για την είσοδο του χρήστη , χρησιμοποιώντας την προδιαγραφή παιχνίδι μόλις δοθεί . Το έντυπο θα πρέπει να εξάγει τα μηνύματα κειμένου από αυτούς τους τύπους : «Ποια είναι τρεις φορές πέντε " η ερώτηση μαθηματικών , όπως Η απάντηση δείχνει απάντηση του παίκτη ως « Σωστό » ή « Λάθος ? " Κατά προτίμηση , ένα τρέχον σύνολο της βαθμολογίας του παίκτη ? Δηλαδή, « Νίκες : 3 ? Ήττες: 1 ? Pct Νίκες : . . 75.00 τοις εκατό "

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

Η κώδικα για να αρχίσει το παιχνίδι
Η

Ο κώδικας για την κίνηση της το παιχνίδι μπορεί να κληθεί από υπορουτίνα φορτίο της φόρμας , η οποία εκτελείται όταν η φόρμα εισαγωγής έφερε στη μνήμη κατά την εκκίνηση του προγράμματος .
εικόνων Δείγμα κώδικα
Η

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

Form1_Load Private Sub ( ... * ) Τυχαία ( )

ShowMathQuestion ( ) End Sub

Δημόσια ShowMathQuestion Sub ( )

Dim αναζήτηση Όπως StringDim x , y As Integer

x = Int ( Rnd ( ) * 20 ) + 1ε = Int ( Rnd ( ) * 20 ) + 1

αναζήτηση = x & οι "καιροί" & ycorrectAnswer = x * y

Label1.Text = αναζήτηση » εμφανίζει την ερώτηση

End Sub

----------- ------------------------------------------------- * τα επιχειρήματα λειτουργία παραλείπονται για λόγους σαφήνειας. Visual Basic γεμίζει αυτά σε? Δεν χρειάζεται να τους πληκτρολογείτε

Θα χρειαστείτε τον κωδικό για να ελέγξετε την απάντησή του παίκτη όταν εισέρχεται στο πλαίσιο κειμένου TextBox1 και πιέζει το κουμπί Button1

. . Private Sub Button1_Click ( ... ) » ελέγξει την απάντησή του χρήστη

CheckUsersAnswer ( )

End Sub

Public Sub CheckUsersAnswer ( ) Dim a Όπως IntegerDim s Όπως StringDim pctWin Όπως Ενιαία

ένα = Int ( TextBox1.Text ) Αν ( a <> correctAnswer ) ThenLabel2.Text = "Λάθος " nIncorrect + = 1bLastAnswerWasCorrect = False

ElseLabel2.Text = " σωστή " bLastAnswerWasCorrect = TruenCorrect + = 1

End If

έκθεση scorepctWin = ( ανακριβή /( ανακριβή + nIncorrect ) ) * 100s = " Νίκες : " & ανακριβή & " Απώλειες : . " & nIncorrect & " . . Pct Νίκη: " & FormatNumber ( pctWin , 2 ) & " % "