ΑΣΚΗΣΕΙΣ VISUAL BASIC1epal-ioann.ioa.sch.gr/joom/pdf/tomeis/pl/askiseis_vb.pdfΑ ΚΖ ΔΗ...

ΑΚΖΔΗ VISUAL BASIC Β΄ ΛΤΚΔΗΟΤ ΚΑΣΔΤΘΤΝΖ

εκπέκβξηνο 2007 ειίδα 1 από 50

ΔΝΟΣΖΣΑ 3

ΑΚΖΔΗ VISUAL BASIC

Β΄ ΛΤΚΔΗΟΤ ΚΑΣΔΤΘΤΝΖ

ΤΤππννππξξγγεείίνν ΠΠααηηδδεείίααοο θθααηη ΠΠννιιηηηηηηζζκκννύύ 22000066--22000077

Βαζικές έννοιες Α’ Λσκείοσ

Σσγγραθική ομάδα:

Νικος Χατζηκωστής, Καθ. Πληρουορικής

Μίλτος Χαριλάοσ, Καθ. Πληρουορικής

Γποπηεία: Μάριος Μιλτιάδοσ ΓΜΓ Πληρουορικής

Μιτάλης Τορτούρης, Β.Δ. Α’



ΓΗΓΑΚΣΗΚΖ ΜΔΘΟΓΟΛΟΓΗΑ VISUAL BASIC Γηα ηε δηδαζθαιία ησλ δηαθόξσλ ελνηήησλ ηεο Visual Basic ζα πξέπεη λα:

1. ζρεδηάδνληαη ινγηθά δηαγξάκκαηα

2. γίλεηαη πξνθαηαξηηθή εθηέιεζε

3. γξάθεηαη ν θώδηθαο ζηε Visual Basic

4. γίλεηαη πξαθηηθή εμάζθεζε ζηνπο ειεθηξνληθνύο ππνινγηζηέο.

Ο εθπαηδεπηηθόο ζα πξέπεη λα ρξεζηκνπνηήζεη ινγηθά δηαγξάκκαηα σο παξνπζίαζε, ηα νπνία ζα ζρεδηαζηνύλ κε ηε ρξήζε ηνπ ινγηζκηθνύ Crocodile for ICT. Γηα ηελ θάζε ελόηεηα ζα πξέπεη λα:

1. ιπζεί ην πξνηεηλόκελν θύιιν εξγαζίαο

2. ιπζνύλ αζθήζεηο ( ν θάζε εθπαηδεπηηθόο κπνξεί λα ρξεζηκνπνηήζεη θαη δηθέο ηνπ

αζθήζεηο)



Δπαλάιευε δηδαθηέας ύιες Α΄ Λσθείοσ

Γηαδοτηθή Γοκή



Φύιιν Δξγαζίαο

ηόρνη

Με ην ηέινο ηνπ θύιινπ εξγαζίαο νη καζεηέο ζα πξέπεη λα:

1. κπνξνύλ λα δεκηνπξγνύλ αληηθείκελα ηύπνπ Label, Text Box θαη Command Button ζηε VISUAL

BASIC

2. θαηαλνήζνπλ ηηο ηδηόηεηεο Caption θαη Text.

3. ρξεζηκνπνηνύλ Μεηαβιεηέο (Variables)

4. θαηαλνήζνπλ ηη είλαη ε εληνιή εθρώξεζεο ( Assignment )

5. θαηαλνήζνπλ θαη λα ρξεζηκνπνηνύλ ηε πλάξηεζε Val (value)

Πξόβιεκα: Γεκηνπξγία κίαο θόξκαο ζηελ νπνία ν ρξήζηεο ζα δίλεη δύν αξηζκνύο θαη ζα

ππνινγίδεη θαη εκθαλίδεη ην άζξνηζκα ηνπο.

1. Δλεξγνπνηείζηε ην Πξόγξακκα ηεο VISUAL BASIC.

2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο πέληε αληηθείκελα ηύπνπ Label

3. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο δύν αληηθείκελα ηύπνπ TextBox

4. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο ηξία αληηθείκελα ηύπνπ Command Button

5. Σνπνζεηείζηε ηα αληηθείκελα κε ηέηνην

ηξόπν ώζηε ε θόξκα ζαο λα κνηάδεη κε δηπιαλή

θόξκα:

6. Διέγμεηε κέζα ζην Properties Window ηη ηηκή έρεη ε ηδηόηεηα Caption ηνπ αληηθεηκέλνπ Label1,

ηη ηηκή έρεη ε ηδηόηεηα Text ηνπ αληηθεηκέλνπ Text1 θαη ηη ηηκή έρεη ε ηδηόηεηα ηνπ αληηθεηκέλνπ

Command1 θαη γξάςεηε ηηο ηηκέο πην θάησ:

7. Έρεη ηδηόηεηα Caption ην αληηθείκελν Text1;

8. Έρεη ηδηόηεηα Text ην αληηθείκελν Label1;

9. Αιιάμεηε ηηο ηδηόηεηεο ησλ αληηθεηκέλσλ ηεο θόξκαο ζαο ζύκθσλα κε ηνλ παξαθάησ πίλαθα:

Name Caption Text Font

Command1 cmdSum Πξόζζεζε - Bold

Command2 cmdNew Νέν - Bold

Command3 cmdExit Έμνδνο - Bold

Label1 Πξόζζεζε -

Label2 Αξηζκόο 1: -



Name Caption Text Font

Label3 Αξηζκόο 2: -

Label4 Απνηέιεζκα: -

Text1 txtNum1 - Size/16, Bold

Text2 txtNum2 - Size/16, Bold

Label5 lblSum -

10. Σώξα ε θόξκα ζαο ζα κνηάδεη κε ηε δηπιαλή

θόξκα:

11. Γηπινπαηήζηε ζην αληηθείκελν Πξόζζεζε γηα λα αλνίμεη ην παξάζπξν Code ζην νπνίν ζα

δειώζεηε ηξεηο κεηαβιεηέο. Σηο cNum1, cNum2 όπνπ ζα απνζεθεύνληαη νη ηηκέο πνπ ζα

πιεθηξνινγείηε ζην txtNum1 θαη txtNum2 αληίζηνηρα θαη ηελ cSum ε νπνία ζα απνζεθεύεη ην

απνηέιεζκα ηεο πξόζζεζεο ησλ δύν ηηκώλ (Δληνιή Δθρώξεζεο) . Αθνινύζσο ζα παξνπζηάδεηε ην

απνηέιεζκα ζην Label lblSum.

Πξόγξακκα: (όπσο θαίλεηαη ζην δηπιαλό παξάζπξν)

Dim cNum1, cNum2, cSum As Currency

cNum1 = txtNum1.Text

cNum2 = txtNum2.Text

cSum = cNum1 + Cnum2

Lblsum.Caption = cSum

ε πνην Event αλαθέξεηαη ην δηπιαλό παξάζπξν;

Ση ηύπνπ κεηαβιεηέο είλαη νη cNum1, cNum2 θαη cSum θαη ηη ηηκέο ζα παίξλνπλ;

Ση αθξηβώο ζα θάλεη ε εληνιή εθρώξεζεο cNum1 = txtNum1.Text ;

Ση αθξηβώο ζα θάλεη ε εληνιή εθρώξεζεο Lblsum.Caption = cSum ;



12. ρεδηάζηε ην Λνγηθό Γηάγξακκα ην νπνίν λα αληηζηνηρεί ζην πην πάλσ πξόγξακκα.

13. Παηήζηε ην θνπκπί F5 ηνπ πιεθηξνινγίνπ γηα λα κεηαθεξζείηε ζην Run Mode. Σνπνζεηείζηε

κέζα ζην πξώην Text ην δξνκέα θαη γξάςεηε ηνλ αξηζκό 3. Μεηά πεγαίλεηε ζην δεύηεξν Text θαη

γξάςεηε ηνλ αξηζκό 5 . Αθνινύζσο παηήζηε ην αληηθείκελν Πξόζζεζε. Ση έρεηε λα παξαηεξήζεηε θαη

γηαηί ζπκβαίλεη απηό;

14. Μεηαθεξζείηε ζην Design Mode θαη δηνξζώζηε εθείλεο ηηο εληνιέο εθρώξεζεο έηζη ώζηε λα

γίλεηαη νξζά ε πξάμε ηεο πξόζζεζεο.

Πνηεο είλαη νη λέεο εληνιέο;

15. Γηπινπαηήζηε ζην αληηθείκελν Έμνδνο γηα λα αλνίμεη ην παξάζπξν Code θαη γξάςεηε ηελ

θαηάιιειε εληνιή εμόδνπ από ηελ θόξκα.

Πνηα είλαη ε εληνιή;

16. Γηπινπαηήζηε ζην αληηθείκελν Νέν γηα λα αλνίμεη ην παξάζπξν Code γξάςεηε ηηο θαηάιιειεο

εληνιέο γηα λα δηαγξάθεη ηηο ηηκέο από ηα αληηθείκελα Text1, Text2, Label4 ηεο θόξκαο θαη λα

ηνπνζεηεί ηελ εζηίαζε ζην Text1.

Πνηεο είλαη νη εληνιέο;

17. Γνθηκάζηε ηώξα μαλά ην ζεκείν 12 ηνπ θύιινπ εξγαζίαο.

18. Πνηα ε δηαθνξά ηεο ηδηόηεηαο txtnum1.text από ηελ ηδηόηεηα Val(txtnum1.text);

19. Δπηζηξέςεηε ζην Design Mode παηώληαο ην αληηθείκελν Έμνδνο.

20. Βγείηε έμσ από ην πξόγξακκα ηεο Visual Basic απνζεθεύνληαο ην project θαη ηε θόξκα ζαο κε

ην όλνκα prosthesi πάλσ ζηε δηζθέηα ζαο.



Απαληήζηε ζην ηεηξάδηό ζαο ηηο πην θάησ εξσηήζεηο.( ζα ηηο ειέγμνπκε ζην ζεσξεηηθό κάζεκα).

1. Πόηε ρξεζηκνπνηείηε ηα αληηθείκελα Label, Textbox θαη Command Buttons κέζα ζηε θόξκα καο;

2. Οη ηηκέο ησλ ηδηνηήησλ Caption θαη Text είλαη αξηζκεηηθέο ή αιθαξηζκεηηθέο;

3. Ση είλαη νη κεηαβιεηέο θαη πνηα ε ρξήζε ηνπο;

4. Πσο κεηαηξέπεηαη κία αιθαξηζκεηηθή ηηκή ζε αξηζκεηηθή;

5. Πόηε ρξεηάδεηαη λα κεηαηξαπεί κία αιθαξηζκεηηθή ηηκή ζε αξηζκεηηθή;

6. Πνηα ε νκνηόηεηα θαη πνηα ε δηαθνξά ηεο ηδηόηεηαο Caption ησλ αληηθεηκέλσλ Label θαη

Command Button από ηελ ηδηόηεηα Text ηνπ αληηθεηκέλνπ TextBox;



Άζθεζε 1 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα δέρεηαη ην κήθνο θαη ην πιάηνο ελόο νξζνγσλίνπ παξαιιειόγξακκνπ θαη ζηε ζπλέρεηα λα ππνινγίδεη θαη εκθαλίδεη ην εκβαδόλ θαη ηελ πεξίκεηξν. Γηα ην πην πάλσ πξόβιεκα λα: α. ζρεδηάζεηε ην Λνγηθό Γηάγξακκα,

β . ζρεδηαζεηε ηε θόξκα ε νπνία ζα ρξεζηκνπνηεζεί από ην πξόγξακκα. ηε θόξκα λα εκθαλίδεηαη θαη ην ζρήκα ηνπ νξζνγσλίνπ,

γ. νλνκάζεηε ηα αληηθείκελα ηεο θόξκαο (όπνπ ρξεηάδεηαη) ζύκθσλα κε ηνπο θαλόλεο πνπ έρεηε δηδαρζεί,

δ. ζπκπιεξώζεηε ηνλ πίλαθα ηδηνηήησλ, ε. γξάςεηε ηνλ θώδηθα γηα ην θάζε θνπκπί δηαηαγήο έρνληαο ππόςε ηα πην θάησ:

Κοσκπί Γηαηαγής

Υρήζε

Έμνδνο Σέινο πξνγξάκκαηνο

Δθηύπσζε Δθηύπσζε θόξκαο

Τπνιόγηζε Τπνινγίδεη θαη εκθαλίδεη ην εκβαδόλ θαη ηελ πεξίκεηξν ηνπ νξζνγσλίνπ. Δκβαδόλ = Μήθνο * Πιάηνο Πεξίκεηξνο = 2(Μήθνο + Πιάηνο)

Νέν Γηαγξάθεη ηα δεδνκέλα θαη ην απνηέιεζκα από ηελ νζόλε θαη εζηηάδεη ηνλ δξνκέα ζην θνπηί ηνπ κήθνπο.

Παραηήρεζε: Όποσ τρεηάδεηαη λα δειφζούλ θαη λα τρεζηκοποηεζούλ κεηαβιεηές.



Άζθεζε 2

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα δέρεηαη ην όλνκα ελόο ππαιιήινπ, ηηο ώξεο πνπ δνύιεςε θαη ηνλ σξηαίν κηζζό θαη ζηε ζπρλέρεηα λα ππνινγίδεη θαη εκθαλίδεη ηνλ αθάζαξην κηζζό, ηηο απνθνπέο (20% πάλσ ζηνλ αθάζαξην κηζζό) θαη ηνλ θαζαξό κηζζό ηνπ ππαιιήινπ. Γηα ην πην πάλσ πξόβιεκα λα: α. ζρεδηάζεηε ην Λνγηθό Γηάγξακκα,

β . ζρεδηαζεηε ηε θόξκα ε νπνία ζα ρξεζηκνπνηεζεί από ην πξόγξακκα, γ. νλνκάζεηε ηα αληηθείκελα ηεο θόξκαο (όπνπ ρξεηάδεηαη) ζύκθσλα κε ηνπο θαλόλεο

πνπ έρεηε δηδαρζεί, δ. ζπκπιεξώζεηε ηνλ πίλαθα ηδηνηήησλ, ε. γξάςεηε ηνλ θώδηθα γηα ην θάζε θνπκπί δηαηαγήο έρνληαο ππόςε ηα πην θάησ:

Κοσκπί Γηαηαγής

Υρήζε

Έμνδνο Σέινο πξνγξάκκαηνο

Δθηύπσζε Δθηύπσζε θόξκαο

Τπνιόγηζε Τπνινγίδεη ηνλ αθαζάξηζην κηζζό, ηηο απνθνπέο, ηνλ θαζαξό κηζζό θαη ηα παξνπζηάδεη ζηελ νζόλε Αθαζάξηζηνο κηζζόο = ώξεο εξγαζίαο * σξηαίνο κηζζόο Απνθνπέο = αθαζάξηζηνο κηζζόο * πνζνζηό απνθνπώλ Καζαξόο κηζζόο = αθαζάξηζηνο κηζζόο - απνθνπέο

Νέν Γηαγξάθεη ηα δεδνκέλα θαη ηα απνηειέζκαηα από ηελ νζόλε θαη εζηηάδεη ηνλ δξνκέα ζην πξώην TextBox ηεο θόξκαο.

Παραηήρεζε: Όποσ τρεηάδεηαη λα δειφζούλ θαη λα τρεζηκοποηεζούλ κεηαβιεηές.



Γοκή Γηαθιάδφζες

Να ρξεζηκνπνηεζνύλ νη εληνιέο

IF THEN ELSE END IF

IF THEN ELSEIF ELSE END IF

SELECT CASE END SELECT




ηόρνη


1. αλαγλσξίδνπλ ηα πξνβιήκαηα ηα νπνία απαηηνύλ ηε ιήςε απνθάζεσλ, κε βάζε κηα ε

πεξηζζόηεξεο ζπλζήθεο (απιέο θαη ζύλζεηεο).

2. θαηαλνήζνπλ ηηο ηδηόηεηεο BorderStyle, Alignment.

3. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηελ εληνιή If/Then/Else/End If

4. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηελ εληνιή If/Then/ElseIf/Else/End If

5. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηηο πλαξηήζεηο MsgBox θαη IsNumeric

Πξόβιεκα: Γεκηνπξγία κίαο θόξκαο ζηελ νπνία ν ρξήζηεο ζα δίλεη ηελ ζεξκνθξαζία ηεο εκέξαο

θαη ζα εκθαλίδεη ην κήλπκα ¨Φειή Θεξκνθξαζία ¨ αλ ε ζεξκνθξαζία ππεξβαίλεη ηνπο 30 βαζκνύο

θαη ¨Υακειή Θεξκνθξαζία ¨ αλ ε ζεξκνθξαζία είλαη 30 βαζκνύο θαη θάησ.


2. Γεκηνπξγείζηε κηα θόξκα ε νπνία ζα πεξηέρεη:

α) Σίηιν (Label)

β) έλα αληηθείκελν (Text Box) ζην νπνίν ν ρξήζηεο ζα θαηαρσξεί ηελ

ζεξκνθξαζία ηεο εκέξαο θαη έλα αληηθείκελν (Label) γηα ηελ πεξηγξαθή ηνπ

πξνεγνύκελνπ αληηθεηκέλνπ

γ) δύν αληηθείκελα, (Command Buttons), ηα νπνία παηώληαο ην πξώην ζα

παξνπζηάδεη ην κήλπκα αλάινγα κε ηε ζεξκνθξαζία πνπ έδσζε ν ρξήζηεο θαη

ην άιιν ζα εγθαηαιείπεη ηελ θόξκα.

3. ρεδηάζηε ηελ Φόξκα:

4. πκπιεξώζηε ηνλ πην θάησ πίλαθα κε ηα αληηθείκελα πνπ έρεηε βάιεη ζηελ θόξκα ζαο. (όπνπ δελ

ππάξρεη ηίπνηα βάιηε –)

Αληηθείκελα Name Caption Text

Label1

Label2

TextBox1 txtTherm

Command1

Command2



5. Ρπζκίζηε ηελ ηδηόηεηα Alignment ηνπ Σίηινπ ζε 2-Center.

Ση παξαηεξείηε;

6. Ρπζκίζηε ηελ ηδηόηεηα BorderStyle ηνπ Σίηινπ ζε 1- Fixed Single

Ση παξαηεξείηε;

7. Αλνίμεη ην παξάζπξν Code ηνπ πξώηνπ Command1 θαη γξάςεηε ηνλ πην θάησ θσδηθό γηα ηελ

επεμεξγαζία ηεο ζεξκνθξαζίαο:

Dim iTherm As Integer

