Ma joggal kérdezheti az ember, hogy honnan vegyünk Basic fordítót ha nem szeretnénk kereskedelmi szoftvert.
A FreeBasic egy új kezdeményezés, amely pótolja Basic-el kapcsolatos hiányérzetünket. Több platformos, objektum orientált, stb. Az első kiadást Andre Victor adta ki 2004-ben. Használható Linux és Windowsos rendszereken egyaránt.
Van még Gambas Linuxra:
print "Helló Világ!"
A program fordítása:
fbc main.bas
Ha szeretnénk adatbekérés nélkül várni egy billentyűnyomást akkor használjuk önmagában a sleep parancsot:
sleep
' Megjegyzés
rem Megjegyzés
/' Több soros megjegyzés '/
A Basic ezen fordítója megköveteli a típusok használatát.
Dim a As Integer = 10
vagy
Dim As Integer a
Használat:
Dim as integer a a = 35 print a
Kezdő értéket is adhatunk:
Dim as integer a = 35 print a
Több változót is megadhatunk, vesszővel tagolva:
DIM as integer a, b
Dim as integer a input "Szám: ", a
Várunk egy billentyű nyomásra:
getkey
Várunk egy billentyű nyomásra, amit el is tárolunk:
Dim as integer a a = getkey
Egy ágú, egy utasításos
dim as integer b = 150 if b > 100 then print "Nagyobb" sleep
Ilyenkor egy sorba kell írnunk az if szerkezetet.
Ellenben ággal:
dim as integer b = 50 if b > 100 then print "Nagyobb" else print "más" sleep
Szelekció több sorba:
dim as integer b = 50
if b > 100 then
print "Nagyobb"
else
print "más"
end if
sleep
Ebben a formában több utasítást is írhatunk:
dim as integer b = 50 if b > 100 then print "Nagyobb" print "Tényleg nagyobb" else print "más" print "Valóban más" end if sleep
dim as integer a
for a = 1 to 10
print a
next a
A next utasítás az iteráció következő ciklusát kezdi el. Ha csak egy iterációnk van, akkor nem szükséges paraméterezni a next utasítást.
a = 0
while a < 10
print a
a = a + 1
wend
Do [ { Until | While } feltétel ]
[ utasítás blokk ]
Loop
vagy
Do
[ utasítás blokk ]
Loop [ { Until | While } feltétel ]
cls
' Alprogram bemutatása
Declare Sub Eljarasom
' Az Eljarasom meghivas
Ejarasom
' Definiáljuk az eljárásunkat
Sub Eljarasom
Print "Az eljárásom"
End Sub
Sub Eljarasom (s As String, n As Integer)
Print "Az átvett paraméterek értéke: " & s & " és " & n
End Sub
Eljarasom "abc", 123
Function Fuggvenyem As Integer
Return 10
End Function