Υπολογισμοί με μεταβλητές, είσοδος και έξοδος

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

Σταθερές

Η συμβολοσειρά "hello, world" την οποία είδαμε στην προηγούμενη ενότητα είναι μια σταθερά (constant) της Visual Basic.
Οι σταθερές αυτές χρησιμοποιούνται συχνά για να παραστήσουν μηνύματα προς το χρήστη (π.χ. "Παρακαλώ βάλτε την κάρτα σας στην υποδοχή") ή και μεταξύ υπολογιστών (π.χ. "RCPT TO: dspin@aegean.gr").
Ένα άλλο είδος σταθερών είναι αυτές που παριστάνουν αριθμητικές τιμές (π.χ. 42 ή 3.1415927).
Στη Visual Basic ξεχωρίζουμε της ακέραιες (integer) σταθερές (π.χ. 42, 123456, -3) και τις σταθερές που παριστάνουν αριθμούς κινητής υποδιαστολής (floating point numbers) (π.χ. 3.1415827, -2.0, 6.023e-23).

Εκτύπωση τιμών

Για να εμφανίσουμε αριθμητικές τιμές στην οθόνη πρέπει να τις μετατρέψουμε σε συμβολοσειρά και να τις "προσθέσουμε" στην υπόλοιπη συμβολοσειρά που θέλουμε να εμφανίσουμε. Τη μετατροπή της αριθμητικής τιμής σε συμβολοσειρά εκτελεί η συνάρτηση (function) Str. Παράδειγμα:
```
	MsgBox "Τα γραπτά βαθμολογούνται με βαθμούς από το " + str(0) + " μέχρι το " + str(10)
```

Απλές πράξεις

Οι αριθμητικές τιμές της Visual Basic μπορούν να συνδυαστούν με τη χρήση των παρακάτω τελεστών (operands):

Πράξη	Τελεστής της Visual Basic
Πρόσθεση	+
Αφαίρεση	-
Πολλαπλασιασμός	*
Διαίρεση	/
Υπόλοιπο ακέραιας διαίρεσης	mod
Ύψωση σε δύναμη	^

Για τον υπολογισμό μιας τιμής, πρώτα εκτελούνται οι πράξεις ανάμεσα στον τελεστή ^, μετά ανάμεσα στους τελεστές * / mod και μετά οι πράξεις ανάμεσα στους τελεστές + -.
Η παραπάνω σειρά μπορεί να μεταβληθεί με τη χρήση παρενθέσεων.

Παραδείγματα

MsgBox "ένα συν ένα = " + Str(1 + 1)
MsgBox "Το εμβαδό του δωματίου είναι " + Str(3 * 5) + " τετραγωνικά μέτρα."
MsgBox Str(36.7) + " βαθμοί Celsius = " + Str(32 + 9.0 / 5.0 * 36.7) + " βαθμοί Fahrenheit."
MsgBox Str(1 + 2 * 3) 'Τυπώνει 7
MsgBox Str((1 + 2) * 3) ' Τυπώνει 9

Μεταβλητές

Οι αριθμητικές τιμές μπορούν να αποθηκευτούν σε μεταβλητές (variables)
Το όνομα μιας μεταβλητής πρέπει να αρχίζει με έναν λατινικό αλφαβητικό χαρακτήρα και να ακολουθείται από λατινικού αλφαβητικούς χαρακτήρες ή/και ψηφία. Παράδειγμα: Temperature, X1, Y1, X2, Y2, Total
Τα ονόματα των μεταβλητών δεν πρέπει να ταυτίζονται με δεσμευμένες λέξεις (reserved words) της Visual Basic (Sub, MsgBox, End, κ.λπ.).
Ο ορισμός τους γίνεται γράφοντας τη λέξη Dim, το όνομα της μεταβλητής και τον τύπο της μεταβλητής (integer για ακέραιες τιμές, double για τιμές κινητής υποδιαστολής, string για συμβολοσειρές).
Μπορούμε να ορίσουμε πολλές μεταβλητές ίδιου τύπου χωρίζοντάς τις με ",". Παράδειγμα:
```
	Dim Faces as Integer
	Dim X As Double, Y As Double
```
Για να δώσουμε μια τιμή σε μια μεταβλητή χρησιμοποιούμε τη σύνταξη:
```
	μεταβλητή = τιμή
```
για παράδειγμα:
```
	Faces = 2 * 8 + 12
```
Στη συνέχεια μπορούμε να χρησιμοποιούμε την τιμή της μεταβλητής όπως και οποιοδήποτε άλλη σταθερά. Παράδειγμα:
```
 
Sub Main()
	Dim Faces As Integer
	Dim Len As Double

	Len = 12.5;
	Faces = 6;
	MsgBox "Επιφάνεια = " + Str(Len * Len * Faces)
End Sub
```

Είσοδος στοιχείων

Μπορούμε να κάνουμε το πρόγραμμά μας να σταματήσει την εκτέλεσή του για να διαβάσει από το χρήστη κάποιες τιμές. Για παράδειγμα το πρόγραμμα ελέγχου μια μηχανής αυτόματης ανάληψης χρημάτων σταματά την εκτέλεσή του όταν τυπώνει την ερώτηση "Δώστε το ποσό που θέλετε να αναλάβετε" και περιμένει από το χρήστη να γράψει την αντίστοιχη τιμή.
Η συνάρτηση της Visual Basic InputBox σταματά την εκτέλεση ενός προγράμματος με ένα μήνυμα και περιμένονει ο χρήστης του να πληκτρολογήσει κάποια τιμή. Στη συνέχεια επιστρέφει την τιμή αυτή και μπορούμε να την αναθέσουμε σε μια μεταβλητή. Παράδειγμα:
```
Sub main()
    Dim Temperature As Double
    
    Temperature = InputBox("Enter temperature")
    MsgBox "The temperature is " + Str(Temperature)
End Sub
```
Παρατήρηση: αφού ο χρήστης γράψει την τιμή πρέπει να πατήσει το πλήκτρο ENTER ή να κάνει click στο πλήκτρο OK για να συνεχίσει το πρόγραμμα τη λειτουργία του.

Ασκήσεις

Είσοδος έξοδος και υπολογισμοί

Να γράψετε ένα πρόγραμμα που θα διαβάζει από το χρήστη την τιμή ενός προϊόντος με το ΦΠΑ και να τυπώνει την τιμή χωρίς το ΦΠΑ. Παράδειγμα της εκτέλεσης του πρόγραμματος:

Περιεχόμενα