If IsNumeric((txtTherm.text) then

iTherm = val(txtTherm.text)

If iTherm > 30 then

MsgBox ¨Φειή Θεξκνθξαζία ¨

Else

MsgBox ¨Υακειή Θεξκνθξαζία ¨

End if

End if

Πνηα ζπλζήθε ρξεζηκνπνηήζακε ζην If;

Ση είλαη ην MsgBox ;

Γηαηί ρξεζηκνπνηνύκε ηελ ζπλάξηεζε IsNumeric ;

8. Μεηαθεξζείηε ζην Run Mode , θαη δώζηε δηαδνρηθά ηηο ζεξκνθξαζίεο 40, 30 θαη 15. Ση

παξαηεξείηε γηα ηελ θάζε ζεξκνθξαζία πνπ δίλεηε;




10. Γηακνξθώζηε ην πξόγξακκα ηνπ αληηθεηκέλνπ Command1 έηζη ώζηε λα εκθαλίδεη ην κήλπκα

¨Φειή Θεξκνθξαζία ¨ αλ ε ζεξκνθξαζία πνπ δώζεη ν ρξήζηεο ππεξβαίλεη ηνπο 30 βαζκνύο,

¨Καλνληθή Θεξκνθξαζία ¨ αλ ε ζεξκνθξαζία θπκαίλεηαη κεηαμύ 20 θαη 30 βαζκνύο

ζπκπεξηιακβαλόκελσλ θαη ¨Υακειή Θεξκνθξαζία ¨ αλ ε ζεξκνθξαζία είλαη πην θάησ από

20 βαζκνύο.

ρεδηάζηε ην Λνγηθό Γηάγξακκα ηνπ λένπ πξνγξάκκηνο:

Γξάςεηε ην λέν Πξόγξακκα:

11. ην αληηθείκελν Command2 γξάςεηε ηελ θαηάιιειε εληνιή εμόδνπ από ηελ θόξκα.

12. Μεηαθεξζείηε ζην Run Mode θαη επαλαιάβεηε ην ζεκείν 8 ηνπ Φύιινπ Δξγαζίαο. Ση

παξαηεξείηε;

13. Βγείηε έμσ από ην πξόγξακκα ηεο Visual Basic απνζεθεύνληαο ην project θαη ηε θόξκα ζαο, κε

ην όλνκα thermokrasia, ζηε δηζθέηα ζαο.

Απαληήζηε ζην ηεηξάδην ζαο ηηο πην θάησ εξσηήζεηο.( ζα ηηο ειέγμνπκε ζην ζεσξεηηθό κάζεκα).

1. Πόηε ρξεζηκνπνηνύκε Γνκή Γηαθιάδσζεο (If/Then/Else);

2. Πόηε ρξεζηκνπνηνύκε Έλζεηε Γνκή Γηαθιάδσζεο (If/Then/ElseIf/Else/EndIf);

3. Ση είλαη ε ζύλζεηε ζπλζήθε;



Άζθεζε 1

Υξεζηκνπνηώληαο ηε κέζνδν ηεο πξνθαηαξηηθήο εθηέιεζεο, λα παξνπζηάδεηε ηα απνηειέζκαηα ηνπ πην θάησ απνζπάζκαηνο πξνγξάκκαηνο:

Τ=4 X=2 IF (X > Y) OR (Y <= 4) THEN Ε=Υ*Τ Υ=(Υ*Τ)+Ε ELSE Τ=(Ε-Υ) + 10 Z=X/Z ENDIF X = X + Y Z = Z + X Print X, Z

Άζθεζε 2

Ζ εηαηξεία ελνηθηάζεσο απηνθηλήησλ «ΑΣΡΑΠΖ» πξνζθέξεη 10% έθπησζε πάλσ ζηελ θαλνληθή ηηκή ελνηθηάζεσο ελόο απηνθηλήηνπ, αλ ν θπβηζκόο ηεο κεραλήο ηνπ απηνθηλήηνπ είλαη ίζνο ή κεγαιύηεξνο από 1500 θπβηθά εθαηνζηά. Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν:

Εεηά από ην ρξήζηε ηνλ θπβηζκό ηεο κεραλήο θαη ηελ θαλνληθή ηηκή ελνηθηάζεσο

Τπνινγίδεη θαη παξνπζηάδεη ηελ έθπησζε

Τπνινγίδεη θαη παξνπζηάδεη ηελ ηειηθή ηηκή Έιεγτος δεδοκέλφλ

Σν πξόγξακκα λα ειέγρεη όηη: Ο θπβηζκόο ηνπ απηνθηλήηνπ είλαη αξηζκεηηθή ηηκή. ε πεξίπησζε ιάζνπο λα δίδεηαη ην

θαηάιιειν κήλπκα ζην ρξήζηε. Ζ θαλνληθή ηηκή ελνηθηάζεσο είλαη κεηαμύ 5 θαη 60 ιίξεο ζπκπεξηιακβαλνκέλσλ. ε

πεξίπησζε ιάζνπο λα δίδεηαη ην θαηάιιειν κήλπκα ζην ρξήζηε. Παξαηήξεζε: Πάλσ ζηε θόξκα λα ππάξρεη θαη θσηνγξαθία ελόο απηνθηλήηνπ.



Άζθεζε 3

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα δέρεηαη από ην ρξήζηε:

ην όλνκα θαη ηελ ηάμε ελόο καζεηή

ηνλ ηειηθό βαζκό γηα ηα καζήκαηα ηεο Πιεξνθνξηθήο, Διιεληθώλ θαη Μαζεκαηηθώλ

ππνινγίδεη ην κέζν όξν ησλ ηξηώλ καζεκάησλ (γεληθόο βαζκόο) θαη ηνλ εκθαλίδεη ζηελ νζόλε

Διέγρεη ην γεληθό βαζκό θαη Αλ είλαη κεηαμύ 18.5 – 20 ηόηε παξνπζηάδεη ην κήλπκα “ΑΡΗΣΟ” Αλ είλαη κεηαμύ 15.5 – 18.4 ηόηε παξνπζηάδεη ην κήλπκα “ΠΟΛΤ ΚΑΛΟ” Αλ είλαη κεηαμύ 12.5 – 15.4 ηόηε παξνπζηάδεη ην κήλπκα “ΚΑΛΟ” Αλ είλαη κεηαμύ 10 – 12.4 ηόηε παξνπζηάδεη ην κήλπκα “ΥΔΓΟΝ ΚΑΛΟ” Αλ είλαη κεηαμύ 1 – 9.9 ηόηε παξνπζηάδεη ην κήλπκα “ΜΔΣΡΗΟ”

Έιεγτος δεδοκέλφλ

Σν πξόγξακκα λα ειέγρεη όηη: Οη βαζκνί πνπ δίδνληαη είλαη κεηαμύ 1-20 ζπκπεξηιακβαλνκέλσλ. ε πεξίπησζε ιάζνπο λα δίδεηαη ην θαηάιιειν κήλπκα ζην ρξήζηε.



Άζθεζε 4 Μηα νηθνγέλεηα παίξλεη επίδνκα αλάινγα κε ηνλ αξηζκό ησλ παηδηώλ πνπ έρεη. Σν επίδνκα δίδεηαη ζύκθσλα κε ηνλ πην θάησ πίλαθα:

Αρηζκός παηδηώλ Δπίδοκα αλά παηδί

0 0

1 50

2 45

3 40

Πάλσ από 3 35

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα:

α. δηαβάδεη ηνλ αξηζκό ησλ παηδηώλ. β. ππνινγίδεη ην επίδνκα ζύκθσλα κε ηνλ πην πάλσ πίλαθα. γ. εκθαλίδεη ην επίδνκα πνπ ζα πάξεη ε νηθνγέλεηα.

Έιεγτος δεδοκέλφλ

Σν πξόγξακκα λα ειέγρεη όηη: Ο αξηζκόο ησλ παηδηώλ δελ είλαη αξλεηηθόο αξηζκόο. ε πεξίπησζε ιάζνπο λα δίδεηαη ην θαηάιιειν κήλπκα ζην ρξήζηε.



Άζθεζε 5

ε έλα παηρλίδη παίδνπλ δύν παίθηεο. Ο 1νο παίθηεο θαηαρσξεί έλα κπζηηθό αξηζκό (κεηαμύ 0 θαη 30) θαη ν δεύηεξνο παίθηεο πξνζπαζεί λα βξεη ηνλ κπζηηθό αξηζκό πνπ θαηαρώξεζε ν 1νο παίθηεο. Ζ κόλε βνήζεηα πνπ έρεη ν 2νο παίθηεο είλαη ηεο κνξθήο «ΜΔΓΑΛΤΣΔΡΟ» αλ ν κπζηηθόο αξηζκόο είλαη κεγαιύηεξνο από ηνλ αξηζκό πνπ έρεη καληέςεη ή «ΜΗΚΡΟΣΔΡΟ» αλ ν κπζηηθόο αξηζκόο είλαη κηθξόηεξνο από ηνλ αξηζκό πνπ έρεη καληέςεη. Οη πξνζπάζεηεο ηνπ δεύηεξνπ παίθηε κεηξνύληαη θαη εκθαλίδνληαη ζηελ νζόλε. Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν:

1. Δπηηξέπεη ζηνλ 1ν παίθηε λα θαηαρσξήζεη έλα κπζηηθό αξηζκό (κεηαμύ 0 θαη 30) θαη κε ην πάηεκα ηνπ θνπκπηνύ «ΑΠΟΚΡΤΦΖ ΜΤΣΗΚΟΤ ΑΡΗΘΜΟΤ» ην text box ζην νπνίν έρεη θαηαρσξεζεί ν κπζηηθόο αξηζκόο γίλεηαη αόξαην.

2. Δπηηξέπεη ζην 2ν παίθηε λα θαηαρσξήζεη έλα αξηζκό κεηαμύ 0-30 ζπκπεξηιακβαλνκέλσλ ζηελ πξνζπάζεηα ηνπ λα βξεη ηνλ κπζηηθό αξηζκό ηνπ 1νπ παίθηε.

3. Με ην πάηεκα ηνπ θνπκπηνύ «ΔΛΔΓΥΟ» ην πξόγξακκα:

I. Διέγρεη ηνλ αξηζκό πνπ έρεη θαηαρσξήζεη ν 2νο παίθηεο θαη αλ είλαη έγθπξνο (0 – 30) ηόηε:

Α. Απμάλεη ηνλ κεηξεηή ησλ πξνζπαζεηώλ θαηά 1 Β. Διέγρεη ηνλ αξηζκό πνπ θαηαρώξεζε ν 2νο παίθηεο θαη

Αλ είλαη ίζνο κε ηνλ κπζηηθό αξηζκό ηόηε εκθαλίδεη ην κήλπκα «ΣΟ ΒΡΖΚΔ»

Γηαθνξεηηθά αλ είλαη κηθξόηεξνο ηόηε εκθαλίδεη ην κήλπκα «ΜΔΓΑΛΤΣΔΡΟ»

Γηαθνξεηηθά αλ είλαη κεγαιύηεξνο ηόηε εκθαλίδεη ην κήλπκα «ΜΗΚΡΟΣΔΡΟ»

II. Γηαθνξεηηθά παξνπζηάδεη ην κήλπκα «ΜΖ ΔΓΚΤΡΟ ΑΡΗΘΜΟ. ΓΧΔ ΑΡΗΘΜΟ

ΜΔΣΑΞΤ 0 θαη 100»

4. Παξνπζηάδεη ην ζπλνιηθό αξηζκό πξνζπαζεηώλ πνπ έθακε ν 2νο παίθηεο. Δλόζσ ν 2νο παίθηεο δελ βξίζθεη ηνλ αξηζκό ηόηε ζπλερίδεη λα θαηαρσξεί λένπο αξηζκνύο. 5. Με ην πάηεκα ηνπ θνπκπηνύ «ΔΞΟΓΟ» ην πξόγξακκα ηεξκαηίδεηαη.



Γοκή επαλάιευες Δληοιή FOR /NEXT ( απιή κνξθή θαη ρξήζε βεκάησλ (step))




ηόρνη


1. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηε δνκή Δπαλάιεςεο For / Next

2. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηε πλάξηεζε InputBox

Πξόβιεκα: Γεκηνπξγία κίαο θόξκαο ζηελ νπνία ν ρξήζηεο ζα δίλεη ηνπο βαζκνύο 15 καζεηώλ

κηαο ηάμεο ζηελ Πιεξνθνξηθή θαη ζα ππνινγίδεη θαη εκθαλίδεη ηνλ Μέζν Όξν ηεο ηάμεο.


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο ηξία αληηθείκελα ηύπνπ Command Button θαη ηξία

αληηθείκελα ηύπνπ Label

3. Ρπζκίζηε ηηο ηδηόηεηεο ησλ αληηθεηκέλσλ ζύκθσλα κε ηνλ παξαθάησ πίλαθα.

Name Caption Font Text

Command1 cmdVathmoi Γώζε Βαζκνύο Bold -

Command2 cmdNew Νέν Bold -

Command3 cmdExit Έμνδνο Bold -

Label1 lblTitle Βαζκνινγία Σάμεο Bold/size 14 -

Label2 Μέζνο Όξνο Σάμεο Bold/size 14 -

Label3 lblMesos Bold/size 14 -

4. Σνπνζεηείζηε ηα αληηθείκελα πάλσ ζηε

θόξκα έηζη ώζηε λα κνηάδεη κε ηε δηπιαλή

θόξκα

5. Γηπινπαηήζηε ζην αληηθείκελν Γώζε Βαζκνύο γηα λα αλνίμεη ην παξάζπξν Code ζην νπνίν λα

γξάςεηε ηηο εληνιέο πνπ θαίλνληαη πην θάησ:

Dim iVath, iCount, iSum As Integer

Dim cMesos As Currency

iSum = 0

For iCount =1 to 15

iVath = Val (InputBox (¨Γώζε Βαζκό Μαζεηή ¨))



iSum = iSum + iVath

Next iCount

cMesos = iSum / 15

lblMesos.Caption = cMesos

Πόζνπο βαζκνύο ζα δηαβάζεη ην πξόγξακκα γηα λα ππνινγίζεη ην κέζν όξν θαη γηαηί;

Πνηεο κεηαβιεηέο ρξεζηκνπνηήζεθαλ ζην πην πάλσ πξόγξακκα θαη ηη ηύπνπ είλαη απηέο;

6. Μεηαθεξζείηε ζην Run Mode θαη ηξέμεηε ην πξόγξακκα.


8. Γξάςεηε ηηο θαηάιιειεο εληνιέο γηα ηα αληηθείκελα Νέν θαη Έμνδνο ζηε θόξκα ζαο.

9. Απνζεθεύζεηε ην project θαη ηε θόξκα ζηε δηζθέηα κε ην όλνκα Mesos.


1. Πόηε θαη γηαηί ρξεζηκνπνηνύκε ηε Γνκή Δπαλάιεςεο For / Next;

2. Πνηα ε ρξήζε ηεο ζπλάξηεζεο InputBox ;



Άζθεζε 1 Υξεζηκνπνηώληαο ηε κέζνδν ηεο πξνθαηαξηηθήο εθηέιεζεο, λα παξνπζηάδεηε ηα απνηειέζκαηα ηνπ πην θάησ απνζπάζκαηνο πξνγξάκκαηνο:

S = 20 for I= 10 to 12 S = S - I + 2 Print S Next I S = 0 Print S

Άζθεζε 2 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ρξεζηκνπνηώληαο ηελ εληνιή For /Next, ην νπνίν λα:

α) δηαβάδεη ην πιήζνο ησλ αξηζκώλ πνπ επηζπκεί λα πιεθηξνινγήζεη ν ρξήζηεο β) δηαβάδεη έλα πξνο έλα όινπο ηνπο αξηζκνύο (ζύκθσλα κε ηε ηηκή πνπ έρεη

πξνζδηνξίζεη πην πάλσ) γ) ππνινγίδεη ην άζξνηζκα ηνπο θαη ην εθηππώλεη. Άζθεζε 3 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ρξεζηκνπνηώληαο ηελ εληνιή For /Next, ην νπνίν λα:

α) εθηππώλεη ηνπο αξηζκνύο 1 κέρξη 10 β) εθηππώλεη ηνπο αξηζκνύο 10 κέρξη 1 γ) εθηππώλεη ηνπο πεξηηηνύο αξηζκνύο από ην 1 κέρξη ην 20 δ) εθηππώλεη ηνπο δπγνύο αξηζκνύο από ην 1 κέρξη ην 20.

Γηα ηελ θάζε πεξίπησζε ην πξόγξακκα λα ρξεζηκνπνηεί δηαθνξεηηθό θνπκπί δηαηαγήο.



Δληοιή Do While / Loop




ηόρνη


1. κπνξνύλ λα δεκηνπξγνύλ αληηθείκελν ηύπνπ Shape ζηε VISUAL BASIC

2. θαηαλνήζνπλ ηηο ηδηόηεηεο Top, Left.

3. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηε δνκή Δπαλάιεςεο Do/While/Loop


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Label γηα ηνλ ηίηιν ηεο θόξκαο θαη

δύν αληηθείκελα ηύπνπ Command Button.

3. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Shape


Name Caption Shape Fillcolor Fillstyle

Label1 lblTitle Κίλεζε

Αληηθεηκέλνπ

- - -

Command1 cmdMove Κίλεζε - - -

Command2 cmdReset Αξρηθή Θέζε - - -

Shape1 shpMove - circle Κόθθηλν ρξώκα Solid

5. Πνηα ε ηηκή ηεο ηδηόηεηαο Top θαη ηεο ηδηόηεηαο Left ηνπ αληηθεηκέλνπ Shape1;

6. Γώζηε ηελ ηηκή 2000 ζηελ ηδηόηεηα Top ηνπ αληηθεηκέλνπ Shape1. Ση παξαηεξείηε ζρεηηθά κε ηε

ζέζε ηνπ αληηθεηκέλνπ πάλσ ζηε θόξκα;

7. Γώζηε ηελ ηηκή 2000 ζηελ ηδηόηεηα Left ηνπ αληηθεηκέλνπ Shape1. Ση παξαηεξείηε ζρεηηθά κε ηε

ζέζε αληηθεηκέλνπ πάλσ ζηε θόξκα;

8. Γώζηε ηελ ηηκή 0 ζηηο ηδηόηεηεο Top θαη Left ηνπ

αληηθεηκέλνπ Shape1. Η θόξκα ζαο ζα κνηάδεη κε ην

δηπιαλό παξάζπξν.



9. Γηπινπαηήζηε ζην αληηθείκελν Command1

γηα λα αλνίμεη ην παξάζπξν Code, ζην νπνίν

λα γξάςεηε ηηο εληνιέο πνπ θαίλνληαη ζην


10. Ση πηζηεύεηε όηη θάλνπλ απηέο νη εληνιέο;

11. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Command1. Ση παξαηεξείηε;

12. Κάλεηε επηά ζπλερόκελα θιηθ πάλσ ζην αληηθείκελν Command1. Πνπ κεηαθέξζεθε ην

αληηθείκελν Shape1;

13. Μεηαθεξζείηε ζην Design Mode. Γηπινπαηήζηε ζην αληηθείκελν Command1 έηζη ώζηε λα

αλνίμεη ην παξάζπξν Code. Πξνζζέζηε ηηο αλαγθαίεο εληνιέο έηζη ώζηε νη νθηώ κεηαθηλήζεηο λα

γίλνπλ απηόκαηα κε ην πάηεκα κηα θνξά κόλν ηνπ Command1. (Χξήζε Γνκήο επαλάιεςεο

Do/While/Loop)

ρεδηάζηε ην Λνγηθό Γηάγξακκα ηνπ λένπ πξνγξάκκηνο:

Γξάςεηε ην λέν Πξόγξακκα:



14. Πνηα κεηαβιεηή ρξεζηκνπνηείηαη ζην πξόγξακκα ηνπ αληηθεηκέλνπ Command1 θαη γηαηί;

15. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Command1. Πνηα ζέζε πήξε

ην αληηθείκελν Shape1 ζε ζρέζε κε ηε ζέζε πνπ πήξε ζηελ άζθεζε 11;

16. Πνηα ηηκή πήξαλ νη ηδηόηεηεο Top θαη Left κεηά ηελ εθηέιεζε ηεο πξνεγνύκελεο άζθεζεο ;

17. Δπηζηξέςεηε ζην Design Mode.

18. Γξάςεηε κέζα ζηε δηαδηθαζία Private frmReset_Click (ηνπ αληηθείκέλνπ Command2)ηελ εληνιή

ε νπνία ζα κεηαθηλεί ην ζρήκα ζηελ αξρηθή ηνπ ζέζε όηαλ θάλνπκε θιηθ πάλσ ηνπ. Πνηα είλαη

απηή ε εληνιή;

19. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Command1, κεηά θάλεηε έλα

θιηθ πάλσ ζην αληηθείκελν Command2. Ση παξαηεξείηε;

20. Βγείηε έμσ από ην πξόγξακκα ηεο Visual Basic απνζεθεύνληαο ην project θαη ηε θόξκα ζαο, κε

ην όλνκα move, πάλσ ζηε δηζθέηα ζαο.


1. Πόηε ρξεζηκνπνηείηαη ην αληηθείκελν Shape κέζα ζηε θόξκα καο;

2. Πνηα ζρήκαηα κπνξεί λα πάξεη ην αληηθείκελν Shape;

3. Πνηα ηδηόηεηα αιιάδεη ην ζρήκα ηνπ αληηθεηκέλνπ Shape;

4. ε ηη ρξεζηκεύνπλ νη ηδηόηεηεο Top θαη Left;

