Πώς να κάνει μια αριθμομηχανή με Visual Basic

Microsoft Visual Basic είναι μια γλώσσα προγραμματισμού που βασίζεται στην γλώσσα BASIC , που αναπτύχθηκε αρχικά για να κάνουν τον προγραμματισμό πιο εύκολο να μάθουν . Visual Basic παίρνει τις γνωστές εντολές της BASIC και προσθέτει object-oriented και interfaces για το σχεδιασμό WYSIWYG -όπως εφαρμογές των Windows και ελέγχου web , ανάμεσα σε πολλές άλλες βελτιώσεις . Ένα σχετικά απλό πρόγραμμα εκμάθησης για τη Visual Basic είναι η δημιουργία ενός υπολογιστή Windows. Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic 6
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic 6 , και επιλέξτε "Standard EXE " από το νέο μενού του έργου . Θα δείτε μια κενή φόρμα εμφανίζεται στην οθόνη . 2

Μετονομασία έργο σας και τη μορφή σας , κάνοντας κλικ στο " Έργο1 " στη δεξιά πλευρά της οθόνης , στον κατάλογο έργων , και εισέρχεται σε μια νέο όνομα στο "Name " γραμμή του παραθύρου Properties , η οποία θα πρέπει να εμφανίζονται κάτω από την εισαγωγή του έργου από προεπιλογή . Πατήστε το πλήκτρο " Enter" για να δεχθεί το νέο όνομα . Κάντε το ίδιο για τη φόρμα σας ( μια μορφή προτεινόμενο όνομα είναι " CalculatorUI " ) , φροντίζοντας να εισάγετε ένα παρόμοιο όνομα στο " Λεζάντα " ιδιοκτησίας, καθώς , το οποίο θα αλλάξει το κείμενο στην επάνω γραμμή της φόρμας . Αποθηκεύστε το έργο σε ένα νέο φάκελο στον υπολογιστή σας .
Εικόνων 3

Προσθέστε κουμπιά και ένα πλαίσιο κειμένου στη φόρμα . Πρώτα, προσθέστε ένα πλαίσιο κειμένου , το οποίο θα είναι αυτός όπου εμφανίζονται οι αριθμοί που εγγράφονται στον υπολογιστή , καθώς και τα αποτελέσματα των υπολογισμών . Κάνετε αυτό επιλέγοντας το κουμπί Πλαίσιο κειμένου από τη γραμμή εργαλείων στην αριστερή πλευρά της οθόνης , και στη συνέχεια, σύροντας με το ποντίκι σας το μέγεθος και την τοποθεσία που επιθυμείτε για το πλαίσιο κειμένου . Μόλις τοποθετήσετε το πλαίσιο κειμένου , μπορείτε να αλλάξετε το μέγεθος και τη θέση σύροντάς το σε μια άλλη θέση της φόρμας ή σύροντας τις λαβές ( οι μικρές πλατείες ) κατά μήκος των συνόρων του TextBox . Να είστε βέβαιος να αλλάξετε τις ακόλουθες γραμμές στο παράθυρο Properties , με το επιλεγμένο πλαίσιο κειμένου : " ( Name ) " = tbResult , " Στοίχιση " = 1 - Στοίχιση δεξιά , " Μορφοποίηση δεδομένων " = ( κάντε κλικ στο κουμπί " ... " για να επιλέξτε ) Αριθμός , " Κλειδωμένο " = True , και "Text " = 0 .
Η 4

Επιλέξτε το εικονίδιο CommandButton στη γραμμή εργαλείων και να δημιουργήσει το πρώτο κουμπί με τον ίδιο τρόπο που δημιουργήθηκε το πλαίσιο κειμένου για να προσθέσετε κουμπιά . Για αναφορά , χρησιμοποιήστε το Windows αριθμομηχανή στην Κανονική προβολή ( Προγράμματα > Βοηθήματα> Αριθμομηχανή ), ως βάση για τη διάταξη υπολογιστή σας , αφήνοντας έξω τα πλήκτρα " M + " " MC " , " MR " , " MS" , και . Σε κάθε κουμπί , αλλάξτε τις ακόλουθες ιδιότητες ( με το πλήκτρο " + " ως παράδειγμα ) : " ( Name ) " = btnPlus , "Τίτλος " = + . Κάντε το ίδιο για τα υπόλοιπα κουμπιά της αριθμομηχανής , και , στη συνέχεια, αποθηκεύστε την εργασία σας . Η φόρμα σας θα πρέπει τώρα να μοιάζει με το παράδειγμα που παρουσιάζεται εδώ .
5

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

