Ορισμός συναρτήσεων και διαδικασιών

Ορισμός διαδικασίας

• Για να οργανώσουμε καλύτερα τον κώδικα που γράφουμε, αλλά και για να μπορούμε να χρησιμοποιούμε τα ίδια τμήματα του κώδικα πολλές φορές μπορούμε να ορίσουμε ένα σύνολο από εντολές ως μια διαδικασία (procedure) (στη Visual Basic υπορουτίνα (subroutine)).
• Μπορούμε να ορίσουμε δικές μας διαδικασίες με τον εξής τρόπο:

  Sub όνομα διαδικασίας()
  	δηλώσεις τοπικών μεταβλητών;
  
  	εντολές
  end Sub
  

• Στο πρόγραμμα η κλήση (call) της διαδικασίας γίνεται κάθε φορά που εμφανίζεται μια εντολή με το όνομα της διαδικασίας που ορίσαμε. Στο σημείο αυτό η εκτέλεση συνεχίζει με τις εντολές της διαδικασίας, και, όταν αυτές ολοκληρωθούν, η εκτέλεση επιστρέφει στο σημείο απ' όπου ξεκίνησε.
• Παράδειγμα:

  Sub main()
      hello
      MsgBox "Back from hello"
      hello
  End Sub
  
  ' Display hello world
  Sub hello()
      MsgBox "Hello, world"
  End Sub
  

• Κάθε διαδικασία έχει ένα όνομα. Στο πρόγραμμά μας χρησιμοποιούμε το όνομα της διαδικασίας όταν θέλουμε να εκτελεστεί ο αντίστοιχος κώδικας.
• Η εντολή exit sub μπορεί να εμφανιστεί σε οποιοδήποτε σημείο της διαδικασίας. Στο σημείο εκείνο σταματά η εκτέλεση της διαδικασίας και ο έλεγχος ροής (control flow) του προγράμματος συνεχίζει από το σημείο που κλήθηκε η συνάρτηση.
• Η διαδικασία Main είναι αυτή από την οποία ξεκινά η εκτέλεση του προγράμματος.

Ορίσματα

• Μπορούμε να μεταβάλουμε τη λειτουργικότητα μιας διαδικασίας με τη χρήση ορισμάτων. Κάθε όρισμα (argument) μεταφέρεται από το σημείο που καλούμε τη διαδικασία μέσα στη διαδικασία μέσω μιας ειδικής μεταβλητής.
• Τα ορίσματα της διαδικασίας είναι μια σειρά από ονόματα και τύπους μεταβλητών χωρισμένα με κόμμα.
• Όταν καλείται μια διαδικασία οι μεταβλητές που ορίστηκαν ως όρισμα παίρνουν τις τιμές που δόθηκαν κατά την κλήση.
• Παράδειγμα:

  Sub main()
      StrongMessage "Hello", 5, "*"
      StrongMessage "world", 10, "!"
  End Sub
  
  ' Display the message msg prefixed by n instances of the string s
  Sub StrongMessage(msg As String, n As Integer, s As String)
      Dim head As String
      
      ' Could use String(s, n) here
      For i = 1 To n
          head = head + s
      Next i
      MsgBox head + msg + head
  End Sub
  

         
  

Ορισμός συνάρτησης

• Μπορούμε ακόμα να ορίσουμε δικές μας συναρτήσεις με τον εξής τρόπο:

  Function όνομα συνάρτησης(δηλώσεις παραμέτρων) as τύπος αποτελέσματος
  	δηλώσεις τοπικών μεταβλητών;
  
  	εντολές
  	όνομα = τιμή
  end Function
  

• Οι παράμετροι της συνάρτησης είναι μια σειρά από τύπους και ονόματα μεταβλητών χωρισμένα με κόμμα.
• Όταν καλείται μια συνάρτηση οι μεταβλητές που ορίστηκαν ως παράμετροι παίρνουν τις τιμές που δόθηκαν στο όρισμα κατά την κλήση.
• Για να θέσουμε την τιμή που επιστρέφει η συνάρτηση αναθέτουμε μια τιμή στο όνομά της (δεν ορίζουμε αντίστοιχη μεταβλητή).
• Παράδειγμα:

  Sub main()
      MsgBox "64!=" + Str(factorial(45))
  End Sub
  
  ' Return n!
  Function factorial(n As Integer) As Double
      Dim i As Integer
      Dim r As Double ' result
      
      r = 1
      For i = 1 To n
          r = r * i
      Next i
      factorial = r
  End Function
  

  
• Η εντολή exit function μπορεί να εμφανιστεί σε οποιοδήποτε σημείο της συνάρτησης. Στο σημείο εκείνο σταματά η εκτέλεση της συνάρτησης και ο έλεγχος ροής του προγράμματος συνεχίζει από το σημείο που κλήθηκε η συνάρτηση.

Άσκηση

Διαδικασίες και συναρτήσεις

1. Να γράψετε μια συνάρτηση που να υπολογίζει τη συνολική απόδοση μιας κατάθεσης με ετήσιο επιτόκιο που μεταβάλλεται κλιμακωτά ανάλογα με το ποσό που τοκίζεται σύμφωνα με τον παρακάτω πίνακα:

   Ποσό	Επιτόκιο
   0-999.999	2.25
   1.000.000-4.999.999	2.5
   5.000.000-10.000.000	2.8
   10.000.000 και άνω	2.9

   • Με βάση την παραπάνω συνάρτηση να γράψετε ένα πρόγραμμα που ζητάει διαδοχικά (συνεχώς) από το χρήστη
     • το αρxικό ποσό και
     • τον αριθμό των περιόδων (ετών).
     και εμφανίζει το τελικό ποσό της κάθε κατάθεσης.
   • Το πρόγραμμα τερματίζει τη λειτουργία του όταν ο χρήστης εισάγει 0 στο αρχικό ποσό.

• Περιεχόμενα

 Τελευταία αλλαγή: Πέμπτη, 31 Μαΐου 2001 2:16 μμ
 Εκτός αν αναφέρεται κάτι διαφορετικό, όλο το πρωτότυπο υλικό της σελίδας αυτής του οποίου δημιουργός είναι ο Διομήδης Σπινέλλης παρέχεται σύμφωνα με τους όρους της άδειας «Creative Commons Attribution-Share Alike 3.0 Greece License».