by Serdar YUKSEL (4 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd August 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software is general biometry utility for medical
API Declarations
Dim byt As String
Dim carpan As String
Dim fname, qw1, qw2, qw3, qw4, qw5, qw6, qw7, qw8, qw9, qw10, qw11, qw12, qw13, qw14, qw15, qw16, qw17, qw18, qw19, qw20, qw21, qw22, qw23, qw24, qw25, qw26, qw27, qw28, qw29, qw30, qw31, qw32, qw33, qw34, qw35, qw36, qw37, qw38, qw39, qw40, qw41, qw42, qw43, qw44, qw45, qw46, qw47, qw48, qw49, qw50, qw51, qw52, qw53, qw54, qw55, qw56, qw57, qw58, qw59, qw60, qw61, qw62, qw63, qw64, qw65, qw66, qw67, qw68, qw69, qw70, qw71, qw72, qw73, qw74, qw75, qw76, qw77, qw78, qw79, qw80, qw81, qw82, qw83, qw84, qw85, qw86, qw87, qw88, qw89, qw90, qw91, qw92, qw93, qw94, qw95, qw96, qw97, qw98, qw99, qw100, qw101, qw102, qw103, qw104, qw105, qw106, qw107, qw108, qw109, qw110, qw111, qw112, qw113, qw114, qw115, qw116, qw117 As String * 7
Dim ax1, ax2, ax3, ay1, ay2, ay3 As Single
Dim r1, r2, r3
ax1 = Val(Text1) - 5
ay1 = Val(Text2) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text1) - 6
ay1 = Val(Text2) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text1) - 7
ay1 = Val(Text2) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw100 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text3)
ay1 = Val(Text4) + 3
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text3)
ay1 = Val(Text4) + 4
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text3)
ay1 = Val(Text4) + 5
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw101 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text5) + 5
ay1 = Val(Text6) + 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text5) + 6
ay1 = Val(Text6) + 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text5) + 7
ay1 = Val(Text6) + 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw102 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text7) + 5
ay1 = Val(Text8)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text7) + 6
ay1 = Val(Text8)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text7) + 7
ay1 = Val(Text8)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw103 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text9) - 5
ay1 = Val(Text10) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text9) - 6
ay1 = Val(Text10) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text9) - 7
ay1 = Val(Text10) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw104 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text11) - 5
ay1 = Val(Text12) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text11) - 6
ay1 = Val(Text12) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text11) - 7
ay1 = Val(Text12) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw105 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text13) - 5
ay1 = Val(Text14)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text13) - 6
ay1 = Val(Text14)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text13) - 7
ay1 = Val(Text14)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw106 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text15) - 5
ay1 = Val(Text16) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text15) - 6
ay1 = Val(Text16) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text15) - 7
ay1 = Val(Text16) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw107 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text17) + 5
ay1 = Val(Text18) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text17) + 6
ay1 = Val(Text18) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text17) + 7
ay1 = Val(Text18) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw108 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text19) + 5
ay1 = Val(Text20)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text19) + 6
ay1 = Val(Text20)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text19) + 7
ay1 = Val(Text20)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw109 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text21)
ay1 = Val(Text22) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text21)
ay1 = Val(Text22) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text21)
ay1 = Val(Text22) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw110 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text23) + 5
ay1 = Val(Text24)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text23) + 6
ay1 = Val(Text24)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text23) + 7
ay1 = Val(Text24)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw111 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text25) - 5
ay1 = Val(Text26) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text25) - 6
ay1 = Val(Text26) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text25) - 7
ay1 = Val(Text26) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw112 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text27) - 5
ay1 = Val(Text28) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text27) - 6
ay1 = Val(Text28) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text27) - 7
ay1 = Val(Text28) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw113 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text29) - 5
ay1 = Val(Text30)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text29) - 6
ay1 = Val(Text30)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text29) - 7
ay1 = Val(Text30)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw114 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text31) - 5
ay1 = Val(Text32)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text31) - 6
ay1 = Val(Text32)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text31) - 7
ay1 = Val(Text32)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw115 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text33) - 5
ay1 = Val(Text34)
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text33) - 6
ay1 = Val(Text34)
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text33) - 7
ay1 = Val(Text34)
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw116 = renk.Text
r1 = 0
r2 = 0
r3 = 0
ax1 = Val(Text35)
ay1 = Val(Text36) - 5
ix = CLng(ax1)
iy = CLng(ay1)
r1 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text35)
ay1 = Val(Text36) - 6
ix = CLng(ax1)
iy = CLng(ay1)
r2 = GetPixel(Picture1.hdc, ix, iy)
ax1 = Val(Text35)
ay1 = Val(Text36) - 7
ix = CLng(ax1)
iy = CLng(ay1)
r3 = GetPixel(Picture1.hdc, ix, iy)
renk.Text = Round(r1 + r2 + r3 / 3)
List1.AddItem renk.Text
qw117 = renk.Text
r1 = 0
r2 = 0
r3 = 0
End Function
Private Function hesapla()
Dim X As Double
Dim x1 As String * 7
Dim x2 As String * 7
Dim x3 As String * 7
Dim y1 As String * 7
Dim y2 As String * 7
Dim y3 As String * 7
Dim q1 As String * 7
Dim q2 As String * 7
Dim q3 As String * 7
x1 = Val(x11)
x2 = Val(x22)
x3 = Val(x33)
y1 = Val(y11)
y2 = Val(y22)
y3 = Val(y33)
q1 = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
q3 = Sqr((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
q2 = Sqr((x1 - x3) ^ 2 + (y1 - y3) ^ 2)
Txt1.Text = q1
Txt2.Text = q2
Txt3.Text = q3
X = (q2 ^ 2 - (q1 ^ 2 + q3 ^ 2)) / (-2 * q1 * q3)
cs.Text = Round(ArcCos(X) * 180 / 3.14, 3)
oran.Text = Round(q1 / q3, 3)
End Function
Private Function oranhesapla()
'Dim X As Double
Dim tx1 As String * 7
Dim tx2 As String * 7
Dim tx3 As String * 7
Dim tx4 As String * 7
Dim ty1 As String * 7
Dim ty2 As String * 7
Dim ty3 As String * 7
Dim ty4 As String * 7
Dim tq1 As String * 7
Dim tq2 As String * 7
Dim tq3 As String * 7
Dim tq4 As String * 7
tx1 = Val(x11)
tx2 = Val(x22)
tx3 = Val(x33)
tx4 = Val(x44)
ty1 = Val(y11)
ty2 = Val(y22)
ty3 = Val(y33)
ty4 = Val(y44)
tq1 = Sqr((tx2 - tx1) ^ 2 + (ty2 - ty1) ^ 2)
tq3 = Sqr((tx4 - tx3) ^ 2 + (ty4 - ty3) ^ 2)
oran.Text = Round(tq1 / tq3, 3)
End Function
Private Function uzunluk()
'Dim X As Double
Dim jx1 As String * 7
Dim jx2 As String * 7
Dim jx3 As String * 7
Dim jx4 As String * 7
Dim jy1 As String * 7
Dim jy2 As String * 7
Dim jy3 As String * 7
Dim jy4 As String * 7
Dim jq1 As String * 7
Dim jq2 As String * 7
Dim jq3 As String * 7
Dim jq4 As String * 7
jx1 = Val(x11)
jx2 = Val(x22)
jx3 = Val(x33)
jx4 = Val(x44)
jy1 = Val(y11)
jy2 = Val(y22)
jy3 = Val(y33)
jy4 = Val(y44)
jq1 = Sqr((jx2 - jx1) ^ 2 + (jy2 - jy1) ^ 2)
jq3 = Sqr((jx4 - jx3) ^ 2 + (jy4 - jy3) ^ 2)
oran.Text = Round(jq1 * carpan, 3)
cs.Text = Round(jq3 * carpan, 3)
End Function
Function ArcSin(X As Double) As Double
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X As Double) As Double
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
Function boyut()
Picture2.Width = Picture1.Width * byt
Picture2.Height = Picture1.Height * byt
Dim file_name As String
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1.Picture, _
Picture2.ScaleLeft, Picture2.ScaleTop, Picture2.ScaleWidth, Picture2.ScaleHeight, _
Picture1.ScaleLeft, Picture1.ScaleTop, Picture1.ScaleWidth, Picture1.ScaleHeight
Picture2.Picture = Picture2.Image
End Function
Private Sub about_Click()
MsgBox "Author: Serdar Yüksel 2007. e_mail: [email protected] , [email protected]"
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
Image7.Visible = True
End If
If Check1.Value = 0 Then
Image7.Visible = False
End If
End Sub
Private Sub Command1_Click()
List1.Visible = True
On Error Resume Next
x11.Text = Text1.Text
y11.Text = Text2.Text
x22.Text = Text3.Text
y22.Text = Text4.Text
x33.Text = Text9.Text
y33.Text = Text10.Text
Call hesapla
List1.AddItem "Açı(1-2-5)" + ";" + cs.Text
qw1 = cs.Text
x11.Text = Text3.Text
y11.Text = Text4.Text
x22.Text = Text9.Text
y22.Text = Text10.Text
x33.Text = Text11.Text
y33.Text = Text12.Text
Call hesapla
List1.AddItem "Açı(2-5-6)" + ";" + cs.Text
qw2 = cs.Text
x11.Text = Text9.Text
y11.Text = Text10.Text
x22.Text = Text3.Text
y22.Text = Text4.Text
x33.Text = Text5.Text
y33.Text = Text6.Text
Call hesapla
List1.AddItem "Açı(5-2-3)" + ";" + cs.Text
qw3 = cs.Text
x11.Text = Text9.Text
y11.Text = Text10.Text
x22.Text = Text11.Text
y22.Text = Text12.Text
x33.Text = Text13.Text
y33.Text = Text14.Text
Call hesapla
List1.AddItem "Açı(5-6-7)" + ";" + cs.Text
qw4 = cs.Text
x11.Text = Text11.Text
y11.Text = Text12.Text
x22.Text = Text13.Text
y22.Text = Text14.Text
x33.Text = Text5.Text
y33.Text = Text6.Text
Call hesapla
List1.AddItem "Açı(6-7-3)" + ";" + cs.Text
qw5 = cs.Text
x11.Text = Text13.Text
y11.Text = Text14.Text
x22.Text = Text5.Text
y22.Text = Text6.Text
x33.Text = Text7.Text
y33.Text = Text8.Text
Call hesapla
List1.AddItem "Açı(7-3-4)" + ";" + cs.Text
qw6 = cs.Text
x11.Text = Text5.Text
y11.Text = Text6.Text
x22.Text = Text7.Text
y22.Text = Text8.Text
x33.Text = Text17.Text
y33.Text = Text18.Text
Call hesapla
List1.AddItem "Açı(3-4-9)" + ";" + cs.Text
qw7 = cs.Text
x11.Text = Text7.Text
y11.Text = Text8.Text
x22.Text = Text17.Text
y22.Text = Text18.Text
x33.Text = Text15.Text
y33.Text = Text16.Text
Call hesapla
List1.AddItem "Açı(4-9-8)" + ";" + cs.Text
qw8 = cs.Text
x11.Text = Text13.Text
y11.Text = Text14.Text
x22.Text = Text15.Text
y22.Text = Text16.Text
x33.Text = Text17.Text
y33.Text = Text18.Text
Call hesapla
List1.AddItem "Açı(7-8-9)" + ";" + cs.Text
qw9 = cs.Text
x11.Text = Text7.Text
y11.Text = Text8.Text
x22.Text = Text17.Text
y22.Text = Text18.Text
x33.Text = Text19.Text
y33.Text = Text20.Text
Call hesapla
List1.AddItem "Açı(4-9-10)" + ";" + cs.Text
qw10 = cs.Text
x11.Text = Text9.Text
y11.Text = Text10.Text
x22.Text = Text11.Text
y22.Text = Text12.Text
x33.Text = Text21.Text
y33.Text = Text22.Text
Call hesapla
List1.AddItem "Açı(5-6-11)" + ";" + cs.Text
qw11 = cs.Text
x11.Text = Text11.Text
y11.Text = Text12.Text
x22.Text = Text21.Text
y22.Text = Text22.Text
x33.Text = Text23.Text
y33.Text = Text24.Text
Call hesapla
List1.AddItem "Açı(6-11-12)" + ";" + cs.Text
qw12 = cs.Text
x11.Text = Text17.Text
y11.Text = Text18.Text
x22.Text = Text19.Text
y22.Text = Text20.Text
x33.Text = Text27.Text
y33.Text = Text28.Text
Call hesapla
List1.AddItem "Açı(9-10-14)" + ";" + cs.Text
qw13 = cs.Text
x11.Text = Text27.Text
y11.Text = Text28.Text
x22.Text = Text29.Text
y22.Text = Text30.Text
x33.Text = Text19.Text
y33.Text = Text20.Text
Call hesapla
List1.AddItem "Açı(14-15-10)" + ";" + cs.Text
qw14 = cs.Text
x11.Text = Text15.Text
y11.Text = Text16.Text
x22.Text = Text25.Text
y22.Text = Text26.Text
x33.Text = Text27.Text
y33.Text = Text28.Text
Call hesapla
List1.AddItem "Açı(8-13-14)" + ";" + cs.Text
qw15 = cs.Text
x11.Text = Text21.Text
y11.Text = Text22.Text
x22.Text = Text23.Text
y22.Text = Text24.Text
x33.Text = Text25.Text
y33.Text = Text26.Text
Call hesapla
List1.AddItem "Açı(11-12-13)" + ";" + cs.Text
qw16 = cs.Text
x11.Text = Text23.Text
y11.Text = Text24.Text
x22.Text = Text33.Text
y22.Text = Text34.Text
x33.Text = Text35.Text
y33.Text = Text36.Text
Call hesapla
List1.AddItem "Açı(12-17-18)" + ";" + cs.Text
qw17 = cs.Text
x11.Text = Text31.Text
y11.Text = Text32.Text
x22.Text = Text33.Text
y22.Text = Text34.Text
x33.Text = Text23.Text
y33.Text = Text24.Text
Call hesapla
List1.AddItem "Açı(16-17-12)" + ";" + cs.Text
qw18 = cs.Text
x11.Text = Text25.Text
y11.Text = Text26.Text
x22.Text = Text27.Text
y22.Text = Text28.Text
x33.Text = Text35.Text
y33.Text = Text36.Text
Call hesapla
List1.AddItem "Açı(13-14-18)" + ";" + cs.Text
qw19 = cs.Text
x11.Text = Text1.Text
y11.Text = Text2.Text
x22.Text = Text3.Text
y22.Text = Text4.Text
x33.Text = Text3.Text
y33.Text = Text4.Text
x44.Text = Text9.Text
y44.Text = Text10.Text
Call oranhesapla
List1.AddItem "Oran(1-2/2-5)" + ";" + oran.Text
qw20 = oran.Text
x11.Text = Text3.Text
y11.Text = Text4.Text
x22.Text = Text9.Text
y22.Text = Text10.Text
x33.Text = Text9.Text
y33.Text = Text10.Text
x44.Text = Text11.Text
y44.Text = Text12.Text
Call oranhesapla
List1.AddItem "Oran(2-5/5-6)" + ";" + oran.Text
qw21 = oran.Text
x11.Text = Text9.Text
y11.Text = Text10.Text
x22.Text = Text3.Text
y22.Text = Text4.Text
x33.Text = Text3.Text
y33.Text = Text4.Text
x44.Text = Text5.Text
y44.Text = Text6.Text
Call oranhesapla
List1.AddItem "Oran(5-2/2-3)" + ";" + oran.Text
qw22 = oran.Text
x11.Text = Text11.Text
y11.Text = Text12.Text
x22.Text = Text13.Text
y22.Text = Text14.Text
x33.Text = Text13.Text
y33.Text = Text14.Text
x44.Text = Text5.Text
y44.Text = Text6.Text
Call oranhesapla
List1.AddItem "Oran(6-7/7-3)" + ";" + oran.Text
qw23 = oran.Text
x11.Text = Text13.Text
y11.Text = Text14.Text
x22.Text = Text5.Text
y22.Text = Text6.Text
x33.Text = Text5.Text
y33.Text = Text6.Text
x44.Text = Text7.Text
y44.Text = Text8.Text
Call oranhesapla
List1.AddItem "Oran(7-3/3-4)" + ";" + oran.Text
qw24 = oran.Text
x11.Text = Text5.Text
y11.Text = Text6.Text
x22.Text = Text7.Text
y22.Text = Text8.Text
x33.Text = Text7.Text
y33.Text = Text8.Text
x44.Text = Text17.Text
y44.Text = Text18.Text
Call oranhesapla
List1.AddItem "Oran(3-4/4-9)" + ";" + oran.Text
qw25 = oran.Text
x11.Text = Text7.Text
y11.Text = Text8.Text
x22.Text = Text17.Text
y22.Text = Text18.Text
x33.Text = Text17.Text
y33.Text = Text18.Text
x44.Text = Text15.Text
y44.Text = Text16.Text
Call oranhesapla
List1.AddItem "Oran(4-9/9-8)" + ";" + oran.Text
qw26 = oran.Text
x11.Text = Text13.Text
y11.Text = Text14.Text
x22.Text = Text15.Text
y22.Text = Text16.Text
x33.Text = Text15.Text
y33.Text = Text16.Text
x44.Text = Text17.Text
y44.Text = Text18.Text
Call oranhesapla
List1.AddItem "Oran(7-8/8-9)" + ";" + oran.Text
qw27 = oran.Text
x11.Text = Text7.Text
y11.Text = Text8.Text
x22.Text = Text17.Text
y22.Text = Text18.Text
x33.Text = Text17.Text
y33.Text = Text18.Text
x44.Text = Text19.Text
y44.Text = Text20.Text
Call oranhesapla
List1.AddItem "Oran(4-9/9-10)" + ";" + oran.Text
qw28 = oran.Text
x11.Text = Text9.Text
y11.Text = Text10.Text
No comments have been posted about SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software i. Why not be the first to post a comment about SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software i.