Ξεκινήστε το περιβάλλον προγραμματισμού Visual Basic προγραμματισμό , και να ανοίξει ένα "New Project " από την Αρχική σελίδα . 2
Roll κέρσορα πάνω από την καρτέλα Toolbox στην κορυφή αριστερό μέρος του παραθύρου σχεδίασης. Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου κειμένου δύο φορές για να τοποθετήσετε δύο πλαίσια κειμένου στη φόρμα .
Εικόνων 3
Κάντε διπλό κλικ στο κουμπί ελέγχου για να τοποθετήσετε ένα κουμπί στη φόρμα . Κάντε διπλό κλικ σε ένα στοιχείο ελέγχου ετικέτας για να τοποθετήσει μια ετικέτα στη φόρμα . Τακτοποιήστε τα πλαίσια κειμένου πάνω από το σήμα στη φόρμα και τοποθετήστε το κουμπί κάτω από αυτούς .
Η
4 Κάντε διπλό κλικ στο " Button1 " για να ανοίξετε το παράθυρο κώδικα της Visual Basic . VB θα τοποθετήσετε το δρομέα μεταξύ της πρώτης και της τελευταίας γραμμές της διαδικασίας που χειρίζεται το κλικ το κουμπί
5
Προσθήκη κώδικα παρόμοιο με το ακόλουθο παράδειγμα μεταξύ των δύο γραμμών : .
Δημ. FirstMult , SecondMult , Productnumber ως δεκαδικά
Εάν TextBox1.Text > " " τότε
Εάν Textbox2.Text > " " τότε
Δοκιμάστε
FirstMult . Focus ( )
FirstMult = Decimal.Parse ( TextBox1.Text )
SecondMult.Focus ( )
SecondMult = Decimal.Parse ( Textbox2.Text )
Productnumber = FirstMult * SecondMult
Label1.Text = ProductNumber.ToString ( )
Πιάσε
MessageBox.Show ( " επιτρέπονται μόνο αριθμοί στο πλαίσιο κειμένου " )
Επιστροφή
End Δοκιμάστε
Else
MessageBox.Show ( "Πρέπει να εισάγετε έναν αριθμό στο δεύτερο κουτάκι " )
Επιστροφή
Αλλιώς
MessageBox.Show ( "Πρέπει να εισάγετε έναν αριθμό στο πρώτο κουτάκι " )
Επιστροφή
End If
η "Dim " δήλωση καθορίζει τρεις μεταβλητές του δεκαδικού τύπου , και ο κώδικας απαιτεί από το χρήστη να πληκτρολογήσει έναν αριθμό σε καθένα από τα δύο πλαίσια κειμένου . Όταν ο χρήστης κάνει κλικ Button1 ο κωδικός θα χρησιμοποιήσει τη μέθοδο μαϊντανός να μετατρέψετε τις τιμές TextBox σε δεκαδικό αριθμό , ή μηνύματα λάθους ζήτημα αν οι μη έγκυρες τιμές που εγγράφονται . Εάν ισχύουν οι αριθμοί enterd σε TextBox1 και TextBox2 το πρόγραμμα μετατρέπει και στη συνέχεια πολλαπλασιάζει τις δύο αριθμούς και τοποθετεί το προϊόν στην μεταβλητή Productnumber και στο πλαίσιο Label1 στη φόρμα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα