< Basic

Basic

Szerző: Sallai András

Copyright © 2011, Sallai András

Licenc: CC BY-SA 4.0

Web: https://szit.hu

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.

http://www.freebasic.net

http://hu.wikipedia.org/wiki/FreeBasic

Van még Gambas Linuxra:

http://gambas.sourceforge.net

Helló Világ

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

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