BASIC ξανά!
Δημοσιεύτηκε: 01 Δεκ 2016, 20:12
Αναπολώντας τα 80s, έψαξα λίγο στην ιστοσελίδα της Microsoft για την ελεύθερη διανομή της Visual Basic που συμπεριλαμβάνεται στο:
Επειδή δε συμπαθώ τα τεράστια downloads, τις δωρεάν εγγραφές/δηλώσεις κλπ., αναρωτήθηκα αν υπάρχει ήδη στον Η/Υ μου (Windows 10) κάποιος compiler για κώδικα Visual Basic. Η αναζήτηση έφερε την χρήσιμη πληροφορία: vbc.exe
Ανοιξα παράθυρο τερματικού (Start > πληκτρολόγηση "Γραμμή Εντολών") και έψαξα στο σκληρό δίσκο:
Το βρήκα σε διάφορα σημεία, μάλλον λόγω διαφορετικών εκδόσεων.
Διάλεξα ένα από αυτά: C:\Windows\Microsoft.NET\Framework64\v4.0.30319\vbc.exe
και έφτιαξα στο σημειωματάριο ένα απλό "80s" πρόγραμμα ελέγχου ενός αριθμού αν είναι πρώτος:
Το αποθήκευσα στο Desktop με το όνομα 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
Επειδή δε συμπαθώ τα τεράστια 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
Κώδικας: Επιλογή όλων
cd C:\Users\g\Desktop
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\vbc.exe primes.vb
... ανακάλυψα πάλι την 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