Ξεκινήστε το Visual Studio ή Visual Basic Express ( ανάλογα με το ποια έκδοση που έχετε εγκατεστημένη . ) Κάντε κλικ στο " New Project" στο "Start Page . " 2
Επιλέξτε " Windows Forms Application ", και στη συνέχεια κάντε κλικ στο κουμπί "Προσθήκη " . Αυτό ανοίγει μια νέα μορφή των Windows στο Visual Basic παράθυρο " Σχεδίαση " .
Εικόνων 3
Μετακινηθείτε πάνω ή κάντε κλικ στο "Toolbox " καρτέλα στην επάνω αριστερή γωνία του παραθύρου " Σχεδίαση " . Επιλέξτε και σύρετε τα δύο " TextBox " ελέγχους , ένα «σήμα» ελέγχου και ένα " κουμπί" έλεγχος επάνω φόρμα σας . Εναλλακτικά , μπορείτε να κάνετε διπλό κλικ σε κάθε στοιχείο ελέγχου για να προσθέσετε τη φόρμα .
Η
4 Σύρετε το " TextBox1 " και " TextBox2 " ελέγχων σε κάθετη ευθυγράμμιση με τη χρήση των βασικών γραμμών Visual πλέγμα ευθυγράμμιση ως οδηγοί . Τοποθετήστε το " Label1 " ελέγχου ακριβώς κάτω από τα « πλαίσια κειμένου " , και πάλι με τη χρήση των βασικών γραμμών Visual πλέγμα ευθυγράμμισης για βοήθεια . Τοποθετήστε το " Button1 " ελέγχου στο κάτω μέρος της φόρμας .
5
Κάντε κλικ στο " Button1 " ελέγχου για να το επιλέξετε . Μετακινηθείτε μέσα από το παράθυρο "Ιδιότητες" στην κάτω δεξιά γωνία του παραθύρου " Σχεδιασμός " μέχρι να βρείτε το " Κείμενο " ιδιοκτησίας για την " Button1 " ελέγχου. Αλλάξτε το κείμενο στο " Προσθήκη ". Το κουμπί στη φόρμα σας θα πρέπει να περιέχει το κείμενο " Προσθήκη " και όχι " Button1 ".
Η
6 Κάντε διπλό κλικ στο κουμπί "Προσθήκη " για να ανοίξει το " Code" παράθυρο Visual Basic . Ο κώδικας για να μετατρέψετε τα δεδομένα που έχουν εισαχθεί σε « TextBox1 " και " TextBox2 " θα εκτελεστεί όταν ο χρήστης κάνει κλικ στο κουμπί "Προσθήκη" , έτσι αυτό είναι όπου πρέπει να βάλετε τον κωδικό. Visual Studio θα τοποθετήσει τον κέρσορα μεταξύ των δύο γραμμών που οριοθετούν την αρχή και το τέλος της διαδικασίας sub που χειρίζεται το κλικ το κουμπί εκδήλωση .
Η 7
Εισάγετε τον κωδικό παρόμοιο με το ακόλουθο κώδικα μεταξύ των δύο γραμμών που περιγράφονται στο βήμα 6 .
Δημ. NUMBERONE , NumberTwo , ResultNumber ως Ακέραιος
Εάν TextBox1.Text > " " τότε
Εάν Textbox2.Text > " " τότε
Δοκιμάστε
NumberOne.Focus ( )
NUMBERONE = Integer.Parse ( TextBox1.Text )
NumberTwo.Focus ( )
NumberTwo = Integer.Parse ( Textbox2.Text )
ResultNumber = NUMBERONE + NumberTwo
Label1.Text = ResultNumber.ToString ( )
Πιάσε
MessageBox.Show ( "Πρέπει να εισάγετε μόνο αριθμούς στο πεδίο ").
End Δοκιμάστε
Else
MessageBox.Show ( "Πρέπει να εισαγάγετε έναν αριθμό στο πλαίσιο δύο . " )
Επιστροφή
Else
MessageBox.Show ( "Πρέπει να εισαγάγετε έναν αριθμό στο κουτί μία . " )
Επιστροφή
End Αν
η "Dim " δήλωση καθορίζει τρεις μεταβλητές ακεραίου τύπου , που ακολουθείται από δύο " Αν " δηλώσεις που ελέγχουν για να βεβαιωθείτε ότι ο χρήστης εισάγει κάτι στα " πλαίσια κειμένου . " Το "Try /Catch /End Try" τμήμα του κώδικα κάνει τις πραγματικές προσπάθειες μετατροπής για τα δεδομένα που έχουν εισαχθεί στα " πλαίσια κειμένου . " Εάν υπάρχει μη αριθμητικά δεδομένα ως είτε « TextBox " ( όπως καθορίζεται από τις " Integer.Parse " εντολές , μία από τις δύο εντολές " MessageBox.Show " παίρνει τον έλεγχο και εμφανίζει ένα μήνυμα σφάλματος . Εάν τα δεδομένα τόσο " πλαίσια κειμένου »είναι αριθμητικό , τότε τα έσοδα προσθήκη . το αποτέλεσμα τοποθετείται στο " Label1.Text "περιουσία , η οποία εμφανίζει στη φόρμα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα