• Szerző: Sallai András
• Copyright © 2011, Sallai András
• Licenc: CC BY-SA 4.0
• Web: https://szit.hu

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.

• http://www.freebasic.net
• http://hu.wikipedia.org/wiki/FreeBasic

Van még Gambas Linuxra:

• http://gambas.sourceforge.net

main.bas

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

• http://www.freebasic.net/wiki/wikka.php?wakka=DocToc