So konvertieren Sie QBasic in Visual Basic

...

Programmiersprachen haben sich aus Lochkarten entwickelt.

Die einfache Programmiersprache QBasic wurde in den 1980er und frühen 90er Jahren mit jedem DOS-Computer geliefert. Microsofts Visual Basic-Sprache hat es inzwischen ersetzt, was es Bastlern ermöglicht, Programme zu schreiben, die die Windows-Benutzeroberfläche anstelle der Befehlszeile verwenden. Die beiden Sprachen sind jedoch weitgehend kompatibel, sodass Sie Ihren QBasic-Code problemlos in die aktuellere Sprache konvertieren können.

Schritt 1

Benennen Sie die Dateierweiterung Ihres QBasic-Programms von ".bas" in ".txt" um und ignorieren Sie alle Warnmeldungen.

Video des Tages

Schritt 2

Öffnen Sie Visual Basic und doppelklicken Sie in der Toolbox auf "Schaltfläche", um es Ihrem Formular hinzuzufügen. Ändern Sie die Texteigenschaft der Schaltfläche im rechten Bereich auf "Start".

Schritt 3

Doppelklicken Sie auf die Schaltfläche, um die zugehörige Codeseite zu öffnen. Wählen Sie "Bearbeiten" > "Datei einfügen" und wählen Sie Ihre QBasic-Code-Textdatei. Dadurch wird Ihr QBasic-Code ausgeführt, wenn der Benutzer auf die Schaltfläche Start klickt.

Schritt 4

Ändern Sie den QBasic-Code so, dass er den Visual Basic-Standards entspricht. Beachten Sie das Vorhandensein von Zeilen, die wie folgt aussehen:

IF INKEY$ = A THEN BEEP INPUT "Geben Sie eine Zahl ein"; Z

Ersetzen Sie sie durch die folgenden Visual Basic-Codezeilen und passen Sie Variablennamen und Eingabeaufforderungen nach Bedarf an:

If KeyAscii = 65 Then Beep EndIf Z = InputBox("Geben Sie eine Zahl ein")

Entfernen Sie alle "SCREEN"-Deklarationen und ersetzen Sie den "WINDOW"-Befehl durch "Scale".

Schritt 5

Klicken Sie auf den grünen Pfeil in der Symbolleiste, um das Programm auszuführen. Wenn alles ordnungsgemäß funktioniert, klicken Sie zum Ausführen auf die Schaltfläche "Start". Wenn Sie einen unbekannten Befehlsfehler erhalten, schlagen Sie in der Visual Basic-Dokumentation nach, um den richtigen Ersatz anstelle des veralteten QBasic-Befehls zu finden.