Αισίως είμαστε στην έκδοση 8 αναθεώρηση 11.
Με την συμπλήρωση των εντολών για χειρισμό αντικειμένων όπως το Word.Application η M2000 ολοκληρώθηκε. Κάποιοι έλεγχοι επιβάλλονται ακόμα και έτσι ίσως προκύψει κάποια αναθεώρηση.
Παρακάτω είναι ένα πρόγραμμα γραμμένο σε Μ2000 με ελληνικές εντολές που ανοίγει το Word φτιάχνει ένα νέο έγγραφο ως ιστοσελίδα, γράφει κείμενο και προτρέπει να το σώσουμε. Αν δεν το σώσουμε μας λέει ότι δεν σώθηκε το έγγραφο και το κλείνει. Μετά κλείνει και την εφαρμογή.
Επίσης βλέπουμε πως ορισμένα αντικείμενα όπως ο Επεξεργαστής και τα Κείμενα είναι γενικά δηλαδή φαίνονται μέσα σε τμήματα.
Το πρόγραμμα αυτό μπορούμε να το γράψουμε στη Μ2000 σε ένα τμήμα π.χ. συγγραφή Α (ή σ Α) και μετά τρέχει με το όνομα μόνο (στο σήμα εισόδου >_ γράφουμε το Α και πατάμε Enter)
Θα δείτε να χρησιμοποιώ το μπλοκ ελέγχου Δες {} για να σταματήσω τυχόν λάθη, πχ μπορεί κάποιος να κλείσει το Word...οπότε οι εντολές πάνε στο πουθενά...
Επίσης δείτε ότι για κάθε αντικείμενο που ορίζω με την Όρισε (η ως αποτέλεσμα στην Μέθοδος) μπορώ να με την Με να αλλάξω ιδιότητες, να ορίσω μεταβλητές σε ιδιότητες ώστε να τις διαβάζω και να τις αλλάζω, και μπορώ με την Μέθοδος να καλέσω κάποια μέθοδο, να περάσω μεταβλητές με σειρά ή με όνομα ή με σειρά και όνομα (αλλά όχι όνομα και μετά σειρά...). Το πέρασμα με όνομα λέγεται named argument pass και στην Μ2000 ισχύει μόνο για τα αντικείμενα.
Δείτε πως ορίζω ένα νέο έγγραφο στο Word, με την
Μέθοδος Κείμενα, "add", "", DocumentType:=WdNewWebPage ως έγγραφο1
Το Κείμενα είναι αντικείμενο που ορίσαμε ως Word.Application.Documents (δες τις δυο πρώτες εντολές, ακολούθησε το σύνδεσμο για να δεις πληροφορίες για το αντικείμενο Documents). Το "add" είναι μέθοδος, η πρώτη παράμετρος είναι το πρότυπο, εδώ δίνουμε το κενό, θα μπορούσαμε να το παραλείψουμε αλλά το έχουμε απλά για να δούμε ότι λειτουργεί, και μετά έχουμε ένα πέρασμα με όνομα, τον τύπο του εγγράφου. Τέλος την εξαγωγή της μεθόδου την γράφουμε στο έγγραφο1 και είναι αντικείμενο τύπου Document. Μπορούμε να δούμε πάντα τον τύπο μιας μεταβλητής με την τύπος$(έγγραφο1). Το χρώμα στο κώδικα το έβαλα απλά για να διαβάζεται πιο εύκολα...δεν χρειάζεται για κάτι άλλο!
Όρισε γενικό Επεξεργαστής "Word.Application"
Όρισε γενικό Κείμενα με Επεξεργαστής, "Documents"
Γενικό wdDoNotSaveChanges=0
Γενικό WdNewBlankDocument = 0 \\Blank document
Γενικό WdNewEmailMessage = 2 \\E-mail message
Γενικό WdNewFrameset = 3 \\Frameset
Γενικό WdNewWebPage = 1 \\Web page
Γενικό WdNewXMLDocument = 4 \\XML document
\\ θα βάλουμε σε ένα τμήμα τις άλλες εντολές για να δούμε αν
\\ λειτουργούν οι γενικές μεταβλητές (έχουν εμβέλεια παντού)
Τμήμα ΈναΌνομα {
Με Επεξεργαστής, "visible" ως είναι_φανερό
Δες ok {
είναι_φανερό=αληθές
}
α$=Κομ$
Δες {
Με Επεξεργαστής, "top",100,"left",0
Δες ok_doc { Μέθοδος Κείμενα, "add", "", DocumentType:=WdNewWebPage ως έγγραφο1 }
Αν όχι ok_doc Τότε Τύπωσε "Δεν έφτιαξα έγγραφο" : Έξοδος
Μέθοδος έγγραφο1, "activate"
Όρισε γενικό επιλογή_κειμένου με Επεξεργαστής, "selection"
Μέθοδος επιλογή_κειμένου, "TypeText", "Αυτό είναι κείμενο γραμμένο στο Word από την M2000"
α$=Κομ$
Δες σώθηκε { Μέθοδος έγγραφο1,"close" }
Αν δεν σώθηκε Τότε {
Τύπωσε "Το έγγραφο δεν σώθηκε, πάτα ένα πλήκτρο"
Ανανέωση
α$=Κομ$
Μέθοδος έγγραφο1,"close", SaveChanges:=wdDoNotSaveChanges \\κλείσιμο χωρίς σώσιμο!
}
Άδειασε Λάθος
}
\\ Εδώ κρύβουμε το Word
Αν ok Τότε {Δες { είναι_φανερό=ψευδές }}
Δες { Όρισε έγγραφο1 τίποτα }
Δες { Όρισε επιλογή_κειμένου τίποτα }
}
ΈναΌνομα
Αναμονή 10
Δες {
Όρισε Κείμενα τίποτα
Μέθοδος Επεξεργαστής, "quit"
Όρισε Επεξεργαστής τίποτα
}
Όρισε γενικό Κείμενα με Επεξεργαστής, "Documents"
Γενικό wdDoNotSaveChanges=0
Γενικό WdNewBlankDocument = 0 \\Blank document
Γενικό WdNewEmailMessage = 2 \\E-mail message
Γενικό WdNewFrameset = 3 \\Frameset
Γενικό WdNewWebPage = 1 \\Web page
Γενικό WdNewXMLDocument = 4 \\XML document
\\ θα βάλουμε σε ένα τμήμα τις άλλες εντολές για να δούμε αν
\\ λειτουργούν οι γενικές μεταβλητές (έχουν εμβέλεια παντού)
Τμήμα ΈναΌνομα {
Με Επεξεργαστής, "visible" ως είναι_φανερό
Δες ok {
είναι_φανερό=αληθές
}
α$=Κομ$
Δες {
Με Επεξεργαστής, "top",100,"left",0
Δες ok_doc { Μέθοδος Κείμενα, "add", "", DocumentType:=WdNewWebPage ως έγγραφο1 }
Αν όχι ok_doc Τότε Τύπωσε "Δεν έφτιαξα έγγραφο" : Έξοδος
Μέθοδος έγγραφο1, "activate"
Όρισε γενικό επιλογή_κειμένου με Επεξεργαστής, "selection"
Μέθοδος επιλογή_κειμένου, "TypeText", "Αυτό είναι κείμενο γραμμένο στο Word από την M2000"
α$=Κομ$
Δες σώθηκε { Μέθοδος έγγραφο1,"close" }
Αν δεν σώθηκε Τότε {
Τύπωσε "Το έγγραφο δεν σώθηκε, πάτα ένα πλήκτρο"
Ανανέωση
α$=Κομ$
Μέθοδος έγγραφο1,"close", SaveChanges:=wdDoNotSaveChanges \\κλείσιμο χωρίς σώσιμο!
}
Άδειασε Λάθος
}
\\ Εδώ κρύβουμε το Word
Αν ok Τότε {Δες { είναι_φανερό=ψευδές }}
Δες { Όρισε έγγραφο1 τίποτα }
Δες { Όρισε επιλογή_κειμένου τίποτα }
}
ΈναΌνομα
Αναμονή 10
Δες {
Όρισε Κείμενα τίποτα
Μέθοδος Επεξεργαστής, "quit"
Όρισε Επεξεργαστής τίποτα
}
Γιώργος Καρράς
