Ένα παράδειγμα με παράθυρο στα ελληνικά.
Δεύτερη περίπτωση με εξωτερικό Γεγονός
Όρισε Απλό Φόρμα Γεγονός Ένα
Επίπεδο Απλό {
Διάστιχο 0 \\ 30, 60, ...
Γραμματοσειρά "Arial Black"
Παράθυρο 16, 8000,6000 \\ μέγεθος γραμμάτων, Χ, Υ σε twips
\\ τα πραγματικά Χ και Υ θα είναι εδώ Χ.Σημεία και Υ.Σημεία
\\ Η εντολή Παράθυρο κόβει ανάλογα για να κρατήσει το πλάτος όσο ακριβώς το κείμενο
Οθόνη 1,0 \\ χρώμα όπως #AAFF22 ή Χρώμα(r,g,b), αριθμός χωρίσματος οθόνης
Δρομέας 0, Ύψος Δια 2 \\ Ύψος Πλάτος είναι σε χαρακτήρες
Αναφορά 2,"Hello World"
}
Μέθοδος Απλό, "Show"
Με Απλό , "visible" ως ορατό
\\ τα γεγονότα και οι μέθοδοι είναι σε μία γλώσσα, αγγλική
Συνάρτηση Απλό.Unload {
Διάβασε &οκ
οκ=Αληθές
}
Στη Κ=Ψευδές
Συνάρτηση Απλό.Click {
Με Απλό, "Title", "Πάτα άλλη μια"
Τύπωσε ορατό
Αν Κ Τότε Πληκτρολόγιο "Α"
Κ~
}
Συνάρτηση Μία {
Διάβασε μνμ$
Σημ 1 : Τύπωσε μνμ$
Δες {Κάλεσε τοπικά μνμ$}
}
Γεγονός Ένα Νέο οκν$(&Μία())
Τύπωσε ορατό
α$=Κομ$ \\ περιμένει να πατήσουμε κάτι
Γεγονός Ένα Κράτησε \\ τώρα δεν ακούει
ορατό=Ψευδές
Τύπωσε ορατό
Για ι=1 εώς 10 {
\\ δεν υποστηρίζει αυτό ορατό~
\\ πρέπει να το δώσουμε κανονικά με ορατό = όχι ορατό
\\ η ορατό είναι ειδικό αντικείμενο, που συνδέει ένα όνομα με μια ιδιότητα
ορατό= όχι ορατό
Αναμονή 500
}
Τύπωσε Τύπος$(ορατό)
Όρισε Απλό Τίποτα
Όρισε Απλό Φόρμα
Επίπεδο Απλό {
Διάστιχο 0 \\ 30, 60, ...
Γραμματοσειρά "Arial Black"
Παράθυρο 16, 8000,6000 \\ μέγεθος γραμμάτων, Χ, Υ σε twips
\\ τα πραγματικά Χ και Υ θα είναι εδώ Χ.Σημεία και Υ.Σημεία
\\ Η εντολή Παράθυρο κόβει ανάλογα για να κρατήσει το πλάτος όσο ακριβώς το κείμενο
Οθόνη 1,0 \\ χρώμα όπως #AAFF22 ή Χρώμα(r,g,b), αριθμός χωρίσματος οθόνης
Δρομέας 0, Ύψος Δια 2 \\ Ύψος Πλάτος είναι σε χαρακτήρες
Αναφορά 2,"Hello World"
}
Μέθοδος Απλό, "Show"
\\ τα γεγονότα και οι μέθοδοι είναι σε μία γλώσσα, αγγλική
Συνάρτηση Απλό.Unload {
Διάβασε &οκ \\ εξ ορισμού έρχεται το ψευδές, να κλείσει
οκ=Αληθές \\ επιστρέφουμε Αληθές, να μην κλήσει τώρα
}
Συνάρτηση Απλό.Click {
Πληκτρολόγιο "A"
}
α$=Κομ$ \\ περιμένει να πατήσουμε κάτι
Όρισε Απλό Τίποτα
Επίπεδο Απλό {
Διάστιχο 0 \\ 30, 60, ...
Γραμματοσειρά "Arial Black"
Παράθυρο 16, 8000,6000 \\ μέγεθος γραμμάτων, Χ, Υ σε twips
\\ τα πραγματικά Χ και Υ θα είναι εδώ Χ.Σημεία και Υ.Σημεία
\\ Η εντολή Παράθυρο κόβει ανάλογα για να κρατήσει το πλάτος όσο ακριβώς το κείμενο
Οθόνη 1,0 \\ χρώμα όπως #AAFF22 ή Χρώμα(r,g,b), αριθμός χωρίσματος οθόνης
Δρομέας 0, Ύψος Δια 2 \\ Ύψος Πλάτος είναι σε χαρακτήρες
Αναφορά 2,"Hello World"
}
Μέθοδος Απλό, "Show"
\\ τα γεγονότα και οι μέθοδοι είναι σε μία γλώσσα, αγγλική
Συνάρτηση Απλό.Unload {
Διάβασε &οκ \\ εξ ορισμού έρχεται το ψευδές, να κλείσει
οκ=Αληθές \\ επιστρέφουμε Αληθές, να μην κλήσει τώρα
}
Συνάρτηση Απλό.Click {
Πληκτρολόγιο "A"
}
α$=Κομ$ \\ περιμένει να πατήσουμε κάτι
Όρισε Απλό Τίποτα
Δεύτερη περίπτωση με εξωτερικό Γεγονός
Όρισε Απλό Φόρμα Γεγονός Ένα
Επίπεδο Απλό {
Διάστιχο 0 \\ 30, 60, ...
Γραμματοσειρά "Arial Black"
Παράθυρο 16, 8000,6000 \\ μέγεθος γραμμάτων, Χ, Υ σε twips
\\ τα πραγματικά Χ και Υ θα είναι εδώ Χ.Σημεία και Υ.Σημεία
\\ Η εντολή Παράθυρο κόβει ανάλογα για να κρατήσει το πλάτος όσο ακριβώς το κείμενο
Οθόνη 1,0 \\ χρώμα όπως #AAFF22 ή Χρώμα(r,g,b), αριθμός χωρίσματος οθόνης
Δρομέας 0, Ύψος Δια 2 \\ Ύψος Πλάτος είναι σε χαρακτήρες
Αναφορά 2,"Hello World"
}
Μέθοδος Απλό, "Show"
Με Απλό , "visible" ως ορατό
\\ τα γεγονότα και οι μέθοδοι είναι σε μία γλώσσα, αγγλική
Συνάρτηση Απλό.Unload {
Διάβασε &οκ
οκ=Αληθές
}
Στη Κ=Ψευδές
Συνάρτηση Απλό.Click {
Με Απλό, "Title", "Πάτα άλλη μια"
Τύπωσε ορατό
Αν Κ Τότε Πληκτρολόγιο "Α"
Κ~
}
Συνάρτηση Μία {
Διάβασε μνμ$
Σημ 1 : Τύπωσε μνμ$
Δες {Κάλεσε τοπικά μνμ$}
}
Γεγονός Ένα Νέο οκν$(&Μία())
Τύπωσε ορατό
α$=Κομ$ \\ περιμένει να πατήσουμε κάτι
Γεγονός Ένα Κράτησε \\ τώρα δεν ακούει
ορατό=Ψευδές
Τύπωσε ορατό
Για ι=1 εώς 10 {
\\ δεν υποστηρίζει αυτό ορατό~
\\ πρέπει να το δώσουμε κανονικά με ορατό = όχι ορατό
\\ η ορατό είναι ειδικό αντικείμενο, που συνδέει ένα όνομα με μια ιδιότητα
ορατό= όχι ορατό
Αναμονή 500
}
Τύπωσε Τύπος$(ορατό)
Όρισε Απλό Τίποτα
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου
You can feel free to write any suggestion, or idea on the subject.