Für diejenigen, die eine einfache Basic-Sprache benötigen, ohne die Komplikationen von Objekten und Frameworks , nur grundlegende from Liberty Basic ist die perfekte Wahl. Die Sprache kann ohne Kosten und wer sich mit traditionellen Basis heruntergeladen werden kann bis zu fast sofort beschleunigen . Obwohl die Sprache fehlt Aussagen wie Drucken mit und Format , bietet es die Tab und Space $ Funktionen und diese sind alles, was benötigt antreten Dezimalzahlen . Mit ein paar einfachen Schritten können Sie eine formatierte Einkaufsliste mit nur Basic. Things You
gerade Basisversion 1.01
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie einfach Basic und erstellen Sie ein neues Projekt. Klicken Sie auf " Datei", dann " New Basic-Quelldatei . "
2
Verwenden Sie die Print-Anweisung , um den Titel und Spaltenüberschriften drucken, wie folgt :
Print " Grocery List " DruckenDrucken " Menge "; Reiter ( 5 ), " Beschreibung" , Registerkarte (30 ), " Preis "
Die Print-Anweisung sendet jeden Text, der folgt dem Fenster drucken . Die Tab-Funktion verschiebt den Cursor in der Spalte der Druckzeile . Dadurch können Sie die Spaltenüberschriften direkt über die Daten zu platzieren
3
Format die erste Zeile der Lebensmittel-Elemente wie folgt: .
Druck 5 ; Reiter (5); " Apples" ; Reiter (30); FormatNum $ (1,25 , 4)
Diese Aussage legt die Menge 5 an der ersten Spalte , Tabs über der fünften Spalte und Orte , die das Wort " Apples" dann Registerkarten Spalte 30 die Menge 1,25 platzieren. Die FormatNum $ Funktion fügt führende Leerzeichen zu jeder Zahl durch Komma ausrichten
4
In ein paar Zeilen von Lebensmittel-Produkten in die Liste wie folgt:
print 1 ; Registerkarte . (5); "Milk" ; Reiter (30); FormatNum $ (2.29 , 4) print 1 ; Reiter (5); " Pot Roast "; Reiter (30); FormatNum $ ( 12.95, 4) print 1 ; Reiter (5); "Chocolate Bar "; Register (30); FormatNum $ (0.59 , 4)
5
drucken die gesamte
Registerkarte Drucken (5); . " ; Total " ; Reiter (30); . FormatNum $ (1,25 + 2,29 + 0,59 12,95 , 4)
Diese Linie stellt das Wort insgesamt unter den Artikelbeschreibungen platziert dann den insgesamt unter den Nummern
6
definieren FormatNum $-Funktion . Fügen Sie diesen Code unter den Print -Anweisungen.
Funktion FormatNum $ (x, i) s $ = str $ (x) l = len (str $ (int (x)) ) , wenn l < i thens $ = space $ (i - l ) + s $ Ende ifFormatNum $ = s $ end function
die erste Zeile deklariert die Funktion mit x , welche die Menge und ich , die die Anzahl der Zeichen vor dem Komma gewünscht < . br>
Zeile 2 speichert die Zahl als Zeichenkette in der Variablen s $ .
Linie 3 zählt die Anzahl der Ziffern derzeit vor dem Komma. Wenn die Zahl 12.34 ist die Zahl 12, so l den Wert 2 enthalten wird.
Linie 3 bis 5 wird die Space- $-Funktion , um Räume an der Vorderseite des s $ hinzuzufügen. Wenn l = 2 ist und die gewünschten Bereiche ( i) 4 ist, müssen wir zwei zusätzliche Stellplätze vor s $ hinzuzufügen.
Line 6 liefert die formatierte Zahl zurück an das aufrufende Programm .
< Br > 7
Führen Sie das Programm . Klicken Sie auf die SHIFT und F5 zusammen, um die Ergebnisse zu sehen.
