Topic-icon Αρχείο αποδείξεων για ZX81

  • Darth_Cotsos
  • Το Άβαταρ του/της Darth_Cotsos Συντάκτης θέματος
  • Retro Expert
  • Retro Expert
Περισσότερα
06/08/2012 23:33 - 06/08/2012 23:35 #1618 από Darth_Cotsos
Αρχείο αποδείξεων για ZX81 δημιουργήθηκε από Darth_Cotsos
Πριν ένα χρόνο η εφορία ήθελε αποδείξεις και μάλιστα έδινε και κίνητρα με φοροαπαλλαγές και επιστροφές. Βέβαια αυτό γύρισε λίγο μπούμερανγκ και αναγκάστηκε ότι πήρε να τα επιστρέψει και τώρα την πληρώνουμε πάλι όλοι... Αλλά αυτό είναι μία άλλη ιστορία..
Στο θέμα μας τώρα. Όταν λοιπόν ανακοινώθηκε το όλο θέμα με τις αποδείξεις είπα να φτιάξω ένα απλό προγραμματάκι στον ποιο απλό ρετρό υπολογιστή που είχα ώστε να είναι δυνατή η κράτηση ενός αρχείου αποδείξεων και η εκτύπωση αυτού καθώς και του τελικού συνόλου!!!
Έτσι και έγινε!!! Η τεχνολογία του 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 και αρχίστε την οργάνωση!!! :P :lol: :lol: :lol:


Η λίστα στον εκτυπωτή.

Συνημμένο αρχείο:

Όνομα Αρχείου: receipts.zip
Μέγεθος αρχείου:2 KB

Don't underestimate the power of the 8bit side!
Συνημμένα:
Οι ακόλουθοι χρήστες είπαν "Σε Ευχαριστώ": Fotis_KFOR, GeoAnas, chriskgnr

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • chriskgnr
  • Το Άβαταρ του/της chriskgnr
  • Retro Elite
  • Retro Elite
  • Well, i got one chance left in a nine live cat.
Περισσότερα
07/08/2012 16:17 - 07/08/2012 16:22 #1627 από chriskgnr
Απαντήθηκε από chriskgnr στο θέμα Αρχείο αποδείξεων για ZX81
Η άποψή μου είναι ότι τέτοια προγράμματα, σε μηχανήματα με πολύ χαμηλά specifications, αποτελούν μικρά προγραμματιστικά θαύματα!
Thanx Darth_Cotsos! :)

Ερώτηση: Στην εντολή που ορίζει τις διαστάσεις του πίνακα DIM A$(100,58), το 100 είναι οι θέσεις. Η τιμή 58 τι ορίζει?

21st century breakdown...

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • Fotis_KFOR
  • Το Άβαταρ του/της Fotis_KFOR
  • Site Owner / Admin
  • Site Owner / Admin
  • PC / Sinclair ZX Spectrum+3
Περισσότερα
07/08/2012 19:11 #1628 από Fotis_KFOR
Απαντήθηκε από Fotis_KFOR στο θέμα Αρχείο αποδείξεων για ZX81
Πολύ ωραίο Κώστα, το μεράκι που έχεις δεν το συζητάω...
Αχ ρε ο spectrumάκος... :cheer:

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • Darth_Cotsos
  • Το Άβαταρ του/της Darth_Cotsos Συντάκτης θέματος
  • Retro Expert
  • Retro Expert
Περισσότερα
07/08/2012 23:31 #1632 από Darth_Cotsos
Απαντήθηκε από Darth_Cotsos στο θέμα Αρχείο αποδείξεων για ZX81
Ορίζει το μήκος του string, δηλαδή κάθε μία από τις 100 θέσεις του πίνακα έχει μήκος 58 χαρακτήρες!!! ;)

Don't underestimate the power of the 8bit side!

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • geo1977
  • Το Άβαταρ του/της geo1977
  • Retro Maniac
  • Retro Maniac
Περισσότερα
08/08/2012 09:22 #1640 από geo1977
Απαντήθηκε από geo1977 στο θέμα Αρχείο αποδείξεων για ZX81
Μπραβοοοο!!!!!!!!!! Κώστα έχουμε μια ισχυρή προγραμματιστική ομάδα Darth_cotsos, Zx_jim :) :)
μακάρι να μην εχανε την ζωή του ο αξιαγάπητος Ζorro τοτε θα ήσασταν ποιο πλήρης...... :( :(

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • chriskgnr
  • Το Άβαταρ του/της chriskgnr
  • Retro Elite
  • Retro Elite
  • Well, i got one chance left in a nine live cat.
Περισσότερα
08/08/2012 10:21 - 08/08/2012 10:23 #1646 από chriskgnr
Απαντήθηκε από chriskgnr στο θέμα Αρχείο αποδείξεων για ZX81

Darth_Cotsos έγραψε: Ορίζει το μήκος του string, δηλαδή κάθε μία από τις 100 θέσεις του πίνακα έχει μήκος 58 χαρακτήρες!!! ;)

58 χαρακτήρες για ΑΦΜ, ημερομηνία και ποσό? λογικά αλλάζει το μέγεθος αυτό, οπότε αλλάζουν και οι διαστάσεις του πίνακα, που σημαίνει περισσότερα kb καταλαμβάνει ο ορισμός του πίνακα, σωστά? Άντε και σε λίγο θα θυμηθώ τη Sinclair Basic! :lol: :lol:

21st century breakdown...

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • Darth_Cotsos
  • Το Άβαταρ του/της Darth_Cotsos Συντάκτης θέματος
  • Retro Expert
  • Retro Expert
Περισσότερα
08/08/2012 12:57 #1649 από Darth_Cotsos
Απαντήθηκε από Darth_Cotsos στο θέμα Αρχείο αποδείξεων για ZX81
Ετσι ακριβώς. Έχω δηλώσει 58 χαρακτήρες για ΑΦΜ,Αριθμό αποδειξης, ημερομηνία και ποσο. Φυσικά μπορεί ο καθένας να το μεταβάλει αλλά προσοχή γιατί υπάρχουν μόνο 16Κ!!! ;) :cheer:

Don't underestimate the power of the 8bit side!

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • zx_jim
  • Το Άβαταρ του/της zx_jim
  • Retro Expert
  • Retro Expert
  • R Tape loading error, 0:1
Περισσότερα
08/08/2012 13:20 #1652 από zx_jim
Απαντήθηκε από zx_jim στο θέμα Αρχείο αποδείξεων για ZX81
Και αν είχες χρήση HRG, θα ήταν 7ΚΒ...
Αλλά και πάλι κάνεις θαύματα.... Αναμείνατε εδώ ;)

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • chriskgnr
  • Το Άβαταρ του/της chriskgnr
  • Retro Elite
  • Retro Elite
  • Well, i got one chance left in a nine live cat.
Περισσότερα
08/08/2012 13:36 #1654 από chriskgnr
Απαντήθηκε από chriskgnr στο θέμα Αρχείο αποδείξεων για ZX81

zx_jim έγραψε: Και αν είχες χρήση HRG, θα ήταν 7ΚΒ...

HRG!?!?! :huh:

21st century breakdown...

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • zx_jim
  • Το Άβαταρ του/της zx_jim
  • Retro Expert
  • Retro Expert
  • R Tape loading error, 0:1
Περισσότερα
08/08/2012 20:35 - 08/08/2012 20:36 #1666 από zx_jim
Απαντήθηκε από zx_jim στο θέμα Αρχείο αποδείξεων για ZX81
Hi Resolution Graphics, αποκτά την ανάλυση του spectrum (από 64x44 σε 256x192 pixels), περισσότερα εδώ .
Οι ακόλουθοι χρήστες είπαν "Σε Ευχαριστώ": chriskgnr

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • chriskgnr
  • Το Άβαταρ του/της chriskgnr
  • Retro Elite
  • Retro Elite
  • Well, i got one chance left in a nine live cat.
Περισσότερα
08/08/2012 21:45 #1669 από chriskgnr
Απαντήθηκε από chriskgnr στο θέμα Αρχείο αποδείξεων για ZX81

zx_jim έγραψε: Hi Resolution Graphics, αποκτά την ανάλυση του spectrum (από 64x44 σε 256x192 pixels), περισσότερα εδώ .

hardware hack σε RamPack, για να έχουμε High Res Graphics?!?!?!? Αν δε μου τό'λεγες, δε θα το πίστευα!! :blink: :blink:

21st century breakdown...

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • zx_jim
  • Το Άβαταρ του/της zx_jim
  • Retro Expert
  • Retro Expert
  • R Tape loading error, 0:1
Περισσότερα
08/08/2012 21:52 #1671 από zx_jim
Απαντήθηκε από zx_jim στο θέμα Αρχείο αποδείξεων για ZX81
Θα ξεφύγουμε από το θέμα, θ' ανοίξω με την πρωτη ευκαιρία ενα θέμα, να τα πουμε εκεί... ;)

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

Χρόνος δημιουργίας σελίδας: 0.220 δευτερόλεπτα
Powered by Kunena Φόρουμ

great retro computers and retro consoles companies logos