Πώς να υπολογίσετε Επιτροπή Χρησιμοποιώντας Βρόχος

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

1 Ανοίξτε μια σύνδεση είτε σε μια βάση δεδομένων ή ένα εξωτερικό αρχείο για να ανακτήσετε την είσοδο για εφαρμογή της Visual Basic . Θα πρέπει να ορίσετε μεταβλητές τύπου double για να κρατήσει την προμήθεια , μισθός , ποσοστό προμήθειας και στοιχεία πωλήσεων για τον τρέχοντα μήνα . 2

Loop μέσα από τις πληροφορίες χρησιμοποιώντας μια "Do Ενώ η" loop . Αν ανάκτηση των εισροών από μια βάση δεδομένων , "Do While Not rstSalesData.EOF " θα εκτελέσει τις εντολές που ακολουθούν αυτή τη δήλωση μέχρι το τέλος του συνόλου εγγραφών έχει επιτευχθεί .
Εικόνων 3

Ανάκτηση των ποσών που είναι αναγκαία για τον υπολογισμό της επιτροπής . Ένα τυπικό επιτροπή θα μπορούσε να είναι ότι ο πωλητής λαμβάνει το 10 τοις εκατό των πωλήσεων πάνω από $ 10.000 και 5 τοις εκατό στις πωλήσεις λιγότερο από $ 10.000. Πρώτον , την ανάκτηση του ποσού των πωλήσεων για το μήνα στη μεταβλητή των πωλήσεων και του μισθού στη μεταβλητή μισθού . Εάν το ποσό είναι πάνω από $ 10.000, το ποσοστό προμήθειας θα είναι 5 τοις εκατό . Ρυθμίστε το κυμαινόμενο επιτόκιο ίσο με .05 και η μεταβλητή των πωλήσεων ίση με το ποσό των πωλήσεων , $ 4,700 για παράδειγμα .
Η 4

Υπολογίστε την προμήθεια λαμβάνοντας τις πωλήσεις μεταβλητή φορές η προμήθεια rate.dCommission = dSales * dRate.Get το σύνολο των αποδοχών για το μήνα , με την προσθήκη " dCommission " με τη μεταβλητή μισθό " dSalary . " Format " dSalary " με δύο δεκαδικά ψηφία για να πάρετε μια ακριβή ποσό σε δολάρια .
5

Τέλος το βρόχο με το " Loop " . Το τελικό κώδικα του προγράμματος πρέπει να μοιάζει με αυτό : Do While Not rstSalesData.EOFdSales = rstSalesData.field ( "Πωλήσεις" ) valueIf dSales <10000 ThendRate = .05 ElsedRate = .10 Τέλος IfdSalary = rstSalesData.fields ( " Μισθός " ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) « προσθέσετε κώδικα εδώ για να ενημερώσετε τη βάση δεδομένων με dSalary ή να το γράψετε σε μια γραμμή filerstSalesData.MoveNextLoopThe που ξεκινά με μια απόστροφο είναι ένα σχόλιο στη Visual Basic . Αυτό είναι όπου μια συνάρτηση μπορεί να προστεθεί είτε σώσει " dSalary " σε ένα αρχείο ή στη βάση δεδομένων πριν πάτε στην επόμενη εγγραφή .
Η
εικόνων