Αρχείο αποδείξεων για ZX81
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Στο θέμα μας τώρα. Όταν λοιπόν ανακοινώθηκε το όλο θέμα με τις αποδείξεις είπα να φτιάξω ένα απλό προγραμματάκι στον ποιο απλό ρετρό υπολογιστή που είχα ώστε να είναι δυνατή η κράτηση ενός αρχείου αποδείξεων και η εκτύπωση αυτού καθώς και του τελικού συνόλου!!!
Έτσι και έγινε!!! Η τεχνολογία του 80 είχε ότι χρειαζόμαστε, Η/Υ χαμηλού κόστους, μέσα εγγραφής ανάγνωσης ακόμα ποιο χαμηλού κόστους και φυσικά εκτύπωση σε θερμικό χαρτί εύκολα και απλά και φυσικά πάντα σε χαμηλό κόστος!!!
Η αρχική οθόνη της εφαρμογής
Ο λόγος για τον ZX81 και τον ΖΧ Printer, πλαισιωμένοι από μία τηλεόραση και ένα απλό μονοφωνικό κασετόφωνο, κάνουν θαύματα!!!
Το πρόγραμμα είναι απλό, φυλάσσει σε ένα πίνακα 100 θέσεων στοιχεία όπως, ΑΦΜ, Αριθμός, Επωνυμία και ποσό.
Ο πίνακας 100 θέσεων μπήκε έχοντας στο μυαλό ότι υπάρχουν μόνο 16Κ και δεν ήξερα πόσο θα μου βγει ο κώδικας. Εσείς τώρα μπορείτε να αλλάξετε την τιμή ώστε να κρατάει περισσότερες αποδείξεις!!!
Στη γραμμή λοιπόν 20 όπου γράφει: 20 DIM A$(100,58) αλλάζετε το 100 σε πχ 150. Έτσι η γραμμή 20 θα γίνει 20 DIM A$(150,58).
Στον ΖΧ81 όταν σώζουμε, σώζει πρόγραμμα και DATA μαζί. Οπότε όποτε θέλουμε να το καλέσουμε δε φορτώνουμε το αρχικό πρόγραμμα αλλά αυτό που σώσαμε τελευταία!!!
Το μενού της εφαρμογής μας δίνει τις εξής επιλογές: Νέα Εισαγωγή, εύρεση,λίστα.save και έξοδος.
Κινούμαστε με τα βελάκια!!!
Με την πρώτη επιλογή εισάγουμε μια νέα εγγραφή στην εφαρμογή μας. Με την εύρεση μπορούμε βάση του αριθμού της απόδειξής να βρούμε και να διαγράψουμε μια εγγραφή που έχει λάθος στοιχεία ώστε να την ξαναπεράσουμε σωστά!!!
Με την επιλογή λίστα έχουμε την δυνατότητα να πάρουμε μία λίστα με τις αποδείξεις καθώς και το συνολικό ποσό στην οθόνη μας αλλά και στον εκτυπωτή μας.
Η λίστα στην οθόνη.
Με τη Save σώζουμε τα μέχρι τώρα δεδομένα μας!!! Προσοχή την επόμενη φορά που θα φορτώσετε την εφαρμογή που έχετε σώσει την τρέχετε με GO TO 79 και όχι με σκέτο RUN!!! Αυτό γίνετε για να μην μηδενίσει η εφαρμογή τους πίνακες και αναγκαστείτε να την φορτώσετε ξανά. Βέβαια αν θέλουμε να φτιάξουμε νέο αρχείο γιατί ο προηγούμενος πίνακας γέμισε, φυσικά θα δώσουμε RUN.
Και με την έξοδο τερματίζουμε την εφαρμογή μας!!!
Ξεθάψτε λοιπόν τον παλαιό σας ΖΧ81 και αρχίστε την οργάνωση!!!
Η λίστα στον εκτυπωτή.
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- chriskgnr
- Retro Elite
- Well, i got one chance left in a nine live cat.
- Δημοσιεύσεις: 2358
- Ληφθείσες Ευχαριστίες 1472
Thanx Darth_Cotsos!
Ερώτηση: Στην εντολή που ορίζει τις διαστάσεις του πίνακα DIM A$(100,58), το 100 είναι οι θέσεις. Η τιμή 58 τι ορίζει?
21st century breakdown...
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Fotis_KFOR
- Site Owner / Admin
- PC / Sinclair ZX Spectrum+3
Αχ ρε ο spectrumάκος...
My Collection / Projects / Various :
Computers , Consoles-Pongs , Various , Not-working , Handhelds-Tabletops , Intel p4004 (First CPU) , Old Hardware Parts , Magazines ,
Retro Computer Project , M.A.M.E. Cabinets , My Retro Computers & Consoles Room
UP THE IRONS!!! - My Iron Maiden Collection
My Wish List : www.retrocomputers.gr/collection/my-wish-list ;)
KEEP RETRO
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- geo1977
- Elite Member
- Δημοσιεύσεις: 313
- Ληφθείσες Ευχαριστίες 129
μακάρι να μην εχανε την ζωή του ο αξιαγάπητος Ζorro τοτε θα ήσασταν ποιο πλήρης......
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- chriskgnr
- Retro Elite
- Well, i got one chance left in a nine live cat.
- Δημοσιεύσεις: 2358
- Ληφθείσες Ευχαριστίες 1472
58 χαρακτήρες για ΑΦΜ, ημερομηνία και ποσό? λογικά αλλάζει το μέγεθος αυτό, οπότε αλλάζουν και οι διαστάσεις του πίνακα, που σημαίνει περισσότερα kb καταλαμβάνει ο ορισμός του πίνακα, σωστά? Άντε και σε λίγο θα θυμηθώ τη Sinclair Basic!Darth_Cotsos έγραψε: Ορίζει το μήκος του string, δηλαδή κάθε μία από τις 100 θέσεις του πίνακα έχει μήκος 58 χαρακτήρες!!!
21st century breakdown...
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- zx_jim
- Platinum Member
- R Tape loading error, 0:1
Αλλά και πάλι κάνεις θαύματα.... Αναμείνατε εδώ
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- chriskgnr
- Retro Elite
- Well, i got one chance left in a nine live cat.
- Δημοσιεύσεις: 2358
- Ληφθείσες Ευχαριστίες 1472
HRG!?!?!zx_jim έγραψε: Και αν είχες χρήση HRG, θα ήταν 7ΚΒ...
21st century breakdown...
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- zx_jim
- Platinum Member
- R Tape loading error, 0:1
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- chriskgnr
- Retro Elite
- Well, i got one chance left in a nine live cat.
- Δημοσιεύσεις: 2358
- Ληφθείσες Ευχαριστίες 1472
hardware hack σε RamPack, για να έχουμε High Res Graphics?!?!?!? Αν δε μου τό'λεγες, δε θα το πίστευα!!zx_jim έγραψε: Hi Resolution Graphics, αποκτά την ανάλυση του spectrum (από 64x44 σε 256x192 pixels), περισσότερα εδώ .
21st century breakdown...
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- zx_jim
- Platinum Member
- R Tape loading error, 0:1
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.