Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να δημιουργήσετε μια αριθμομηχανή ΣΔΣ σε Visual Basic 2008

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

Ξεκινήστε το Visual Studio 2008 αίτηση για να ανοίξετε ένα νέο έγγραφο VB , με την οποία θα κωδικοποιήσει εφαρμογή της αριθμομηχανής σας ΣΔΣ . 2

Δημιουργήστε μια νέα φόρμα που θα λάβει τους βαθμούς και την κατηγορία ονομασίες:

Δημόσιας τάξης FormDim Credits Όπως DoubleDim GPA As Double
εικόνων 3

Δημιουργήστε μια υπορουτίνα για να καταγράφουν την είσοδο των βαθμών και τα ονόματα κατηγορίας :

Private Sub btnRecord_Click ( ByVal αποστολέα ως System.Object , System.EventArgs ) Λαβές btnRecord.Click
Η 4

Ορίστε τον τύπο που θα υπολογίζει την ΣΔΣ με την προσθήκη του παρακάτω κώδικα :

GPA + = Βαθμός ( ) Βαθμολογία = Credits + = CDbl ( Credits.text )
5

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

Αν Grade.Text = " A " τότε GPA + = 4End Αν

Εάν Grade.Text = " B " Στη συνέχεια GPA + = 3End Αν

Αν Grade.Text = " C " τότε GPA + = 2End Αν

Εάν Grade.Text = " D " Τότε GPA + = 1End Αν

6

Κλείστε το υποπρόγραμμα για την αριθμομηχανή και να δημιουργήσετε ένα νέο που είναι υπεύθυνη για την αποθήκευση των αποτελεσμάτων του υπολογιστή :

End Sub

Private Sub btnCalculate_Click ( ByVal αποστολέα ως System.Object , όπως System.EventArgs ) Λαβές btnCalculate.ClickDim averageGPA As Double = GPA /CreditstextGPA.Text = CStr ( ( GPA ) ) End SubEnd Class
Η 7

Αποθηκεύστε τον κώδικα VB και να το μεταφράσει χρησιμοποιώντας την προτιμώμενη κώδικα compiler σας, ώστε να μπορείτε να εκτελέσετε τον κώδικα ως desktop εφαρμογή .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα