Version 15 Revision 34

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

Το πρόγραμμα τρέχει το παρακάτω πρόγραμμα που οδηγεί μια "χελώνα" γραφικών (ένα βέλος εδώ).

Το διαφορετικό σε αυτό το πρόγραμμα είναι η χρήση συμβόλων. Τα σύμβολα είναι μια ιδέα που έχω εφαρμόσει από την αναθεώρηση 25 έκδοση 15. Μπορούμε να διαβάζουμε σύμβολα χωρίς να χαλάμε τη σειρά των κανονικών παραμέτρων! Τα χρώματα είναι σταθερές, όμως η ΠΕΝΑ είναι ρουτίνα που δηλώσαμε οτι είναι στατική ρουτίνα και παίζει στη θέση της κανονικής ΠΕΝΑ (την κανονική την καλούμε με το @ΠΕΝΑ). Όμως δείτε ότι εκτός από τα χρώματα που βάζουμε και μπορούμε να βάλουμε το ΧΡΩΜΑ(100,200,30) ή το #12AACC (html κωδικοποίηση χρώματος), ή το ΧΚΦ(60,100,50) με χροιά 60 μοίρες, κορεσμός 100%, φωτεινότητα 50%, εδώ μπορούμε να βάλουμε τα σύμβολα ΠΑΝΩ και ΚΑΤΩ με τα οποία σηκώνουμε ή κατεβάζουμε τη πένα.

Ομοίως και η ΧΑΡΑΞΕ είναι εντολή της Μ2000 αλλά εδώ έχουμε βάλει μια ρουτίνα να παίξει το ρόλο της ΧΑΡΑΞΕ με δυο σύμβολα το ΚΥΚΛΟ και ΤΟΜΕΑ. Έτσι έχουμε φτιάξει δυο εντολές ΧΑΡΑΞΕ ΚΥΚΛΟ και ΧΑΡΑΞΕ ΤΟΜΕΑ (με δυο λέξεις). Και οι ΘΕΣΗ, ΔΕΙΞΕ, ΣΤΡΙΨΕ και ΤΡΑΒΑ έχουν σύμβολα.

Ενα άλλο στοιχείο που έχει μόνο αυτή η έκδοση, είναι ότι στην κλήση της συνάρτησης μπορούμε να περάσουμε σταθερές (με το := δίνουμε τη τιμή), Δείτε αυτό:

ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΑΛΗΘΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΧ:=-ΚΛΙΜΑΞ.Χ/2.8, ΒΟΡΡΑΣ:=190, ΜΕΓΕΘΟΣ:=0.9, ΓΡΑΦΙΚΟ:=ΚΩΔΙΚΑΣ)

Τα ορίσματα που δίνουμε δεν είναι παράμετροι που διαβάζει στη σειρά η συνάρτηση. Εμείς δίνουμε τα ορίσματα και στη συνάρτηση κοιτάμε αν υπάρχουν και αν όχι τα δημιουργούμε με αρχικές τιμές! Θα μπορούσαμε να δώσουμε τιμές κανονικές και όχι σε σταθερές (που δεν αλλάζουν). Στο παρακάτω παράδειγμα οι μεταβλητές είναι κανονικές μπορούν να αλλάξουν τιμή. Δείτε πως τις ορίζουμε με το % στην αρχή και απλό =.

ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(%ΒΗΜΑΤΙΚΟ=ΑΛΗΘΕΣ, %ΔΤ=15, %ΚΑΘΑΡΙΣΕ=ΨΕΥΔΕΣ, %ΘΕΣΗΧ=-ΚΛΙΜΑΞ.Χ/2.8, %ΒΟΡΡΑΣ=190, %ΜΕΓΕΘΟΣ=0.9, %ΓΡΑΦΙΚΟ=ΚΩΔΙΚΑΣ)

ΣΤΑΤΙΚΗ ΡΟΥΤΙΝΑ ΣΠΙΤΙ, ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ

