viidatakse otse: Shapes(nimi) ja Range (nimi) Kui sinu poolt pakutud võitja osutubk ekraanile tüdruk ja päike. Tüdruk hak aga keerlema. Kui aga ei võida see, keda sina pakk ekraanile pilv koos piksenoolega. Pik alla liikuma. duurid otseduur jookse ja alamprotseduur Tee_samm. seob objektid (loomad) muutujatega, algväärtustab ad, kustutab lahtrid, fikseerib algaja. Juhib ja b loomade jooksmist, kasutades korduvalt uuri Tee_samm. amm- selle igal täitmisel fikseeritakse jooksev aeg, akse ühe looma asukohta sammu võrra, kui loom etteantud kauguse, viiakse loom vasakusse serva, datakse ringide arvu ühe võrra. Kordamine akse, kui kõik loomad on jooksnud antud arvu ringe. aeg1, aeg2, aeg3)- teeb kindlaks võitja
2.2 VBA funktsioonid Koostada VBA töölehefunktsioonid ruumala ja täispindala arvutamiseks, oma otsimisfunktsioon materjali ja värvi hinna ning värvi kulu leidmiseks 2.3 VBA makro Makro loeb töölehelt detaili mõõtmed, leiab ja kirjutab töölehele detaili ruumala ja täispindala ning joonestab etteantud maastabis detaili ristlõike skeemi. Materjali ja värvi kulu ning maksumuse leidmiseks koostada eraldi alamprotseduur 3. Koostada rakendus (tabel), mis võimaldab teha detailide valmistamise ja värvimise arvestust ja analüüsi. Tabel sisaldab järgmisi andmeid: kuupäev, detaili mõõtmed, materjal ja värv, detailide arv, materjali ja värvi kogus ja maksumus 4. Teha kondtabelid materjali ning värvi koguse ja maksumuse kohta, kautades funktsiooni SUMIF ja risttabelit kujuga ja mõõtmetega detaile, mis aili jaoks alemiredaktoriga valemid detaili ruumala aoks: ruumala ja täispindala,
Do Muuda 0, 1 ' must Muuda 2, 5 ' punane End Muuda 5, 2 ' kollane End Sub Muuda 3, 4 ' roheline Muuda 5, 2 ' kollane Loop End Sub J NB! Muuda on parameetritega alamprotseduur Parameetrid värv ja p on sisendparameetrid Nende väärtused annavad protseduurid Tööle ja Aitab pöördumisel Sub Muuda(värv, p) Shapes("tuli").Fill.ForeColor.SchemeColor = värv paus p End Sub Sub Aitab() Muuda 0, 1 ' must End End Sub mprotseduur parameetrid Sub paus(pp)
Do Muuda 0, 1 ' must Muuda 2, 5 ' punane End Muuda 5, 2 ' kollane End Sub Muuda 3, 4 ' roheline Muuda 5, 2 ' kollane Loop End Sub J NB! Muuda on parameetritega alamprotseduur Parameetrid värv ja p on sisendparameetrid Sub paus(pp) Nende väärtused annavad protseduurid Dim pl Tööle ja Aitab pöördumisel pl = Timer() + pp Do DoEvents
Do Muuda 0, 1 ' must Muuda 2, 5 ' punane End Muuda 5, 2 ' kollane End Sub Muuda 3, 4 ' roheline Muuda 5, 2 ' kollane Loop End Sub J NB! Muuda on parameetritega alamprotseduur Parameetrid värv ja p on sisendparameetrid Sub paus(pp) Nende väärtused annavad protseduurid Dim pl Tööle ja Aitab pöördumisel pl = Timer() + pp Do DoEvents
953 6.035 6.047 auto_2 Fukts ioon Kes(aeg1, aeg2 kindlaks võitja Vt programmi ja komme 1 moodulis!!! 2 3 Protseduurid Peaprotseduur Soida ja alamprotseduur Tee_samm Peaprotseduur seob objektid (autod) muutujatega , algväärtustab muutujad, kustutab lahtrid, fikseerib algaja. Juhib ja kotrollib autode sõitu, kasutades korduvalt protseduuri Tee_samm. Viimase igal täitmisel fikseeritakse jooksev aeg, muudetakse ühe auto asukohta sammu võrra, kui auto ületab etteantud kauguse viiakse auto (algusesse) vaskusse Demo Scratchringide arvu ühe serva, suurendatakse võrra.
annaabi.ee 
