Differences

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

--- tanszek:oktatas:muszaki_informatika:vba_tutorial [2025/04/08 19:00] – [Vektorok, tömbök kezelése] 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 ====
@@ Line 197: / Line 198: @@
 </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 ====