Dim sLeft As String , sRight As String , sOperator Όπως StringDim ILeft As Double , IRIGHT As Double , iResult Όπως DoubleDim bLeft Όπως Boolean

Κάθε υπολογισμός αποτελείται από τέσσερα μέρη : ένας αριθμός στα αριστερά του χειριστή ( sLeft , ILeft ) , ενός χειριστή ( sOperator ) , έναν αριθμό στα δεξιά του χειριστή ( sRight , IRIGHT ) , και αποτέλεσμα ( iResult ) . Για να παρακολουθείτε αν ο χρήστης εισέρχεται το αριστερό ή το δεξί αριθμό , πρέπει να δημιουργήσουμε μια boolean μεταβλητή , bLeft . Αν bLeft είναι αλήθεια , η αριστερή πλευρά του υπολογισμού είναι να εισέλθει ? Αν bLeft είναι ψευδής , η δεξιά πλευρά είναι να εισαχθεί
Η 6

Αρχικοποίηση της μεταβλητής bLeft . . Εμείς το κάνουμε αυτό με τη δημιουργία μια υπορουτίνα Form_Load , το οποίο μπορείτε είτε τύπου που αναφέρονται εδώ ή να δημιουργήσετε αυτόματα κάνοντας διπλό κλικ σε οποιοδήποτε μέρος του εντύπου που δεν καλύπτονται από ένα κουμπί ή κειμένου. Μέσα από τη λειτουργία , πρέπει να θέσουμε bLeft στην τιμή True , διότι ο πρώτος αριθμός που εισάγονται θα είναι το αριστερό μέρος :

Private Sub Form_Load ( ) bLeft = TrueEnd Sub
Η 7

Δημιουργία υπορουτίνα που θα χειριστεί το κλικ οποιουδήποτε από τα αριθμητικά πλήκτρα . Δημιουργούμε αυτό ως υπορουτίνα , επειδή χρησιμοποιούμε πανομοιότυπο κώδικα για κάθε κουμπί , και χρησιμοποιώντας μια υπορουτίνα σημαίνει ότι δεν χρειάζεται να επαναλάβετε τον ίδιο κωδικό δέκα φορές . Εισάγετε τον παρακάτω κάτω από τη γραμμή End Sub της υπορουτίνα του Form_Load :

Private Sub AddNumber ( SNumber Όπως String ) Αν bLeft ThensLeft = sLeft + sNumbertbResult.Text = sLeftElsesRight = sRight + sNumbertbResult.Text = sRightEnd IfEnd Sub

Όπως μπορείτε να δείτε , αυτή η λειτουργία παίρνει μια παράμετρο συμβολοσειράς , SNumber , η οποία θα περιέχει τον αριθμό ο χρήστης κάνει κλικ στο . Αν bLeft είναι αλήθεια , ο αριθμός αυτός επισυνάπτεται στο κορδόνι που αντιπροσωπεύει τον αριθμό που πληκτρολογείτε , sLeft , και το πλαίσιο κειμένου , tbResult , ενημερώνεται για να εμφανίσει το νέο αριθμό . Αν bLeft είναι ψευδής , η ίδια διαδικασία εκτελείται με τη χρήση sRight αντ 'αυτού.

Τέλος , να δημιουργήσετε μια συνάρτηση συμβάν Click για κάθε αριθμό που καλεί AddNumber υπορουτίνα μας . Μπορείτε να το κάνετε εύκολα με διπλό κλικ σε κάθε αριθμητικό πλήκτρο , η οποία θα δημιουργήσει τη δομή υπορουτίνα για εσάς . Στη συνέχεια, προσθέστε την κλήση σε AddNumber , αντικαθιστώντας τον αριθμό σε εισαγωγικά με τον αριθμό που σχετίζεται με το κουμπί . Για το κουμπί μηδέν , ο κώδικάς σας θα μοιάζει με αυτό :

Private Sub btn0_Click ( ) AddNumber ( " 0 " ) End Sub

Ομοίως , για το κουμπί μία , ο κώδικάς σας θα μοιάζει με αυτό :

Private Sub btn1_Click ( ) AddNumber ( " 1 " ) End Sub
8

