Η Basic στα PC σήμερα...
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Αλλά και στα 16bit υπήρχε εκεί σαν δισκέτα ή εικονίδιο έτοιμη πάντα να εκτελέσει μικρά προγράμματα χρηστών και να μετατρέψει τον Η/Υ από "παιχνιδομηχανή" σε πραγματικό εργαλείο!!!
Αλλά και στους IBM PC και συμβατούς τα πράγματα ήταν λίγο πολύ ίδια με τα home. Μπορει η βιβλιοθήκη επαγγελματικών προγραμμάτων να ήταν πολύ μεγαλύτερη αλλά μέσα στις δισκέτες με το λειτουργικό υπήρχε πάντα μία που έγραφε GW-Basic!!! Η καλή Basic υπήρχε ακόμα και εκεί βοηθώντας τον χρήστη να γράψει απλά προγραμματάκια ώστε να κάνει τον υπολογιστή του ακόμα ποιο χρηστικό σε εκείνον!!! Η GW αντικαθιστάτε από την QBasic (Quick Basic) εξίσου αγαπημένη για πολλούς και στη συνέχεια με την visual για να χαθεί τελείως από τα PC!!!
Πλέον κανένας χρήστης δεν κάθετε να γράψει ένα απλό πρόγραμμα πχ μετατροπή νομισματικής ισοτιμίας (ευρω σε δολάρια κλπ) αφού και το παραμικρό μπορεί να βρεθεί στο διαδίκτυο και μάλιστα σε freeware!!!
Η μαγεία χάθηκε και ο χρήστης πλέον δε γνωρίζει το παραμικρό για την λειτουργία του προσωπικού του υπολογιστή!!!
Ωστόσο για εμάς που μάθαμε διαφορετικά υπάρχουν κάποιοι που επιμένουν και μας προσφέρουν ένα Basic compiler για το σύγχρονο PC μας, επιτρέποντας μας να γράψουμε προγράμματα όπως τότε στη GW ή Quick Basic.
Ο λόγος γίνετε για την Free Basic. Είναι ένας Basic compiler για τα σύγχρονα PC τρέχει σε XP, Vista και Win 7 χωρίς κανένα πρόβλημα και μας χαρίζει την συγκίνηση εκείνης της μακρινής εποχής!!!
Υπάρχει ένα ολόκληρο IDE περιβάλλον με editor στον οποίο γράφουμε και εκτελούμε το προγραμματάκι μας αλλά μπορούμε να το κάνουμε και εκτελέσιμο και να το έχουμε εντελώς αυτόνομο. Βασικά περιέχει όλα τα καλά που είχε φέρει η έλευση της QBasic!!!
Να και ένα παράδειγμα με τον υπολογισμό του Πασχα που είχα δημοσιεύσει για Commodore 64 σε C, εδώ σε Basic
για PC!!!
Dim FirstDig as integer
dim Remain19 as integer
dim temp as integer
dim d as integer
dim m as integer
dim Y As Integer
Dim tA as integer
dim tB as integer
dim tC as integer
dim tD as integer
dim tE As Integer
dim y1 as string
dim m1 as string
dim d1 as string
dim w as string
open "d:\pasxa.txt" for output as #1
for Y = 2000 to 3000
FirstDig = (Y \ 100)
Remain19 = Y Mod 19
tA = ((225 - 11 * Remain19) Mod 30) + 21
tB = (tA - 19) Mod 7
tC = (40 - FirstDig) Mod 7
temp = Y Mod 100
tD = (temp + temp \ 4) Mod 7
tE = ((20 - tB - tC - tD) Mod 7) + 1
d = tA + tE
temp = 10
If Y > 1600 Then temp = temp + FirstDig - 16 - ((FirstDig - 16) \ 4)
d = d + temp
If d > 61 Then
d = d - 61
m = 5
ElseIf d > 31 Then
d = d - 31
m = 4
Else
m = 3
End If
y1 = str(y)
m1 = str(m)
d1 = str(d)
print #1,y1,d1,m1
print y1,d1,m1
next Y
close #1
perim:
w=inkey$
if w="" then goto perim:
Τρέχοντας το δημιουργεί ένα αρχείο στον D: δίσκο με το όνομα pasxa.txt και έχει τις ημερομηνίες του πάσχα μέχρι το 3000.
Τις παρουσιάζει και στην οθόνη αλλά δεν θα προλάβετε να τις δείτε...
Βέβαια όπως καταλαβαίνετε πρόκειται και console applications και όχι win. Για να μην χάνουμε την παλαιά μαγεία!!!
Το επίσημο site της free Basic είναι εδώ: www.freebasic.net/
Για download εδώ: sourceforge.net/projects/fbc/files/latest/download
Ενώ για τον πλήρες editior - IDE εδώ: fbide.freebasic.net/
Κατεβάζετε πρώτα τον compiler από το δεύτερο link τον εγκαθιστάτε και μετά κατεβάζετε και εγκαθιστάτε τον editor από το τρίτο link!!
Ο compiler υπάρχει για Windows, Dos, Linux!!!
Καλά ξεμπερδέματα!!!
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Ειδάλλως υπάρχουν και άλλες λύσεις και κατεμέ ποιοτικότερες.
Π.χ. η commercial BBC BASIC που όπως λέει και το όνομα της, είναι αρκετά συμβατή με την κλασσική BBC basic, μιας και ο δημιουργός της είναι ένας εκ των βασικότερων δημιουργών της παλιάς καλής BBC basic για BBC micros. Δεν είναι ακριβή, περίπου 40ε και διατίθεται και σε Demo για δωρεάν δοκιμή. Μοναδικό μειονέκτημα που της βρήκα, είναι ότι είναι μόνο για Windows, αλλά τρέχει και κάτω από Wine (Windows emulation).
Για Linux εκτός της freebasic υπάρχουν οι καταπληκτικές free και open source: bwbasic (Bywater BASIC) και brandy basic.
Η bwbasic είναι 99% κλώνος της gwbasic, ενώ η brandy basic είναι 99% κλώνος της Basic V για RiscOS (κορούλα της BBC basic για τα 8bit micros), χωρίς όμως τις εντολές γραφικών. Μοναδικό μειονέκτημα ότι είναι interpreters (όπως άλλωστε και οι originals) χωρίς compilers, αλλά αυτό θα πει πραγματικοί κλώνοι!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Fotis_KFOR
- Site Owner / Admin
- PC / Sinclair ZX Spectrum+3
Χαίρομαι πάντως που ακόμα και σήμερα βγαίνουνε καλοί compilers BASIC
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
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- chriskgnr
- Retro Elite
- Well, i got one chance left in a nine live cat.
- Δημοσιεύσεις: 2358
- Ληφθείσες Ευχαριστίες 1472
Fotis_KFOR έγραψε: Ευχαριστούμε Κώστα, θα συμφωνήσω μαζί σου πως η μαγεία δυστυχώς έχει χαθεί λόγω του ότι εδώ και πολλά χρόνια όλα υπάρχουν στο ιντερνετ και κανείς δεν εχει τη χαρά όπως τότε να δημιουργήσει κάτι για τις δικές του ανάγκες ή έστω για να μάθει πως λειτουργεί ο υπολογιστής του και να τον προγραμματίζει...
μας φάγανε τα ετοιματζίδικα...
21st century breakdown...
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Για Linux, η Brandy BASIC και η bwbasic - Bywater BASIC είναι εντελώς δωρεάν και open source.
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Το καλό είναι ότι συνδυάζει πολλές από τις σύγχρονες δυνατότητες των PC. Έχουν μια βιβλιοθήκη για το κάθε τι!!!
Πρέπει να βρω χρόνο για τεστ... Thanks bakoulis!!!
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- bakoulis
- Senior Member
- Δημοσιεύσεις: 96
- Ληφθείσες Ευχαριστίες 4
Θεώρησα ότι απλά παρέλειψες να την παρουσιάσεις.
Χαίρομαι που φάνηκα χρήσιμος και ελπίζω να την τιμήσεις δεόντως!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.
- Darth_Cotsos
- Συντάκτης θέματος
- Platinum Member
- Δημοσιεύσεις: 664
- Ληφθείσες Ευχαριστίες 676
Don't underestimate the power of the 8bit side!
Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.