Prosty program, który umożliwia obliczanie współrzędnych środka oraz długości danych odcinków w układzie współrzędnych.
Private Sub długość_Click()
Dim A, B, C, D As Single
A = CSng(txtA)
B = CSng(txtB)
C = CSng(txtC)
D =CSng(txtD)
'Wylicza długość'
lblWynik.Caption = Sqr((C - A) ^ 2 + (D - B) ^ 2)
End Sub
Private Sub koniec_Click()
Unload Me
End Sub
Private Sub Współrzędne_Click()
Dim A, B, C, D As Single
A = CSng(txtA)
B = CSng(txtB)
C = CSng(txtC)
D =CSng(txtD)
'oblicza współrzędne środka'
lblWynikX.Caption = C + A / 2
lblWynikY.Caption = D + B / 2
End Sub
