Πώς να προσθέσει 2 Τιμές σε Visual Basic

Μια βασική προϋπόθεση για οποιαδήποτε γλώσσα προγραμματισμού είναι η δυνατότητα να προσθέσει δύο τιμές , εάν οι τιμές αριθμητική τιμή ή σπάγκο . Visual Basic της Microsoft παρέχει τις δύο αυτές δυνατότητες για τον προγραμματιστή . Για αριθμητικές τιμές , μπορείτε να επιλέξετε οποιοδήποτε αριθμό τύπων δεδομένων , συμπεριλαμβανομένων ακέραιο , δεκαδικό και άλλα , πιο επιστημονικά , τα είδη . Όποια και αν είναι οι τιμές που πρέπει να προσθέσετε , Visual Basic θα πρέπει να είναι σε θέση να χειριστεί τη λειτουργία αρκετά εύκολα . Οδηγίες
Αρχική εγκατάσταση
Η 1

Ξεκινήστε την εφαρμογή της Visual Basic . Ανοίξτε το υπάρχον έργο σας ή κάντε κλικ στο " New Project ". 2

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

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

4 Κάντε διπλό κλικ στο κουμπί της φόρμας . Το παράθυρο Κωδικοποίηση θα ανοίξει και το Visual Basic συντάκτης θα τοποθετήσετε τον κέρσορα μεταξύ Sub τίτλο Διαδικασία και μια γραμμή End Sub . Ο κωδικός σας θα πάει μεταξύ αυτών των γραμμών . Όταν τρέχετε πραγματικά το πρόγραμμά σας , αυτός είναι ο κώδικας που θα εκτελείται όταν κάνετε κλικ στο κουμπί .
Εικόνων Προσθέτοντας αριθμητικές τιμές
5

Για να προσθέσετε αριθμούς , προσθέστε τον ακόλουθο κώδικα μεταξύ της γραμμής Sub διαδικασίας και της γραμμής Sub End να προσθέσει δύο αριθμούς :

Δημ. NUM1 , NUM2 , TotalNum ως Ακέραιος

Αν TextBox1.Text > Τίποτα τότε

Αν Textbox2.Text > Τίποτα τότε

Δοκιμάστε

Num1.Focus ( )

NUM1 = Integer.Parse ( TextBox1.Text )

Num2.Focus ( )

NUM2 = Integer.Parse ( Textbox2.Text )

TotalNum = NUM1 + NUM2

Label1.Text = TotalNum.ToString ( )

Πιάσε

MessageBox.Show ( " Ένας έγκυρος αριθμός απαιτείται " )

End Δοκιμάστε

Else

MessageBox.Show ( "Ένας αριθμός απαιτείται το δεύτερο πεδίο " )

Επιστροφή

Else

MessageBox.Show ( " Ένας αριθμός που απαιτείται στο πρώτο πεδίο " )

Επιστροφή

End If

Η πρόταση Dim δηλώνει τρεις μεταβλητές τύπου Integer , και η επακόλουθη κωδικό αναγκάζει τον χρήστη να πληκτρολογήσει αριθμητικές τιμές ή ένα μήνυμα σφάλματος. Κάνοντας κλικ στο κουμπί προκαλεί τον κώδικα για να εκτελέσει και να αναλύσει τις χορδές με τον αριθμό των μαθηματικών πράξεων από τη Visual Basic . Οι αριθμοί αθροίζονται και τοποθετούνται στο πεδίο TotalNum , η οποία VB στη συνέχεια μετατρέπει σε μια τιμή συμβολοσειράς και θέσεις στο πεδίο Label1.Text .
Η

6 Κάντε κλικ στο εικονίδιο με το πράσινο βέλος για να διορθώσετε το έργο σας . Η φόρμα σας θα πρέπει να ανοίξει για τον έλεγχο του κώδικά σας .
Η 7

Εκτελέστε ένα θετικό τεστ , που ονομάζεται μερικές φορές πηγαίνει κάτω από το "happy διαδρομή . " Πληκτρολογήσετε έναν αριθμό στο πρώτο πεδίο και μια σειρά στο δεύτερο πεδίο . Κάντε κλικ στο κουμπί . Θα πρέπει να δείτε το αποτέλεσμα εμφανίζεται στο πεδίο ετικέτα .
8

Εκτελέστε ένα αρνητικό τεστ πληκτρολογώντας αλφαβητικούς χαρακτήρες σε ένα ή και στα δύο πεδία και κάντε κλικ στο κουμπί . Θα πρέπει να δείτε ένα μήνυμα σφάλματος για κάθε τομέα όπου θα πληκτρολογηθεί μη αριθμητικούς χαρακτήρες .
Εικόνων Προσθέτοντας ( Η συνένωση δύο ) Χορδές χαρακτήρων

9

Εισάγετε τον παρακάτω κώδικα μεταξύ της διαδικασίας υπο κεφαλίδα και το τέλος της γραμμής Sub τέλος:

Αν TextBox1.Text > Τίποτα τότε

Αν Textbox2.Text > Τίποτα τότε

Label1.Text = TextBox1.Text & Textbox2.Text

Else

MessageBox.Show ( " Μια σειρά απαιτείται στο δεύτερο πεδίο " )

Επιστροφή

Else

MessageBox.Show ( " μια σειρά απαιτείται στο πρώτο πεδίο " )

Επιστροφή

End If

Αυτός ο κωδικός ελέγχους για να διασφαλιστεί ότι η τιμή εισάγεται σε κάθε τομέα και στη συνέχεια συνενώνει τις δύο χορδές , τοποθετώντας την προκύπτουσα συμβολοσειρά στο πεδίο Label1.Text .
Η 10

Κάντε κλικ στο εικονίδιο με το πράσινο βέλος για να διορθώσετε το έργο σας . Η φόρμα σας θα πρέπει να ανοίξει για τον έλεγχο του κώδικά σας .

11

Εκτελέστε ένα θετικό τεστ πληκτρολογώντας ένα string μέσα στο πρώτο πεδίο και μια σειρά στο δεύτερο πεδίο . Κάντε κλικ στο κουμπί και ο κωδικός θα πρέπει να αναστρέψει τις δύο συμβολοσειρές και βάλτε το αποτέλεσμα στο πεδίο Label1.Text .
Η 12

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