• Home
 · 
• Math/Dates
 · 
• SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software i

SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software i

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




Rate SIGMANG 1.0 This utilty calculate angles, proportion and lenghts between landmarks. This software i

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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