ΘΕΣΗ ΚΕΝΤΡΟ
ΠΑΧΟΣ ΓΡΑΜΜΗΣ 4
ΠΕΝΑ ΚΟΚΚΙΝΗ
ΣΤΑΘΕΡΗ ΖΖ=13
ΣΤΡΙΨΕ ΔΕΞΙΑ ΖΖ
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Α", 225,,,-ΖΖ
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 4000
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "90° ", -20, ΜΠΛΕ,200, -ΖΖ
ΠΕΝΑ ΜΑΥΡΗ
ΧΑΡΑΞΕ ΤΟΜΕΑ 300, -5, 275, -ΖΖ
ΠΕΝΑ ΚΟΚΚΙΝΗ
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Β", 135,,,-ΖΖ
ΤΡΑΒΑ ΑΡΙΣΤΕΡΑ 3000
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Γ",45,,,-ΖΖ
ΣΤΡΙΨΕ ΔΕΞΙΑ 270-ΤΟΞ.ΕΦ(3000/4000)
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 5000
ΣΤΡΙΨΕ ΠΡΟΣ 180 ' ΣΕ ΣΧΕΣΗ ΜΕ ΤΟΝ ΒΟΡΡΑ (ΟΠΩΣ ΕΧΕΙ ΕΠΙΛΕΧΘΕΙ)
ΠΕΝΑ ΠΑΝΩ
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 6000
ΠΕΝΑ ΚΑΤΩ
ΠΕΝΑ ΠΡΑΣΙΝΗ
ΣΠΙΤΙ 5000
ΡΟΥΤΙΝΑ ΣΠΙΤΙ(ν)
ΤΟΠΙΚΗ ι
ΓΙΑ ι=1 ΕΩΣ 2
ΣΤΡΙΨΕ ΔΕΞΙΑ 120
ΤΡΑΒΑ ΜΠΡΟΣΤΑ ν
ΕΠΟΜΕΝΟ
ΣΤΡΙΨΕ ΔΕΞΙΑ 120
ΣΤΡΙΨΕ ΠΙΣΩ
ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ ν, ν
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ(π, υ)
ΤΟΠΙΚΗ ι
ΓΙΑ ι=1 ΕΩΣ 2
ΤΡΑΒΑ ΔΕΞΙΑ π
ΤΡΑΒΑ ΔΕΞΙΑ υ
ΕΠΟΜΕΝΟ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ

ΑΝ ΕΚΔΟΣΗ<15 ΤΟΤΕ ΕΞΟΔΟΣ
ΑΝ ΕΚΔΟΣΗ=15 ΚΑΙ ΑΝΑΘΕΩΡΗΣΗ<34 ΤΟΤΕ ΕΞΟΔΟΣ
'Τα σύμβολα επεκτείνουν τις ρουτίνες.
ΣΥΜΒΟΛΟ ΠΑΝΩ, ΚΑΤΩ, ΚΥΚΛΟ, ΤΟΜΕΑ
ΣΥΜΒΟΛΟ ΚΕΝΤΡΟ, ΟΘΟΝΗΣ, ΠΙΣΩ, ΜΠΡΟΣΤΑ
ΣΥΜΒΟΛΟ ΔΕΞΙΑ, ΑΡΙΣΤΕΡΑ, ΠΡΟΣ, ΓΡΑΜΜΗΣ, ΓΡΑΜΜΑΤΑ

