"viskenurgale" - 1 õppematerjal

VBA graafika (odavise)

Globaalsed muutujad: Staadion As Shape Jooks1 As Shape Jooks2 As Shape Oda As Shape ViskeNurk As Range Kaugus As Range TegelikNurk As Range ViseLoeb As Boolean HetkeNurk PausiPikkus PI e Protseduurid: MuutujadPaika() VäljakAlgAsendisse() Jooksmine() Vahetus() MuudaOdaNurk(JooksuHetkeKaugus) ViskaOda_Click() Lõpp_Click() Paus(PausiPikkus) Vastab objektidel Staadion. Vastab objektile Jooks1. Vastab objektile Jooks2. Vastab objektile Oda. Vastab lahtrile Nurk, ehk soovitud viskenurgale. Vastab lahtrile TegelikNurk. Viske korral kuvatakse selles kastis nurk, mis oli odal tegelikult viske alguses. Vastab lahtrile Kaugus. Eduka viske sooritamise järel kuvatakse selles kastis tulemus. Boolean, mis määrab kas viset saab teha või ei. Eituse korral viset sooritada ei saa. Muutuja, mis aitab määrata oda nurka igal ajahetkel. Vastab erinevates protseduurides erinevatele funktsioonide Muutuja, millega saab reguleerida kaadri pausi pikkust jooksmise ja oda lennu ajal. Suurus .