Creare un nuovo progetto di Visual Basic facendo clic su " File " e " Nuovo progetto ". Scegli "Console Application ", dal momento che ci permette di arrivare alla carne del problema , senza doversi preoccupare di GUI lavoro irrilevante ( Graphical User Interface) . In seguito , è possibile utilizzare lo stesso codice in una applicazione GUI , se lo desidera
2
definire la linea in quattro variabili : . Del coefficiente angolare e di ogni linea . A tale scopo, incollando il seguente :
Dim firstLineSlope come Double = 3.0 Liberi
Dim firstLineYintercept come Double = -8
Dim secondLineSlope come Double = 7.0
dim secondLineYintercept As Double = 9
Questo sarebbe equivalente a le righe " y = 3x - 8" " . y = 7x + 9" e È possibile modificare i numeri per soddisfare le due linee che si sta tentando di risolvere per
3
Trova la coordinata x utilizzando la seguente formula : .
Dim x come Double = ( firstLineYIntercept - secondLineYintercept ) /( SecondLineSlope - firstLineSlope ) per
questo equivale a impostare le equazioni di due linee uguali tra loro e semplificando i termini , in questo modo:
3x - 8 = 7x + 9
3x - 7x = 9 - ( -8 ) per
x = -4.25
4
Trova la coordinata y del punto di intersezione collegando il ritrovata valore x in una delle linee utilizzando il seguente codice:
Dim y come Double = ( firstLineSlope * x ) + firstLineYintercept
Questo è equivalente al seguente calcolo :
y = 3 ( -4.25 ) + ( -8 ) per
y = -20,75
Programmazione © www.354353.com