' Προετοιμάζουμε το μέγθος της οθόνης μας
ΓΡΑΜΜΑΤΟΣΕΙΡΑ_ΠΑΛΙΑ=ΓΡΑΜΜΑΤΟΣΕΙΡΑ$
ΦΑΡΔΙΑ_ΠΑΛΙΑ=ΦΑΡΔΙΑ
ΠΛΑΓΙΑ_ΠΑΛΙΑ=ΠΛΑΓΙΑ
Μ_ΠΑΛΙΟ=ΤΥΠΟΣ ' ΜΕΓΕΘΟΣ ΧΑΡΑΚΤΗΡΩΝ
ΦΑΡΔΙΑ 1
ΠΛΑΓΙΑ 0
ΓΡΑΜΜΑΤΟΣΕΙΡΑ "ARIAL"
ΣΥΝΑΡΤΗΣΗ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ {
ΣΤΑΤΙΚΗ ΡΟΥΤΙΝΑ ΘΕΣΗ, ΒΕΛΟΣ, ΔΕΙΞΕ, ΠΕΝΑ, ΠΑΧΟΣ, ΧΑΡΑΞΕ, ΤΡΑΒΑ, ΣΤΡΙΨΕ
ΑΠΑΡΙΘΜΗΣΗ ΧΡΩΜΑΤΑ {
ΜΑΥΡΗ=#000000, ΠΡΑΣΙΝΗ=#005500, ΜΠΛΕ=#0000FF, ΚΟΚΚΙΝΗ=#FF0000
}
ΑΔΕΙΑΣΕ
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΒΗΜΑΤΙΚΟ) ΤΟΤΕ ΒΗΜΑΤΙΚΟ=ΨΕΥΔΗΣ
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΚΑΘΑΡΙΣΕ) ΤΟΤΕ ΚΑΘΑΡΙΣΕ=ΑΛΗΘΗΣ
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΔΤ) ΤΟΤΕ ΔΤ=100
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΒΟΡΡΑΣ) ΤΟΤΕ ΒΟΡΡΑΣ=90
ΑΝ ΕΓΚΥΡΟ(ΜΕΓΕΘΟΣ) ΤΟΤΕ ΖΟΥΜ=ΜΕΓΕΘΟΣ ΑΛΛΙΩΣ ΖΟΥΜ=1
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΘΕΣΗΧ) ΤΟΤΕ ΘΕΣΗΧ=0
ΑΝ ΟΧΙ ΕΓΚΥΡΟ(ΘΕΣΗΥ) ΤΟΤΕ ΘΕΣΗΥ=0
ΑΝ ΕΓΚΥΡΟ(ΚΥΡΙΟ_ΖΟΥΜ) ΤΟΤΕ
ΖΟΥΜ*=ΚΥΡΙΟ_ΖΟΥΜ
ΑΛΛΙΩΣ
ΤΟΠΙΚΗ ΚΥΡΙΟ_ΖΟΥΜ ΩΣ ΑΠΛΟΣ=1
ΤΕΛΟΣ ΑΝ
ΣΤΑΘΕΡΗ ΠΙ ΩΣ ΑΠΛΟΣ=3.1415926
ΛΟΓΙΚΟΣ η_πένα_γράφει=ΑΛΗΘΕΣ
ΑΠΛΟΣ γωνία_πένας=(ΒΟΡΡΑΣ-90)*ΠΙ/180
ΑΚΕΡΑΙΟΣ πάχος_γραμμής=1

