Miten saada Stuff kimpoavat Walls Visual Basic

Tee asiat pomppia Visual Basic . tenniskenttä pomppiva pallo kuva Jim Mills Fotolia.com

Visual Basic voidaan luoda perus animaatioita käyttäen joitakin sisäänrakennettu grafiikka ja ajastin komponentteja.Tämä opas antaa opas luoda yksinkertainen animaatio, jossa pallo kimpoaa reunoja vasten muodossa.

Ohjeet

  1. Luo uusi projekti klikkaamalla "File", "Uusi projekti."

  2. Luo soikea komponentin muodossa vetämällä soikea Toolbox muotoon.Vedä kulmat siten, jotta se näyttää kohtuullisen pyöreä.

  3. Luo ajastin komponentin muodossa vetämällä se työkalupakin.Tämä komponentti ei ole näkyvissä suorituksen mutta tarjoaa palvelua, joka "punkkeja" jokainen tietty aika.Nämä punkit voivat liittyä toiminto suorittaa säännöllisesti tehtäviä, kuten päivittäminen runko animaatio.

  4. toteaa ja alustaa kaksi nopeutta muuttujaa oikealla klikkaamalla lomakkeeseen ja valitsemalla Näytä koodi.Ilmoitettava ne muuttujia muodossa luokkaan mutta ulkopuolella kaikki toiminnot ehkä jo olla siellä.Liitä seuraava koodi tehdä tämän:

    Julkinen speed_x = 5
    Julkinen speed_y = 5

    Nopeusarvot kumpaankin suuntaan voidaan asettaa mitä haluat ja yhdistellä eri tavoin saavuttaa eri lähtökohdat näkökulmista ja nopeudet.Positiivinen nopeudet pitkin X-akselia johtaa liikettä kohti lomakkeen negatiiviset nopeuksilla pitkin X-akselia johtaa liikkeitä vasemmalle lomakkeen.Positiivinen nopeudet pitkin Y-akselia johtaa liikettä alaspäin ja negatiivinen nopeudet kohti kärkeä.

  5. Palaa lomakkeen suunnittelija ja kaksoisnapsauta muodossa luoda lomakkeen kuorma tapahtuma.Koodiin tämä toiminto suoritetaan aina ohjelma on ensin luotu, joten se on hyvä paikka suorittaa alustuksen pomppiva pallo animaatio.Kirjoita seuraava koodi:

    Timer1.Interval = 100
    Timer1.Start ()

    Tämä edellyttää, että olet jättänyt oman ajastin oletusnimellä Timer1.Muussa tapauksessa käyttää nimitystä olet antanut sen.Väli parametri on millisekuntien määrän, jotka kulkevat keskenään kehyksen.Sata millisekuntia on todella oletusarvo, mutta voit muuttaa sitä tarpeidesi.

  6. Palaa lomakkeen suunnittelija klikkaamalla "Form Designer" -välilehti ja kaksoisnapsauta ajastin esine luoda "rasti" tapahtuma.Kirjoita seuraava koodi siihen:

    Jos OvalShape1.Left () & amp; lt;0 Sitten speed_x = speed_x * -1
    Jos OvalShape1.Right () & gt;Me.Width Sitten speed_x = speed_x * -1
    Jos OvalShape1.Top () & amp; lt;0 Sitten speed_y = speed_y * -1
    Jos OvalShape1.Bottom () & gt;Me.Height Sitten speed_y = speed_y * -1

    OvalShape1.Location = Uusi System.Drawing.Point (OvalShape1.Left () + speed_x, OvalShape1.Top () + speed_y)

587
0
3
Visual Basic Ohjelmointi