Hvordan lage en trekant i Visual Basic

Lære å tegne en trekant i Visual Basic gir en forsiktig introduksjon til denne programmeringsspråk er 2-D grafikk funksjoner. Den virtuelle objekt som gjør tegne figurer som trekanten mulig er grafikkobjektet. Når du lærer å tegne linjer og fylte former som rektangler og trekanter, kan du lage figurer av vilkårlig kompleksitet i Visual Basic programmer. Bruk denne funksjonen til å lage programmer for digitale maleri, grafer numeriske data og mange andre programmer som krever 2-D grafikk.

Bruksanvisning

1 Klikk på "File" -menyen er "Ny" kommando for å opprette en ny Visual Basic-prosjekt. Klikk på "Windows Form" element for å fortelle Visual Basic du ønsker å lage et prosjekt som bruker grafikk. Visual Basic skaper en grunnleggende prosjekt som du kan tilpasse til å tegne en trekant.

2 Dobbeltklikk Userform som ser ut til å gå inn i programmeringsmiljø. Klikk lengst til venstre nedtrekkslisten over programmeringsvinduet og klikk "Form1." Klikk lengst til høyre i rullegardinlisten for å vise hendelses funksjoner som er medlemmer av "Form1" objekt.

3 Klikk på "Paint" element for å fortelle Visual Basic du vil at den skal skape en tom funksjon som kjører når Windows forteller programmet til å male seg selv, noe som skjer når vises skjemaet etter å ha blitt skjult, og også når programmet knyttet til skjemaet utføres.

4 Lim inn følgende programkoden inn i "Paint" funksjon. Dette programmet bruker "Drawline" -funksjonen, også kalt en "metode" av grafikkobjektet til å tegne en linje på skjermen. Fordi en trekant består av tre linjer, kan du bruke denne metoden for å tegne en trekant:

e.Graphics.DrawLine (Pens.Brown, New PointF (0.0F, 0.0F), New PointF (60.0F, 60.0F))

5 Kjør programmet ved å trykke på "F5". Skjemaet viser én linje som er angitt i programmet. Avslutt programmet kjøres ved å klikke på skjemaets "X" -knappen. Visual Basic kommer du tilbake til programmet notering.

6 Skriv eller lim inn følgende to uttalelser etter den første "Drawline" statement. Disse uttalelsene trekke to ekstra linjer, med hver linje startpunktet det samme som forrige linje endepunkt. Den siste linjen endepunkt kobles til den første linjen er startpunktet for å fullføre trekanten.

e.Graphics.DrawLine (Pens.Brown, New PointF (60.0F, 60.0F), New PointF (180.0F, 60.0F))

e.Graphics.DrawLine (Pens.Brown, New PointF (180.0F, 60.0F), New PointF (0.0F, 0.0F))

7 Kjør programmet som du gjorde i trinn 5 for å vise trekant.