5. Ση ηηκή ζα έρεη ε κεηαβιεηή iCount κεηά ηελ εθηέιεζε ηνπ πξνγξάκκαηνο ηνπ αληηθεηκέλνπ

Command1 6. Πόηε ρξεζηκνπνηείηαη ε εληνιή Do/While/Loop;



Άζθεζε 1

Υξεζηκνπνηώληαο ηε κέζνδν ηεο πξνθαηαξηηθήο εθηέιεζεο, λα παξνπζηάδεηε ηα απνηειέζκαηα ηνπ πην θάησ απνζπάζκαηνο πξνγξάκκαηνο:

a = 9 b = 4 Do While a > 2 a = a - b b = b - 1 Loop Print a Print b

Άζθεζε 2

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ρξεζηκνπνηώληαο ηελ εληνιή Do While / Loop, ην νπνίν δέρεηαη από ην ρξήζηε 10 αθέξαηνπο ηπραίνπο αξηζκνύο, ππνινγίδεη θαη εκθαλίδεη ηνλ κέζν όξν ηνπο. Άζθεζε 3 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ρξεζηκνπνηώληαο ηελ εληνιή Do While / Loop, ην νπνίν δέρεηαη από ην ρξήζηε κηα αθνινπζία από αθέξαηνπο αξηζκνύο, ππνινγίδεη θαη εκθαλίδεη ην πιήζνο ησλ ζεηηθώλ αξηζκώλ θαη ην πιήζνο ησλ αξλεηηθώλ αξηζκώλ πνπ δόζεθαλ. Σν πξόγξακκα ζηακαηά όηαλ ν ρξήζηεο δώζεη ηνλ αξηζκό κεδέλ. Άζθεζε 4

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν δέρεηαη από ην ρξήζηε δύν αξηζκνύο θαη ππνινγίδεη θαη εκθαλίδεη: (α) ηνλ κέζν όξν ησλ ελδηάκεζσλ αξηζκώλ ζπκπεξηιακβαλνκέλσλ ησλ δύν αξηζκώλ πνπ

δόζεθαλ. Πρ. Αλ δνζεί ν αξηζκόο 5 θαη ν αξηζκόο 8 ηόηε

Μέζνο Όξνο = 5+6+7+8=26/4=6.5 (β) ππνινγίδεη θαη εκθαλίδεη ηνλ κέζν όξν κόλν ησλ πεξηηηώλ αξηζκώλ Πρ. Αλ δνζεί ν αξηζκόο 5 θαη ν αξηζκόο 8 ηόηε Μέζνο Όξνο = 5+7=12/2=6 Γηα ηελ θάζε πεξίπησζε ην πξόγξακκα λα ρξεζηκνπνηεί δηαθνξεηηθό θνπκπί δηαηαγήο.



Άζθεζε 5

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν δέρεηαη από ην ρξήζηε έλα αθέξαην αξηζκό 0 κέρξη 12, ππνινγίδεη θαη εκθαλίδεη ην παξαγνληηθό ηνπ. π.ρ. 4! = 4*3*2*1=24 0! = 1 Σν πξόγξακκα λα ειέγρεη όηη ν αξηζκόο πνπ δόζεθε είλαη κεηαμύ 1 θαη 12 ζπκπεξηιακβαλνκέλσλ. ε πεξίπησζε ιάζνπο λα δίδεηαη ην θαηάιιειν κήλπκα ζην ρξήζηε.



Κοσκπηά Δπηιογής: Option Buttons – Check Buttons




ηόρνη


1. κπνξνύλ λα δεκηνπξγνύλ αληηθείκελα ηύπνπ ChecBox, Option Buttons, Frame ζηε

VISUAL BASIC

2. θαηαλνήζνπλ ηελ ηδηόηεηα Value.

3. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηηο ζπλαξηήζεηο vbBlue, vbGreen, vbRed, vbYellow

4. δεκηνπξγνύλ Αξρείν εθηειέζηκνπ πξνγξάκκαηνο ( *. exe)


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο δύν αληηθείκελα ηύπνπ Frame

3. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο ηξία αληηθείκελα ηύπνπ ChecBox θαη ηνπνζεηήζηε ηα ζην

πξώην Frame

4. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο ηέζζεξα αληηθείκελα ηύπνπ Option Buttons θαη ηνπνζεηήζηε

ηα ζην δεύηεξν Frame

5. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο ηξία αληηθείκελα ηύπνπ Command Button, δύν αληηθείκελα

ηύπνπ Label θαη έλα αληηθείκελν ηύπνπ TextBox

6. Ρπζκίζηε ηηο ηδηόηεηεο ησλ αληηθεηκέλσλ ζύκθσλα κε ηνλ παξαθάησ πίλαθα:

( όπνπ έρεη – λα κελ γίλεη θακία αιιαγή. Όπνπ δελ έρεη ηίπνηα λα κπαίλνπλ θελά δηαζηήκαηα)

Name Caption Text Font Border Style

Command1 cmdDisplay Δκθάληζε - Bold -

Command2 cmdNew Νέν - Bold -

Command3 cmdExit Έμνδνο - Bold -

Label1 - Γώζε ην κήλπκα - Bold -

Label2 lblMessage - size 14 1- Fixed Single

Text1 txtMessage - - -

check1 chkBold Έληνλε γξαθή - Bold -

check2 chkUnderline Τπνγξάκκηζε - Bold -

check3 chkItalic Πιάγηα γξαθή - Bold -

option1 optRed θόθθηλν - Bold -

option2 optBlue Μπιε - Bold -

option3 optGreen Πξάζηλν - Bold -

option4 optYellow Κίηξηλν - Bold -

Frame1 - ηπι - Bold -

Frame2 - Υξώκα - Bold -



7. Μεηά από ηηο ξπζκίζεηο ησλ

ηδηνηήησλ ε θόξκα ζαο λα έρεη ηε

δηπιαλή κνξθή.

8. Αλνίμεηε ην παξάζπξν

πξνγξακκαηηζκνύ κε ηηο επηινγέο

View/Code θαη γξάςεηε ηα

πξνγξάκκαηα ησλ αληηθεηκέλσλ όπσο

θαίλνληαη παξαθάησ:

Private Sub chkBold_Click() lblMessage.Font.Bold = chkBold.Value End Sub

Private Sub cmdNew_Click() txtMessage.SetFocus txtMessage.Text = "" lblMessage.Caption = "" End Sub

Private Sub chkItalic_Click() lblMessage.Font.Italic = chkItalic.Value End Sub

Private Sub chkUnderline_Click()

lblMessage.Font.Underline = chkUnderline.Value End Sub

Private Sub optBlue_Click() lblMessage.ForeColor = vbBlue End Sub

Private Sub optGreen_Click() lblMessage.ForeColor = vbGreen End Sub

Private Sub optYellow_Click() lblMessage.ForeColor = vbYellow End Sub

Private Sub optRed_Click() lblMessage.ForeColor = vbRed End Sub

Private Sub cmdDisplay_Click() lblMessage.Caption = txtMessage.Text End Sub

Private Sub cmdExit_Click() End End Sub



9. Απνζεθεύζεηε ηε θόξκα θαη ην Project ζηε δηζθέηα ζαο κε ην όλνκα Format .

10. Μεηαθεξζείηε ζην Run Mode θαη γξάςεηε ην όλνκα ζαο κέζα ζην TextBox . Κάλεηε έλα θιηθ

πάλσ ζην αληηθείκελν Δκθάληζε. Ση παξαηεξείηε;

11. Κάλεηε έλα θιηθ πάλσ ζηα αληηθείκελα Έληνλε γξαθή, Πιάγηα γξαθή, Τπνγξάκκηζε. Ση


12. Κάλεηε έλα θιηθ πάλσ ζηα αληηθείκελα Κόθθηλν, Μπιε, Πξάζηλν, Κίηξηλν. Ση παξαηεξείηε;

13. Σα αληηθείκελα Κόθθηλν, Μπιε, Πξάζηλν, Κίηξηλν κπνξνύλ λα είλαη ηαπηόρξνλα

ελεξγνπνηεκέλα;

14. Μεηαθεξζείηε ζην Design Mode θαη δώζηε ηελ εληνιή File/Make project.exe. ηελ επηινγή File

Name δώζηε ην όλνκα Format1.

15. Απελεξγνπνηείζηε ηε Visual Basic θαη κεηαθεξζείηε ζηε δηζθέηα ζαο. Βξέζηε ην αξρείν Format1

θαη ελεξγνπνηείζηε ην. Ση παξαηεξείηε;

Απαληήζηε ζην ηεηξάδην ζαο ηηο πην θάησ εξσηήζεηο. ( ζα ηηο ειέγμνπκε ζην ζεσξεηηθό κάζεκα).

1. Πόηε ρξεζηκνπνηείηαη ην αληηθείκελν Frame κέζα ζηε θόξκα καο;

2. Ση είλαη ε ηδηόηεηα Value ηνπ αληηθεηκέλνπ CheckBox θαη ηη ηηκέο παίξλεη;

3. Δμεγείζηε ηηο εληνιέο: lblMessage.Font.Italic = chkItalic.Value, lblMessage.ForeColor =

vbRed

4. Δμεγείζηε ηηο ηδηόηεηεο: lblMessage.Font.Underline, chkItalic.Value

5. Πνηα ε ρξεζηκόηεηα λα κεηαηξέπεηο έλα αξρείν ζε κνξθή εθηειέζηκνπ πξνγξάκκαηνο ( *. exe);

6. Γξάςεηε ην πξόγξακκα ηνπ αληηθεηκέλνπ εκθάληζε ώζηε ε εξγαζία λα έρεη ηα ίδηα απνηειέζκαηα

ρσξίο όκσο λα πξνγξακκαηηζηνύλ ηα αληηθείκελα ηύπνπ Checkbox θαη ηύπνπ Option Button.



Άζθεζε 1

