[[oktatas:programozás:basic|< Basic]]

====== FreeBasic ======

  * **Szerző:** Sallai András
  * Copyright (c) Sallai András, 2017
  * Licenc: GNU Free Documentation License 1.3
  * Web: http://szit.hu
===== Bevezetés =====

A FreeBasic nem értelmező. Fordító, komplex programozói könyvtárral.

===== Beszerzés =====

  * http://www.freebasic.net/


===== Helló Világ =====

<code freebasic hello.bas>
print "Helló Világ"
</code>

A hello.bas fordítás a következő módon történik:
  fbc hello.bas

===== Megjegyzés =====


<code freebasic>
'megjegyzés

rem megjegyzés újra
</code>


Többsoros megjegyzés:

<code>
/' több soros
	megjegyzés '/
 
</code>

===== Kivitel =====
Számokat egyszerűen írjuk a print után. A print a képernyőre írja azt:
  print 35

Szöveget tegyük idézőjelbe:
  print "piros"

Kifejezéseket is írhatunk a print után, ezeket kiértékeli, majd az eredményt írja a képernyőre.
  print 3 + 5

Ha nem szeretnénk kiértékelést, akkor tegyük idézőjelbe:
  print "3 + 5"
===== Különleges karakterek =====

A (") karakternek különleges szerepe van, mivel ezzel kell zárni
egy sztring literális elejét és végét. Ha kiakarjuk íratni, akkor
kettő idézőjelet kell írni a szövegben.

<code freebasic>
print "a""b"
</code>

A kimenet.
  a"b

Egyes karaktereknek különleges szerepe lehet. Ilyen a "n" karakter is. 
Ha jelezni akarjuk különleges szerepét, akkor írjunk elé egy "\" karaktert,
a sztringliterális elé pedig írjunk egy "!" karaktert.

===== Operátorok =====

==== Értékadó operátorok ====

  a = 3

Összefűz és hozzárendel:
<code freebasic>
Dim s As String = "Helló "
s &= "Világ!"
print s
</code>

Hozzáad és hozzárendel:
<code freebasic>
Dim a As Double = 6
a += 5
Print a
</code>

===== Bevitel =====

<code freebasic>
Dim nev As String
input "Név: ", nev 
</code>

===== Szelekció =====

<code freebasic>
Dim a As Double = 6
If a > 5 Then
	print "Nagyobb"
End If
</code>


<code freebasic>
Dim a As Double = 3
If a > 5 Then
	print "Nagyobb"
Else 
	print "Kisebb"
End If
</code>

===== Iteráció =====
==== For ====

<code freebasic>
Dim i As Double 
For i = 1 To 10
	print i
Next
</code>

==== DO...LOOP ====

A Do...Loop szintaktikája:

<code>
Syntax:
Do [ { Until | While } condition ]
[ statement block ]
Loop
</code>

vagy:
<code>
Do
[ statement block ]
Loop [ { Until | While } condition ]
</code>


<code freebasic>
Dim i As Integer=0
  
Do
	Print i
	i += 1	
Loop While i<10
</code>

<code freebasic>
Dim i As Integer=1
  
Do
	Print i
	i += 1
	If i>10 Then Exit Do
Loop
</code>
===== Tömb =====
==== Fix méretű ====

<code freebasic>
Dim tomb(4) As Integer

tomb(0) = 35
tomb(1) = 72
tomb(2) = 23
tomb(3) = 87
tomb(4) = 37

print tomb(4)
</code>

===== Eljárás =====

<code freebasic eljaras.bas>
sub nevjegy()
	print "Nagy János"
	print "Szolnok"
end sub

nevjegy()
</code>