hvordan man kan beregne skæringspunktet mellem to linjer i Visual Basic

Indlæg af Gunner Poulsen     opdateret: 2011-12-03

At finde skæringspunktet mellem to linjer er et fælles problem i matematik , og derfor er det nyttigt at have et edb-program , der kan løse problemet . At gøre dette , alt, hvad der er nødvendigt , er at oversætte de skridt, vi alle lærte i vores midt skole matematik klasserne i en algoritme Visual Basic , der er et programmeringssprog , som Microsoft kan forstå
1 .
Opret et nyt Visual Basic -projekt ved at klikke på "Filer" og " New Project. " Vælg " Console Application ", da det lader os komme til kød af problemet uden at skulle bekymre sig om irrelevante GUI ( Graphical User Interface ) arbejde . Senere , du kan bruge nøjagtig den samme kode i en GUI program, hvis du ønsker det .
2
Angiv linje i fire variable : hældning og skæring af hver linje Gør dette ved at indsætte følgende : .


Dim firstLineSlope som Double=3,0
Dim firstLineYintercept som Double=-8

Dim secondLineSlope som Double=7 . 0
Dim secondLineYintercept Som Double=9

Dette ville svare til de strækninger " y=3x-8 " og " y=7x + 9 . " Du kan ændre tallene til at passe de to linjer , du forsøger at løse for
3
Find x -koordinaten ved hjælp af følgende formel : .


Dim x som Double=( firstLineYIntercept-secondLineYintercept ) /( SecondLineSlope-firstLineSlope )

Det svarer til at sætte de to linjer ligninger lig til hinanden og forenkle betingelserne , som dette:

3x-8=7x + 9
3x-7x=9-(-8 )
x=-4 . . 25
4
Find y- koordinat krydset ved at sætte det nyfundne x værdi ind i en af de linjer ved hjælp af følgende kode :


Dim y som Double=( firstLineSlope * x ) + firstLineYintercept

Det svarer til følgende matematiske :

y=3 (-4,25) + (-8)
y=-20,75


Previous:hvordan man kan læse en csv fil med vb Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change