"hetkenurk" - 1 õppematerjal

VBA graafika (odavise)

Saadab oda hoo pealt lendu. Saab vajutada ainult mängu ajal ning enne joone ületamist. Lõpetab mängu suvalisel hetkel ning seab väljaku algasendisse. Aitab reguleerida soovitud nurga suurust ühe kraadise sammuga. Ehk soovitud viskenurk. Enne joone ületamist tõuseb oda antud nurgast vähekene kõrgemale. 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