Χειριστείτε τους φορείς : συν, μείον , φορές , και διαιρέστε . Εμείς θα κάνουμε αυτό σαν τελευταίο βήμα , δημιουργώντας μια ρουτίνα που ονομάζεται Κάντε κλικ στις εκδηλώσεις για τα κουμπιά φορέα . Η υπορουτίνα θα μοιάζει με το παρακάτω :

Private Sub AddOperator ( sNewOperator Όπως String ) Αν bLeft ThensOperator = sNewOperatorbLeft = FalseElsebtnEquals_ClicksOperator = sNewOperatorsRight = " " bLeft = FalseEnd IfEnd Sub

Εάν bLeft είναι αλήθεια , που σημαίνει ότι ο χρήστης έχει μόλις εισέλθει στον αριστερό μέρος του υπολογισμού , η υπορουτίνα αυτή ορίζει η μεταβλητή sOperator που δημιουργήσατε στο βήμα 5 για να ισούται με τον επιχειρηματία που είναι εγγεγραμμένος , το οποίο διοχετεύεται στο AddOperator όπως το string sNewOperator . Το δεύτερο βήμα είναι να bLeft σε False , γιατί η είσοδος του επιχειρηματία σημαίνει ότι ο χρήστης γίνεται εισέρχονται στην αριστερή πλευρά της εξίσωσης . Για να χειριστεί τις καταχωρήσεις ότι σειρά πολλαπλών φορέων μαζί , όπως το 9 * 3 * 2 * 6 , θα πρέπει να επίσης να ελέγξετε εάν bLeft είναι ψευδής , που σημαίνει ότι ο χρήστης έχει εισάγει ένα φορέα , όπου περιμέναμε ένα ίσον . Πρώτη καλούμε το συμβάν Click για το ισούται με το κουμπί ( που περιγράφεται στο επόμενο στάδιο ) , το οποίο κάνει τον υπολογισμό και θέτει tbResult το αποτέλεσμα του τι έχει ήδη καταχωρηθεί . Τότε σαφές sRight έτσι ώστε ο χρήστης μπορεί να πληκτρολογήσει τον επόμενο αριθμό και ρυθμίστε bLeft σε False έτσι το πρόγραμμα ξέρει μπαίνουμε στην δεξιά πλευρά του υπολογισμού επόμενο .

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

Private Sub btnPlus_Click ( ) AddOperator ( " + " ) End Sub

Ομοίως , ο κώδικας για το κουμπί μείον θα μοιάζει με αυτό :

Private Sub btnMinus_Click ( ) AddOperator ( " - " ) End Sub
Η 9

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

Private Sub btnEquals_Click ( ) Αν sLeft <> "" Και sRight = " " Και sOperator <> " " ThensRight = sLeftEnd Αν

Αν sLeft <> " " Και sRight <> " " Και sOperator <> " " TheniLeft = sLeftiRight = sRight

Επιλέξτε υπόθεση sOperatorCase " + " iResult = ILeft + iRightCase " - " iResult = ILeft - iRightCase " /" iResult = ILeft /iRightCase " * " iResult = ILeft * iRightEnd Επιλέξτε

tbResult.Text = iResult

sLeft = iResultsRight = " " bLeft = TrueEnd IfEnd Sub

οι τρεις πρώτες γραμμές του ελέγχου κώδικα για να δείτε αν έχουν και οι δύο πλευρές του υπολογισμού έχουν εισαχθεί μαζί με έναν χειριστή . Αν μόνο η αριστερή πλευρά και ένας χειριστής καταχωρούνται , η αξία του στην αριστερή πλευρά αντιγράφεται προς τα δεξιά , έτσι ώστε να μπορεί να μιμηθεί την τυπική συμπεριφορά αριθμομηχανή για τον χειρισμό μιας εισόδου , ​​όπως 9 * = , η οποία πολλαπλασιάζει 9 από μόνη της για να πάρει ένα αποτέλεσμα 81 . Το υπόλοιπο του κώδικα θα εκτελεστεί μόνο αν τα αριστερά, δεξιά , και ο χειριστής καταχωρούνται , και αρχίζει από την αντιγραφή τους σειρές από αριθμούς σε ILeft και IRIGHT διπλό δακτυλογραφημένο μεταβλητές μας , που μπορεί να κάνει την πραγματική τους υπολογισμούς . Η δήλωση Select Case μας επιτρέπει να τρέχουν διαφορετικό κωδικό , ανάλογα με το ποια φορέα εισήχθη , και εκτελεί τον πραγματικό υπολογισμό , τοποθετώντας το αποτέλεσμα iResult . Τέλος , ενημερώνουμε το κουτάκι με το αποτέλεσμα , να αντιγράψετε το αποτέλεσμα σε sLeft , επαναφορά sRight , και να bLeft = True . Αυτές οι τελευταίες γραμμές μας επιτρέπουν να παίρνουμε το αποτέλεσμα του υπολογισμού και να το χρησιμοποιήσετε για να εκτελέσετε ένα άλλο υπολογισμό
Η 10

