Differences

This shows you the differences between two versions of the page.

--- tanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/08 18:16] – knehez
+++ tanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/09 11:09] (current) – [Alapvető Típusok] knehez
@@ Line 51: / Line 51: @@
   * **String**: Szöveges típus
   * **Boolean**: Logikai típus (Igaz vagy Hamis)
+  * **Byte**: 0-255-ig egész szám
+==== Kör területének számítása ====
+<sxh>
+Sub Test()
+   Dim r As Double
+   Dim area As Double
+   r = InputBox("Kérem a kör sugarát")
+   area = r * r * Application.WorksheetFunction.Pi
+   MsgBox area
+End Sub
+</sxh>
 ==== Vezérlési Elemek ====
@@ Line 82: / Line 97: @@
 Loop
 </sxh>
+----
 ==== Sztringek kezelése ====
@@ Line 160: / Line 177: @@
 </sxh>
+----
+==== Vektorok, tömbök kezelése ====
+<sxh>
+  Dim szamok(0 To 4) As Integer
+</sxh>
+Ez egy 5 elemű tömb (indexei: 0, 1, 2, 3, 4), amely egész számokat tárol.
+<sxh>
+Sub FixMeretuTomb()
+    Dim szamok(0 To 2) As Integer
+    szamok(0) = 10
+    szamok(1) = 20
+    szamok(2) = 30
+    MsgBox szamok(1)  ' Kiírja: 20
+End Sub
+</sxh>
+Változó méretű tömb:
+<sxh>
+Sub DinamikusTomb()
+    Dim tomb() As String
+    ReDim tomb(1 To 3)
+    tomb(1) = "alma"
+    tomb(2) = "banán"
+    tomb(3) = "citrom"
+    MsgBox tomb(2)  ' banán
+End Sub
+</sxh>
+Tömb különböző típusú elemekkel:
+<sxh>
+Sub FixMeretuTomb()
+   Dim arr(5)
+   arr(0) = "1"           'Number as String
+   arr(1) = "VBScript"    'String
+   arr(2) = 100           'Number
+   arr(3) = 2.45          'Decimal Number
+   arr(4) = #10/7/2033#   'Date
+   arr(5) = #12:45:00 PM# 'Time
+   MsgBox ("Value stored in Array index 0 : " & arr(0))
+   MsgBox ("Value stored in Array index 1 : " & arr(1))
+   MsgBox ("Value stored in Array index 2 : " & arr(2))
+   MsgBox ("Value stored in Array index 3 : " & arr(3))
+   MsgBox ("Value stored in Array index 4 : " & arr(4))
+   MsgBox ("Value stored in Array index 5 : " & arr(5))
+End Sub
+</sxh>
+Tömb bejárása ciklussal:
+<sxh>
+Sub TombBejarasa()
+    Dim i As Integer
+    Dim szamok(1 To 5) As Integer
+    For i = 1 To 5
+        szamok(i) = i * 10
+    Next i
+    For i = 1 To 5
+        Debug.Print szamok(i)
+    Next i
+End Sub
+</sxh>
+//megjegyzés:// ilyenkor az immediate ablakban jelenik meg a kimenet a szerkesztőben.
+A tömb határainak lekérdezése:
+<sxh>
+Dim tomb(3 To 7) As Integer
+MsgBox LBound(tomb)  ' alsó határ (3)
+MsgBox UBound(tomb)  ' felső határ (7)
+</sxh>
+Ez alapján a TombBejarasa() szubrutint dinamikusabbá tehetjük:
+<sxh>
+Sub TombBejarasa()
+    Dim i As Integer
+    Dim szamok(1 To 5) As Integer
+    For i = LBound(szamok) To UBound(szamok)
+        szamok(i) = i * 10
+    Next i
+    For i = LBound(szamok) To UBound(szamok)
+        Debug.Print szamok(i)
+    Next i
+End Sub
+</sxh>
+----
 ==== Gyakorló feladatok ====