ΣΥΝΑΡΤΗΣΗ ΕΙΚ(ΧΡ){
ΣΧΕΔΙΟ 3000, 3000 {
ΘΕΣΗ 0,0
ΠΑΧΟΣ 4{
ΧΑΡΑΞΕ ΕΩΣ 3000, 1500, ΧΡ
ΧΑΡΑΞΕ ΕΩΣ 0, 3000, ΧΡ
ΧΑΡΑΞΕ ΕΩΣ 1000, 1500, ΧΡ
ΧΑΡΑΞΕ ΕΩΣ 0,0, ΧΡ
}
} ΩΣ ΒΕΛΟΣ
=ΒΕΛΟΣ
}
ΟΜΑΛΑ ΝΑΙ
ΒΕΛΟΣ=ΕΙΚ(0)
ΑΝ ΚΑΘΑΡΙΣΕ ΤΟΤΕ ΟΘΟΝΗ,0
ΚΡΑΤΗΣΕ
ΑΝ ΕΓΚΥΡΟ(ΓΡΑΦΙΚΟ) ΤΟΤΕ
ΕΝΘΕΣΗ "ΤΜΗΜΑ ΚΩΔ {"+{
}+ΓΡΑΦΙΚΟ+{
}+"}"
ΚΑΛΕΣΕ ΤΟΠΙΚΑ ΚΩΔ
ΤΕΛΟΣ ΑΝ
ΑΦΗΣΕ
@ΠΕΝΑ 0
ΤΕΛΟΣ
// Ακολουθούν οι έτοιμες ρουτίνες
ΡΟΥΤΙΝΑ ΔΕΙΞΕ(Α!,Γ$, ΠΟΥ, ΧΡ=0, ΜΕΓ=100, ΠΕΡ=0)
ΑΝ Α=ΓΡΑΜΜΑΤΑ ΑΛΛΙΩΣ ΛΑΘΟΣ "ΥΠΟΣΤΗΡΙΖΩ ΜΟΝΟ ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ"
ΑΦΗΣΕ
ΠΟΥ-=ΒΟΡΡΑΣ+ΠΕΡ
ΒΗΜΑ ΓΩΝΙΑ -ΠΟΥ/180*ΠΙ, 300*ΜΕΓ/100*ΖΟΥΜ
@ΠΕΝΑ ΧΡ {
ΕΠΙΓΡΑΦΗ Γ$,ΓΡΑΜΜΑΤΟΣΕΙΡΑ$,ΤΥΠΟΣ*ΜΕΓ/100*ΖΟΥΜ, (ΒΟΡΡΑΣ-90+ΠΕΡ)*ΠΙ/180, 2
}
ΒΗΜΑ ΓΩΝΙΑ -ΠΟΥ/180*ΠΙ, -300*ΜΕΓ/100*ΖΟΥΜ
ΒΕΛΟΣ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΠΕΝΑ(ΣΥΜ!)
ΕΠΙΛΕΞΕ ΜΕ ΣΥΜ
ΜΕ ΠΑΝΩ
η_πένα_γράφει=ΨΕΥΔΕΣ
ΕΞΟΔΟΣ ΡΟΥΤΙΝΑΣ
ΜΕ ΚΑΤΩ
η_πένα_γράφει=ΑΛΗΘΕΣ
ΕΞΟΔΟΣ ΡΟΥΤΙΝΑΣ
ΜΕ ""
ΔΙΑΒΑΣΕ ΤΟΠΙΚΑ ΧΡ=0
@ΠΕΝΑ ΧΡ
ΤΕΛΟΣ ΕΠΙΛΟΓΗΣ
ΒΕΛΟΣ=ΕΙΚ(ΠΕΝΑ)
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΘΕΣΗ(Α!)
ΑΝ Α=ΚΕΝΤΡΟ ΤΟΤΕ
ΑΦΗΣΕ
@ΘΕΣΗ (ΚΛΙΜΑΞ.Χ ΔΙΑ 2)+ΘΕΣΗΧ, (ΚΛΙΜΑΞ.Υ ΔΙΑ 2)+ΘΕΣΗΥ
ΒΕΛΟΣ
ΑΛΛΙΩΣ.ΑΝ Α=ΟΘΟΝΗΣ ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΟΠΙΚΑ Χ, Υ
ΑΦΗΣΕ
Χ*=ΚΥΡΙΟ_ΖΟΥΜ:Υ*=ΚΥΡΙΟ_ΖΟΥΜ
@ΘΕΣΗ Χ+ΘΕΣΗΧ, Υ+ΘΕΣΗΥ
ΒΕΛΟΣ
ΑΛΛΙΩΣ
ΛΑΘΟΣ "ΑΓΝΩΣΤΟ "+Α
ΤΕΛΟΣ ΑΝ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΠΑΧΟΣ(Α!)
ΑΝ Α=ΓΡΑΜΜΗΣ ΑΛΛΙΩΣ ΛΑΘΟΣ "ΥΠΟΣΤΗΡΙΖΩ ΜΟΝΟ ΠΑΧΟΣ ΓΡΑΜΜΗΣ"
ΔΙΑΒΑΣΕ ΤΟΠΙΚΑ τόσο ΩΣ ΑΚΕΡΑΙΟΣ
ΤΟΠΙΚΗ τ ΩΣ ΑΠΛΟΣ
τ=τόσο*ΚΥΡΙΟ_ΖΟΥΜ
τόσο=τ 'μεταροπή σε ακέραιο
ΑΝ τόσο<1 ΤΟΤΕ τόσο=1
ΑΝ τόσο>15 ΤΌΤΕ τόσο=15
πάχος_γραμμής=τόσο
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΧΑΡΑΞΕ(Α!)
ΑΝ Α=ΚΥΚΛΟ ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΟΠΙΚΗ ακτίνα
ΑΦΗΣΕ
ΑΝ η_πένα_γράφει ΤΟΤΕ
@ΠΑΧΟΣ πάχος_γραμμής {
ΚΥΚΛΟΣ ακτίνα*ΚΥΡΙΟ_ΖΟΥΜ
}
ΤΕΛΟΣ ΑΝ
ΒΕΛΟΣ
ΑΛΛΙΩΣ.ΑΝ Α=ΤΟΜΕΑ ΤΟΤΕ
ΔΙΑΒΑΣΕ ΤΟΠΙΚΑ ακτίνα, αρχ=0, τελ=360, ΠΕΡ=0
ΑΦΗΣΕ
ΑΝ η_πένα_γράφει ΤΟΤΕ
@ΠΑΧΟΣ πάχος_γραμμής {
ΚΥΚΛΟΣ ακτίνα*ΚΥΡΙΟ_ΖΟΥΜ,1,ΠΕΝΑ,(ΒΟΡΡΑΣ-αρχ+ΠΕΡ)/180*ΠΙ, (ΒΟΡΡΑΣ-τελ+ΠΕΡ)/180*ΠΙ;
}
ΤΕΛΟΣ ΑΝ
ΒΕΛΟΣ
ΤΕΛΟΣ ΑΝ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΤΡΑΒΑ(Α!)
ΑΝ Α="" ΤΟΤΕ ΛΑΘΟΣ "ΔΕΝ ΟΡΙΣΕΣ ΚΑΤΕΥΘΥΝΣΗ"
ΔΙΑΒΑΣΕ ΤΟΠΙΚΟ απόσταση
ΑΝ Α=ΜΠΡΟΣΤΑ ΤΟΤΕ
ΑΛΛΙΩΣ.ΑΝ Α=ΠΙΣΩ ΤΟΤΕ
απόσταση-!
ΑΛΛΙΩΣ.ΑΝ Α=ΔΕΞΙΑ ΤΟΤΕ
γωνία_πένας-=ΠΙ/2
ΑΛΛΙΩΣ.ΑΝ Α=ΑΡΙΣΤΕΡΑ ΤΟΤΕ
γωνία_πένας+=ΠΙ/2
ΑΛΛΙΩΣ
ΛΑΘΟΣ "ΑΓΝΩΣΤΟ "+Α
ΤΕΛΟΣ ΑΝ
απόσταση*=ΖΟΥΜ
ΑΦΗΣΕ
ΑΝ η_πένα_γράφει ΤΟΤΕ
@ΠΑΧΟΣ πάχος_γραμμής {
ΑΝ ΒΗΜΑΤΙΚΟ ΤΟΤΕ
ΤΟΠΙΚΗ ΜΒ=15
ΤΟΠΙΚΗ ΒΗΜ=ΑΠΟΛ(απόσταση) ΔΙΑ (ΜΒ*ΚΥΡΙΟ_ΖΟΥΜ)
ΑΝ ΒΗΜ>10 ΤΟΤΕ
ΜΒ=ΑΠΟΛ(απόσταση) ΔΙΑ (10*ΚΥΡΙΟ_ΖΟΥΜ)
ΒΗΜ=ΑΠΟΛ(απόσταση) ΔΙΑ (ΜΒ*ΚΥΡΙΟ_ΖΟΥΜ)
ΤΕΛΟΣ ΑΝ
ΑΝ ΒΗΜ>0 ΤΟΤΕ
ΤΟΠΙΚΗ ΒΗΜ1=ΜΒ*ΣΗΜ(απόσταση)*ΚΥΡΙΟ_ΖΟΥΜ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΟΠΙΚΕΣ Ι ΩΣ ΑΚΕΡΑΙΟΣ, ΧΘ=ΘΕΣΗ.Χ, ΥΘ=ΘΕΣΗ.Υ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, -απόσταση
ΓΙΑ Ι=1 ΕΩΣ ΒΗΜ
@ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, ΒΗΜ1
ΒΕΛΟΣ
ΑΦΗΣΕ
ΕΠΟΜΕΝΟ Ι
@ΧΑΡΑΞΕ ΕΩΣ ΧΘ, ΥΘ
ΑΛΛΙΩΣ
@ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΕΛΟΣ ΑΝ
ΑΛΛΙΩΣ
@ΧΑΡΑΞΕ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΕΛΟΣ ΑΝ
}
ΑΛΛΙΩΣ
ΑΝ ΒΗΜΑΤΙΚΟ ΤΟΤΕ
ΤΟΠΙΚΗ ΒΗΜ=ΑΠΟΛ(απόσταση) ΔΙΑ (300*ΚΥΡΙΟ_ΖΟΥΜ)
ΑΝ ΒΗΜ>0 ΤΟΤΕ
ΤΟΠΙΚΗ ΒΗΜ1=300*ΣΗΜ(απόσταση)*ΚΥΡΙΟ_ΖΟΥΜ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΟΠΙΚΕΣ Ι ΩΣ ΑΚΕΡΑΙΟΣ, ΧΘ=ΘΕΣΗ.Χ, ΥΘ=ΘΕΣΗ.Υ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, -απόσταση
ΓΙΑ Ι=1 ΕΩΣ ΒΗΜ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, ΒΗΜ1
ΒΕΛΟΣ
ΑΦΗΣΕ
ΕΠΟΜΕΝΟ Ι
@ΘΕΣΗ ΧΘ, ΥΘ
ΑΛΛΙΩΣ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΕΛΟΣ ΑΝ
ΑΛΛΙΩΣ
ΒΗΜΑ ΓΩΝΙΑ γωνία_πένας, απόσταση
ΤΕΛΟΣ ΑΝ
ΤΕΛΟΣ ΑΝ
ΒΕΛΟΣ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΣΤΡΙΨΕ(Α!)
ΑΝ Α="" ΤΟΤΕ ΛΑΘΟΣ "ΔΕΝ ΟΡΙΣΕΣ ΠΟΥ ΘΕΣ ΝΑ ΣΤΡΙΨΩ"
ΔΙΑΒΑΣΕ ΤΟΠΙΚΟ γωνία_σε_μοίρες=0
ΑΦΗΣΕ
ΑΝ Α=ΔΕΞΙΑ ΤΟΤΕ
γωνία_πένας-=γωνία_σε_μοίρες/180*ΠΙ
ΑΛΛΙΩΣ.ΑΝ Α=ΑΡΙΣΤΕΡΑ ΤΟΤΕ
γωνία_πένας+=γωνία_σε_μοίρες/180*ΠΙ
ΑΛΛΙΩΣ.ΑΝ Α=ΠΡΟΣ ΤΟΤΕ
γωνία_πένας=(γωνία_σε_μοίρες+ΒΟΡΡΑΣ-90)/180*ΠΙ
ΑΛΛΙΩΣ.ΑΝ Α=ΠΙΣΩ ΤΟΤΕ
γωνία_πένας+=ΠΙ
ΑΛΛΙΩΣ
ΛΑΘΟΣ "ΔΕΝ ΓΝΩΡΙΧΩ ΤΟ "+Α
ΤΕΛΟΣ ΑΝ
ΒΕΛΟΣ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΒΕΛΟΣ()
ΚΡΑΤΗΣΕ
ΑΝ ΒΗΜΑΤΙΚΟ ΤΟΤΕ
ΕΙΚΟΝΑ ΒΕΛΟΣ, 600*ΚΥΡΙΟ_ΖΟΥΜ,,γωνία_πένας*180/ΠΙ
ΑΝΑΝΕΩΣΗ 1000
ΑΝΑΜΟΝΗ ΔΤ
ΤΕΛΟΣ ΑΝ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
}
' Εδώ σε ένα αλφαριθμητικό βάζουμε το πρόγραμμα και το δίνουμε στη ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ()
ΠΡΩΤΟΤΥΠΟ {
ΣΤΑΤΙΚΗ ΡΟΥΤΙΝΑ ΣΠΙΤΙ, ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ
ΘΕΣΗ ΚΕΝΤΡΟ
ΠΑΧΟΣ ΓΡΑΜΜΗΣ 4
ΠΕΝΑ ΚΟΚΚΙΝΗ
ΣΤΑΘΕΡΗ ΖΖ=13
ΣΤΡΙΨΕ ΔΕΞΙΑ ΖΖ
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Α", 225,,,-ΖΖ
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 4000
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "90° ", -20, ΜΠΛΕ,200, -ΖΖ
ΠΕΝΑ ΜΑΥΡΗ
ΧΑΡΑΞΕ ΤΟΜΕΑ 300, -5, 275, -ΖΖ
ΠΕΝΑ ΚΟΚΚΙΝΗ
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Β", 135,,,-ΖΖ
ΤΡΑΒΑ ΑΡΙΣΤΕΡΑ 3000
ΔΕΙΞΕ ΓΡΑΜΜΑΤΑ "Γ",45,,,-ΖΖ
ΣΤΡΙΨΕ ΔΕΞΙΑ 270-ΤΟΞ.ΕΦ(3000/4000)
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 5000
ΣΤΡΙΨΕ ΠΡΟΣ 180 ' ΣΕ ΣΧΕΣΗ ΜΕ ΤΟΝ ΒΟΡΡΑ (ΟΠΩΣ ΕΧΕΙ ΕΠΙΛΕΧΘΕΙ)
ΠΕΝΑ ΠΑΝΩ
ΤΡΑΒΑ ΜΠΡΟΣΤΑ 6000
ΠΕΝΑ ΚΑΤΩ
ΠΕΝΑ ΠΡΑΣΙΝΗ
ΣΠΙΤΙ 5000
ΡΟΥΤΙΝΑ ΣΠΙΤΙ(ν)
ΤΟΠΙΚΗ ι
ΓΙΑ ι=1 ΕΩΣ 2
ΣΤΡΙΨΕ ΔΕΞΙΑ 120
ΤΡΑΒΑ ΜΠΡΟΣΤΑ ν
ΕΠΟΜΕΝΟ
ΣΤΡΙΨΕ ΔΕΞΙΑ 120
ΣΤΡΙΨΕ ΠΙΣΩ
ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ ν, ν
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
ΡΟΥΤΙΝΑ ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ(π, υ)
ΤΟΠΙΚΗ ι
ΓΙΑ ι=1 ΕΩΣ 2
ΤΡΑΒΑ ΔΕΞΙΑ π
ΤΡΑΒΑ ΔΕΞΙΑ υ
ΕΠΟΜΕΝΟ
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ
} ΩΣ ΚΩΔΙΚΑΣ
ΓΕΝΙΚΗ ΚΥΡΙΟ_ΖΟΥΜ=ΚΛΙΜΑΞ.Χ/ΠΛΑΤΟΣ.ΣΗΜΕΙΟΥ/1792

