Differences

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

--- tanszek:oktatas:muszaki_informatika:vba_gyakorlas [2025/04/16 05:35] – created knehez
+++ tanszek:oktatas:muszaki_informatika:vba_gyakorlas [2025/04/16 06:12] (current) – knehez
@@ Line 1: / Line 1: @@
 ==== Feladat ====
+Írja ki az A1, B1 és C1 cellákba: "Neptun kód", "Pont", "Jegy" egy szubrutin segítségével.
+----
+<sxh>
+Sub Feladat()
+    Cells(1, "A").Value = "Neptun kód"
+    Cells(1, "B").Value = "Pont"
+    Cells(1, "C").Value = "Jegy"
+End Sub
+</sxh>
+----
 Írjon VBA függvényt ami olyan kódokat generál véletlenszerűen, ami 6 karakterből áll és minden karakter nagybetű lehet.
@@ Line 10: / Line 23: @@
     kod = ""
-    Randomize ' Véletlenítést inicializáljuk
+    Randomize ' a véletlen generálást inicializáljuk
     For i = 1 To 6
@@ Line 19: / Line 32: @@
     GeneralNEPUNKod_Nagybetus = kod
 End Function
+</sxh>
+----
+Töltse fel az A1 és A15 közötti cellákat ezekkel a véletlen string-ekkel a korábbi szubrutinhoz hozzáadva a kódot:
+<sxh>
+Sub Feladat()
+    Dim i As Integer
+    Cells(1, "A").Value = "Neptun kód"
+    Cells(1, "B").Value = "Pont"
+    Cells(1, "C").Value = "Jegy"
+    For i = 1 To 15
+       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
+    Next
+End Sub
+</sxh>
+----
+A B2 cellától lefelé generáljon 15 ZH pontot 0-100 ig.
+<sxh>
+Sub Feladat()
+    Dim i As Integer
+    Cells(1, "A").Value = "Neptun kód"
+    Cells(1, "B").Value = "Pont"
+    Cells(1, "C").Value = "Jegy"
+    For i = 2 To 15
+       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
+       Cells(i, "B").Value = Int(Rnd() * 100)
+    Next
+End Sub
+</sxh>
+----
+Írjon egy függvényt, ami a 50 pont fölötti pontokat "megfelelt"-nek jelzi a "C" oszlopban, a többit "Elégtelen"-nek.
+<sxh>
+Function osztalyoz(pont As Integer)
+    If pont > 50 Then
+        osztalyoz = "Megfelel"
+    Else
+        osztalyoz = "Elégtelen"
+    End If
+End Function
+</sxh>
+Majd építse bele a Feladat() szubrutinba a függvényt:
+<sxh; highlight:[11]>
+Sub Feladat()
+    Dim i As Integer
+    Cells(1, "A").Value = "Neptun kód"
+    Cells(1, "B").Value = "Pont"
+    Cells(1, "C").Value = "Jegy"
+    For i = 2 To 15
+       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
+       Cells(i, "B").Value = Int(Rnd() * 100)
+       Cells(i, "C").Value = osztalyoz(Cells(i, "B").Value)
+    Next
+End Sub
+</sxh>
+----
+Menjen végig egy külön ciklussal a "C" oszlopon és jelölje zöld színnel a "Megfelelt" jegyeket
+<sxh; highlight:[14-23]>
+Sub Feladat()
+    Dim i As Integer
+    Cells(1, "A").Value = "Neptun kód"
+    Cells(1, "B").Value = "Pont"
+    Cells(1, "C").Value = "Jegy"
+    For i = 2 To 15
+       Cells(i, "A").Value = GeneralNEPUNKod_Nagybetus
+       Cells(i, "B").Value = Int(Rnd() * 100)
+       Cells(i, "C").Value = osztalyoz(Cells(i, "B").Value)
+    Next
+    Dim eredmeny As String
+    For i = 2 To 15
+        eredmeny = Cells(i, "C")
+        If eredmeny = "Megfelel" Then
+          Cells(i, "C").Interior.Color = RGB(0, 255, 0)
+        Else
+          Cells(i, "C").Interior.Color = RGB(255, 0, 0)
+        End If
+    Next
+End Sub
 </sxh>