Vb
-
Upload
andromachi-pieridou -
Category
Education
-
view
264 -
download
2
description
Transcript of Vb
Καθ.:Μίλτος Χαριλάου 1
Visual BasicVisual Basic
Καθ.:Μίλτος Χαριλάου 2
Ιδιότητες Name, Caption, Text, Backcolor, Font,Top, Left, Border Style, Autosize, Multiline, ScrollBar
Εργαλείο Ετικέτας - Label
Φόρμα - Form
Περιβάλλον της Visual Basic
Εργαλειοθήκη - ToolBox Παράθυρο Ιδιοτήτων - Properties Windows
Ενεργοποίηση της Visual Basic
Πλαίσιο Κειμένου - Text Box Κουμπί Διαταγής – Command Button
Καθ.:Μίλτος Χαριλάου 3
Design Mode, Run Mode
Αρχεία που δημιουργούνται με την αποθήκευση
Αποθήκευση Εργασίας
Εντολή Εκχώρησης - Assignment
Συγγραφή προγράμματος ενός αντικειμένου Μεταβλητές - Variables Σταθερές - Constants
Συνάρτηση Val()
Γεγονός Εκτέλεσης - Event Παράθυρο προγραμματισμού (Code)
Καθ.:Μίλτος Χαριλάου 4
Ενεργοποίηση της Visual Basic
Start
Programs
Microsoft Visual studio 6.0
Microsoft Visual Basic 6.0
Καθ.:Μίλτος Χαριλάου 5
New
Standard.Exe
Open
Το παράθυρο διαλόγου New Project του Project Wizard
Καθ.:Μίλτος Χαριλάου 6
Βασικά στοιχεία περιβάλλοντος της Visual Basic
Γραμμή Τίτλου(Title bar)
Γρ. Εργαλείων(Tool Bar)
Γραμμή Μενού(Menu Bar)
Φόρμα(Form)
Εργαλειοθήκη(ToolBox)
ΕξερεύνησηΕργου(Project Explorer)
ΠαράθυροΙδιοτήτων(Properties Window)
ΠαράθυροΔιάταξηςΦόρμας(Form Layout)
Καθ.:Μίλτος Χαριλάου 7
Εμφάνιση στοιχείων του περιβάλλοντος
Φόρμα (Form Layout)
Παράθυρο Ιδιοτήτων (Properties Window)
Εξερεύνηση Εργου (Project Explorer)
Εργαλειοθήκη (ToolBox)
Γραμμή Εργαλείων (ToolBar)
Καθ.:Μίλτος Χαριλάου 8
Φόρμα - FormΕίναι το βασικότερο συστατικό μίας εργασίας στη Visual Basic. Μία Εργασία μπορεί να αποτελείται από πολλές φόρμες
View / Object
Καθ.:Μίλτος Χαριλάου 9
Εργαλειοθήκη - ToolBoxΑποτελείται από διάφορα Χειριστήρια τα οποία μπορούμε να χρησιμοποιήσουμε για να δημιουργήσουμε τα Αντικείμενα πάνω στη φόρμα
View / ToolBox
ΧειριστήριοCommand Button
Καθ.:Μίλτος Χαριλάου 10
Παράθυρο ιδιοτήτων – properties WindowΔίνει τη δυνατότητα να αλλάξουμε τις τιμές των ιδιοτήτων μιας φόρμας και των αντικειμένων της.
View / properties window
Πλαίσιο επιλογής αντικειμένου
Ιδιότητες Τιμές ιδιοτήτων
Καθ.:Μίλτος Χαριλάου 11
Παράθυρο διάταξης φόρμαςForm Layout Window
Δείχνει πώς θα φαίνεται η φόρμα πάνω στην οθόνη, κατά το χρόνο της εκτέλεσης της εργασίας
View / Form Layout
Καθ.:Μίλτος Χαριλάου 12
Εργαλείο Ετικέτας - Label
Label
Είναι το εργαλείο που χρησιμοποιείται για να δημιουργήσουμε μία ετικέτα ή να γράψουμε ένα μήνυμα ή ένα αποτέλεσμα
Double click
Καθ.:Μίλτος Χαριλάου 13
Πλαίσιο Κειμένου - Text BoxΕίναι το εργαλείο το οποίο χρησιμεύει στην εισαγωγή δεδομένων , από το χρήστη, στο Run Mode
Ιδιότητα Text
Double Click
Καθ.:Μίλτος Χαριλάου 14
Κουμπί Διαταγής – Command ButtonΕίναι το εργαλείο το οποίο χρησιμεύει για την συγγραφή και εκτέλεση εντολών
Ιδιότητα Caption
Double Click
Καθ.:Μίλτος Χαριλάου 15
Ιδιότητα Name
Είναι η ιδιότητα η οποία καθορίζει το όνομα, ενός αντικειμένου, που χρησιμοποιείται στο προγραμματισμό του. Το όνομα αυτό πρέπει να είναι γραμμένο με συνεχόμενους λατινικούς χαρακτήρες. Τα τρία πρώτα γράμματα πρέπει να είναι συντομογραφία του τύπου του αντικειμένου ( lblMessage)
Καθ.:Μίλτος Χαριλάου 16
Ιδιότητα Caption
Caption
Είναι η ιδιότητα η οποία καθορίζει τον τίτλο, το όνομα που φαίνεται πάνω σε ένα αντικείμενο
Propertieswindow
Καθ.:Μίλτος Χαριλάου 17
Ιδιότητα Text
Είναι η ιδιότητα η οποία φαίνεται πάνω στο αντικείμενο. Μπορεί να την αλλάξει ο χρήστης μέσα στο Run Mode
Properties Windows
Καθ.:Μίλτος Χαριλάου 18
Ιδιότητα Border style
Η ιδιότητα κατά την οποία αλλάζει η εμφάνιση του αντικειμένου.
Border style None
Καθ.:Μίλτος Χαριλάου 19
Ιδιότητα Backcolor
Είναι η ιδιότητα η οποία καθορίζει το χρώμα που θα έχει το φόντο ενός αντικειμένου
Propertieswindow
Καθ.:Μίλτος Χαριλάου 20
Ιδιότητα Backcolor
Palette
Καθ.:Μίλτος Χαριλάου 21
Top Φόρμας
Top αντικειμένου
Left Φόρμας
Left αντικειμένου
Ιδιότητες Top, Left
Left - Απόσταση από το αριστερό άκρο της φόρμας ή της οθόνης
TOP - Απόσταση από το πάνω άκρο της φόρμας ή της οθόνης
Καθ.:Μίλτος Χαριλάου 22
Ιδιότητα Font
Ιδιότητα κατά την οποία διαμορφώνουμε τις λεζάντεςτων αντικειμένων ( Bold, italic, underline)
Καθ.:Μίλτος Χαριλάου 23
Ιδιότητα autosize
Ιδιότητα κατά την το αντικείμενο Label μεγαλώνει όσο χρειάζεται για να εμφανιστεί όλη η λεζάντα
Label1.autosize = true
Καθ.:Μίλτος Χαριλάου 24
Ιδιότητα Multiline, scrollbar
Οι ιδιότητες οι οποίες ρυθμίζονται σε true και false , αντίστοιχα, όταν το Text Box περιέχει κείμενο
Multiline true
Scrollbar Both
Καθ.:Μίλτος Χαριλάου 25
Παράθυρο προγραμματισμού (Code)Είναι το παράθυρο μέσα στο οποίο μπορούμε να προγραμματίσουμε τη φόρμα η τα αντικείμενα.
Περιοχή Συγγραφής προγράμματος
Πλαίσιο Επιλογήςαντικειμένου
Πλαίσιο Επιλογήςγεγονότος
Καθ.:Μίλτος Χαριλάου 26
Συγγραφή προγράμματος ενός αντικειμένου
Επικεφαλίδαπρογράμματος
Τέλοςπρογράμματος
Εντολέςπρογράμματος
View / Code
Καθ.:Μίλτος Χαριλάου 27
Εντολή Εκχώρησης - AssignmentΕίναι η εντολή η οποία χρησιμοποιείται για να δώσει ή να αλλάξει την τιμή μιας μεταβλητής ή μιας ιδιότητας
Α μέρος = Β μέρος
Ιδιότητα η μεταβλητή
Τιμή
Σύμβολο εκχώρησης
Το Β μέρος αποθηκεύεται στο Α μέρος
Καθ.:Μίλτος Χαριλάου 28
Αλλαγή ιδιοτήτων κατά την εκτέλεση ενός προγράμματος
lblMessage . Caption = "Hello Word"
Name.Ιδιότητα = νέα τιμή
Form1 . BackColor = QBColor(1)
Name Ιδιότητα Νέα τιμή
Καθ.:Μίλτος Χαριλάου 29
Συνάρτηση Val()Είναι η συνάρτηση κατά την οποία τα αλφαριθμητικά δεδομένα ενός text box μετατρέπονται σε αριθμητικά έτσι ώστε να μπορέσουν να υποστούν μία αριθμητική πράξη.
text3.text = text1.text+text2.text
Run Mode
Καθ.:Μίλτος Χαριλάου 30
Συνάρτηση Val() (συνέχεια)
text3.text = Val(text1.text)+Val(text2.text)
Run Mode
Καθ.:Μίλτος Χαριλάου 31
ΜΕΤΑΒΛΗΤΕΣ ΚΑΙ ΣΤΑΘΕΡΕΣ
Μεταβλητές (variables) είναι θέσεις μνήμης, οι οποίες περιέχουν δεδομένα τα οποία αλλάζουν κατά την εκτέλεση του προγράμματος. Συνήθως στις μεταβλητές αποθηκεύουμε τα περιεχόμενα των Text Box. Σταθερές (constants) είναι θέσεις μνήμης , οι οποίες περιέχουν δεδομένα τα οποία δεν αλλάζουν κατά την εκτέλεση του προγράμματος.
689688687
686685684
Μνήμη RAMΔιεύθυνση μνήμης
Θέση μνήμης
Καθ.:Μίλτος Χαριλάου 32
Το όνομα αποτελείται από 1 – 256 συνεχόμενους λατινικούς χαρακτήρες.Αρχίζει πάντα από γράμμα αλλά μπορεί να περιέχει και αριθμούςΑπαγορεύετε η χρήση συμβόλων όπως \, -,#,$, /, .
Αν αποτελείται από δύο λέξεις πρέπει να χωρίζονται όχι με Space αλλά ως εξής: Net_Salary
Απαγορεύεται η χρήση δεσμευμένων λέξεων όπως Caption.
Κανόνες ονομασίας μεταβλητών και σταθερών
ΜΕΤΑΒΛΗΤΕΣ ΚΑΙ ΣΤΑΘΕΡΕΣΟταν θα δηλωθεί μία μεταβλητή ή μία σταθερά, η Visual Basic κρατεί ένα χώρο στη μνήμη, στον οποίο δίνει ένα όνομα. Το όνομα αυτό ονομάζεται αναγνωριστικό (Identifier). Τα ονόματα των αναγνωριστικών θα πρέπει να προσδιορίζονται σύμφωνα με τους κανόνες της VB.
Καθ.:Μίλτος Χαριλάου 33
ΔεδομέναΤύπος Δεδομένου
Boolean Αληθής ή Ψευδής
Currency Πραγματικός αριθμός
Integer Ακέραιος αριθμός (-32,768 μέχρι 32,768)
Long Μεγάλος ακέραιος αριθμός (10 ψηφία)
String Αλφαριθμητικά δεδομένα
Τύπος δεδομένων μεταβλητών
Καθ.:Μίλτος Χαριλάου 34
Κανόνες ονομασίας μεταβλητών στη Visual Basic
Το πρώτο γράμμα αρχίζει με συντομογραφία του τύπου δεδομένων
και το υπόλοιπο όνομα αρχίζει με κεφαλαίο και έχει σχέση με το περιεχόμενο το οποίο θα αποθηκεύσει.
Stringst
Integeri
Currencyc
Booleanb
ΤΥΠΟΣ ΔΕΔΟΜΕΝΩΝΣΥΝΤΟΜΟΓΡΑΦΙΑ
Καθ.:Μίλτος Χαριλάου 35
ΔΕΔΟΜΕΝΑ Όνομα ενός υπαλλήλου
Ώρες εργασίας
Αριθμός
Ποσότητα
Ποσοστό φορολογίας
ΜΕΤΑΒΛΗΤΕΣ
stName
cHours_Worked
iNumber
cquantity
cTax_RATE
ΠΑΡΑΔΕΙΓΜΑΤΑ ΑΝΑΓΝΩΡΙΣΤΙΚΩΝ
ΜΕΤΑΒΛΗΤΩΝ
Καθ.:Μίλτος Χαριλάου 36
Για τη δήλωση μεταβλητών χρησιμοποιείται ο πιο κάτω τύπος:
ΔΗΛΩΣΗ ΜΕΤΑΒΛΗΤΩΝ
Dim Identifier As Datatype
Π.χ
Dim stName As String
Dim iΝumber As Integer
Dim cQuantity As Currency
Δεσμευμένηλέξη
ΌνομαΜεταβλητής
ΤύποςΜεταβλητής
Καθ.:Μίλτος Χαριλάου 37
Για τη δήλωση σταθερών χρησιμοποιείται ο πιο κάτω τύπος:
ΔΗΛΩΣΗ ΣΤΑΘΕΡΩΝ
Const Identifier As Datatype = Value
Π.χ
Const stComany_name As String = ‘ABC Imports Ltd’
Const cSales_tax As Currency = 0.10
Const cPi As Currency = 3.14
Δεσμευμένηλέξη
ΌνομαΣταθεράς
ΤύποςΣταθεράς
ΤιμήΣταθεράς
Καθ.:Μίλτος Χαριλάου 38
ΑΡΙΘΜΗΤΙΚΕΣ ΠΡΑΞΕΙΣ
Πρόσθεση
Αφαίρεση
+
-
4
Πολλαπλασ.
Διαίρεση
*
/
3
Δύναμη^2
Παρένθεση( )1
ΠράξηΤελεστήςΠροτεραιότητα
14 + 5 * 2 / ( 10 - 2^3) – 3 * 5 = 1 4 +10 / 2 – 15 = 14 + 5 – 15 = 4
Καθ.:Μίλτος Χαριλάου 39
Label1
Label2
Label3
Label4
cmdSubtract
cmdAddition
cmdDivision
cmdMultiply
cmdExit
cmdClear
lblResult
txtSecond
txtFirst
ΠΑΡΑΔΕΙΓΜΑ
Καθ.:Μίλτος Χαριλάου 40
ΘΑ ΔΗΜΙΟΥΡΓΗΣΟΥΜΕ ΤΡΕΙΣ ΜΕΤΑΒΛΗΤΕΣ
Για το κουμπί της πρόσθεσης
cNum1……………..Αποθηκεύει...........Text1 cNum1 = Val( txtFirst.Text )
cNum2…………….. Αποθηκεύει...........Text2
cResult…………… Αποθηκεύει...........Text1+text2
cNum2 = Val( txtSecond.Text )
cResult = cNum1 + cNum2
Tο αποτέλεσμα θα εμφανιστεί μέσα στο Label4 ( lblResult ) με τη παρακάτω εντολή:
lblResult . caption = cResult
Καθ.:Μίλτος Χαριλάου 41
Κατάσταση σχεδιασμού έργου - Design Mode
Είναι το περιβάλλον της Visual Basic στο οποίο ο προγραμματιστής δημιουργεί το έργο
Κατάσταση εκτέλεσης έργου - Run ModeΕίναι το περιβάλλον της Visual Basic στο οποίο εκτελείται το έργο από το χρήστη.
Μετακίνηση Design Mode από σε Run Mode
F5 ( Keyboard ) Run / Start ( Menu Bar ) ( ToolBar )
Καθ.:Μίλτος Χαριλάου 42
Αποθήκευση έργου
File / Save Project ( Menu Bar )
( ToolBar )
Αποθήκευση Φόρμας Αποθήκευση Έργου
Καθ.:Μίλτος Χαριλάου 43
Αρχεία τα οποία δημιουργούνται με την αποθήκευση
Αρχείο Φόρμας ( . frm )
Αρχείο Project ( . vbp )
Αρχείο workspace ( . vbw )
Καθ.:Μίλτος Χαριλάου 44
Άνοιγμα αρχείου της Visual Basic
Χρήση εικονιδίου Project
Καθ.:Μίλτος Χαριλάου 45
Άνοιγμα αρχείου της Visual Basic
Χρήση Menu Bar
Open / Project
Καθ.:Μίλτος Χαριλάου 46
Εκτέλεση Φύλλου Εργασίας 1 στον Η.Υ
Εκτέλεση Ασκήσεων 1 και 2
Καθ.:Μίλτος Χαριλάου 47
Αλγόριθμοι - Λογικά Διαγράμματα
Στάδια για την λύση ενός προβλήματος με την βοήθεια του Η.Υ.
Καθ.:Μίλτος Χαριλάου 48
ΣΤΑΔΙΑ ΓΙΑ ΤΗ ΛΥΣΗ ΕΝΟΣ ΠΡΟΒΛΗΜΑΤΟΣ ΜΕ ΤΗ ΒΟΗΘΕΙΑ Η.Υ
ΚΑΘΟΡΙΣΜΟΣ ΔΕΔΟΜΕΝΩΝ ΚΑΙ ΖΗΤΟΥΜΕΝΩΝ
ΜΕΘΟΔΟΙ ΕΠΕΞΕΡΓΑΣΙΑΣ
ΣΥΝΤΑΞΗ ΑΛΓΟΡΙΘΜΟΥ
Καθ.:Μίλτος Χαριλάου 49
ΓΕΝΙΚΑ ΠΕΡΙ ΠΡΟΓΡΑΜΜΑΤΙΣΜΟΥ
ΚΩΔΙΚΟΠΟΙΗΣΗ
ΕΛΕΓΧΟΣ ΑΠΟΤΕΛΕΣΜΑΤΩΝ
ΑΞΙΟΛΟΓΗΣΗ
Καθ.:Μίλτος Χαριλάου 50
ΑΛΓΟΡΙΘΜΟΙ
ΑΛΓΟΡΙΘΜΟΣ ΕΙΝΑΙ ΜΙΑΣΕΙΡΑ ΑΠΟ ΟΔΗΓΙΕΣ
ΣΕ ΛΟΓΙΚΗ ΣΕΙΡΑ ΓΙΑ ΤΗ ΛΥΣΗ ΕΝΟΣ ΠΡΟΒΛΗΜΑΤΟΣ.
Καθ.:Μίλτος Χαριλάου 51
ΟΙ ΟΔΗΓΙΕΣ ΜΠΟΡΟΥΝ ΝΑ ΔΟΘΟΥΝΑ) ΣΕ ΛΕΚΤΙΚΗ ΜΟΡΦΗ
(ΨΕΥΔΟΚΩΔΙΚΑΣ)
Β) ΣΕ ΣΧΗΜΑΤΙΚΗ ΜΟΡΦΗ (ΛΟΓΙΚΑ ΔΙΑΓΡΑΜΜΑΤΑ).
ΑΛΓΟΡΙΘΜΟΙΑΛΓΟΡΙΘΜΟΙ
Καθ.:Μίλτος Χαριλάου 52
ΛΟΓΙΚΑ ΔΙΑΓΡΑΜΜΑΤΑ
ΑΡΧΗ / ΤΕΛΟΣ
ΕΠΕΞΕΡΓΑΣΙΑ
ΓΕΩΜΕΤΡΙΚΑ ΣΧΗΜΑΤΑ ΑΛΓΟΡΙΘΜΩΝ
Καθ.:Μίλτος Χαριλάου 53
ΕΚΤΕΛΕΣΗ ΥΠΟΠΡΟΓΡΑΜΜΑΤΟΣ
ΕΙΣΟΔΟΣ / ΕΞΟΔΟΣ ΠΛΗΡΟΦΟΡΙΩΝ / ΔΕΔΟΜΕΝΩΝ
ΛΟΓΙΚΑ ΔΙΑΓΡΑΜΜΑΤΑΛΟΓΙΚΑ ΔΙΑΓΡΑΜΜΑΤΑ
Καθ.:Μίλτος Χαριλάου 54
ΛΟΓΙΚΑ ΔΙΑΓΡΑΜΜΑΤΑ
ΕΛΕΓΧΟΣ ΣΥΝΘΗΚΗΣ
ΣΥΝΔΕΣΜΟΣ
ΡΟΗ ΠΛΗΡΟΦΟΡΙΩΝ
Καθ.:Μίλτος Χαριλάου 55
askiseis_logika_diagrams_1.ppt
Καθ.:Μίλτος Χαριλάου 56
Υπάρχουν προβλήματα τα οποία για να λυθούν απαιτείται η λήψη αποφάσεων, με βάση μία ή περισσότερες συνθήκες.
Καθ.:Μίλτος Χαριλάου 57
Δομή διακλάδωσης
Χρήση της εντολής
Ένθετη Δομή διακλάδωσης (nested)
Παραδείγματα.
If / Then / Else / End If
If / Then / Elseif / End If
Καθ.:Μίλτος Χαριλάου 58
Δομή διακλάδωσηςΤύπος Α
If <Συνθήκη> Then<Διαδικασία 1>
Else<Διαδικασία 2>
End If<Επόμενη εντολή>
Συνθήκη
Επόμενη εντολή
ψευδής αληθής
Διαδικασία 2 Διαδικασία 1
Λογικό Διάγραμμα Πρόγραμμα στη Visual Basic
Καθ.:Μίλτος Χαριλάου 59
Δομή διακλάδωσηςΤύπος Β
If <Συνθήκη> Then<Διαδικασία 1>
End If<Επόμενη εντολή>
Λογικό Διάγραμμα Πρόγραμμα στη Visual Basic
Συνθήκη
Επόμενη εντολή
ψευδής
αληθής
Διαδικασία 1
Καθ.:Μίλτος Χαριλάου 60
Συνθήκη: μπορεί να είναι μία μεταβλητή τύπου Boolean η μία παράσταση της οποίας η τιμή να είναι Αληθής (True) ή Ψευδής (False). Η συνθήκη μπορεί να είναι απλή η σύνθετη.
Διαδικασία: είναι μία η περισσότερες εντολές που εκτελούνται μετά από τον έλεγχο μίας συνθήκης
Συνθήκη / Διαδικασία
Καθ.:Μίλτος Χαριλάου 61
Συνθήκη Συνθήκη με μεταβλητή
Παραδείγματα:
Συνθήκη με παράσταση
Παραδείγματα:
If bStock = True Then
If bStock Then
If iAge>18 Then
If stName=“Μαρία” Then
Καθ.:Μίλτος Χαριλάου 62
=><<=>=>=<>
Για τη δημιουργία μίας παράστασης χρησιμοποιούνται οι παρακάτω τελεστές:
bAns = trueiAmount > 5000cVote < 9.33iCount <= 100cAverage >= cMesosiNum1 >= iNum2stFirma <> “Reebok”
Τελεστές Συνθήκες
Συνθήκη με παράσταση
Καθ.:Μίλτος Χαριλάου 63
Σύνθετη Συνθήκη: Είναι η συνθήκη η οποία αποτελείται από δύο η περισσότερες παραστάσεις οι οποίες συνδέονται μεταξύ τους με τους Λογικούς Τελεστές AND, OR, NOT
OR – Η συνθήκη είναι True όταν έστω και μία παράσταση είναι True
AND – Η συνθήκη είναι True όταν είναι και οι δύο παραστάσεις True
NOT – Οταν η συνθήκη ή η παράσταση είναι True τότε θα γίνει False και αντίθετα
Καθ.:Μίλτος Χαριλάου 64
Πίνακας Λογικών πράξεων
TrueFalseFalseFalseFalse
TrueTrueFalseTrueFalse
FalseTrueFalseFalseTrue
FalseTrueTrueTrueTrue
NOT(Παρ.1)ORANDΠαράσταση2Παράσταση1
Παραδείγματα
(cAge < 18) AND (height >160)(stTeam = “Αμμόχωστος”) OR (stTeam = “Famagusta”)NOT( stAns = “Yes”)
Καθ.:Μίλτος Χαριλάου 65
Προτεραιότητα Λογικών Τελεστών
1 NOT 2 AND3 OR
Πχ. True AND False OR NOT(True)F
F
F
True OR False AND NOT(True)F
F
T
(= False)
(= True)
Καθ.:Μίλτος Χαριλάου 66
Ένθετη Δομή (nested)
If <Συνθήκη1> Then
<Διαδικασία1>
ElseIf <Συνθήκη2> Then
<Διαδικασία2>
Else <Διαδικασία3>
End If
<Επόμενη εντολή>
Λογικό Διάγραμμα Πρόγραμμα στη Visual Basic
Συνθήκη1
Επόμενη εντολή
ψευδής
αληθής
Διαδικασία 2
Διαδικασία 1
Συνθήκη2
αληθής
ψευδής
Διαδικασία 3
Καθ.:Μίλτος Χαριλάου 67
iFirst = iSecond False
iThird < 0 True
iSecond > iFirst False
iThird <= iSecond True
iFirst >= 5 True
iFirst <> iThird True
Σύγκριση αριθμητικών μεταβλητών και σταθερών
iFirst = 5, iSecond = 4, iThird = -5
Συνθήκη Τιμή
Καθ.:Μίλτος Χαριλάου 68
Private Sub cmdColor_Click() Dim iColor As Integer iColor = val(txtColor.Text) If iColor >= 0 And iColor <= 15 Then Form1.BackColor = QBColor(iColor) lblMessage.BackColor = QBColor(iColor) lblError.Visible = False Else lblError.Visible = True End IfEnd Sub
Παράδειγμα
Παράδειγμα
Καθ.:Μίλτος Χαριλάου 69
Περιπτωσιακή δομή (Δομή Πολλαπλής Επιλογής)
Έκφραση Επιλογής
(Μεταβλητή)
Τιμή Α Τιμή Β Τιμή Γ..Ζ Τιμή Η..Ν Αλλιώς
Εντολές Εντολές Εντολές Εντολές Εντολές
Επόμενη Εντολή
Καθ.:Μίλτος Χαριλάου 70
Εντολή Select Case / End Select
Select Case <Μεταβλητή>
Case <Τιμή 1>
<Διαδικασία 1>
Case <Τιμή 2>
<Διαδικασία 2>
:
Case Else
<Διαδικασία Ν>
End Select
Καθ.:Μίλτος Χαριλάου 71
Παράδειγμα Περιπτωσιακής ΔομήςSelect Case ivathmos
Case 1,2,3,4,5,6,7,8,9
Msgbox ¨Επίδοση Κακή!¨
Case 10 Το 12
Msgbox ¨Επίδοση Μέτρια!¨
Case Is >= 13 And ivathmos <= 15
Msgbox ¨Επίδοση Καλή!¨
:
Case Else
Msgbox ¨Λάθος βαθμός!¨
End Select
Καθ.:Μίλτος Χαριλάου 72
Παράθυρο Μηνυμάτων (Συνάρτηση) MsgBox
Συνάρτηση IsNumeric
Καθ.:Μίλτος Χαριλάου 73
Το παράθυρο μηνυμάτων (συνάρτηση) MsgBox μπορεί να χρησιμοποιηθεί για να παρουσιαστεί κάποιο μήνυμα προς τον χρήστη.
Παράθυρο Μηνυμάτων (Συνάρτηση) MsgBox
Παράδειγμα:
MsgBox “Ο βαθμός να είναι από το 1 μέχρι το 20”
Καθ.:Μίλτος Χαριλάου 74
Η συνάρτηση IsNumeric ελέγχει την τιμή που θα βάλει ο χρήστης σε ένα TextBox αν είναι αριθμός (και όχι γράμματα) ώστε να μπορεί να χρησιμοποιηθεί σε υπολογισμούς, αφού πρώτα μετατραπεί η τιμή από αλφαριθμητική σε αριθμητική. Η συνάρτηση αυτή βοηθά στο να αποφεύγονται προβλήματα στις διαδικασίες οι οποίες περιέχουν υπολογισμούς.
Συνάρτηση IsNumeric
Καθ.:Μίλτος Χαριλάου 75
If IsNumeric(txtKivismos.text) then
cKivismos = Val(txtKivismos.text)
Else
MsgBox “Λάθος. Ο κυβισμός πρέπει να είναι αριθμός”
End if
Συνάρτηση IsNumeric (Συνέχεια)
Παράδειγμα
Καθ.:Μίλτος Χαριλάου 76
1. Εκτέλεση Φύλλου Εργασίας 2 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2, 3, 4, 5
3. Arithmitikes_Logikes_Praxeis
4. Askiseis_domi_diakladosis.doc
5. Askiseis_entheti_domi_diakladosis.doc
Καθ.:Μίλτος Χαριλάου 77
Εντολή Επανάληψης For / Next
Συνάρτηση InputBox
Καθ.:Μίλτος Χαριλάου 78
Λογικό Διάγραμμα
For I=A.T To T.T
<Εντολές επανάληψης>
Next I
<Επόμενη εντολή>
Εντολή στην Visual Basic
Εντολή Επανάληψης For / Next
Αληθής
Ψευδής
Ι<=Τ.Τ
Εντολές επανάληψης
Επόμενη εντολή
I Α.Τ
Ι Ι+1
Καθ.:Μίλτος Χαριλάου 79
H μεταβλητή Ι παίρνει μία Αρχική τιμή (Α.Τ) και ελέγχεται αν η τιμή αυτή είναι μικρότερη ή ίση από την Τελική Τιμή (Τ.Τ).
Αν αυτό ισχύει τότε εκτελούνται οι εντολές της επανάληψης και αυτόματα το Ι αυξάνεται κατά μία μονάδα. Αυτό επαναλαμβάνεται μέχρις ότου το Ι να πάρει τιμή μεγαλύτερη από την Τ.Τ
Οι βρόγχοι FOR….NEXT
Καθ.:Μίλτος Χαριλάου 80
Παράδειγμα 1
Να σχεδιάσετε ένα λογικό διάγραμμα και να γράψετε το πρόγραμμα στη Visual Basic όπου θα προσθέτει τους αριθμούς από το 1 μέχρι το 10 και θα παρουσιάζει το άθροισμα τους. (Να χρησιμοποιηθεί το μήνυμα : ‘Το άθροισμα των αριθμών από το 1 μέχρι το 10 : ’
Καθ.:Μίλτος Χαριλάου 81
Λογικό Διάγραμμα
iSum = 0
For iMetritis=1 To 10
iSum = iSum + iMetritis
Next iMetritis
Print “Το άθροισμα είναι:” ; iSum
Κωδικός στην Visual Basic
Εντολή Επανάληψης For / Next
Αληθής
Ψευδής
iMetritis <=10
iSum iSum + iMetritis
iMetritis 1iSum 0
iMetritis iMetritis + 1
Αρχή
Τέλος
Τύπωσε iSum
Καθ.:Μίλτος Χαριλάου 82
Συνάρτηση InputBoxΣυνάρτηση είναι μία εντολή (μικρό πρόγραμμα) που εκτελεί κάποια σημαντική εργασία και στη συνέχεια επιστρέφει στο κυρίως πρόγραμμα (εκεί που έχει καλεστεί), ένα αποτέλεσμα.
Η συνάρτηση InputBox εμφανίζει ένα διαλογικό παράθυρο που
περιέχει ένα πλαίσιο κειμένου και δύο πλήκτρα διαταγής, το ok και
το Cancel. Ο χρήστης πρέπει να συμπληρώσει το πλαίσιο κειμένου και να κάνει κλικ σε ένα από τα δύο πλήκτρα. Η τιμή που επιστρέφει η συνάρτηση με επιλογή ok είναι ακριβώς το περιεχόμενο του πλαισίου κειμένου, ενώ η επιλογή του πλήκτρου Cancel επιστρέφει τη μηδενική συμβολοσειρά (“”). Η γενική
μορφή της συνάρτησης InputBox είναι:
InputBox(μήνυμα, τίτλος, προεπιλογή, x, y)
Η μόνη υποχρεωτική παράμετρος είναι το μήνυμα.
Καθοδηγητικό κείμενο
Τίτλος
παραθύρου Προκαθορισμένη
Απάντηση
Συντεταγμένες
Μηνύματος
Καθ.:Μίλτος Χαριλάου 83
Παράδειγμα
ΔιαλογικόΠαράθυροInputBox
Καθ.:Μίλτος Χαριλάου 84
1. Εκτέλεση Φύλλου Εργασίας 3 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2, 3
Καθ.:Μίλτος Χαριλάου 85
Δημιουργία αντικειμένου τύπου Shape στη Visual Basic.
Ιδιότητες Shape, Top, Left.
Εντολή Do / While / Loop
Καθ.:Μίλτος Χαριλάου 86
Αντικείμενο Τύπου Shape
Double Click
Καθ.:Μίλτος Χαριλάου 87
Ιδιότητα ShapeΕπιλογή σχήματος
Καθ.:Μίλτος Χαριλάου 88
Top Φόρμας
Top αντικειμένου
Left Φόρμας
Left αντικειμένου
Ιδιότητες Top, LeftΑπόσταση από το πάνω και αριστερό άκρο της φόρμας η της οθόνης
Καθ.:Μίλτος Χαριλάου 89
Μετακίνηση αντικειμένων στην οθόνη: Με αλλαγή των ιδιοτήτων
Left και Top στο παράθυρο
ιδιοτήτων (Designe Mode)
Αλλαγή κατά την εκτέλεση προγράμματος (Run Mode)
Private Sub Form_Load()
Form1.Left = Form1.Left + 100
Form1.Top = Form1.Top + 300
Shape1.Top = Shape1.Top + 100
Shape1.Left = Shape1.Left + 200
End Sub
Καθ.:Μίλτος Χαριλάου 90
Επαναληπτική δομή
Έλεγχοςτης
συνθήκης
Εντολές επανάληψης
Επόμενηεντολή
Λογικό Διάγραμμα
Do While <Συνθήκη>
<Εντολές επανάληψης>
Loop
<Επόμενη εντολή>
Εντολή στην Visual Baic
Ψευδής
Καθ.:Μίλτος Χαριλάου 91
Οι βρόγχοι Do While -Loop
Οι βρόγχοι Do While δεν κάνουν τίποτε αν δεν ελέγξουν προηγουμένως αν είναι αληθής κάποια συνθήκη. Αν η συνθήκη είναι αληθής, ο βρόγχος Do While εκτελεί τις εντολές επανάληψης. Αλλιώς, το πρόγραμμα της Visual Basic θα προχωρήσει στην επόμενη εντολή.
Καθ.:Μίλτος Χαριλάου 92
Η συνθήκη είναι μία παράσταση της οποίας η τιμή είναι True η False. Μπορεί να είναι απλή η σύνθετη.
isum_peritton = 0
iCount = 1
Do While (iCount >= 1) and (iCount <= 15)
iSum_peritton = isum_peritton + iCount
iCount = iCount + 2
Loop
Lblapotelesma.caption = iSum_peritton
Παράδειγμα1
Καθ.:Μίλτος Χαριλάου 93
Dim iCount As Integer
iCount = 1
Do while iCount < 8
shpMove.Left = shpMove.left + 300
shpMove.Top = shpMove.Top + 300
iCount = iCount + 1
Loop
Παράδειγμα2 Παράδειγμα1
Καθ.:Μίλτος Χαριλάου 94
1. Εκτέλεση Φύλλου Εργασίας 4 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2, 3, 4, 5
Καθ.:Μίλτος Χαριλάου 95
Για τον τελικό έλεγχο του αλγόριθμου, πριν από την κωδικοποίηση και εκτέλεση του σε Η.Υ., καθώς επίσης τον έλεγχο του προγράμματος ή μέρος του προγράμματος μετά την κωδικοποίηση, χρησιμοποιείται η Προκαταρτική Εκτέλεση (Dry Run). Με αυτή ο προγραμματιστής εκτελεί βήμα προς βήμα τις εντολές, όπως θα τις εκτελούσε ο Η.Υ., και σημειώνει τις τιμές των μεταβλητών, των συνθηκών και των αποτελεσμάτων σε ένα πίνακα.
ΠΡΟΚΑΤΑΡΤΙΚΗ ΕΚΤΕΛΕΣΗ (Dry Run)
Καθ.:Μίλτος Χαριλάου 96
Αρχή
iY 5
Τύπωσε iK
Τέλος
iX 3
iK iX + iY
ΠΡΟΚΑΤΑΡΤΙΚΗ ΕΚΤΕΛΕΣΗ (Dry Run) – Παράδειγμα 1
iΧ iY iΚ Αποτέλεσμα
3 5 8 8
Μεταβλητές
Καθ.:Μίλτος Χαριλάου 97
Αρχή
iY 5
Τύπωσε iK
Τέλος
iX 3
iK iX + iY
ΠΡΟΚΑΤΑΡΤΙΚΗ ΕΚΤΕΛΕΣΗ (Dry Run) – Παράδειγμα 2
iΧ iY iΚ Αποτέλεσμα
3 5 6
iY iY - 2
3 6
Μεταβλητές
Καθ.:Μίλτος Χαριλάου 98
iNum2iSum Αποτ.
3
iNum1 iNum2α) 10 7β) 5 13γ) 4 4
3, 10
13 18 18, 5
7
iNum1
10
Τέλος
iNum1 > iNum2ΑληθήςΨευδής
Τύπωσε iSum , iNum1
Αρχή
Τύπωσε ‘Δώστε δύο αριθμούς’
ΔιάβασεiNum1, iNum2
iSum = iNum1 - iNum2iSum = iNum1 + iNum2
5
4 4 8 8, 4
ΠΡΟΚΑΤΑΡΤΙΚΗ ΕΚΤΕΛΕΣΗ (Dry Run) – Παράδειγμα 3
Μεταβλητές Συνθήκη
Α/ΨiNum1>iNum2
10 > 7 Α
5 > 13
4 > 4
Ψ
Ψ
Δώστε δύο αριθμούς
Δώστε δύο αριθμούς
Δώστε δύο αριθμούς
Καθ.:Μίλτος Χαριλάου 99
:
iX = 5
iY = 6
Do While iY >= 3
iX = iX + iY
iY = iY – 2
iK = iX
Loop
Lblapotelesma.caption = iK
:
ΠΡΟΚΑΤΑΡΤΙΚΗ ΕΚΤΕΛΕΣΗ (Dry Run) – Παράδειγμα 4
iΧ iY iΚ
5 6
11 4
Αποτέλεσμα
11
15 2 15 15
Μεταβλητές Συνθήκη
Α/ΨiY >= 3
6 >= 3
4 >= 3
2 >= 3
Α
Α
Ψ
Καθ.:Μίλτος Χαριλάου 100
Εκτέλεση Φύλλου Εργασίας prokatartiki_algorith
Καθ.:Μίλτος Χαριλάου 101
Χειριστήριο πλαισίου
Frame
Χειριστήριο πλαισίου ελέγχου
Check Box
Χειριστήριο κουμπιών ελέγχου
Option Buttons
Καθ.:Μίλτος Χαριλάου 102
Παράδειγμα
Καθ.:Μίλτος Χαριλάου 103
Καθ.:Μίλτος Χαριλάου 104
Δίνει τη δυνατότητα στο χρήστη να επιλέξει η να ακυρώσει μία επιλογή. Συνήθως ομαδοποιούνται μέσα σε ένα Frame. Μπορούν να είναι ταυτόχρονα επιλεγμένα ένα ή περισσότερα αντικείμενα ελέγχου.
Πλαίσια Ελέγχου (Check Boxes)
Ιδιότητα Value
Value = 0 ( μη επιλεγμένο)
Value = 1 (επιλεγμένο)
Value = 2 ( απενεργοποιημένο)
Καθ.:Μίλτος Χαριλάου 105
Δίνει τη δυνατότητα στο χρήστη να επιλέξει η να ακυρώσει μία επιλογή. Συνήθως ομαδοποιούνται μέσα σε ένα Frame. Μόνο ένα αντικείμενο μπορεί να είναι επιλεγμένο.
Κουμπιά Ελέγχου (Option Buttons)
Ιδιότητα Value
Value = False ( μη επιλεγμένο)
Value = True (επιλεγμένο)
Καθ.:Μίλτος Χαριλάου 106
Χώροι ομαδοποίησης αντικειμένων (ως επί το πλείστο του ιδίου τύπου) που υπόκεινται στους ίδιους κανόνες.
Πλαίσια (Frames)
Καθ.:Μίλτος Χαριλάου 107
lblMessage.Font.Italic = chkItalic.Value
lblMessage.ForeColor = vbBlue
Εντολές
optBlue.value = True
chkItalic.value = 1
Καθ.:Μίλτος Χαριλάου 108
Ασκηση στο φύλλο εργασίας
Καθ.:Μίλτος Χαριλάου 109
1. Εκτέλεση Φύλλου Εργασίας 5 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2
Καθ.:Μίλτος Χαριλάου 110
Χειριστήριο πλαισίου καταλόγου
List Box
Περιπτωσιακή δομή (Select Case / End Select)
Χειριστήριο Σύνθετου Πλαισίου
Combo Box
Καθ.:Μίλτος Χαριλάου 111
Δίνει τη δυνατότητα στο χρήστη να επιλέξει ένα στοιχείο μέσα σε ένα κατάλογο από στοιχεία.
Πλαίσιο Καταλόγου (List Box)
Ιδιότητα (List) Δίνει τη δυνατότητα στο χρήστη να συμπληρώσει τα στοιχεία του καταλόγου. Για να συμπληρώσουμε το επόμενο στοιχείο πατούμε τα πλήκτρα ENTER + CTRL
ENTER + CTRL
Καθ.:Μίλτος Χαριλάου 112
Πλαίσιο Καταλόγου (List Box)
Ιδιότητα ListIndex
List1.ListIndex = 0 (Επιλεγμένο το πρώτο στοιχείο)
List1.ListIndex = 1 (Επιλεγμένο το δεύτερο στοιχείο)
List1.ListIndex = 2 (Επιλεγμένο το τρίτο στοιχείο)
Καθ.:Μίλτος Χαριλάου 113
List1.List(List1.ListIndex) = “Λάρνακα”
Εντολές
List1.ListIndex = 3
Ιδιότητα List1.List(ListIndex)
List1.List(ListIndex) = “Test”
List1.List( 0 ) = “Βαρώσι”
Καθ.:Μίλτος Χαριλάου 114
Δίνει τη δυνατότητα στο χρήστη να επιλέξει ένα στοιχείο μέσα σε ένα κατάλογο από στοιχεία.
Σύνθετα Πλαίσια (Combo Boxes)
Ιδιότητα (List) Δίνει τη δυνατότητα στο χρήστη να συμπληρώσει τα στοιχεία του Σύνθετου Πλαισίου. Για να συμπληρώσουμε το επόμενο στοιχείο πατούμε τα πλήκτρα ENTER + CTRL
ENTER + CTRL
Ιδιότητα (Text) Δίνει τη δυνατότητα στο χρήστη να δώσει ένα “τίτλο” στο Σύνθετο Πλαίσιο
Καθ.:Μίλτος Χαριλάου 115
Σύνθετα Πλαίσια (Combo Boxes)
Ιδιότητα ListIndex
Combo1.ListIndex = 0 (Επιλεγμένο το πρώτο στοιχείο)
Combo1.ListIndex = 1 (Επιλεγμένο το δεύτερο στοιχείο)
Combo1.ListIndex = 2 (Επιλεγμένο το τρίτο στοιχείο)
Καθ.:Μίλτος Χαριλάου 116
Combo1.List(Combo1.ListIndex) = “Επιταγή”
Εντολές
Combo1.ListIndex = 2
Ιδιότητα Combo1.List(ListIndex)
Combo1.List(ListIndex) = “Test”
Combo1.List( 0 ) = “Cash”
Καθ.:Μίλτος Χαριλάου 117
Εντολή AddItem (Μέθοδος)
Private Sub Form_Load()
List1.AddItem “Ελλάδα”
List1.AddItem “Ιταλία”
List1.AddItem “Γερμανία”
List1.AddItem “Αυστρία”
End Sub
Η εντολή (Μέθοδος) AddItem προσθέτει στοιχεία σε ένα πλαίσιο καταλόγου (List Box) ή σε ένα ένθετο πλαίσιο (Combo Box). Οι λέξεις που περικλείονται σε εισαγωγικά θα προστεθούν και εμφανιστούν στο πλαίσιο καταλόγου ή το ένθετο πλαίσιο.
Καθ.:Μίλτος Χαριλάου 118
1. Εκτέλεση Φύλλου Εργασίας 6 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2
Καθ.:Μίλτος Χαριλάου 119
Εκτέλεση Φύλλων Εργασίας :α. Fyllo_ergasias_For-Next1
β. Fyllo_ergasias_Do-While
γ. Fyllo_ergasias_validation
Καθ.:Μίλτος Χαριλάου 120
Εντολή Print
Εντολές CurrentX, CurrentY
Δημιουργία πίνακα μεταβλητών
Εντολή Cls
Καθ.:Μίλτος Χαριλάου 121
Εντολή PrintH εντολή Print χρησιμοποιείται είτε για να τυπώνει τη φόρμα στον εκτυπωτή, είτε για να τυπώνει πάνω στη φόρμα μηνύματα, είτε για να τυπώνει το περιεχόμενο κάποιων μεταβλητών.
Παραδείγματα
PrintForm
Print “Hello”
Print “hello” ; ”Word”
Print stName
Print “Το όνομα είναι: ” ; stName; ” “ ; stSurname
τυπώνει τη φόρμα στον εκτυπωτή
τυπώνει πάνω στη φόρμα το μήνυμα “Hello”
τυπώνει το περιεχόμενο της μεταβλητής stName
Καθ.:Μίλτος Χαριλάου 122
Εντολή Cls
Η εντολή Cls χρησιμοποιείται για να καθαρίζει τα αποτελέσματα των προηγούμενων εντολών Print, από την φόρμα.
Καθ.:Μίλτος Χαριλάου 123
Εντολές CurrentX, CurrentY
Είναι οι εντολές οι οποίες τοποθετούν το δρομέα σε μία συγκεκριμένη θέση πάνω στην φόρμα. Το X και Y είναι οι συντεταγμένες οι οποίες μετριούνται με twip όπου σε 1cm χωρούν 567 twip
CurrentX=1000CurrentY=200Print “Hello” X
Y
X=1000 twip
Y=200 twip
Καθ.:Μίλτος Χαριλάου 124
Elena Court
Διαμέρισμα
1
2
4
5
3
Κώστας
Μαρία
Νίκος
Ειρήνη
Ελευθερία
Καθ.:Μίλτος Χαριλάου 125
Αν θέλαμε να στείλουμε ένα γράμμα στον Νίκο και γράφαμε μόνο το όνομα της πολυκατοικίας πάνω στο φάκελο, θα είμαστε σίγουροι ότι θα έφτανε στον προορισμό του; ΟΧΙ
Αν πάλι γράφαμε μόνο τον αριθμό του διαμερίσματος πάνω στο φάκελο, θα είμαστε σίγουροι ότι θα έφτανε στον προορισμό του; ΟΧΙ
Αν όμως γράφαμε το όνομα της πολυκατοικίας και τον αριθμό του διαμερίσματος πάνω στο φάκελο, τότε ΝΑΙ θα έφτανε στον προορισμό του.
Καθ.:Μίλτος Χαριλάου 126
Πίνακας μεταβλητών (Arrays)
Πίνακας είναι μια ομάδα διαδοχικών θέσεων της μνήμης, η οποία αποθηκεύει τιμές του ίδιου τύπου (π.χ. Integer, Currency, String). Κάθε συγκεκριμένη θέση μνήμης καλείται στοιχείο του πίνακα και προσδιορίζεται από την τιμή ενός δείκτη (Index). Όλα τα στοιχεία του πίνακα έχουν κοινό όνομα, το όνομα του πίνακα , και διαφορετικό δείκτη.
Υπάρχουν: Μονοδιάστατοι πίνακες (one dimensional arrays), Δισδιάστατοι πίνακες (two dimensional arrays) και Πολυδιάστατοι πίνακες (multidimensional arrays)
Καθ.:Μίλτος Χαριλάου 127
Μονοδιάστατοι πίνακες ονομάζονται οι πίνακες μιας διάστασης και χρησιμοποιούν ένα μόνο δείκτη για την αναφορά των στοιχείων τους.
Το παράδειγμα που αναφέραμε πιο πριν με την πολυκατοικία μπορεί να παρομοιαστεί με ένα μονοδιάστατο πίνακα.
– Το όνομα της πολυκατοικίας αντιστοιχεί με το Όνομα του Πίνακα.
– Τα διαμερίσματα του πίνακα αντιστοιχούν με τους Δείκτες του Πίνακα και
– Τα ονόματα των κατόχων των διαμερισμάτων αντιστοιχούν με τα Στοιχεία/Τιμές του πίνακα.
Mονοδιάστατοι Πίνακες
Καθ.:Μίλτος Χαριλάου 128
iNumber0123456789
iNumber( 0 )iNumber( 1 )iNumber( 2 )iNumber( 3 )iNumber( 4 )iNumber( 5 )iNumber( 6 )iNumber( 7 )iNumber( 8 )iNumber( 9 )
Dim iNumber( 9 ) As Integer
Όνομα πίνακα
Τελευταίο Index 0 - 9
Τύπος δεδομένων
Το πλήθος των στοιχείων ισούται με 10
Παράδειγμα 1:
Mονοδιάστατος Πίνακας (Συνέχεια)
Καθ.:Μίλτος Χαριλάου 129
iNumber
34567
iNumber( 3 )iNumber( 4 )iNumber( 5 )iNumber( 6 )iNumber( 7 )
Dim iNumber( 3 to 7 ) As Integer
Το πλήθος των στοιχείων ισούται με 5
Αρχικό και τελικό Index 3 -7
Παράδειγμα 2:
Mονοδιάστατος Πίνακας (Συνέχεια)
Καθ.:Μίλτος Χαριλάου 130
Μέσα σε μία διαδικασία. Mόνο για αυτή !
Dim <Όνομα πίνακα(τελευταίο Index)> Αs <τύπος δεδομένων>
Δήλωση Μονοδιάστατου Πίνακα
Private Sub Command1_Click() Dim iNumber(9) As Integer . . End Sub
Καθ.:Μίλτος Χαριλάου 131
Μέσα σε μία φόρμα . Για όλες τις διαδικασίες της φόρμας !
Option Explicit
Dim <Όνομα πίνακα(τελευταίο Index)> Αs <τύπος δεδομένων>
Option Explicit Dim iNumber(9) As Integer
Δήλωση Μονοδιάστατου Πίνακα (Συνέχεια)
Καθ.:Μίλτος Χαριλάου 132
Παράδειγμα 1
Dim inumber(4) As integer
For i = 0 To 4
CurrentX = 1000
CurrentY = 300
inumber(i) = i
Print inumber(i)
Next i
Καθ.:Μίλτος Χαριλάου 133
Μέσα σε ένα Module. Για όλες τις φόρμες ενός project !
Public <Όνομα πίνακα(τελευταίο Index)> Αs <τύπος δεδομένων>
Ξεκινά το Index από το 1
Δημόσιες μεταβλητές
Project / Add module
Δήλωση Μονοδιάστατου Πίνακα (Συνέχεια)
Καθ.:Μίλτος Χαριλάου 134
Καθ.:Μίλτος Χαριλάου 135
Καθ.:Μίλτος Χαριλάου 136
Μετατροπή δημόσιας (Public) μεταβλητής σε Τοπική (Private)
Private Number(9) As Integer
Καθ.:Μίλτος Χαριλάου 137
Εισαγωγή δεδομένων σε πίνακα
Τρόπος 1 Τρόπος 2A4(1)=10 A4(1)=InputBox(“Dose vathmo”)A4(2)=5 A4(2)=InputBox(“Dose vathmo”) A4(3)=12 A4(3)=InputBox(“Dose vathmo”) A4(4)=20 A4(4)=InputBox(“Dose vathmo”) A4(5)=19 A4(5)=InputBox(“Dose vathmo”)
Τρόπος 3
FOR icounter= 1 TO 5
A4(icounter)=InputBox(“Dose Vathmo”)
NEXT icounter
O τρόπος 3, είναι αυτός που θα χρησιμοποιούμε στα προγράμματα μας
Καθ.:Μίλτος Χαριλάου 138
Παρουσίαση/Επεξεργασία δεδομένων Πίνακα
Παρουσίαση
Τρόπος 1 Τρόπος 2PRINT A4(1) FOR icounter =1 TO 5 PRINT A4(2) PRINTA4(icounter)PRINT A4(3) NEXT icounterPRINT A4(4) PRINT A4(5)
Επεξεργασία/Έλεγχος
Αν θέλαμε να βρούμε αν ο βαθμός του τρίτου μαθητή είναι πάνω από 18, για να τυπώσουμε το μήνυμα «Άριστα» τι θα κάναμε;
IF A4(3) >18 THEN
PRINT “ARISTA”
END IF
Καθ.:Μίλτος Χαριλάου 139
Ένα ολοκληρωμένο πρόγραμμα
Καθ.:Μίλτος Χαριλάου 140
Καθ.:Μίλτος Χαριλάου 141
Καθ.:Μίλτος Χαριλάου 142
Καθ.:Μίλτος Χαριλάου 143
1. Εκτέλεση Φύλλου Εργασίας 7 στον Η.Υ
2. Εκτέλεση Ασκήσεων 1, 2, 3, 4
Καθ.:Μίλτος Χαριλάου 144
Χρήση Μενού (Menu) και
Πλαισίων Διαλόγου
Καθ.:Μίλτος Χαριλάου 145
Έχουμε την δυνατότητα να βελτιώσουμε τις εφαρμογές που δημιουργούμε, προσθέτοντας μενού (menu).
Για να δημιουργήσουμε γραμμές μενού χρησιμοποιούμε τον επεξεργαστή μενού (menu editor), τον οποίο για να εμφανίσουμε επιλέγουμε Tools και μετά Menu Editor.
Οι πιο σημαντικές ιδιότητες των χειριστηρίων μενού είναι το όνομα (name) και η λεζάντα (caption).
Δημιουργία Μενού (Menu)
Ιδιότητα (caption) προσδιορίζει το κείμενο που θα εμφανίζεται στην οθόνη.
Ιδιότητα (name) προσδιορίζει το όνομα του χειριστηρίου, το οποίο καλό είναι να αρχίζει από mnu.
Καθ.:Μίλτος Χαριλάου 146
Διορθωτής Μενού (Menu Editor)
Ιδιότητες
χειριστηρίων
μενού
Πλαίσιο καταλόγου
Χειριστηρίων μενού
Καθ.:Μίλτος Χαριλάου 147
Τα στοιχεία μενού μπορεί να περιέχουν υπομενού.
Όταν μπροστά από το πρώτο γράμμα του κειμένου που γράψαμε στο caption , τοποθετήσουμε το σύμβολο & πχ &File, τότε αναθέτει στο συγκεκριμένο γράμμα F να έχει πρόσβαση στο μενού όταν πατηθεί σε συνδυασμό με το πλήκτρο Alt. Το γράμμα F εμφανίζεται υπογραμμισμένο.
Σε ένα μενού μπορεί να χρησιμοποιηθεί διαχωριστική γραμμή για να χωρίσει τα στοιχεία σε λογικές ομάδες.
Δημιουργία Μενού (Menu)
Καθ.:Μίλτος Χαριλάου 148
Menu Editor
Χειριστήρια
μενού ή
Στοιχεία μενού
Τίτλοι μενού
Καθ.:Μίλτος Χαριλάου 149
Το αντικείμενο κοινού πλαισίου διαλόγου (Common Dialog) επιτρέπει στον προγραμματιστή να εμφανίζει στα προγράμματα του οποιαδήποτε από τα πέντε τυποποιημένα πλαίσια διαλόγου (Open, Save As, Print, Font, Color).
Κοινό Πλαίσιο Διαλόγου (Common Dialog Object)
Το αντικείμενο κοινού πλαισίου διαλόγου εμφανίζεται στην φόρμα μόνο κατά τον χρόνο σχεδιασμού.
Για να προστεθεί στην εργαλειοθήκη το χειριστήριο Common Dialog, θα πρέπει να επιλεγεί από το μενού Project η διαταγή Components. Στη συνέχεια θα πρέπει να ενεργοποιηθεί το πλαίσιο ελέγχου Microsoft Common Dialog Control 6.0 .
Καθ.:Μίλτος Χαριλάου 150
1. Εκτέλεση Άσκησης 1
Καθ.:Μίλτος Χαριλάου 151
Χειριστήριο Χρονόμετρο (Timer)
Ιδιότητα Περίοδος (Interval)
Δημιουργία Ρολογιού με χρονόμετρο
Καθ.:Μίλτος Χαριλάου 152
Παράδειγμα
Καθ.:Μίλτος Χαριλάου 153
Αντικείμενο Χρονόμετρο (Timer)Το χειριστήριο Timer καταμετρά το χρόνο. Το χρονόμετρο εμφανίζεται στην φόρμα μόνο κατά τον χρόνο σχεδιασμού. Κατά το χρόνο εκτέλεσης, το χρονόμετρο είναι αόρατο. Το κάθε χειριστήριο Timer έχει μια ιδιότητα Interval (Περίοδος).
Double Click
Καθ.:Μίλτος Χαριλάου 154
Ιδιότητα Περίοδος (Interval)
Είναι η ιδιότητα που καθορίζει το χρόνο (σε χιλιοστά του δευτερολέπτου) μεταξύ της εκτέλεσης των συμβάντων του χρονομέτρου.
Interval = 1000 ( 1 Δευτερόλεπτο )
Καθ.:Μίλτος Χαριλάου 155
Δημιουργία ρολογιού
Run Mode
Καθ.:Μίλτος Χαριλάου 156
Εκκίνηση χρονομέτρου με τη βοήθεια κουμπιών
Run Mode
Καθ.:Μίλτος Χαριλάου 157
Παράδειγμα1Χρήση εντολής- Do While
Private Sub cmdMove_Click()
Dim iCount As Integer
iCount = 1
Do While iCount < 8
shpMove.Left = shpMove.Left + 300
shpMove.Top = shpMove.Top + 300
iCount = iCount + 1
Loop
End Sub
•Παράδειγμα
Καθ.:Μίλτος Χαριλάου 158
Παράδειγμα
Private Sub tmrMove_Timer()
shpMove.Left = shpMove.Left + 300
shpMove.Top = shpMove.Top + 300
If shpMove.Top = 2100 Then
tmrMove.Enabled = False
End If
End Sub
Παράδειγμα2Χρήση - Timer
Καθ.:Μίλτος Χαριλάου 159
1. Εκτέλεση Φύλλου Εργασίας 8 στον Η.Υ
Καθ.:Μίλτος Χαριλάου 160
Χρήση Πολλών Φορμών
Σε ένα Έργο
Καθ.:Μίλτος Χαριλάου 161
Ένα ολοκληρωμένο έργο (πρόγραμμα) περιέχει συνήθως αρκετές φόρμες που επιτρέπουν την επικοινωνία με τον χρήστη.
Κάθε φόρμα αποτελεί ένα ξεχωριστό αντικείμενο (Object) και χαρακτηρίζεται από τις δικές της ιδιότητες (properties).
Για κάθε φόρμα εκτελούνται διάφορες ενέργειες που ονομάζονται μέθοδοι (methods), και αντιδρά σε διάφορα συμβάντα (events).
Φόρμες (Forms)
Καθ.:Μίλτος Χαριλάου 162
Κατά την εκτέλεση ενός προγράμματος ελέγχονται τα συμβάντα που καθόρισε ο προγραμματιστής και εμφανίζονται διαφορετικές φόρμες ή και εκτελούνται διάφορες εντολές / υποπρογράμματα (Event Driven Programming).
Προγραμματισμός με συμβάντα
Καθ.:Μίλτος Χαριλάου 163
Για την προσθήκη μίας νέας φόρμας σε ένα έργο, θα πρέπει να επιλεγεί από την γραμμή μενού το Project (έργο) και στην συνέχεια η διαταγή Add Form (προσθήκη Φόρμας). Ακολούθως στο παράθυρο διαλόγου που εμφανίζεται θα πρέπει να επιλεγεί το New και μετά Open. Η καινούργια φόρμα θα παρουσιαστεί και θα προστεθεί στη εξερεύνηση έργου.
Επίσης το πιο πάνω μπορεί να επιτευχθεί χρησιμοποιώντας απλώς το εικονίδιο για την δημιουργία καινούργιας φόρμας που βρίσκεται στη γραμμή εργαλείων.
Προσθήκη Νέας Φόρμας
Καθ.:Μίλτος Χαριλάου 164
Για την αφαίρεση μιας φόρμας από ένα έργο, επιλέγουμε απλά το όνομα της φόρμας από την εξερεύνηση έργου. Ακολούθως πατούμε το δεξί κουμπί του ποντικιού και από τις επιλογές που εμφανίζονται επιλέγουμε remove.
Αφαίρεση Υφιστάμενης Φόρμας
Καθ.:Μίλτος Χαριλάου 165
Σε ένα έργο που χρησιμοποιούνται πολλές φόρμες, είναι δυνατό να φορτώσουμε στη μνήμη και να εμφανίσουμε στην οθόνη πολλές φόρμες ταυτόχρονα, ανάλογα με τις ανάγκες του προγράμματος που εκτελείται.
Οι φόρμες πού διεκπεραιώνονται και δεν χρειάζονται πλέον, αποφορτώνονται από τη μνήμη ώστε να απελευθερώνεται το κομμάτι της μνήμης που καταλαμβάνεται.
Φόρτωση και Αποφόρτωση Φορμών
Εντολές φόρτωσης και αποφόρτωσης των φορμών στη μνήμη:
Φόρτωση φόρμας στη μνήμη : Load <FormName>
Αποφόρτωση φόρμας από τη μνήμη : Unload <FormName>
Καθ.:Μίλτος Χαριλάου 166
Οι φόρμες που είναι στη μνήμη μπορεί να εμφανίζονται η να αποκρύβονται από την οθόνη.
Εμφάνιση και Απόκρυψη Φορμών
Εντολές εμφάνισης και απόκρυψης των φορμών στη οθόνη:
Εμφάνιση φόρμας στη οθόνη : <FormName>.Show
Απόκρυψη φόρμας από τη οθόνη : <FormName>.Hide
Όταν ζητηθεί να εμφανιστεί στην οθόνη μια φόρμα που δεν έχει φορτωθεί ακόμη στη μνήμη, φορτώνεται πρώτα στη μνήμη και στη συνέχεια γίνεται ορατή στη οθόνη.
Όταν ζητηθεί να αποκρυφτεί από την οθόνη μια φόρμα, παύει να είναι ορατή αλλά συνεχίζει να παραμένει στη μνήμη και να καταλαμβάνει το χώρο που χρειάζεται.
Καθ.:Μίλτος Χαριλάου 167
Ενοποίηση μουσικής με το Χειριστήριο Multimedia MCI
Γραφικά Κινούμενα Σχέδια
Ενοποίηση βίντεο με το Χειριστήριο Multimedia MCI
Καθ.:Μίλτος Χαριλάου 168
1. Μενού Controls Components
2. Ενεργοποίηση του πλαισίου ελέγχου Microsoft Multimedia Control 6.0
Προσθέτουμε το Χειριστήριο
Multimedia MCI στην Εργαλειοθήκη
Καθ.:Μίλτος Χαριλάου 169
Visual Basic
ΤΕΛΟΣ
Visual Basic
ΤΕΛΟΣ