ΠΑΡΑΘΥΡΟ 19,ΣΥΣΚΕΥΗ
ΠΕΡΙΘΩΡΙΟ {ΟΘΟΝΗ 0,0 : ΜΕΓΙΣΤΟ=ΚΛΙΜΑΞ.Χ}
ΟΘΟΝΗ 15,0
ΠΕΝΑ 0

ΚΛΙΜΑΚΕΣ =(100/100, 85/100, 70/100, 60/100)
ΚΛ=ΚΑΘΕ(ΚΛΙΜΑΚΕΣ)
ΕΝΩ ΚΛ
ΚΛΙΜΑΚΑ=ΠΙΝΑΚΑΣ(ΚΛ)
ΠΛΑΤΟΣ.Χ.TWIPS=ΜΕΓΙΣΤΟ*ΚΛΙΜΑΚΑ
ΠΑΡΑΘΥΡΟ 6, ΣΥΣΚΕΥΗ
ΠΑΡΑΘΥΡΟ Μ_ΠΑΛΙΟ*ΚΛΙΜΑΚΑ, ΠΛΑΤΟΣ.Χ.TWIPS, ΠΛΑΤΟΣ.Χ.TWIPS*1080/1920;
ΦΟΡΜΑ;
ΚΥΡΙΟ_ΖΟΥΜ <= ΚΛΙΜΑΞ.Χ/ΠΛΑΤΟΣ.ΣΗΜΕΙΟΥ/1792
ΔΟΚΙΜΑΣΤΚΟ()
ΤΕΛΟΣ ΕΝΩ

