Αφού έχουμε ολοκληρώσει τον σχεδιασμό της εμφάνισης της εφαρμογής μας, πηγαίνουμε στην οθόνη Blocks προκειμένου να προγραμματίσουμε την εφαρμογή μας.
Ο τελικός μέσος όρος ενός μαθήματος προκύπτει από τον υπολογισμό του μέσου όρου της προφορικής βαθμολογίας στα δύο τετράμηνα (θα δημιουργήσουμε μία μεταβλητή proforikos για αυτό) και τον υπολογισμό του μέσου όρου μεταξύ του προφορικού βαθμού και των γραπτών (θα δημιουργήσουμε μία μεταβλητή telikos). Με λίγα λόγια:
proforikos = (Βαθμός Α' τετρ. + Βαθμός Β' τετρ.)/2
telikos = (proforikos + Γραπτά)/2
Από τη στιγμή που ο υπολογισμός μας περιλαμβάνει τον υπολογισμό ενός μέσου όρου [(α+β)/2] δύο φορές, θα δημιουργήσουμε μία συνάρτηση average που θα υπολογίζει τον μέσο όρο δύο αριθμών για να τη χρησιμοποιήσουμε όταν τη χρειαζόμαστε.
Βήμα 7: Δημιουργία συνάρτησης average
Η συνάρτησή μας θέλουμε να παίρνει δύο δεδομένα ως είσοδο (input) και να δίνει ένα αποτέλεσμα (result).
Από την επιλογή Procedures, θα επιλέξουμε το μπλοκ που δίνει result (αποτέλεσμα) προκειμένου να δημιουργήσουμε μία συνάρτηση. Σε αυτό το μπλοκ θα επιλέξουμε το γρανάζι ώστε να ρυθμίσουμε τη συνάρτησή μας να δέχεται δύο inputs:
Θα αλλάξουμε το όνομα της συνάρτησης σε average και θα ορίσουμε στο result να δίνει τον μέσο όρο των δύο τιμών που παίρνει ως input. (Τα get x και get y θα εμφανιστούν σαν επιλογές όταν σταθούμε με το ποντίκι πάνω από τις δύο μεταβλητές του input).
Βήμα 8: Δημιουργία μεταβλητών
Επειδή θα υπολογίσουμε τον μέσο όρο σε δύο βήματα (πρώτα τον μέσο όρο των προφορικών και μετά τον τελικό), θα δημιουργήσουμε μία μεταβλητή proforikos στην οποία θα τοποθετούμε τον προφορικό μέσο όρο.
Επιπλέον, επειδή θέλουμε η εφαρμογή μας να κάνει και άλλα πράγματα αναλόγως του τελικού μέσου όρου, θα δημιουργήσουμε άλλη μία μεταβλητή telikos στην οποία θα τοποθετούμε τον τελικό μέσο όρο.
Μεταβλητές μπορούμε να δημιουργήσουμε πηγαίνοντας στην επιλογή Variables και επιλέγοντας το block initialize global name to . Κάθε τέτοιο block θα το τοποθετήσουμε μόνο του, και θα λειτουργεί κατά την έναρξη της εφαρμογής ώστε να δεσμεύσει χώρο στη μνήμη του συστήματος για να τοποθετήσουμε εκεί τα δεδομένα που θέλουμε. Αρχικά, αυτές οι δύο μεταβλητές θα έχουν την τιμή 0 (μηδέν).
Οτιδήποτε χρειαστούμε για τις μεταβλητές, θα το βρούμε στην ενότητα Variables.
Βήμα 9: Υπολογισμός μέσου όρου
Η εφαρμογή μας θα υπολογίζει τον τελικό μέσο όρο όταν γίνεται κλικ στο αντικείμενο Button1.
Για να ορίσουμε τιμή σε μία μεταβλητή, πηγαίνουμε στην ενότητα Variables και επιλέγουμε ένα block set …. to. Στο όνομα των μεταβλητών μας υπάρχει μπροστά το κείμενο global γιατί αυτές οι μεταβλητές ισχύουν σε όλο το πρόγραμμά μας (π.χ. global proforikos και global telikos). Όταν χρειαστούμε την τιμή μιας μεταβλητής, από την ενότητα Variables επιλέγουμε ένα get …..
Για να καλέσουμε τη συνάρτηση που υπολογίζει τον μέσο όρο (average), πηγαίνουμε την ενότητα Procedures και επιλέγουμε το block call average.
Οι υπολογισμοί θα γίνουν ως εξής:
- Υπολογίζουμε τον μέσο όρο της προφορικής βαθμολογίας (proforikos) από τις βαθμολογίες των δύο τετραμήνων.
- Υπολογίζουμε τον τελικό μέσο όρο (telikos) που προκύπτει από τον μέσο όρο της προφορικής βαθμολογίας (proforika) και τον γραπτό βαθμό.
- Εμφανίζουμε τον τελικό μέσο όρο (telikos) στο κείμενο του Label5.
Ο υπολογισμός θα έχει την παρακάτω μορφή:
Βήμα 10: Χρωματισμός του αποτελέσματος ανάλογα με την τιμή του μέσου όρου
Τέλος, στη διαδικασία Button1.Click θα προσθέσουμε ένα if….else if….else ώστε να αλλάζει το χρώμα του φόντου (background color) του Label5 ανάλογα με την τιμή του μέσου όρου:
- Κόκκινο αν ο μέσος όρος είναι κάτω από 9.5
- Κίτρινο αν ο μέσος όρος είναι μεταξύ 9.5 και 12
- Πράσινο αν ο μέσος όρος είναι πάνω από 12.
Αυτό θα γίνει επιλέγοντας ένα block if από την ενότητα Control και τροποποιώντας το (επιλέγοντας το μπλε γρανάζι) ώστε να έχει την μορφή if….else if….else. Αυτό το μπλοκ θα διαμορφωθεί ώστε να γίνει όπως φαίνεται στην παρακάτω εικόνα (τα χρώματα θα τα επιλέξουμε από την επιλογή Colors).
Το πρόγραμμά μας έχει ολοκληρωθεί. Συγχαρητήρια!
Σημείωση: Όταν πατηθεί το Button1 χωρίς να έχουν εισαχθεί βαθμοί (δηλ. τα TextBoxes είναι κενά), το πρόγραμμά μας θα προσπαθήσει να υπολογίσει μέσο όρο με κενές τιμές καταλήγοντας σε ένα λάθος συστήματος. Κανονικά θα πρέπει να εισάγουμε ένα if….else που θα ελέγχουμε αν και τα τρία TextBoxes έχουν τιμές πριν προχωρήσουμε στον υπολογισμό. Το βήμα αυτό το παραλείψαμε για λόγους απλότητας.