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

====== Basic ======

  * **Szerző:** Sallai András
  * Copyright (c) 2011, Sallai András
  * Licenc: [[https://creativecommons.org/licenses/by-sa/4.0/|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 =====

<code basic4gl main.bas>
print "Helló Világ!"
</code>

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. 

<code basic>
Dim a As Integer = 10
</code>
vagy
<code basic>
Dim As Integer a
</code>

Használat:
<code basic>
Dim as integer a
a = 35
print a
</code>

Kezdő értéket is adhatunk:
<code basic>
Dim as integer a = 35
print a
</code>

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