'ΕΠΙΦΑΝΕΙΑ 255
ΠΛΑΓΙΑ ΠΛΑΓΙΑ_ΠΑΛΙΑ
ΦΑΡΔΙΑ ΦΑΡΔΙΑ_ΠΑΛΙΑ
ΓΡΑΜΜΑΤΟΣΕΙΡΑ ΓΡΑΜΜΑΤΟΣΕΙΡΑ_ΠΑΛΙΑ
ΠΑΡΑΘΥΡΟ Μ_ΠΑΛΙΟ, ΣΥΣΚΕΥΗ

ΡΟΥΤΙΝΑ ΔΟΚΙΜΑΣΤΚΟ()
ΑΝΑΛΥΤΗΣ
ΦΟΝΤΟ 15, #AAFFBB
' περασμα μεταβλητών ως σταθερές.
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΑΛΗΘΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΧ:=-ΚΛΙΜΑΞ.Χ/2.8, ΒΟΡΡΑΣ:=190, ΜΕΓΕΘΟΣ:=0.9, ΓΡΑΦΙΚΟ:=ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΑΛΗΘΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΧ:=ΚΛΙΜΑΞ.Χ/2.8, ΒΟΡΡΑΣ:=10, ΜΕΓΕΘΟΣ:=0.9, ΓΡΑΦΙΚΟ:= ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΑΛΗΘΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΥ:=-ΚΛΙΜΑΞ.Υ/3.8, ΒΟΡΡΑΣ:=100, ΜΕΓΕΘΟΣ:=0.7, ΓΡΑΦΙΚΟ:= ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΑΛΗΘΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΥ:=ΚΛΙΜΑΞ.Υ/3.8, ΒΟΡΡΑΣ:=280, ΜΕΓΕΘΟΣ:=0.7, ΓΡΑΦΙΚΟ:=ΚΩΔΙΚΑΣ)
ΔΡΟΜΕΑΣ 0,0
ΤΥΠΩΣΕ "ΓΡΑΦΙΚΑ ΧΕΛΩΝΑΣ - ΒΗΜΑΤΙΚΗ ΕΚΤΕΛΕΣΗ "+((ΦΟΡΤΟΣ ΔΙΑ 100)/10)+" δευτ. - κλίμακα:"+(ΚΛΙΜΑΚΑ*100)+":100"
ΑΝΑΝΕΩΣΗ 25
Α$=ΚΟΜ$
ΑΝΑΝΕΩΣΗ 3000
ΑΝΑΛΥΤΗΣ
ΦΟΝΤΟ 15, #AACC99
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΨΕΥΔΕΣ, ΔΤ:=15,ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΧ:=-ΚΛΙΜΑΞ.Χ/2.8, ΒΟΡΡΑΣ:=190, ΜΕΓΕΘΟΣ:=0.9, ΓΡΑΦΙΚΟ:=ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΨΕΥΔΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΧ:=ΚΛΙΜΑΞ.Χ/2.8, ΒΟΡΡΑΣ:=10, ΜΕΓΕΘΟΣ:=0.9, ΓΡΑΦΙΚΟ:= ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΨΕΥΔΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΥ:=-ΚΛΙΜΑΞ.Υ/3.8, ΒΟΡΡΑΣ:=100, ΜΕΓΕΘΟΣ:=0.7, ΓΡΑΦΙΚΟ:= ΚΩΔΙΚΑΣ)
ΚΑΛΕΣΕ ΓΡΑΦΙΚΑ_ΧΕΛΩΝΑΣ(ΒΗΜΑΤΙΚΟ:=ΨΕΥΔΕΣ, ΔΤ:=15, ΚΑΘΑΡΙΣΕ:=ΨΕΥΔΕΣ, ΘΕΣΗΥ:=ΚΛΙΜΑΞ.Υ/3.8, ΒΟΡΡΑΣ:=280, ΜΕΓΕΘΟΣ:=0.7, ΓΡΑΦΙΚΟ:=ΚΩΔΙΚΑΣ)
ΔΡΟΜΕΑΣ 0,0
ΤΥΠΩΣΕ "ΓΡΑΦΙΚΑ ΧΕΛΩΝΑΣ - ΧΩΡΙΣ ΒΗΜΑΤΙΚΗ ΕΚΤΕΛΕΣΗ "+((ΦΟΡΤΟΣ ΔΙΑ 100)/10)+" δευτ. - κλίμακα:"+(ΚΛΙΜΑΚΑ*100)+":100"
ΑΝΑΝΕΩΣΗ 25
Α$=ΚΟΜ$
ΤΕΛΟΣ ΡΟΥΤΙΝΑΣ

Πληροφορική - Προγραμματισμός

Σελίδες

Ετικέτες

Παρασκευή 28 Αυγούστου 2026

Version 15 Revision 34

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου

Φόρμα επικοινωνίας

Γιώργος Καρράς

Αναγνώστες

Συνολικές προβολές σελίδας

Αναζήτηση αυτού του ιστολογίου