χειριστείτε τα τελευταία τρία κουμπιά λειτουργίας : . Sqrt , % , και 1 /x . Για το συμβάν Click του κουμπιού τετραγωνικής ρίζας , ο κώδικάς σας θα μοιάζει με αυτό :

Private Sub btnSqrt_Click ( ) Αν sLeft <> " " TheniLeft = sLeftElseiLeft = 0End Αν

Αν sRight <> " " TheniRight = sRightElseiRight = 0End Αν

Αν bLeft TheniLeft = Math.Sqr ( ILeft ) tbResult.Text = iLeftElseiRight = Math.Sqr ( ILeft ) tbResult.Text = iRightEnd Αν

Αν ILeft <> 0 = ThensLeft iLeftElsesLeft = " " End If

Αν IRIGHT <> 0 = ThensRight iRightElsesRight = " " End Sub IfEnd

Οι πρώτες 11 γραμμές Κωδικός βεβαιωθείτε ότι εάν δεν έχουμε μια τιμή που καταχωρίστηκε για τις δύο πλευρές της εξίσωσης , έχουμε αντικαταστήσει το μηδέν , αντί να προσπαθείτε να αντιγράψετε ένα άδειο string σε ILeft ή IRIGHT , η οποία θα δημιουργήσει ένα σφάλμα . Τα μεσαία γραμμές εκτελέσει τη λειτουργία τετραγωνικής ρίζας στην τρέχουσα μέρος του υπολογισμού , είτε αριστερά είτε δεξιά . . Τέλος , μπορούμε να αντιστρέψουμε τους ελέγχους που κάναμε στην αρχή, έτσι ώστε το μηδέν αντιγράφεται ως κενή συμβολοσειρά πίσω στο sLeft και sRight

Για το κουμπί τοις εκατό, ο κώδικας είναι παρόμοια , με μία εξαίρεση : η λειτουργία τοις εκατό μπορεί να γίνει μόνο αν τα δύο αριστερά και δεξιά πλευρά εγγράφονται .

Private Sub btnPercent_Click ( ) If Not bLeft ThenIf sRight <> " " TheniRight = sRightElseiRight = 0End Αν

IRIGHT = IRIGHT * ( ILeft /100 ) tbResult.Text = IRIGHT

Αν IRIGHT <> 0 = ThensRight iRightElsesRight = " " End Sub IfEnd IfEnd

Τέλος , το 1 /x , ή κλάσμα , Κάντε κλικ εκδήλωση, η οποία είναι πολύ παρόμοια με την παραπάνω κωδικό :

Private Sub btnFraction_Click ( ) Αν sLeft <> " " TheniLeft = sLeftElseiLeft = 0End Αν

Αν sRight <> " " TheniRight = sRightElseiRight = 0End Αν

Αν bLeft TheniLeft = 1 /iLefttbResult.Text = iLeftElseiRight = 1 /iRighttbResult.Text = iRightEnd Αν

Αν ILeft <> 0 = ThensLeft iLeftElsesLeft = " " End If

Αν IRIGHT <> 0 = ThensRight iRightElsesRight = " " End Sub IfEnd
Η

11 Προσθήκη κώδικα για να χειριστεί την C και τα κουμπιά CE . C καθαρίζει όλες τις εισόδους του με τον υπολογιστή , ενώ CE καθαρίζει μόνο τον αριθμό στιγμή που τέθηκε .

Private Sub btnC_Click ( ) sLeft = " " sRight = " " sOperator = " " tbResult.Text = " 0 " bLeft = TrueEnd Sub

Private Sub btnCE_Click ( ) Αν bLeft ThensLeft = " " ElsesRight = " " End IftbResult.Text = " 0 " End Sub
Τετάρτη 12

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