Tartalomjegyzék

< Basic

Basic

Bevezetés

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:

Helló Világ

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 Basic nyelvben

' Megjegyzés
rem Megjegyzés
/' Több soros
 megjegyzés '/

Változók használata

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

Bevitel

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

Szelekció

Egy ágú szelekció

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

Ellenben ággal:

dim as integer b = 50

if b > 100 then print "Nagyobb" else print "más"

sleep

Több sorba

Szelekció több sorba:

dim as integer b = 50

if b > 100 then 
    print "Nagyobb" 
else 
    print "más"
end if

sleep

Több utasítás

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

Iteráció

Növekményes ciklus

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.

Amíg ciklus

a = 0
while a < 10
    print a
    a = a + 1
wend

Loop ciklus

Do [ { Until | While } feltétel ]
[ utasítás blokk ]
Loop

vagy

Do
[ utasítás blokk ]
Loop [ { Until | While } feltétel ]

Képernyőkezelés

Törlés

cls

Eljárások

' 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

Eljárások paramétere

Sub Eljarasom (s As String, n As Integer)
    Print "Az átvett paraméterek értéke: " & s & " és " & n
End Sub

Eljarasom "abc", 123

Függvények

Function Fuggvenyem As  Integer
    Return 10
End Function

Irodalom