Τετάρτη, 23 Δεκεμβρίου 2015

Αναθεώρηση 125

1. Μπήκε έλεγχος ορίων στην Στοκ πίνακας(βάση) Για αριθμός_στοιχείων , αλφαριθμητικό_σωρού$
Αν η βάση + αριθμός στοιχείων είναι εκτός ορίων τώρα γυρίζει λάθος!
2. Νέες συναρτήσεις Τμήμα() και Module(), δίνουν true αν έχουν ένα τμήμα σαν παράμετρο. Με αυτήν ελέγχουμε αν υπάρχει ένα τμήμα...

Εγγραφο α$= {
            Τμήμα Άλφα {
                  Διάβασε Χ
                  Τύπωσε Χ
            }
            }
Σώσε.εγγραφο α$, "α123.gsb"
\\ ένας τρόπος - ο παλιός
Δες Οκ {Άλφα 10}
Αν όχι Οκ Τότε Τύπωσε "Δεν βρήκα Άλφα" : Άδειασε Λάθος
Για Αυτό {
      \\ μπλοκ για προσωρινή δημιουργία
      Φόρτωσε α123
      Αν τμήμα(Άλφα) Τότε Άλφα 10
}
\\ τώρα δεν θα βρει την Α
Αν τμήμα(Άλφα) Τότε { Άλφα 10 } Αλλιώς Τύπωσε "Δεν βρήκα την Άλφα"
\\ εδώ είναι η εντολή που σβήνουμε αρχείο. Στέλνουμε εντολή στη κονσόλα
\\ το ερωτηματικό στο τέλος κάνει την κοσνόλα να μην ανοίγει. (αλλά εμφανίζεται στην γραμμή εργασιών)
\\ Όταν η Μ2000 δουλεύει με όνομα χρήστη εκτός από το κύριο τότε η εντολές Κονσόλα και Σύστημα δεν λειτουργούν
\\ Η παράθεση$() βάζει εισαγωγικά οπότε καλύπτει την περίπτωση να υπάρχουν διαστήματα στο όνομα καταλόγου!
Κονσόλα "Del "+Παραθεση$(Κατ$+"α123.gsb");


3. Και στον ορισμό της κλάσης προστέθηκε η παραπάνω λειτουργία. Έτσι αν δεν βάλουμε τμήμα κατασκευής τότε θα το ξέρει η κλάση επειδή δεν θα το βρίσκει! Πριν την αναθεώρηση υπήρχε μια Δες { } που απορροφούσε όλα τα λάθη. Έτσι τώρα υπάρχει μια Αν Τμήμα(..) Τότε και έτσι αν στο τμήμα βγει κάποιο λάθος θα το αφήσει το σύστημα να περάσει και να το δούμε!

Εδώ θα πάρουμε λάθος γιατί υπάρχει διαίρεση με το μηδέν! Στις παλαιότερες αναθεωρήσεις στην κατασκευή δεν έδινε το λάθος, σταμάταγε την εκτέλεση της άλφα και έπνιγε το λάθος, αλλά έδινε στην δεύτερη κλήση ως τμήμα.


Κλάση αλφα {
      Χ
      Τμήμα άλφα {
            Διάβασε
            Κ=1/0
      }      
}
Β=άλφα(10)
Τύπωσε Β.Χ
Β.άλφα 30
Τύπωσε Β.Χ