hejsan jag har nu länge klurat på detta problemet här och försökt lösa detta.
Jag ska göra ett program i VB 6.0 där man matar in punkters koordinater via inputboxar. Det jag då skall ta in är x- och y-värden. Dessa ska sedan placeras i en tvådimensionell array. Sedan ska också avståndet beräknas mellan dessa punkter. Men oturligt nog får jag det inte att funka skulle gärna vilja få lite tips såhär ser min kod ut.

Public Sub punkt_Click()
X1 = InputBox("Ange x-koordinat", "Ange x-koordinat")
X2 = InputBox("Ange x-koordinat", "Ange x-koordinat")
Y1 = InputBox("Ange y-koordinat", "Ange y-koordinat")
Y2 = InputBox("Ange y-koordinat", "Ange y-koordinat")
Static punkter(1 To 10, 1 To 10) As Integer
punkter(1, 1) = X1
punkter(2, 2) = X2
punkter(3, 3) = Y1
punkter(4, 4) = Y2
Line (X1, X2)-(Y1, Y2), vbBlue
End Sub
Public Sub berakna_Click()
berakning.Text = x - y
End Sub
Private Sub avslut_Click()
End
End Sub
Private Sub rensa_Click()
Cls
End Sub

Ni får ursäkta för koden men jag är nybörjare på detta har tidigare kodat i c++


Mvh

nicklas

Såhär räknar du ut avståndet:

Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)

/Johan

"Summan av kvadraterna på kateterna är lika med kvadraten på hypotenusan."

<code> a² + b² = c² </code>

...eller Pythagoras sats

(Ifall det är nån som inte förstår hur/varför det blir just den "formeln".)

ChristerGbg

alltså måste jag använda mig av pythagoras sats för denna ekvation måste jag använda x1,x2,y1,y2 för att sen utföra beräkningen på den grafiska linjen genom funktionen "Line" eller ska jag använda en annan funktion för detta?

mvh

Nicklas

hehe denna var inte så svår att lösa egentligen
nu har jag löst den

<code>

Dim punkter(1 To 100, 1 To 2) As Integer
Private Sub berakna_Click()
berakning.Text = Sqr((punkter(2, 2) - punkter(1, 2)) ^ 2 + (punkter(2, 1) - punkter(1, 1)) ^ 2)

End Sub
Private Sub punkt_Click()

punkter(1, 1) = InputBox("ange x-värde")
punkter(1, 2) = InputBox("ange y-värde")

punkter(2, 1) = InputBox("ange x-värde")
punkter(2, 2) = InputBox("ange y-värde")
End Sub




</code>