Kuidas teha Stuff põrgatama off seinad Visual Basic

Tee asju põrge on Visual Basic . tenniseväljak põrkav pall pilti Jim Mills Fotolia.com

Visual Basic saab luua põhi animatsioone kasutades mõned sisseehitatud graafika ja taimer komponendid.See õpetus annab juhend luua lihtne animatsioon, kus pall põrkab vastu servad vormi.

juhised

  1. Loo uus projekt klõpsates "File", "New Project."

  2. Loo ovaalne komponent kujul lohistades ovaalne tööriistakasti kujule.Lohista nurgad nii, et muuta see otsima mõistlikult ümmargune.

  3. Loo taimer komponent kujul lohistades tööriistakasti.See osa ei ole nähtav programmi käivitamisel, kuid pakkuda teenust, et "puugid" iga määratud aja.Need puugid võivad olla seotud funktsiooni regulaarselt ülesandeid, nagu ajakohastamine raami animatsiooni.

  4. Tuvastada ja initsialiseerida kaks kiirust muutujad paremkliki oma vormi ja valida View Code.Tuvastada nende muutujate kujul klassi, kuid väljaspool mis tahes funktsioone võite juba olemas.Aseta järgmine kood seda teha:

    Public speed_x = 5
    Public speed_y = 5

    väärtused kiirust mõlemal suunal saab valida midagi soovid ja kombineerida erinevaid võimalusi, et saavutada erinevaid lähtekohti nurgad ja kiirused.Positiivsed kiirustel piki X-telge toob kaasa liikumise suunas paremal vormi samas negatiivse kiirustel piki X-telge toob kaasa liikumise suunas vasakul kaudu.Positiivsed kiirustel piki Y-telge toob kaasa liikumise põhja poole ja negatiivsed kiirustel tipu suunas.

  5. Mine tagasi vormi kujundaja ja topeltklõpsake kujul luua vormi koormuse korral.Kood jooksul seda funktsiooni täidetakse iga kord, kui programm on esmakordselt loodud, nii et see on hea koht täita initsialiseerimise eest kopsakas pall animatsiooni.Tüüp järgmine kood:

    Timer1.Interval = 100
    Timer1.Start ()

    See eeldab, et teil on jäänud taimer vaikimisi nimi Taimer1.Vastasel juhul kasutada nimetust olete andnud seda.Intervall parameeter on mitu millisekundit, mis läbivad omavahel raami.Sada millisekundit on tegelikult vaikimisi väärtus, kuid võite seda muuta, et see sobiks teie vajadustele.

  6. Mine tagasi vormikujundaja klõpsates "Form Designer" tab ja topeltklõpsake taimer objekti luua "linnuke" sündmus.Sisesta järgmine kood on:

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

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

461
0
3
Visual Basic Programmeerimine