Μηα αζθαιηζηηθή εηαηξεία γηα λα ππνινγίζεη ηα αζθάιηζηξα ελόο απηνθηλήηνπ ιακβάλεη ππόςε ηνλ θπβηζκό ηνπ απηνθηλήηνπ, ην θύιν θαη ηελ ειηθία ηνπ αζθαιηδνκέλνπ. Αξρηθά, αλ ν θπβηζκόο ηνπ απηνθηλήηνπ είλαη πάλσ από 1000 θπβηθά ηόηε ηα αζθάιηζηξα είλαη 100 ιίξεο δηαθνξεηηθά είλαη 80 ιίξεο. ηε ζπλέρεηα αλ ν αζθαιηδόκελνο είλαη άλδξαο ηόηε πξνζηίζεληαη 50 ιίξεο ζηα αζθάιηζηξα ελώ αλ ν αζθαιηδόκελνο είλαη γπλαίθα ηόηε πξνζηίζεληαη 70 ιίξεο. Σέινο γηα αζθαιηδόκελνπο κέρξη 25 ρξόλσλ πξνζηίζεληαη 40 ιίξεο ζηα αζθάιηζηξα, γηα αζθαιηδόκελνπο κεηαμύ 26 θαη 65 ρξόλσλ πξνζηίζεληαη 10 ιίξεο ζηα αζθάιηζηξα θαη γηα αζθαιηδόκελνπο πάλσ από 65 ρξόλσλ πξνζηίζεληαη 50 ιίξεο ζηα αζθάιηζηξα. Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν ζα πξέπεη λα δίδεη ηελ δπλαηόηεηα ζην ρξήζηε λα πιεθηξνινγήζεη ην όλνκα ηνπ αζθαιηδνκέλνπ θαη ηνλ θπβηζκό ηνπ απηνθηλήηνπ. Σν θύιν θαη ηελ ειηθία ζα κπνξεί λα ηα επηιέμεη ρξεζηκνπνηώληαο θνπκπηά επηινγώλ (Option buttons) ηα νπνία ζα πξέπεη λα είλαη ρσξηζκέλα ζε δύν νκάδεο (Φύιν θαη ειηθία). Σέινο παηώληαο πάλσ ζην θνπκπί ΤΠΟΛΟΓΗΔ ην πξόγξακκα λα ππνινγίδεη θαη λα εκθαλίδεη ηα αζθάιηζηξα ζύκθσλα κε ηα δεδνκέλα. Παραηήρεζε: Σν πξόγξακκα λα ππνινγίδεη ηα αζθάιηζηξα αλ έρεη δνζεί αξηζκεηηθόο

θπβηζκόο ηνπ απηνθηλήηνπ δηαθνξεηηθά λα δίδεηαη κήλπκα ιάζνπο



Άζθεζε 2

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα ππνινγίδεη ηελ ηηκή αγνξάο ελόο απηνθηλήηνπ θάλνληαο ρξήζε ρεηξηζηεξίσλ Option Button θαη Check Box. Ζ ηηκή αγνξάο ελόο απηνθηλήηνπ είλαη ην άζξνηζκα ηεο βαζηθήο ηηκήο ηνπ κνληέινπ ζπλ ηηο ηηκέο γηα επηπιένλ επθνιίεο (accessories) ζύκθσλα κε ηνπο πην θάησ πίλαθεο.

Μοληέιο Βαζηθή Σηκή

BMW 320i 15.000

BMW 325i 20.000

BMW Z3 25.000

BMW 328i 30.000

Ο ρξήζηεο επηιέγεη ην κνληέιν ηνπ απηνθηλήηνπ θαη ηηο επηπιένλ επθνιίεο πνπ ζέιεη λα έρεη ην απηνθίλεην θαη κε ην πάηεκα ηνπ θνπκπηνύ «ΣΗΜΖ» ην πξόγξακκα ππνινγίδεη θαη εκθαλίδεη ηελ ηηκή ηνπ απηνθηλήηνπ.

Accessory Σηκή

Air-condition 1.000

Sunroof 2.000

Stereo 3.000



Λίζηες (List Box)




ηόρνη


1. κπνξνύλ λα δεκηνπξγνύλ αληηθείκελν ηύπνπ List Box ζηε VISUAL BASIC

2. θαηαλνήζνπλ ηελ ηδηόηεηα List, ListIndex.

3. Δηζάγνπλ εηθόλεο κέζα ζε έλα Image Box κε ηελ ρξήζε ηεο ζπλάξηεζεο LoadPicture.

4. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηελ εληνιή Select Case / End Select


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ List Box

3. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Command Button θαη ηξία

αληηθείκελα ηύπνπ Label

4. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Image Box


Name Caption Font

List1 lstOmada - -

Command1 cmdExit Exit Bold

Label1 lbltitle ΟΜΑΓΔ Bold/size 12

Label2 lblMessage Bold/size 30

Label3 - ΔΠΙΛΟΓΗ ΟΜΑΓΑ: Bold

Image1 imgSima - -

6. Μέζα ζην Properties Window βξέζηε ηελ ηδηόηεηα List θαη γξάςεηε ηελ ιέμε ΑΔΛ. Μεηά

παηήζηε ηα πιήθηξα ENTER + CTRL γηα λα κπνξέζεηε λα γξάςεηε ζηελ επόκελε γξακκή ηε

δεύηεξε νκάδα. Με ηνλ ίδην ηξόπν ζπκπιεξώζηε ηηο νκάδεο : ΑΔΛ, ΑΝΟΡΘΧΗ, ΑΠΟΔΛ, ,

ΑΠΟΛΛΧΝ, ΟΜΟΝΟΙΑ, ΑΛΑΜΙΝΑ. Όηαλ γξάςεηε όιεο ηηο νκάδεο παηήζηε ην ENTER.

7. Μεηαθεξζείηε ζην Code Window ηνπ αληηθεηκέλνπ lstOmada θαη γξάςεηε ηνλ παξαθάησ

θσδηθό:

Private Sub lstOmada_Click() lblMessage.Caption = lstOmada.List(lstOmada.ListIndex) Select Case List1.ListIndex Case 0 lblMessage.ForeColor = vbBlue lblMessage.BackColor = vbYellow Form1.BackColor = vbYellow imgSima.Picture = LoadPicture("c:\vb6les\AEL.GIF") Case 1 lblMessage.ForeColor = vbWhite lblMessage.BackColor = vbBlue Form1.BackColor = vbBlue imgSima.Picture = LoadPicture("c:\ vb6les\ANO.GIF") Case 2 lblMessage.ForeColor = vbYellow lblMessage.BackColor = vbBlue Form1.BackColor = vbBlue imgSima.Picture = LoadPicture("c:\ vb6les\APOEL.GIF")



Case 3 lblMessage.ForeColor = vbBlue

lblMessage.BackColor = vbWhite Form1.BackColor = vbWhite imgSima.Picture = LoadPicture("c:\ vb6les\APOLLON.GIF") Case 4 lblMessage.ForeColor = vbWhite lblMessage.BackColor = vbGreen Form1.BackColor = vbGreen imgSima.Picture = LoadPicture("c:\ vb6les\OMO.GIF") Case 5 lblMessage.ForeColor = vbWhite lblMessage.BackColor = vbRed Form1.BackColor = vbRed imgSima.Picture = LoadPicture("c:\SALAMINA.JPG") End Select End Sub

8. ην αληηθείκελν cmdExit βάιηε ηελ θαηάιιειε εληνιή εμόδνπ από ηελ θόξκα.

9. Απνζεθεύζεηε ην project θαη ηε θόξκα ζηε δηζθέηα ζαο κε ην όλνκα Teams.

10. Πνηα αληηθείκελα έρνπλ πξνγξακκαηηζηεί ζην παξαπάλσ πξόγξακκα;

11. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ πάλσ ζε θάπνηα από ηηο νκάδεο πνπ

βξίζθεηαη κέζα ζην List Box. Ση παξαηεξείηε;

12. Κάλεηε θιηθ πάλσ ζε όιεο ηηο νκάδεο θαη ειέγμεηε αλ ιεηηνπξγεί ζσζηά ην πξόγξακκα.

13. Μεηαθεξζείηε ζην Design Mode.

14. Δπηιέμεηε File/Make .exe θαη δεκηνπξγείζηε έλα εθηειέζηκν πξόγξακκα ην νπνίν λα νλνκάζεηε

Teams;

15. Απελεξγνπνηείζηε ηε Visual Basic θαη αλνίμεηε ην εθηειέζηκν αξρείν Teams πνπ βξίζθεηαη

πάλσ ζηε δηζθέηα ζαο.


1. Πόηε ρξεζηκνπνηείηαη ην αληηθείκελν List Box κέζα ζηε θόξκα καο;

2. ε ηη ρξεζηκεύεη ε εληνιή List;

3. Πνηα εληνιή κπνξεί λα αιιάμεη ην όλνκα ελόο ζηνηρείνπ κέζα ζε έλα List Box ή Combo Box;

4. Πνηα εληνιή κπνξεί λα πξνζζέζεη έλα ζηνηρείν κέζα ζε έλα List Box ή Combo Box;

5. Δμεγείζηε ηελ επόκελε εληνιή: lstOmada.List(5) = “Οιπκπηαθόο”.

6. Ση ηηκή έρεη ε ηδηόηεηα ListIndex ηνπ όγδννπ αληηθεηκέλνπ ελόο List Box.

7. Δμεγείζηε ηελ εληνιή imgSima.Picture = LoadPicture(“c:\ vb6les\ANO.GIF ”).

8. Με πνηα εληνιή κπνξνύκε λα αληηθαηαζηήζνπκε ηελ εληνιή Select Case/ End Select κέζα ζε έλα

πξόγξακκα;



Άζθεζε 1

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα ρξεζηκνπνηεί κηα ιίζηα (List Box) κε όιεο ηηο πόιεηο ηεο Κύπξνπ. Όηαλ ν ρξήζηεο επηιέμεη κηα πόιε από ηε ιίζηα ηόηε ε επηιεγκέλε πόιε εκθαλίδεηαη πάλσ ζε κηα εηηθέηα. Άζθεζε 2 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν επηηξέπεη ζην ρξήζηε λα θάκεη κηα παξαγγειία κε δηάθνξα εμαξηήκαηα ειεθηξνληθώλ ππνινγηζηώλ.

