VBA graafika (ralli) (1)

Mängu põhimõtted: Tegemist on kiirendusvõistluse mänguga, kus mängija saab teha sõidu tulemuste kohta panuseid. Mängu alguse kasutajale 20000 ning eesmärgiks on seda summat võimalikult palju kasvatada. Iga sõidu alguses saavad auto algandmed, seega sõidu tulemust on raskem ette näha. Iga auto kohta arvutatakse võidukoefitsent vastavalt aut Auto maksimukiirust ei arvestata, et mängu muuta vähem ettearvatavamaks ja põnevamaks. Mäng lõppeb kui kõ maha mängitud või mängija enda otsusel .
Sõidud toimuvad erinevates kohtades. On neli erinevat sihtkohta : kõrb, soolajärv, ringrada ja rannaäärne tee. Mängija saab ka ise sõitjate nimesid muuta asendada neid mängu päises omale sobivate nimedega.
Kuidas mängida: Mängu alustamiseks tuleb vajutada nuppu "Alusta mängu" ning sooritada panused . Pärast sobivate pakkumiste vajutada nuppu "Alusta sõitu", et autod sooritaksid võidusõidu. Seejärel teavitatakse mängijat tulemustest ja alga voor , koos uue panustamisega. Seejärel tuleb uuesti vajutada nuppu "Alusta sõitu" ning toimub järgmine sõit. Ko meeldib. Tagumine auto: Raha: 20 000,00 Keskmine auto: Lähim auto: Juht: Koefitsent : Sinu panus: Ants 0,59 500,00 Ülar 0,91 500,00 Elmar 0,49 500,00 Objektid: Auto1 - Esimese (lähima) auto pilt. Auto2 - Teise (keskmise) auto pilt. Auto3 - Kolmanda (tagumise) auto pilt. Joon - Stardijoon. Finish - Finishijoon Rand - Taust rannas toimuvale sõidule. SoolaJärv - Taust soolajärvel toimuvale sõidule. RingRada - Taust ringrajasõidule. Kõrb - Taust sõidule kõrbes.
Muutujad: Auto1Juht - Esimese autojuhi nimi. Mängija võib ise seda muuta. Auto2Juht - Teise autojuhi nimi. Mängija võib ise seda muuta. Auto3Juht - Kolmanda autojuhi nimi. Mängija võib ise seda muuta. Auto1Koef - Esimese auto võidukoefitsent. Arvutatakse enne igat sõitu uuesti. Auto2Koef - Teise auto võidukoefitsent. Arvutatakse enne igat sõitu uuesti. Auto3Koef - Kolmanda auto võidukoefitsent. Arvutatakse enne igat sõitu uuesti. Raha - Mängija rahasumma . Mängu alguses 20000. Kui raha langeb nulli, siis mäng lõppeb. Panus1 - Mängija poolt sisestatav panus esimesele autole . Panus2 - Mängija poolt sisestatav panus teisele autole. Panus3 - Mängija poolt sisestatav panus kolmandale autole.
Nupud: Panustamine - alustab mängu esimese panustamise vooruga. AlustaSõitu - Nupp , millega saab alustada võidusõitu pärast igat panustamiste vooru . LõpetaMäng - Lõpetab mängu suvalisel ajahetkel. Globaalsed muutujad: Auto1MaxKiirus - Näitab esimese auto maksimum kiirust, leitakse enne igat sõitu uus väärtus. Auto2MaxKiirus - Näitab teise auto maksimum kiirust, leitakse enne igat sõitu uus väärtus. Auto3MaxKiirus - Näitab kolmanda auto maksimum kiirust, leitakse enne igat sõitu uus väärtus. Auto1Kiirendus - Näitab esimese auto kiirendust, leitakse enne igat sõitu uus väärtus. Auto2Kiirendus - Näitab teise auto kiirendust, leitakse enne igat sõitu uus väärtus. Auto3Kiirendus - Näitab kolmanda auto kiirendust, leitakse enne igat sõitu uus väärtus. Võitja - String võitja nimega. VõiduSumma - Summa mille võrra mängija raha pärast panustamise vooru ja sõitu muutus. Boolean VõitjaOlemas - Kontrollib kas sõidu jooksul on võitja leidunud. Ehk omandab True väärtuse kui keegi üle Boolean SõitaSaab - Kontrollib kas mäng on valmis sõiduks. False väärtuse korral ei saa vajutada "Alusta sõitu"
Protseduurid ja funktsioonid: ArvutaAutoOmadused(Sõiduk) - protseduur sõiduki omaduste määramiseks. Käivitatakse iga sõiduki kohta enne omadusi hetkel määratakse. Muutujad on MaxKiirus ja Kiirendus. Need valitakse kindlates vahemikes suvalised ArvutaVõiduSumma(Võitja) - protseduur, mis leiab mängija rahasumma pärast sõitu. Tingimus aitab rahal mitte n koefitsendiga võidusumma suuruse. See protseduur annab globaalsele muutujale VõiduSumma uue väärtuse, a AutoKiirus( HetkeKiirus , Sõiduk) - Funktsioon, mis annab väärtused sõidukite liikumiste jaoks. Kontrollib kas auto kontrollib, kas auto on ületanud finishijoone . Kui jah, siis hakkab autot pidurdama, mitte lubades seda mänguvälj kas auto saab veel kiirendada või ei. Parameeter Sõiduk on vajalik, et kindlaks teha antud sõduki makimum kiiru Paus(pp) - protseduur, mis aitab määrata pausi. Parameeter pp on pausi pikkus sekundites. Panustamine_Click() - protseduur, mis alustab mängu. Seab objektid vastavusse programmi muutujatega ning a UusSõit() - protseduur, kud leitakse sõdu alustamiseks vajaliku andmed. Leitakse uued autode omadused ja uus võidukoefitsendid. Selles protseduuris kontrollitakse, kas mängijal on veel raha, et mängu jätkata. ValiRada() - protseduur, milles leitakse juhuslikuse meetodiga sõidu toimumiskoht ning pannaks paika stardi- ja f AlustaSõitu_Click() - protseduur, mis käivitud vajutades nuppu "Alusta sõitu". Nupp reageerib ainult sobivatel het Sõitmine() - protseduur, mis reguleerib autode liikumist kuni nende seisma jäämiseni. Samuti leiab sõiduki, mis ü poolt tehtud panus on arvestuslik. Kui mängija sooritab panuseid kokku suuremas summas, kui tal on, siis panus järgmisel sõidul. Muutujad Auto1HetkeKiirus, Auto2HetkeKiirus ja Auto3HetkeKiirus on autode liigutamiseks igas seisma jäämist kuvatakse ka sõidu tulemused ning võidetud panus. LõpetaMäng_Click() - Lõpetad mängu suvalisel ajahetkel. AlustaSõitu_
SõitaSaab = False AlustaSõitu_Click()
SõitaSaab = True
SõitaSaab = False
Käivita Sõitmine ()