Graafika VBAs Kõiki töölehe pinnal asuvaid objekte käsitletakse kujunditena (põhiklassid Shape ja Shapes) Kujundite tüübid Graafikaobjektid - MS Drawing abil tehtud kujundid Diagrammid (ChartObjects) 60 23 56 50 40 29 32 30 27 13 Pildid (Picture) - imporditud pildid kask 20 45 35 kuusk 10 12 41
Harjutus Jalgpall. Ülesande püstitus Kasutajaliides VBA projekt. Moodulid Objektid ja klassid. Klassimudelid Omadused ja meetodid Graafikaobjektid. Klass Shape Lahtriplokk. Klass Range Valikud. If-lause Kordused. Do ... Loop-lause Muutujad ja Omistamine Makrode käivitamine ja täitmine Parameetrid For-lause Funktsioonid Sissejuhatus VBAsse J Makrod ja Sub-protseduurid Laused VBA-projekt. Moodulid Objektid ja klassid Omadused ja meetodid Klasside Shape ja Range objektid Juhtimislaused: If-lause ja Do ... Loop Muutujad bjektid Do ... Loop-lause Harjutus Jalka. Ülesande püstitus Koostada programm, mis imiteerib jalgpallimängu mõningaid elemente Juku teeb etteantud arvu lööke. Programm loeb kokku mööda ja sisse löödud löökide arvu ja tabamusprotsendi. loe n Kasutajaliides. Teha lehele Plats_1
laused_1 tõene tingimus siis laused_1 Else [ Else [ muidu x1 = (-b - Sqr(D) laused_1 laused_2 laused_2 ] laused_2 ] a) End If [ lõpp kui ] x2 = (-b + Sqr(D) ... ... a) End If tingimus - võrdlus või loogikaavaldis, väärtuseks tõeväärtus True või False ... võrdlus : avaldis võrdlustehe avaldis: x = 0, D >= 0, 2 * 3 + 5 > a - 3 loogikaavaldis: võrdlus loogikatehe võrdlus [loogikatehe võrdlus ] ...
laused_1 tõene tingimus laused_1 Else [ Else [ muidu x1 = (-b - Sqr(D) laused_1 laused_2 laused_2 ] laused_2 ] a) End If [ lõpp kui ] x2 = (-b + Sqr(D) ... ... a) End If tingimus - võrdlus või loogikaavaldis , väärtuseks tõeväärtus True või False ... võrdlus : avaldis võrdlustehe avaldis: x = 0, D >= 0, 2 * 3 + 5 > a - 3 loogikaavaldis: võrdlus loogukatehe võrdlus [loogikatehe võrdlus ] ...
,,, ,,, If tingimus Then kui tingimus laused_1 siis laused_1 [ Else [ muidu laused_2 ] laused_2 ] tõene tingimus väär End If [ lõpp kui ] ... laused_1 laused_2 ... tingimus - võrdlus või loogikaavaldis, väärtuseks tõeväärtus True või False Mitmerealine If-lause võrdlus : avaldis - üldjuht :avaldis: võrdlustehe mitmene x =valik 0, D >= 0, 2 * 3 + 5 > a - 3 loogikaavaldis: võrdlus loogikatehe võrdlus [loogikatehe võrdlus ] ...
End If Kordused Do ... Loop For ... Next Do Kordus järelkontrolliga Juhtmuutujuga kordus a1, a2, a3 avaldised: lause(d) (laused täidetakse vähemalt üks kord) a1 - algväärtus, a2 - lõpp, a3 - samm Loop Until tingimus For v = a1 To a2 [Step a3] (vaikimisi 1) lause(d)
End If Kordused Do ... Loop For ... Next Do Kordus järelkontrolliga Juhtmuutujuga kordus a1, a2, a3 – avaldised: lause(d) (laused täidetakse vähemalt üks kord) a1 - algväärtus, a2 - lõpp, a3 - samm Loop Until tingimus For v = a1 To a2 [Step a3] (vaikimisi 1) lause(d)
Loop Loop While tingimus Do Until tingimus Do korduv tegevus korduv tegevus Loop Loop Until tingimus For muutuja=algväärtus To lõppväärtus Step samm korduv tegevus Next muutuja For Each muutuja In hulk/massiiv Väljumine Exit : Exit For, Exit Do, Exit Sub, Exit Function Suunamine - GoTo Mooduli lõpp End Objektid Objekti nimi [nurksulgudes] Objekti omadus - objekt.omadus Vaikimisi omadus kombovalikul, valikuloendil - Text Lülitil - Value Faili loendil - FileName jne Teise vormi objekt - vorm!objekt.omadus Dim /Private/Public [Static] viitmuutuja As [New] objektitüüp New - uue vormi loomine Objektitüübid: üldised: As Form - suvaline vorm As Control - suvaline objekt määratletud: As vorminimi - teatud vorm
Kõik kommentaarid