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

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

A Visual Basic nyelv GUI felületre szánt nyelv. 

===== Kivitel =====

  print "Helló Világ"
===== Változók használata =====

A változókat deklaráció nélkül egyszerűen leírom és értéket adok neki:

<code vb>
a = 35
</code>

<code vb>
s = "piros"
</code>


A változók deklarálhatók is típussal:

<code vb>
Dim a As Double
a = 3.57
</code>

===== Matematikai függvények =====

<code vb>
Print Abs(-9)
</code>

<code vb>
szog = 30
pi = 4 * Atn(1)
Print Sin(szog * pi / 180)
</code>

===== Véletlen szám =====

<code vb>
a = Rnd
Print a
</code>

Kockadobás:
<code vb>
kockaDobas = Int(Rnd * 6) + 1
Print kockaDobas
</code>

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


^  Aritmetikai operátorok  ^^
^  operátor  ^  művelet  ^
|  +  |  összeadás  |
|  -  |  kivonás  |
|  *  |  szorzás  |
|  /  |  osztás  |
|  \  |  egész osztás  |
|  <nowiki>^</nowiki>  |  hatványozás  |
|  mod  |  modulus (maradék) képzés  |


===== Bevitel =====
<code vb>
a = InputBox("Szám")
</code>
===== Szelekció =====

<code vb>
a = 5
If a > 3 Then
    Print "Nagyobb"
End If
</code>

<code vb>
a = 2
If a > 3 Then
    Print "Nagyobb"
Else
    Print "Kisebb"
End If
</code>


Több ágú szelekció:

<code vb>
a = 2

If a = 2 Then
    Print "kettő"
ElseIf a = 3 Then
    Print "három"
ElseIf a = 4 Then
    Print "négy"
Else
    Print "ismeretlen"
End If
</code>

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

<code vb>
For i = 1 To 10
    Print "sárga"
Next
</code>


<code vb>
i = 0
While i < 10
    Print i
    i = i + 1
Wend
</code>
===== Tömb =====

<code vb>
Dim tomb(4)
tomb(0) = 35
tomb(1) = 47
tomb(2) = 28
tomb(3) = 23
tomb(4) = 72
Print tomb(4)
</code>

<code vb>
tomb = Array(35, 47, 28, 23, 72)
Print tomb(4)
</code>

===== Karaktersorozatok =====


==== Hossz ====

<code vb>
s = "piros"
meret = Len(s)
Print meret
</code>
==== Darabolás ====

<code vb>
s = "peti:gabi:tomi:jani"
tomb = Split(s, ":")
Print tomb(0)
</code>