★ APPLICATIONS ★ BUREAUTIQUE ★ BARCHART (PIXEL) ★ |
Barchart (Pixel) | Applications Bureautique |
Το nαρακατω πρόγραμμα, είναι για το AMSTRAD CPC 464 και εκμεταλλεύεται μερικές από τις δυνατότητες του στα GRAPHICS, γιπ να ζωγραφίσει (...) ένα BARCHART (ρσβδόγρομμα).Οταν το τρεξουμε αρχικό μας ζητά να διαλέξουμε αναμεσα ο ενα διδιαστατο (2-0) κι ενα τρισδιάστατο ραβδογραμμα (3-0) (η επιλογή γίνεται πατώντας 2 ή 3 αντίστοιχα) (Σε περίπτωση που θελουμε να εχουμε ιστόγραμμα (ΗΙSΤΟGRΑΜ για τους ελληνομαθείς), πρεπει να επιλεξουμε 2-D ενώ προηγούμενα πρεπει να εχουμε κάνει τις εξής αλλαγές στη γραμμή 210 : ΒLΑΝΚ = 0 ΚΑΙ WID 1 = WID) Επειτα επιλέγουμε αν θελουμε να δούμε σε ΒΑR-CΗΑRΤ τα δικα μας δεδομένα π αν απλώς θελουμε να έχουμε μια επίδειξη (ελληνιστί "DΕΜΟ") Διαλέγουμε πατώντας "I" ή "D" αντίστοιχα Αν λοιπόν πατήσουμε "I", αποφασίζουμε πόσους αριθμούς θέλουμε να δώσουμε Το πρόγραμμα δεν δέχεται πλήθος ισο με μηδέν η μικρότερο από μηδέν αλλο ούτε και παρα πολλούς αριθμούς (το μέγιστο πλήθος εξαρταται απο τη μεταβλητή LΕFT. την ΒLΑΝΚ και έχει επιπτώσεις στη μεταβλητή WID 1 που καθορίζει το πλάτος της στήλης), γιατί τότε μπορεί οι ράβδοι (ΒΑRS). να μη φαίνονται Εμφανίζεται λοιπον. το κατάλληλο μήνυμα και ξαναδίνουμε τον αριθμό Το επόμενό βημα. βέβαια, είναι να δώσουμε τα δεδομένα Πρέπει ομως να προσέξου με να μη δώσουμε αρνητικά δεδομένα γιατί το πρόγραμμα τα μηδενίζει Τέλος, αν θελουμε. διαλεγουμε τα χρώματα που θα χρησιμοποιήσουμε ΙΝΚ 0: ΒΑCΚGROUΝD: ΙΝΚ 1 χρώμα στηλης. ΙΝΚ 2 : χρώμα σκιάς δεξιά. ΙΝΚ 3 : χρώμα σκιάς πάνω. Τα χρώματα δίνονται με αριθμούς που επιλεγουμε απο το ΜΑSΤΕR COLOUR CΗΑRΤ που υπάρχει οτο ΜΑΝUΑL του ΑΜSΤRΑD. Το πρόγραμμα, μπορεί να χρησιμοποιηθεί οαν υπορουτινα οε κάποιο μεγαλύτερο πρόγραμμα, αρκεί να αφαιρεθούν τα μη απαραίτητα στοίχε ο (λ χ οι επιλογες 2D, 3D , I-D, ΙΝΚS κτλ) και να αντικατασταθουν απο τις μεταβλητές FLΑG1, FLAG2 που θα λειτουργούν σαν LΟCΑL VΑRΙΑΒLΕS. Επίσης αλλαγές θα γίνουν και στο LΟΟΡ 250-310 όπου τα δεδομένα μπορούν να «αντλούνται» από ενα αρχείο, να είναι τα στοιχεία ενός πίνακα, οαν αποτελέσματα ενός προβλήματος κτλ Ουσιαστικά λοιπόν, το πρόγραμμα είναι οι εντολές 500-740 και φυσικά 770-890 Βέβαια η JΟΙΝING LIΝΕ. μπορεί να αποφευχθεί αν αφαιρέσουμε τις εντολές 530 και 780. μαζι. βέβαια, με την SUBRΟUΤΙΝΕ. 780-890* Αυτά λοιπόν με το ΒΑR-CΗARΤ Οπως ισως διαπστωσετε επιδεχεται ορισμένες βελτιώσεις, τις οποίες θα εχετε σε επόμενο τεύχος μαζι με ενα νεο πρόγραμμα για BAR-CΗΑRΤ. για να ολοκληρώσετε το πακέτο σας Σωτήρης Συρμακίίης
|