Vb Koordinat Sisteminde Mesafeler

[aLayıNaiSyaN]

[Üye Olmadan Linkleri Göremessin! Üye Olmak İçin Tıkla...]

Option Explicit 
Private Sub Command1_Click() 
Dim BirX, BirY, İkiX, İkiY As Integer 
BirX = Val(Text1.Text) 
BirY = Val(Text2.Text) 
İkiX = (Text3.Text) 
İkiY = Val(Text4.Text) 
Text5.Text = Str(Mesafe(BirX, BirY)) 
Text6.Text = Str(Mesafe(İkiX, İkiY)) 
Text7.Text = Str(Mesafe(BirX, BirY, İkiX, İkiY)) 
End Sub 
Function Mesafe(ByVal x1, ByVal y1 As Integer, Optional x2, Optional y2 As Integer) As Double 
If IsMissing(x2) Then x2 = 0 
If IsMissing(y2) Then y2 = 0 
Mesafe = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2) 
End Function