Σα δηαζέζηκα εμαξηήκαηα πεξηιακβάλνληαη κέζα ζηε ιίζηα ΔΞΑΡΣΖΜΑΣΑ. (πρ RAM , CD ROM, DVD ROM, CD WRITER, DVD WRITER, TFT DISPLAY θιπ).

Αλ έλα εμάξηεκα δελ ππάξρεη ζηε ιίζηα ΔΞΑΡΣΖΜΑΣΑ ηόηε ν ρξήζηεο κπνξεί λα πιεθηξνινγήζεη ην όλνκα ηνπ εμαξηήκαηνο ζε έλα text box θαη κεηά κε θιηθ ζην θνπκπί ΝΔΟ ΔΞΑΡΣΖΜΑ λα ην πξνζζέζεη ζηε ιίζηα εμαξηεκάησλ.

Ο ρξήζηεο κπνξεί λα πξνζζέζεη έλα εμάξηεκα κέζα ζηε ιίζηα ΠΑΡΑΓΓΔΛΗΑ επηιέγνληαο ην από ηε ιίζηα ΔΞΑΡΣΖΜΑΣΑ. Όηαλ ην εμάξηεκα πξνζηεζεί ζηε ιίζηα ΠΑΡΑΓΓΔΛΗΑ αθαηξείηαη από ηε ιίζηα ΔΞΑΡΣΖΜΑΣΑ.

Ο ρξήζηεο κπνξεί επίζεο λα αθαηξέζεη έλα εμάξηεκα από ηε ιίζηα ΠΑΡΑΓΓΔΛΗΑ επηιέγνληαο ην. Όηαλ αθαηξεζεί από ηε ιίζηα ΠΑΡΑΓΓΔΛΗΑ ηόηε πξνζηίζεηαη ζηε ιίζηα ΔΞΑΡΣΖΜΑΣΑ.

Όηαλ ε παξαγγειία ζπκπιεξσζεί ηόηε κε θιηθ ζην θνπκπί ΤΠΟΛΟΓΗΔ ην πξόγξακκα ην πξόγξακκα εκθαλίδεη ην ζπλνιηθό αξηζκό εμαξηεκάησλ ηεο παξαγγειίαο θαη ην πνζνζηό ηεο έθπησζεο ηνπ πειάηε. Ζ έθπησζε είλαη 20% γηα 4 ή πεξηζζόηεξα εμαξηήκαηα, δηαθνξεηηθά είλαη 0%.



Πίλαθες




ηόρνη


1. κπνξνύλ λα δεκηνπξγνύλ θαη ρξεζηκνπνηνύλ πίλαθα κεηαβιεηώλ ζηε VISUAL BASIC

2. θαηαλνήζνπλ ηελ δηόηεηα Visible.

3. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηηο εληνιέο cls, print, CurrentX, CurrentY

Πξόβιεκα: Γεκηνπξγία κίαο θόξκαο ζηελ νπνία ν ρξήζηεο ζα δίλεη 5 αξηζκνύο νη νπνίνη ζα

απνζεθεύνληαη ζε έλα πίλαθα 5 ζηνηρείσλ. ηε ζπλέρεηα δηαβάδνληαο ηνπο αξηζκνύο απηνύο από

ηνλ πίλαθα ζα ηνπο παξνπζηάδεη καδί κε ην ηεηξάγσλν ηνπο, αθνύ πξώηα ην ππνινγίζεη.


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Text box, δύν αληηθείκελα ηύπνπ

Label

3. θαη ηέζζεξα αληηθείκελα ηύπνπ Command Button


Name Caption Font Text

Command1 cmdChange Νένο Αξηζκόο Bold -

Command2 cmdDisplay Δκθάληζε απνηειεζκάησλ Bold -

Command3 cmdNew Νέν Bold -

Command4 cmdExit Έμνδνο Bold -

Label1 Lbltitle Σεηξαγσληθή Γύλακε Αξηζκώλ Bold/size 10 -

Label2 - Γώζηε ηνπο Αξηζκνύο Bold/size 9 -

Text1 txtNum Bold

5. Σνπνζεηείζηε ηα αληηθείκελα πάλσ ζηε

θόξκα έηζη ώζηε λα κνηάδεη κε ηε δηπιαλή

θόξκα



6. Μεηαθεξζείηε ζην Code Window θαη γξάςεηε ηα παξαθάησ πξνγξάκκαηα:

General

Option Explicit

Dim number(1 to 5) As Integer

Dim i As Integer

Private Sub Form_Load()

i = 1

End Sub

Private Sub cmdChange_Click()

If (i >= 1) And (i <= 5) Then

number(i) = Val(txtNum.Text)

i = i + 1

txtNum.SetFocus

txtNum.Text = ""

Else

txtNum.Visible = False

Label1.Visible = False

cmdChange.Visible = False

End If

End Sub

Private Sub cmdNew_Click()

Cls

i = 1

txtNum.Text = ""

txtNum.Visible = True

Label1.Visible = True

cmdChange.Visible = True

End Sub

Private Sub cmdDisplay_Click()

cmdChange.Visible = False

CurrentX = 1000

CurrentY = 200

Print "Αξηζκόο"; " "; "Σεηξάγσλν αξηζκνύ"

CurrentX = 1000

Print "======================================"

For i = 1 To 5

CurrentX = 1000

Print " "; number(i); " "; number(i) ^ 2

Print

Next i

End Sub

Private Sub cmdExit_Click()

End

End Sub



7. Απνζεθεύζεηε ην project θαη ηε θόξκα ζηε δηζθέηα κε ην όλνκα Square.

8. Μεηαθεξζείηε ζην Run Mode θαη γξάςεηε έλα αξηζκό κέζα ζην TextBox. Μεηά θάλεηε θιηθ

πάλσ ζην αληηθείκελν Άιιαμε αξηζκό. Δπαλέιαβε απηή ηε δηαδηθαζία κέρξη λα ραζεί ην

TextBox . Σόηε θάλε θιηθ πάλσ ζην αληηθείκελν Δκθάληζε απνηειεζκάησλ. Ση παξαηεξείηε;


1. Γηαηί ρξεζηκνπνηήζακε ζηελ αξρή ηνπ πξνγξακκαηηζκνύ ηελ εληνιή Option Explicit ;

2. Γηαηί ζηε δηαδηθαζία (πξόγξακκα) ηνπ cmdNew πξόζζεζα ηελ εληνιή i=1;

3. Πνηα ε ρξήζε ηεο ηδηόηεηαο Visible;

4. ε ηη ρξεζηκεύεη ε εληνιή cls πνπ ρξεζηκνπνίεζα κέζα ζηε δηαδηθαζία ηνπ cmdNew;

5. Δμεγείζηε ηηο εληνιέο Print, CurrentX, CurrentY.

6. Πσο ζα εκθαλίδνληαλ ηα απνηειέζκαηα αλ δελ ρξεζηκνπνηνύζα θαζόινπ ηηο εληνιέο CurrentX,

CurrentY, κέζα ζηε δηαδηθαζία ηνπ αληηθεηκέλνπ Δκθάληζε απνηειέζκαηα.



Άζθεζε 1

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα: α. δέρεηαη 10 αθέξαηνπο αξηζκνύο θαη λα ηνπο ηνπνζεηεί ζε έλα κνλνδηάζηαην πίλαθα. β. εκθαλίδεη ην πεξηερόκελν ηνπ πίλαθα ζε θαλνληθή ζεηξά. γ. εκθαλίδεη ην πεξηερόκελν ηνπ πίλαθα ζε αληίζηξνθε ζεηξά. δ. ππνινγίδεη θαη εκθαλίδεη ηνλ κέζν όξν ησλ αξηζκώλ ηνπ πίλαθα. ε. ππνινγίδεη θαη εκθαλίδεη ηνλ κέζν όξν ησλ άξηησλ αξηζκώλ ηνπ πίλαθα. ζη. βξίζθεη θαη εκθαλίδεη ηνλ κηθξόηεξν αξηζκό ηνπ πίλαθα. δ. βξίζθεη θαη εκθαλίδεη ηνλ κεγαιύηεξν αξηζκό ηνπ πίλαθα. Γηα ηελ θάζε πεξίπησζε λα ρξεζηκνπνηεζεί μερσξηζηό θνπκπί δηαηαγήο. Άζθεζε 2.

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν: α. δηαβάδεη ηα ύςε 50 αζιεηώλ ζηίβνπ θαη ηα ηνπνζεηεί ζε έλα κνλνδηάζηαην πίλαθα β. Δθηππώλεη ηα ύςε ησλ παηθηώλ θαη ηνλ αξηζκό ζέζεο ηνπο ζηνλ πίλαθα ζε δύν ζηήιεο. γ. βξίζθεη θαη εθηππώλεη ην κεγαιύηεξν ύςνο. Άζθεζε 3. Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν: α. δέρεηαη ηα νλόκαηα 10 καζεηώλ θαη ηνπο αληίζηνηρνπ βαζκνύο ηνπο ζην κάζεκα ηεο

πιεξνθνξηθήο θαη ηα ηνπνζεηεί ζε δύν κνλνδηάζηαηνπο παξάιιεινπο πίλαθεο. β. εκθαλίδεη ζε δύν ζηήιεο ηα νλόκαηα θαη ηνπο βαζκνύο κε ηηο θαηάιιειεο επηθεθαιίδεο. γ. ππνινγίδεη θαη εκθαλίδεη ηνλ κέζν όξν όισλ ησλ βαζκώλ. δ. ππνινγίδεη θαη εκθαλίδεη ην πιήζνο ησλ καζεηώλ ησλ νπνίσλ ν βαζκόο είλαη θάησ ηνπ

κέζνπ όξνπ. ε. βξίζθεη θαη εκθαλίδεη ην όλνκα ηνπ καζεηή πνπ έρεη ηνλ κηθξόηεξν βαζκό θαη δίπια ηνλ

βαζκό ηνπ. ζη. βξίζθεη θαη εκθαλίδεη ην όλνκα ηνπ καζεηή πνπ έρεη ηνλ κεγαιύηεξν βαζκό θαη δίπια ηνλ

βαζκό ηνπ. Γηα ηελ θάζε πεξίπησζε λα ρξεζηκνπνηεζεί μερσξηζηό θνπκπί δηαηαγήο.



