Sådan Gør Stuff hoppe ud af Vægge i Visual Basic

Gøre tingene hoppe i Visual Basic . tennisbane med hoppende bold billede af Jim Mills fra Fotolia.com

Visual Basic kan bruges til at skabe grundlæggende animationer ved hjælp af nogle af de indbyggede grafik og timer-komponenter.Denne tutorial vil give en guide til at skabe en simpel animation, hvor en bold vil hoppe mod kanterne af formen.

Instruktioner

  1. Opret et nyt projekt ved at klikke på "File", "Nyt projekt".

  2. Opret en oval komponent i form ved at trække den ovale fra værktøjskassen i formularen.Træk hjørnerne på en sådan måde, at det ser rimeligt cirkulære.

  3. Opret en timer komponent i form ved at trække det fra værktøjskassen.Denne komponent vil ikke være synlig ved runtime, men vil yde en service, at "flåter" hvert sæt mængde tid.Disse flåter kan være forbundet med en funktion til at udføre almindelige opgaver, såsom opdatering af en ramme af animationen.

  4. Erklær og initialisere to speed variable ved at højreklikke på din formular og vælge Vis kode.Erklær disse variabler i formularen k

    lasse, men uden for nogen funktioner, du måske allerede har der.Indsæt følgende kode til at gøre dette:

    Public speed_x = 5
    Offentlig speed_y = 5

    Værdierne for hastigheden i hver retning kan indstilles til noget, du kan lide, og kombineres på forskellige måder at opnå forskellige udgangspunkter vinkler og hastigheder.Positive hastigheder langs X-aksen vil resultere i bevægelse mod højre af formen mens negative hastigheder langs X-aksen vil resultere i bevægelser mod venstre i formularen.Positive hastigheder langs Y-aksen vil resultere i bevægelse mod bunden og negative hastigheder mod toppen.

  5. Tilbage til formularen designer og dobbeltklik på formularen for at oprette en formular belastning begivenhed.Kode i denne funktion vil blive udført, når programmet er først skabt, så det er et godt sted at udføre initialisering for hoppende bold animation.Indtast følgende kode:

    Timer1.Interval = 100
    Timer1.Start ()

    Dette forudsætter, at du har forladt din timer med standard navn Timer1.Ellers skal du bruge det navn, du har givet det.Intervallet parameter er antallet af millisekunder, passerer mellem hvert billede.Et hundrede millisekunder er faktisk standardværdien, men du kan ændre det til dine behov.

  6. Tilbage til formular designeren ved at klikke på fanen "Form Designer" og dobbeltklik på timeren objektet at skabe et "flueben" begivenhed.Indtast følgende kode i det:

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

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

829
0
3
Visual Basics Programming