VBA - graafika (1)

Aeg max_aeg Putukaid püütud Kiirus 0,00 15 0 6 Putukate püüdmine
Mängu alustamiseks tuleb vajutada nuppu "Start". Mängu alguses hakkab püüdja liikuma suvalises suunas vabalt valitud kiirusega. Maksimaalset aega saab samuti ise valida. Aja täitumisel mäng peatub. Mängu eesmärk on võimalikult palju putukaid püüda. Kui püüdja puutub putukat (või on selle peal), siis tuleb vajutada "Püüa" nuppu. Kõik püütud putukad lähevad kasti. Mängu lõppedes ütleb programm, mitu putukat püüdsite. Et mängu uuesti alustada, tuleb kõik putukad laiali uuesti ajada. Selleks tuleb kasutada nuppu "Laiali". See nupp töötab ainult siis, kui mäng on peatatud. Mängu saab peatada ka keset mängu nupuga "Peata", kuid samast kohast edasi mängida seda ei saa. Maksimaalset aega saab valida 15 kuni 60 sekundi vahel. Püüdja kiirus on vahemikus 4 kuni 10. Mida suurem on number püüdja kiirusel, seda kiiremini ta liigub. Putukaid laiali ajades on võimalik ka valida, kas muuta putukate värvi või ei. Kui muuta värvi, siis tuleb panna linnuke kasti "Muuda värvi". Kasutatavad objektid: Püüdja - püüab putukaid. Putukad - väikesed ringid, mida püüdja peab püüdma. Piir - joon, millest allpool mäng käib. Kast - ala, millesse püütud putukas liigub.
Kasutatavad muutujad: Objektide x- ja y-kooridnaadid Püüdja kiirus Maksimaalne mänguaeg Püütud putukate arv Aeg
Kasutatavad massiivid: Püütudputukad - massiiv, kuhu kõik püütud putukad lähevad. Laiali - ajab kõik putukad korraga laiali. Peamised muutujad on putukate x- ja y-koordinaadid.
Algus - paneb mängu tööle. Paneb aja käima, nullib kõik eelmised tulemused, võtab töölehelt valitud püüdja kiiruse ja paneb püüdja sellel kiirusel suvalises suunas liikuma. Peamised muutujad on püüdja kiirus, püüdja x- ja y-koordinaadid.
Pyya - kui püüdja ja putuka vahel on puude, siis viib putuka kasti. Loeb püütud putukaid. Peamised muutujad on putukate x- ja y-koordinaadid.
Liigu_XY - muudab elementide (püüdja ja putukate) x- ja y- koordinaate. Peamised muutujad ongi x- ja y-koordinaadid.
On_Puude - kontrollib, kas "Püüa" nupu vajutamisel on püüdja ja putuka vahel puude. See on tõene, kui püüdjal ja putukal on ühisosa. Peamised muutujad on elementide koordinaadid. Sub Algus() Dim putukas As Püütudputukas pp = 0 v = Range("kiirus") määrab ära Range("pp") = pp putuka Range("aeg") = 0 määrab kiiruse algaeg = Timer () aeg = 0 püüdjaliigub = False algaeg = Time MängKäib = True määrab ära Set püüdja = Shapes("püüdja") püüdja Set Püütudputukad = New Collection määrab ära pi piir = Shapes("piir").Top + Shapes("piir"). Height püüdjaliigub = Randomize False Do If püüdjaliigub = False Then x = 100 + Rnd() * 500 y = piir + Rnd() * 250 püüdjaliigub = True End If Liigu_XY püüdja, x, y, v Range("aeg") = Timer() - algaeg If Range("aeg") >= Range("max_aeg") Then MsgBox "Mäng läbi! Püüdsite " & Range("pp"). Value & " putukat." End End If For Each putukas In Püütudputukad Liigu_XY putukas.Kuju, putukas.x, putukas.y, 8 Next putukas paus 0.05 Loop For Each putukas End Sub In Püütudputukad
määrab putuka määrab ära putuka määrab kiiruse aeg = 0 algaeg = Timer määrab ära püüdja määrab ära piiri püüdjaliigub = False
püüdjaliigub = True
määrab x, y püüdjaliigub = True
püüdja liigub
aeg >= max_aeg Each putukas üütudputukad
määrab putukate x, y