VBA graafika (odavise) (0)

KASUTUSJUHEND: Tegemist on odaviskemänguga. Esimesena valib mängija, mis nurga ta soovib hoovõtuga saavutada. See-järel vajutab mängija nupule "Alusta jooksu" ning karakter hakkab liikuma. Oda tuleb ära visata enne karakteri punase jooneni jõudmist vajutades nuppu "Viska oda!". Pärast viske sooritamist kuvatakse ka visatud tulemus. Pole rahul? Aga saada oda uuesti lendu! SOOVITUD VISKENURK: 42 ° TEGELIK VISKENURK: 0° TULEMUS: 0,00 m Kasutatavad objektid: Shape Staadion Shape Oda Shape Jooks1 Shape Jooks2
Nupud: AlustaJooksu ViskaOda Lõpp SpinButton1
Muutujad töölehelt: Nurk Mänguväljaku taustapilt. Visatava oda kujutis. Karakteri esimene jooksu kaader . Karakteri teine jooksu kaader. Kahe pildi vaheldumisega kujutatakse jooksmise animatsiooni .
Alustab mängu. Nupu vajutuse tagajärjel hakkab karakter liikuma. 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. 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 . Suurus e.
Otstarve: Annab osadele globaalsetele muutujatele algväärtused. Otstarve: Seab mänguväljaku algasendisse. Paneb paika objektide asukohad ja suurused. Otstarve: Kirjeldab karakteri liikumist ning reguleerib animatsiooni. Jooksmise ajal muudab oda nurka viske suunas. Protse Muutujad: JooksuKiirus - konstant karakteri liikumise kiiruseks algpositsioonilt jooneni. Vaikesättena 3,1. Positsioon - muutuja positsiooni määramiseks igas ajahetkes. Piir - muutuja kontrolliks, millal karakter ületab joone. Aeg - jooksmise aeg jooksu alghetkest. VahetusAeg - muutuja kirjeldamaks ajahetke, millal viimati vahetati karakteri liikumise animatsioonis pilt. Tegevused: * Kontrollib, mis ajahetkel peab karakteri jooksmise animatsiooni pilti vahetama . Parema animatsiooni saamiseks * Liigutab ühtlaselt karakterid koos odaga edasi. Samal ajal muudab eksponentsiaalselt oda nurka. * Kontrollib kumma animatsiooni pildiga on tegemist ning vastavalt sellele reguleerib muutuja Piir väärtust * Kontrollib kas karakter jookseb üle joone ning vastavalt sellele kuvab teate ning paneb väljaku algasendisse. Otstarve: Muudab animatsioonis korda mööda kahe pildi nähtavust. Kasutatakse protseduuris Jooksmine(). Tegevused: * Kontrollib kumb animatsiooni pilt on nähtav ning siis varjab selle ning teeb teise pildi nähtavaks. Otstarve: Kirjeldab eksponentfunktsiooni, millega määratakse oda kaldenurk jooksu ajal vastavalt joostud maale. Kasutata Parameetrid : JooksuHetkeKaugus - muutuja, millega on määratud kui kaugele on karakter jooksun. Tegevused: * Annab muutujale HetkeNurk uue väärtuse vastavalt joostud maale. Otstarve: Kirjeldab oda lendu vastavalt viskenurgale. Käivitub oda viskamise nuppu vajutades. Muutujad: Gravitatsioon - programmisisene gravitatsioonikonstant . Vaikesättena 2. Xkiirus - x-telje shiline oda liikumise kiirus lennu ajal. Ykiirus - y-telje sihiline oda liikumise kiirus lennu ajal. Tegevused: * Kontrollib kas viset saab sooritada, ehk karakter peab jooksma , et saaks oda visata. * Seab vastavalt viskenurgale x-telje ja y-telje sihilised oda liikumise kiirused. * Liigutab oda x-telje ja y-telje sihis, seades samal ajal ka oda nurka. * Kontrollib, et oda ei langeks pildist välja. * Kuvab väljadesse TegelikNurk ja Kaugus viske nurga ning oda lennukauguse väärtused. Otstarve: Lõpetab mängu suvalisel ajahetkel. Käivitub Lõpu nuppu vajutades. Tegevused: * Seab mänguväljaku algasendisse * Lõpetab kõik protseduurid Otstarve: Aitab kontrollida käskude täitmise aega pauside abil. Parameetrid: PausiPikkus - parameeter pausi kestuse määramiseks. Muutujad: PausiKestus - muutuja pausi lõppu ajahetke kirjeldamiseks. vahetus()
ei
Jooks1. Visible = True Jooks2.Visible = False Jooks2.Visi vahetus()
Jooks1.Visible = True
Jooks2.Visible = True Jooks1.Visible = False