BASIC ξανά!

Προβληματισμός, προτάσεις και λύσεις για "αναβάθμιση" του Η/Υ σε εργαλείο παραγωγικότητας!
Λειτουργικά συστήματα, Backup/Recovery, χρήση του hardware I/O.
Απάντηση
Άβαταρ μέλους
GeorgeVita
Διαχειριστής
Δημοσιεύσεις: 624
Εγγραφή: 04 Σεπ 2013, 21:51
Ονομα: Γιώργος
Επικοινωνία:

BASIC ξανά!

Δημοσίευση από GeorgeVita »

Αναπολώντας τα 80s, έψαξα λίγο στην ιστοσελίδα της Microsoft για την ελεύθερη διανομή της Visual Basic που συμπεριλαμβάνεται στο:
Επειδή δε συμπαθώ τα τεράστια downloads, τις δωρεάν εγγραφές/δηλώσεις κλπ., αναρωτήθηκα αν υπάρχει ήδη στον Η/Υ μου (Windows 10) κάποιος compiler για κώδικα Visual Basic. Η αναζήτηση έφερε την χρήσιμη πληροφορία: vbc.exe

Ανοιξα παράθυρο τερματικού (Start > πληκτρολόγηση "Γραμμή Εντολών") και έψαξα στο σκληρό δίσκο:

Κώδικας: Επιλογή όλων

dir c:\vbc.exe /s
Το βρήκα σε διάφορα σημεία, μάλλον λόγω διαφορετικών εκδόσεων.
Διάλεξα ένα από αυτά: C:\Windows\Microsoft.NET\Framework64\v4.0.30319\vbc.exe
και έφτιαξα στο σημειωματάριο ένα απλό "80s" πρόγραμμα ελέγχου ενός αριθμού αν είναι πρώτος:

Κώδικας: Επιλογή όλων

Module module1

Sub Main()

Dim N, A  As  Single
Dim ResultText, TextEntry As String
ResultText = "-"
TextEntry = "0"
N = 0
A = 0

Do
  Console.Write("Test Which Number (0=exit)? ")
  TextEntry = Console.ReadLine()
  N = Val(TextEntry)

  Select Case N

    Case Is = 0
      Exit Do

    Case Is < 0
      ResultText = "Not Prime Number"

    Case Is = 1
      ResultText = "Not Prime Number"

    Case Is = 2
      ResultText = "PRIME NUMBER"

    Case Else
      A = 2
      ResultTex t= "PRIME NUMBER"
      Do
        If N / A = Int(N / A) Then
          ResultText = "Not Prime Number"
          Exit Do
        End If
        A = A + 1
      Loop While A <= N - 1

    End Select
    Console.WriteLine (ResultText)

  Loop

End Sub

End Module
Το αποθήκευσα στο Desktop με το όνομα primes.vb και το μεταγλώττισα από το τερματικό:

Κώδικας: Επιλογή όλων

cd C:\Users\g\Desktop
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\vbc.exe primes.vb
Ετσι παρήχθη το primes.exe που τρέχει με διπλό click από το desktop ή με "primes" από το τερματικό!

Εικόνα

... ανακάλυψα πάλι την BASIC!

Σημείωση: στα Windows XP SP3 βρίσκεται στο ευρετήριο C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322

Περισσότερα για το vbc.exe
- Microsoft, Visual Basic Command-Line Compiler
- Microsoft, Visual Basic Compiler Options Listed by Category
- Microsoft, Building from the Command Line (Visual Basic)

Οδηγίες για απλό πρόγραμμα σε Visual Basic
- Microsoft, Structure of a Visual Basic Program
- Microsoft, Visual Basic Version of Hello, World
Άβαταρ μέλους
GeorgeVita
Διαχειριστής
Δημοσιεύσεις: 624
Εγγραφή: 04 Σεπ 2013, 21:51
Ονομα: Γιώργος
Επικοινωνία:

... και FreeBASIC

Δημοσίευση από GeorgeVita »

... και βέβαια υπάρχει η FreeBASIC για Windows, DOS, ΧΒΟΧ και Linux που είναι η "συνέχεια" της QBasic ως free και open source.

Εικόνα http://www.freebasic.net/

Σε περιβάλλον windows ο compiler τρέχει ως: fbc.exe
Για να μεταφράσουμε ένα πρόγραμμα το δείχνουμε ως παράμετρο.
Λ.χ. για το dokimi.bas που βρίσκεται στο Desktop εκτελούμε: fbc.exe C:\Users\g\Desktop\dokimi.bas

Αν πρόκειται για πρόγραμμα "διαλέκτου QBasic", προσθέτουμε και τη ρύθμιση "-lang qb"
Παράδειγμα: fbc.exe C:\Users\g\Desktop\dokimi.bas -lang qb
Εναλλακτικά τοποθετούμε ως πρώτη γραμμή στο πρόγραμμα τον ορισμό: #lang "qb"

Περισσότερα:
- Welcome to FreeBASIC
- Most Important Features
- FreeBASIC Manual
Απάντηση

Επιστροφή στο “Ο Η/Υ ως εργαλείο παραγωγικότητας!”