Άζθεζε 4.

Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν: α. δηαβάδεη 10 ιέμεηο ζηα ειιεληθά θαη ηηο αληίζηνηρεο ιέμεηο ζηα αγγιηθά θαη ηηο ηνπνζεηεί κέζα

ζε 2 κνλνδηάζηαηνπο παξάιιεινπο πίλαθεο. β. Ο ρξήζηεο δίδεη κηα ιέμε ζηα Διιεληθά θαη ην πξόγξακκα βξίζθεη θαη εκθαλίδεη ηελ

αληίζηνηρε ιέμε ζηα Αγγιηθά. Αλ ε ιέμε δελ ππάξρεη ηόηε ην πξόγξακκα δίδεη ην θαηάιιειν κήλπκα.



Μελού



Άζθεζε 1

Φύιιν εξγαζίαο 7 (ζει 53 ΖΜΔΗΧΔΗ ΠΛΖΡΟΦΟΡΗΚΖ Πξνγξακκαηηζκόο ζηε Visual Basic). Άζθεζε 2 Να ζρεδηάζεηε ην ινγηθό δηάγξακκα θαη λα γξάςεηε ην αληίζηνηρν πξόγξακκα ζηε Visual Basic, ην νπνίν λα ππνινγίδεη ην εκβαδόλ ελόο Σεηξαγώλνπ, νξζνγσλίνπ θαη ηξηγώλνπ. Σν πξόγξακκα λα θάλεη ρξήζε ελόο κελνύ κε ηίηιν ΓΔΧΜΔΣΡΗΚΑ ΥΖΜΑΣΑ θαη λα πεξηιακβάλεη ηηο επηινγέο ΣΔΣΡΑΓΧΝΟ, ΟΡΘΟΓΧΝΗΟ, ΣΡΗΓΧΝΟ, ΔΞΟΓΟ. Όηαλ ν ρξήζηεο επηιέμεη: Μπνξεί λα γίλεη ρξήζε ηεο εληνιήο SHELL γηα ηελ θιήζε ελόο πξνγξάκκαηνο. Πρ Private Sub mnuOrthogonio_Click() Shell "A:\Visual Basic\VB Β Lykeiou\othogonio.exe", vbMaximizedFocus End Sub Άζθεζε 3 (πξναηξεηηθό)

Ζ πην πάλσ άζθεζε λα γίλεη ρξεζηκνπνηώληαο θόξκεο αληί 4 δηαθνξεηηθά πξνγξάκκαηα.

ΔΠΗΛΟΓΖ ΔΝΔΡΓΔΗΑ

ΣΔΣΡΑΓΧΝΟ εθηειείηαη ην πξόγξακκα ην νπνίν δεηά ηελ πιεπξά ελόο ηεηξαγώλνπ, ππνινγίδεη θαη εκθαλίδεη ην εκβαδόλ ηνπ. Με ηνλ ηεξκαηηζκό ηνπ πξνγξάκκαηνο απηνύ ην πξόγξακκα επηζηξέθεη ζην κελνύ όπνπ ν ρξήζηεο κπνξεί λα επηιέμεη άιιε επηινγή.

ΟΡΘΟΓΧΝΗΟ

εθηειείηαη ην πξόγξακκα ην νπνίν δεηά ην κήθνο θαη ην πιάηνο ελόο νξζνγσλίνπ παξαιιεινγξάκκνπ, ππνινγίδεη θαη εκθαλίδεη ην εκβαδόλ ηνπ. Με ηνλ ηεξκαηηζκό ηνπ πξνγξάκκαηνο απηνύ ην πξόγξακκα επηζηξέθεη ζην κελνύ όπνπ ν ρξήζηεο κπνξεί λα επηιέμεη άιιε επηινγή.

ΣΡΗΓΧΝΟ

εθηειείηαη ην πξόγξακκα ην νπνίν δεηά ηε βάζε θαη ην ύςνο ελόο ηξηγώλνπ, ππνινγίδεη θαη εκθαλίδεη ην εκβαδόλ ηνπ. Με ηνλ ηεξκαηηζκό ηνπ πξνγξάκκαηνο απηνύ ην πξόγξακκα επηζηξέθεη ζην κελνύ όπνπ ν ρξήζηεο κπνξεί λα επηιέμεη άιιε επηινγή

ΈΞΟΓΟ Σέινο πξνγξάκκαηνο



Υρολόκεηρο (TIMER)




ηόρνη


1. κπνξνύλ λα δεκηνπξγνύλ αληηθείκελν ηύπνπ Timer ζηε VISUAL BASIC

2. θαηαλνήζνπλ ηηο ηδηόηεηεο Interval θαη Enabled.

3. θαηαλνήζνπλ θαη ρξεζηκνπνηνύλ ηε ζπλάξηεζε Time

4. ρξεζηκνπνηνύλ ην αληηθείκελν Timer γηα ζθνπνύο επαλάιεςεο

Γεκηνπξγία ξνινγηνύ κε ηελ ρξήζε ηνπ αληηθεηκέλνπ Timer θαη ηεο ζπλάξηεζεο Time.


2. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Timer

3. Γεκηνπξγείζηε πάλσ ζηε θόξκα ζαο έλα αληηθείκελν ηύπνπ Label θαη δύν αληηθείκελα ηύπνπ

Command Button


Name Caption Style Backcolor Enabled Interval

Command1 cmdStart Start Graphical Πξάζηλν ρξώκα - -

Command2 cmdStop Stop Graphical Κόθθηλν ρξώκα - -

Label lblClock - - - -

Timer tmrClock - - - False 1000

5. Μεηά από ηηο ξπζκίζεηο ησλ ηδηνηήησλ ηνπνζεηείζηε ηα

αληηθείκελα έηζη ώζηε ε θόξκα ζαο λα κνηάδεη κε ηε

δηπιαλή θόξκα.

6. Αλνίμεηε ην παξάζπξν πξνγξακκαηηζκνύ κε ηηο

επηινγέο View/Code θαη γξάςεηε ηα πξνγξάκκαηα ησλ

αληηθεηκέλσλ όπσο θαίλνληαη ζην δηπιαλό παξάζπξν.

7. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Start. Ση παξαηεξείηε;

8. Διέγμεηε ην ξπζκό αιιαγήο ησλ αξηζκώλ κέζα ζηε θόξκα ζαο κε ηα δεπηεξόιεπηα ηνπ ξνινγηνύ

ζαο. Ση έρεηε λα παξαηεξήζεηε;

9. Κάλεηε έλα θιηθ ζην αληηθείκελν Stop. Ση παξαηεξείηε;



10. Μεηαθεξζείηε ζην Design Mode θαη αιιάμεηε ηελ ηδηόηεηα Interval από 1000 ζε 2000.

11. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Start. Ση παξαηεξείηε ζε

ζρέζε κε ην ζεκείν 7 ηνπ Φ.Δ.;

12. Μεηαθεξζείηε ζην Design Mode θαη απνζεθεύζεηε ηε θόξκα θαη ην project, πάλσ ζηε δηζθέηα

ζαο κε ην όλνκα clock

13. Αλνίμεηε ην αξρείν move πνπ βξίζθεηαη πάλσ ζηε δηζθέηα ζαο.

14. Γεκηνπξγείζηε δίπια ζην αληηθείκελν Κίλεζε αθόκα έλα αληηθείκελν ηύπνπ Command Button.

15. Γεκηνπξγείζηε έλα αληηθείκελν ηύπνπ Timer.

16. Ρπζκίζηε ηηο ηδηόηεηεο ησλ λέσλ αληηθεηκέλσλ ζύκθσλα κε ην παξαθάησ πίλαθα.

Name Caption Enabled Interval

Command1 cmdStart Timer-Start - -

Timer tmrMove - False 1000

17. Αλνίμεηε ην παξάζπξν

πξνγξακκαηηζκνύ θαη πξνγξακκαηίζηε

ηα θαηλνύξγηα αληηθείκελα κε ηα

πξνγξάκκαηα πνπ θαίλνληαη ζην


18. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Timer-start. Ση


19. Δπηζηξέςεηε ζην Design Mode θαη αιιάμεηε ηελ ηδηόηεηα Interval ηνπ αληηθεηκέλνπ Timer

από 1000 ζε 50.

20. Μεηαθεξζείηε ζην Run Mode θαη θάλεηε έλα θιηθ ζην αληηθείκελν Timer-start. Ση παξαηεξείηε

ζε ζρέζε κε ηελ άζθεζε 19;

21. Δπηζηξέςεηε ζην Design Mode θαη βγείηε έμσ από ην πξόγξακκα ηεο Visual Basic

απνζεθεύνληαο ηηο αιιαγέο πνπ θάλαηε ζην αξρείν move_2.



Απαληήζηε ζην ηεηξάδην ζαο ηηο πην θάησ εξσηήζεηο. ( ζα ηηο ειέγμνπκε ζην ζεσξεηηθό κάζεκα).

1. Πόηε ρξεζηκνπνηείηαη ην αληηθείκελν Timer κέζα ζηε θόξκα καο;

2. Ση είλαη ε ηδηόηεηα Interval ηνπ αληηθεηκέλνπ Timer;

3. Πνηα εληνιή κπνξεί λα αληηθαηαζηήζεη ε ρξήζε ηνπ αληηθεηκέλνπ Timer κέζα ζηε θόξκα θαη

γηαηί;

4. Πνηα ε δηαθνξά ηεο ρξήζεο ηνπ αληηθεηκέλνπ Timer από ηελ εληνιή Do/While/Loop.



Άζθεζε 1 ΖΜΔΗΧΔΗ ΠΛΖΡΟΦΟΡΗΚΖ Φύιιν εξγαζίαο 2 (ζειίδα 30)

ΑΣΚΗΣΕΙΣ VISUAL BASIC1epal-ioann.ioa.sch.gr/joom/pdf/tomeis/pl/askiseis_vb.pdfΑ ΚΖ ΔΗ...

Documents

Transcript of ΑΣΚΗΣΕΙΣ VISUAL BASIC1epal-ioann.ioa.sch.gr/joom/pdf/tomeis/pl/askiseis_vb.pdfΑ ΚΖ ΔΗ...