Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib “user32” Alias “GetWindowLongA” _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib “user32” _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DrawMenuBar Lib “user32” (ByVal hwnd As Long) As Long
‘YUKARDAKİ İLE BİR (TAM EKRAN NORMAL EKRAN)
Private Sub UserForm_Activate()
Dim hWndForm As Long, frmStyle As Long
hWndForm = FindWindow(vbNullString, Me.Caption)
frmStyle = GetWindowLong(hWndForm, (-16))
frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000
SetWindowLong hWndForm, (-16), frmStyle
ShowWindow hWndForm, 5
DrawMenuBar hWndForm
End Sub
Private Sub TextBox19_Change()
Range(“Sayfa1!M5”).Value = TextBox19.Value
End Sub
Private Sub TextBox20_Change()
Range(“Sayfa1!M6”).Value = TextBox20.Value
End Sub
Private Sub TextBox21_Change()
Range(“Sayfa1!M7”).Value = TextBox21.Value
End Sub
Private Sub TextBox25_Change()
Range(“Sayfa1!M8”).Value = TextBox25.Value
End Sub
Private Sub TextBox26_Change()
Range(“Sayfa1!M9”).Value = TextBox26.Value
End Sub
Private Sub TextBox24_Change()
Range(“Sayfa1!M10”).Value = TextBox24.Value
End Sub
Private Sub TextBox23_Change()
Range(“Sayfa1!M11”).Value = TextBox23.Value
End Sub
Private Sub TextBox22_Change()
Range(“Sayfa1!M12”).Value = TextBox22.Value
End Sub
Private Sub TextBox27_Change()
Range(“Sayfa1!M13”).Value = TextBox27.Value
End Sub
Private Sub TextBox28_Change()
Range(“Sayfa1!M14”).Value = TextBox28.Value
End Sub
Private Sub CommandButton1_Click()
Dim en1, en2, en3, en4, en5, en6, boy1, boy2, boy3, boy4, boy5, boy6, enk1, bk1, enk2, enk3, enk4, enk5, enk6, bk2, bk3, bk4, bk5, bk6, c, c1, c2, c3, c4, c5, u1, u2, u3, u4, u5, u6 As Double
Dim a1, b1, a2, b2, a3, b3, a4, b4, a5, b5, a6, b6, bas1, bas2, bas3, bas4, bas5, bas6, bas7, bas8, bas9, bas10, bas11, alt1, alt2, alt3, alt4, alt5, alt6, alt7, alt8, alt9, alt10, alt11, kalas1, kalas2, kalas3, kalas4, kalas5, kalas6, kalas7, kalas8, kalas9, kalas10, kalas11, h1, h2, h3, h4, h5, h6, h7, h8, h9, h10, h11, kısa1, kısa2, kısa3, kısa4, kısa5, kısa6, kısa7, kısa8, kısa9, kısa10, kısa11, uzun1, uzun2, uzun3, uzun4, uzun5, uzun6, uzun7, uzun8, uzun9, uzun10, uzun11, ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9, ti10, ti11, cephe1, cephe2, cephe3, cephe4, cephe5, cephe6, yan1, yan2, yan3, yan4, yan5, yan6, yan7, yan8, yan9, yan10, yan11, top1, top2, top3, top4, top5, top6, top7, top8, top9, top10, top11 As Integer
If (CheckBox1 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
TextBox19.Text = h1
TextBox20.Text = kısa1
TextBox21.Text = uzun1
TextBox22.Text = yan1
TextBox23.Text = bas1
TextBox24.Text = alt1
TextBox25.Text = mer1
TextBox26.Text = kalas1
TextBox27.Text = ti1
TextBox28.Text = top1
End If
If (CheckBox1 = True) And (CheckBox2 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
boy2 = TextBox3.Text
en2 = TextBox4.Text
cephe2 = TextBox14.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
x2 = en2 / 2.5
a2 = Int(x2)
enk2 = en2 – 2.5 * a2
y2 = boy2 / 2
b2 = Int(y2)
bk2 = boy2 – 2 * b2
If (enk2 > 1) And (bk2 <= 1) Then
h2 = ((a2 + 1) * b2 + b2) * cephe2
kısa2 = (2 * a2 * b2 + 2 * b2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + b2) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 2) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + 2 * b2 - 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (enk2 <= 1) And (bk2 <= 1) Then
h2 = (a2 + 1) * b2 * cephe2
kısa2 = 2 * a2 * b2 * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = ((a2 + 1) * b2 * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2 <= 1) Then
h2 = ((a2 + 1) * b2 + a2 + 1) * cephe2
kısa2 = (2 * a2 * b2 + 2 * a2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + a2 + 1) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + (2 * a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2) > 1 Then
h2 = ((a2 + 1) * b2 + b2 + a2 + 2) * cephe2
kısa2 = ((2 * a2 * b2) + 2 * (a2 + b2 + 1)) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = h2 / 2
ti2 = Round(c1)
bas2 = (a2 + 1 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 – 1) * (a2 – 1) * 2 + 2 * (b2 – 1 + a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
End If
h7 = h1 + h2
kısa7 = kısa1 + kısa2
uzun7 = uzun1 + uzun2
bas7 = bas1 + bas2
alt7 = alt1 + alt2
mer7 = mer1 + mer2
kalas7 = kalas1 + kalas2
ti7 = ti1 + ti2
yan7 = yan1 + yan2
top7 = top1 + top2
TextBox19.Text = h7
TextBox20.Text = kısa7
TextBox21.Text = uzun7
TextBox22.Text = yan7
TextBox23.Text = bas7
TextBox24.Text = alt7
TextBox25.Text = mer7
TextBox26.Text = kalas7
TextBox27.Text = ti7
TextBox28.Text = top7
End If
If (CheckBox1 = True) And (CheckBox2 = True) And (CheckBox3 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
boy2 = TextBox3.Text
en2 = TextBox4.Text
cephe2 = TextBox14.Text
boy3 = TextBox5.Text
en3 = TextBox6.Text
cephe3 = TextBox15.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
x2 = en2 / 2.5
a2 = Int(x2)
enk2 = en2 – 2.5 * a2
y2 = boy2 / 2
b2 = Int(y2)
bk2 = boy2 – 2 * b2
If (enk2 > 1) And (bk2 <= 1) Then
h2 = ((a2 + 1) * b2 + b2) * cephe2
kısa2 = (2 * a2 * b2 + 2 * b2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + b2) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 2) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + 2 * b2 - 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (enk2 <= 1) And (bk2 <= 1) Then
h2 = (a2 + 1) * b2 * cephe2
kısa2 = 2 * a2 * b2 * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = ((a2 + 1) * b2 * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2 <= 1) Then
h2 = ((a2 + 1) * b2 + a2 + 1) * cephe2
kısa2 = (2 * a2 * b2 + 2 * a2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + a2 + 1) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + (2 * a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2) > 1 Then
h2 = ((a2 + 1) * b2 + b2 + a2 + 2) * cephe2
kısa2 = ((2 * a2 * b2) + 2 * (a2 + b2 + 1)) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = h2 / 2
ti2 = Round(c1)
bas2 = (a2 + 1 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 – 1) * (a2 – 1) * 2 + 2 * (b2 – 1 + a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
End If
x3 = en3 / 2.5
a3 = Int(x3)
enk3 = en3 – 2.5 * a3
y3 = boy3 / 2
b3 = Int(y3)
bk3 = boy3 – 2 * b3
If (enk3 > 1) And (bk3 <= 1) Then
h3 = ((a3 + 1) * b3 + b3) * cephe3
kısa3 = (2 * a3 * b3 + 2 * b3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + b3) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 2) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + 2 * b3 - 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (enk3 <= 1) And (bk3 <= 1) Then
h3 = (a3 + 1) * b3 * cephe3
kısa3 = 2 * a3 * b3 * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = ((a3 + 1) * b3 * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3 <= 1) Then
h3 = ((a3 + 1) * b3 + a3 + 1) * cephe3
kısa3 = (2 * a3 * b3 + 2 * a3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + a3 + 1) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + (2 * a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3) > 1 Then
h3 = ((a3 + 1) * b3 + b3 + a3 + 2) * cephe3
kısa3 = ((2 * a3 * b3) + 2 * (a3 + b3 + 1)) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = h3 / 2
ti3 = Round(c2)
bas3 = (a3 + 1 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 – 1) * (a3 – 1) * 2 + 2 * (b3 – 1 + a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
End If
h8 = h1 + h2 + h3
kısa8 = kısa1 + kısa2 + kısa3
uzun8 = uzun1 + uzun2 + uzun3
bas8 = bas1 + bas2 + bas3
alt8 = alt1 + alt2 + alt3
mer8 = mer1 + mer2 + mer3
kalas8 = kalas1 + kalas2 + kalas3
ti8 = ti1 + ti2 + ti3
yan8 = yan1 + yan2 + yan3
top8 = top1 + top2 + top3
TextBox19.Text = h8
TextBox20.Text = kısa8
TextBox21.Text = uzun8
TextBox22.Text = yan8
TextBox23.Text = bas8
TextBox24.Text = alt8
TextBox25.Text = mer8
TextBox26.Text = kalas8
TextBox27.Text = ti8
TextBox28.Text = top8
End If
If (CheckBox1 = True) And (CheckBox2 = True) And (CheckBox3 = True) And (CheckBox4 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
boy2 = TextBox3.Text
en2 = TextBox4.Text
cephe2 = TextBox14.Text
boy3 = TextBox5.Text
en3 = TextBox6.Text
cephe3 = TextBox15.Text
boy4 = TextBox7.Text
en4 = TextBox8.Text
cephe4 = TextBox16.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
x2 = en2 / 2.5
a2 = Int(x2)
enk2 = en2 – 2.5 * a2
y2 = boy2 / 2
b2 = Int(y2)
bk2 = boy2 – 2 * b2
If (enk2 > 1) And (bk2 <= 1) Then
h2 = ((a2 + 1) * b2 + b2) * cephe2
kısa2 = (2 * a2 * b2 + 2 * b2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + b2) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 2) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + 2 * b2 - 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (enk2 <= 1) And (bk2 <= 1) Then
h2 = (a2 + 1) * b2 * cephe2
kısa2 = 2 * a2 * b2 * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = ((a2 + 1) * b2 * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2 <= 1) Then
h2 = ((a2 + 1) * b2 + a2 + 1) * cephe2
kısa2 = (2 * a2 * b2 + 2 * a2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + a2 + 1) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + (2 * a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2) > 1 Then
h2 = ((a2 + 1) * b2 + b2 + a2 + 2) * cephe2
kısa2 = ((2 * a2 * b2) + 2 * (a2 + b2 + 1)) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = h2 / 2
ti2 = Round(c1)
bas2 = (a2 + 1 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 – 1) * (a2 – 1) * 2 + 2 * (b2 – 1 + a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
End If
x3 = en3 / 2.5
a3 = Int(x3)
enk3 = en3 – 2.5 * a3
y3 = boy3 / 2
b3 = Int(y3)
bk3 = boy3 – 2 * b3
If (enk3 > 1) And (bk3 <= 1) Then
h3 = ((a3 + 1) * b3 + b3) * cephe3
kısa3 = (2 * a3 * b3 + 2 * b3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + b3) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 2) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + 2 * b3 - 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (enk3 <= 1) And (bk3 <= 1) Then
h3 = (a3 + 1) * b3 * cephe3
kısa3 = 2 * a3 * b3 * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = ((a3 + 1) * b3 * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3 <= 1) Then
h3 = ((a3 + 1) * b3 + a3 + 1) * cephe3
kısa3 = (2 * a3 * b3 + 2 * a3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + a3 + 1) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + (2 * a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3) > 1 Then
h3 = ((a3 + 1) * b3 + b3 + a3 + 2) * cephe3
kısa3 = ((2 * a3 * b3) + 2 * (a3 + b3 + 1)) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = h3 / 2
ti3 = Round(c2)
bas3 = (a3 + 1 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 – 1) * (a3 – 1) * 2 + 2 * (b3 – 1 + a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
End If
x4 = en4 / 2.5
a4 = Int(x4)
enk4 = en4 – 2.5 * a4
y4 = boy4 / 2
b4 = Int(y4)
bk4 = boy4 – 2 * b4
If (enk4 > 1) And (bk4 <= 1) Then
h4 = ((a4 + 1) * b4 + b4) * cephe4
kısa4 = (2 * a4 * b4 + 2 * b4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + b4) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 2) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + 2 * b4 - 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (enk4 <= 1) And (bk4 <= 1) Then
h4 = (a4 + 1) * b4 * cephe4
kısa4 = 2 * a4 * b4 * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = ((a4 + 1) * b4 * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4 <= 1) Then
h4 = ((a4 + 1) * b4 + a4 + 1) * cephe4
kısa4 = (2 * a4 * b4 + 2 * a4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + a4 + 1) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + (2 * a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4) > 1 Then
h4 = ((a4 + 1) * b4 + b4 + a4 + 2) * cephe4
kısa4 = ((2 * a4 * b4) + 2 * (a4 + b4 + 1)) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = h4 / 2
ti4 = Round(c3)
bas4 = (a4 + 1 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 – 1) * (a4 – 1) * 2 + 2 * (b4 – 1 + a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
End If
h9 = h1 + h2 + h3 + h4
kısa9 = kısa1 + kısa2 + kısa3 + kısa4
uzun9 = uzun1 + uzun2 + uzun3 + uzun4
bas9 = bas1 + bas2 + bas3 + bas4
alt9 = alt1 + alt2 + alt3 + alt4
mer9 = mer1 + mer2 + mer3 + mer4
kalas9 = kalas1 + kalas2 + kalas3 + kalas4
ti9 = ti1 + ti2 + ti3 + ti4
yan9 = yan1 + yan2 + yan3 + yan4
top9 = top1 + top2 + top3 + top4
TextBox19.Text = h9
TextBox20.Text = kısa9
TextBox21.Text = uzun9
TextBox22.Text = yan9
TextBox23.Text = bas9
TextBox24.Text = alt9
TextBox25.Text = mer9
TextBox26.Text = kalas9
TextBox27.Text = ti9
TextBox28.Text = top9
End If
If (CheckBox1 = True) And (CheckBox2 = True) And (CheckBox3 = True) And (CheckBox4 = True) And (CheckBox5 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
boy2 = TextBox3.Text
en2 = TextBox4.Text
cephe2 = TextBox14.Text
boy3 = TextBox5.Text
en3 = TextBox6.Text
cephe3 = TextBox15.Text
boy4 = TextBox7.Text
en4 = TextBox8.Text
cephe4 = TextBox16.Text
boy5 = TextBox9.Text
en5 = TextBox10.Text
cephe5 = TextBox17.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
x2 = en2 / 2.5
a2 = Int(x2)
enk2 = en2 – 2.5 * a2
y2 = boy2 / 2
b2 = Int(y2)
bk2 = boy2 – 2 * b2
If (enk2 > 1) And (bk2 <= 1) Then
h2 = ((a2 + 1) * b2 + b2) * cephe2
kısa2 = (2 * a2 * b2 + 2 * b2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + b2) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 2) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + 2 * b2 - 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (enk2 <= 1) And (bk2 <= 1) Then
h2 = (a2 + 1) * b2 * cephe2
kısa2 = 2 * a2 * b2 * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = ((a2 + 1) * b2 * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2 <= 1) Then
h2 = ((a2 + 1) * b2 + a2 + 1) * cephe2
kısa2 = (2 * a2 * b2 + 2 * a2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + a2 + 1) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + (2 * a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2) > 1 Then
h2 = ((a2 + 1) * b2 + b2 + a2 + 2) * cephe2
kısa2 = ((2 * a2 * b2) + 2 * (a2 + b2 + 1)) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = h2 / 2
ti2 = Round(c1)
bas2 = (a2 + 1 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 – 1) * (a2 – 1) * 2 + 2 * (b2 – 1 + a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
End If
x3 = en3 / 2.5
a3 = Int(x3)
enk3 = en3 – 2.5 * a3
y3 = boy3 / 2
b3 = Int(y3)
bk3 = boy3 – 2 * b3
If (enk3 > 1) And (bk3 <= 1) Then
h3 = ((a3 + 1) * b3 + b3) * cephe3
kısa3 = (2 * a3 * b3 + 2 * b3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + b3) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 2) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + 2 * b3 - 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (enk3 <= 1) And (bk3 <= 1) Then
h3 = (a3 + 1) * b3 * cephe3
kısa3 = 2 * a3 * b3 * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = ((a3 + 1) * b3 * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3 <= 1) Then
h3 = ((a3 + 1) * b3 + a3 + 1) * cephe3
kısa3 = (2 * a3 * b3 + 2 * a3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + a3 + 1) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + (2 * a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3) > 1 Then
h3 = ((a3 + 1) * b3 + b3 + a3 + 2) * cephe3
kısa3 = ((2 * a3 * b3) + 2 * (a3 + b3 + 1)) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = h3 / 2
ti3 = Round(c2)
bas3 = (a3 + 1 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 – 1) * (a3 – 1) * 2 + 2 * (b3 – 1 + a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
End If
x4 = en4 / 2.5
a4 = Int(x4)
enk4 = en4 – 2.5 * a4
y4 = boy4 / 2
b4 = Int(y4)
bk4 = boy4 – 2 * b4
If (enk4 > 1) And (bk4 <= 1) Then
h4 = ((a4 + 1) * b4 + b4) * cephe4
kısa4 = (2 * a4 * b4 + 2 * b4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + b4) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 2) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + 2 * b4 - 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (enk4 <= 1) And (bk4 <= 1) Then
h4 = (a4 + 1) * b4 * cephe4
kısa4 = 2 * a4 * b4 * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = ((a4 + 1) * b4 * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4 <= 1) Then
h4 = ((a4 + 1) * b4 + a4 + 1) * cephe4
kısa4 = (2 * a4 * b4 + 2 * a4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + a4 + 1) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + (2 * a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4) > 1 Then
h4 = ((a4 + 1) * b4 + b4 + a4 + 2) * cephe4
kısa4 = ((2 * a4 * b4) + 2 * (a4 + b4 + 1)) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = h4 / 2
ti4 = Round(c3)
bas4 = (a4 + 1 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 – 1) * (a4 – 1) * 2 + 2 * (b4 – 1 + a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
End If
x5 = en5 / 2.5
a5 = Int(x5)
enk5 = en5 – 2.5 * a5
y5 = boy5 / 2
b5 = Int(y5)
bk5 = boy5 – 2 * b5
If (enk5 > 1) And (bk5 <= 1) Then
h5 = ((a5 + 1) * b5 + b5) * cephe5
kısa5 = (2 * a5 * b5 + 2 * b5) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = (((a5 + 1) * b5 + b5) * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 2) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2 + 2 * b5 - 2) * cephe5
mer5 = (b5 - 1) * cephe5
yan5 = (b5 - 1) * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (enk5 <= 1) And (bk5 <= 1) Then
h5 = (a5 + 1) * b5 * cephe5
kısa5 = 2 * a5 * b5 * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = ((a5 + 1) * b5 * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2) * cephe5
mer5 = (b5 - 1) * cephe5
yan5 = (b5 - 1) * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (bk5 > 1) And (enk5 <= 1) Then
h5 = ((a5 + 1) * b5 + a5 + 1) * cephe5
kısa5 = (2 * a5 * b5 + 2 * a5) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = (((a5 + 1) * b5 + a5 + 1) * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2 + (2 * a5)) * cephe5
mer5 = b5 * cephe5
yan5 = b5 * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (bk5 > 1) And (enk5) > 1 Then
h5 = ((a5 + 1) * b5 + b5 + a5 + 2) * cephe5
kısa5 = ((2 * a5 * b5) + 2 * (a5 + b5 + 1)) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = h5 / 2
ti5 = Round(c4)
bas5 = (a5 + 1 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 – 1) * (a5 – 1) * 2 + 2 * (b5 – 1 + a5)) * cephe5
mer5 = b5 * cephe5
yan5 = b5 * cephe5
top5 = kalas5 / 2 + mer5
End If
h10 = h1 + h2 + h3 + h4 + h5
kısa10 = kısa1 + kısa2 + kısa3 + kısa4 + kısa5
uzun10 = uzun1 + uzun2 + uzun3 + uzun4 + uzun5
bas10 = bas1 + bas2 + bas3 + bas4 + bas5
alt10 = alt1 + alt2 + alt3 + alt4 + alt5
mer10 = mer1 + mer2 + mer3 + mer4 + mer5
kalas10 = kalas1 + kalas2 + kalas3 + kalas4 + kalas5
ti10 = ti1 + ti2 + ti3 + ti4 + ti5
yan10 = yan1 + yan2 + yan3 + yan4 + yan5
top10 = top1 + top2 + top3 + top4 + top5
TextBox19.Text = h10
TextBox20.Text = kısa10
TextBox21.Text = uzun10
TextBox22.Text = yan10
TextBox23.Text = bas10
TextBox24.Text = alt10
TextBox25.Text = mer10
TextBox26.Text = kalas10
TextBox27.Text = ti10
TextBox28.Text = top10
End If
If (CheckBox1 = True) And (CheckBox2 = True) And (CheckBox3 = True) And (CheckBox4 = True) And (CheckBox5 = True) And (CheckBox6 = True) Then
boy1 = TextBox1.Text
en1 = TextBox2.Text
cephe1 = TextBox13.Text
boy2 = TextBox3.Text
en2 = TextBox4.Text
cephe2 = TextBox14.Text
boy3 = TextBox5.Text
en3 = TextBox6.Text
cephe3 = TextBox15.Text
boy4 = TextBox7.Text
en4 = TextBox8.Text
cephe4 = TextBox16.Text
boy5 = TextBox9.Text
en5 = TextBox10.Text
cephe5 = TextBox17.Text
boy6 = TextBox11.Text
en6 = TextBox12.Text
cephe6 = TextBox18.Text
x1 = en1 / 2.5
a1 = Int(x1)
enk1 = en1 – 2.5 * a1
y1 = boy1 / 2
b1 = Int(y1)
bk1 = boy1 – 2 * b1
If (enk1 > 1) And (bk1 <= 1) Then
h1 = ((a1 + 1) * b1 + b1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * b1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + b1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 2) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + 2 * b1 - 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (enk1 <= 1) And (bk1 <= 1) Then
h1 = (a1 + 1) * b1 * cephe1
kısa1 = 2 * a1 * b1 * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = ((a1 + 1) * b1 * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2) * cephe1
mer1 = (b1 - 1) * cephe1
yan1 = (b1 - 1) * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1 <= 1) Then
h1 = ((a1 + 1) * b1 + a1 + 1) * cephe1
kısa1 = (2 * a1 * b1 + 2 * a1) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = (((a1 + 1) * b1 + a1 + 1) * cephe1) / 2
ti1 = Round(c)
bas1 = (a1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 - 1) * (a1 - 1) * 2 + (2 * a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
ElseIf (bk1 > 1) And (enk1) > 1 Then
h1 = ((a1 + 1) * b1 + b1 + a1 + 2) * cephe1
kısa1 = ((2 * a1 * b1) + 2 * (a1 + b1 + 1)) * cephe1
u1 = h1 * 0.45
uzun1 = Round(u1)
c = h1 / 2
ti1 = Round(c)
bas1 = (a1 + 1 + 1) * cephe1
alt1 = bas1 * 2
kalas1 = ((b1 – 1) * (a1 – 1) * 2 + 2 * (b1 – 1 + a1)) * cephe1
mer1 = b1 * cephe1
yan1 = b1 * cephe1
top1 = kalas1 / 2 + mer1
End If
x2 = en2 / 2.5
a2 = Int(x2)
enk2 = en2 – 2.5 * a2
y2 = boy2 / 2
b2 = Int(y2)
bk2 = boy2 – 2 * b2
If (enk2 > 1) And (bk2 <= 1) Then
h2 = ((a2 + 1) * b2 + b2) * cephe2
kısa2 = (2 * a2 * b2 + 2 * b2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + b2) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 2) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + 2 * b2 - 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (enk2 <= 1) And (bk2 <= 1) Then
h2 = (a2 + 1) * b2 * cephe2
kısa2 = 2 * a2 * b2 * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = ((a2 + 1) * b2 * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2) * cephe2
mer2 = (b2 - 1) * cephe2
yan2 = (b2 - 1) * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2 <= 1) Then
h2 = ((a2 + 1) * b2 + a2 + 1) * cephe2
kısa2 = (2 * a2 * b2 + 2 * a2) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = (((a2 + 1) * b2 + a2 + 1) * cephe2) / 2
ti2 = Round(c1)
bas2 = (a2 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 - 1) * (a2 - 1) * 2 + (2 * a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
ElseIf (bk2 > 1) And (enk2) > 1 Then
h2 = ((a2 + 1) * b2 + b2 + a2 + 2) * cephe2
kısa2 = ((2 * a2 * b2) + 2 * (a2 + b2 + 1)) * cephe2
u2 = h2 * 0.45
uzun2 = Round(u2)
c1 = h2 / 2
ti2 = Round(c1)
bas2 = (a2 + 1 + 1) * cephe2
alt2 = bas2 * 2
kalas2 = ((b2 – 1) * (a2 – 1) * 2 + 2 * (b2 – 1 + a2)) * cephe2
mer2 = b2 * cephe2
yan2 = b2 * cephe2
top2 = kalas2 / 2 + mer2
End If
x3 = en3 / 2.5
a3 = Int(x3)
enk3 = en3 – 2.5 * a3
y3 = boy3 / 2
b3 = Int(y3)
bk3 = boy3 – 2 * b3
If (enk3 > 1) And (bk3 <= 1) Then
h3 = ((a3 + 1) * b3 + b3) * cephe3
kısa3 = (2 * a3 * b3 + 2 * b3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + b3) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 2) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + 2 * b3 - 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (enk3 <= 1) And (bk3 <= 1) Then
h3 = (a3 + 1) * b3 * cephe3
kısa3 = 2 * a3 * b3 * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = ((a3 + 1) * b3 * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2) * cephe3
mer3 = (b3 - 1) * cephe3
yan3 = (b3 - 1) * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3 <= 1) Then
h3 = ((a3 + 1) * b3 + a3 + 1) * cephe3
kısa3 = (2 * a3 * b3 + 2 * a3) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = (((a3 + 1) * b3 + a3 + 1) * cephe3) / 2
ti3 = Round(c2)
bas3 = (a3 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 - 1) * (a3 - 1) * 2 + (2 * a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
ElseIf (bk3 > 1) And (enk3) > 1 Then
h3 = ((a3 + 1) * b3 + b3 + a3 + 2) * cephe3
kısa3 = ((2 * a3 * b3) + 2 * (a3 + b3 + 1)) * cephe3
u3 = h3 * 0.45
uzun3 = Round(u3)
c2 = h3 / 2
ti3 = Round(c2)
bas3 = (a3 + 1 + 1) * cephe3
alt3 = bas3 * 2
kalas3 = ((b3 – 1) * (a3 – 1) * 2 + 2 * (b3 – 1 + a3)) * cephe3
mer3 = b3 * cephe3
yan3 = b3 * cephe3
top3 = kalas3 / 2 + mer3
End If
x4 = en4 / 2.5
a4 = Int(x4)
enk4 = en4 – 2.5 * a4
y4 = boy4 / 2
b4 = Int(y4)
bk4 = boy4 – 2 * b4
If (enk4 > 1) And (bk4 <= 1) Then
h4 = ((a4 + 1) * b4 + b4) * cephe4
kısa4 = (2 * a4 * b4 + 2 * b4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + b4) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 2) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + 2 * b4 - 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (enk4 <= 1) And (bk4 <= 1) Then
h4 = (a4 + 1) * b4 * cephe4
kısa4 = 2 * a4 * b4 * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = ((a4 + 1) * b4 * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2) * cephe4
mer4 = (b4 - 1) * cephe4
yan4 = (b4 - 1) * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4 <= 1) Then
h4 = ((a4 + 1) * b4 + a4 + 1) * cephe4
kısa4 = (2 * a4 * b4 + 2 * a4) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = (((a4 + 1) * b4 + a4 + 1) * cephe4) / 2
ti4 = Round(c3)
bas4 = (a4 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 - 1) * (a4 - 1) * 2 + (2 * a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
ElseIf (bk4 > 1) And (enk4) > 1 Then
h4 = ((a4 + 1) * b4 + b4 + a4 + 2) * cephe4
kısa4 = ((2 * a4 * b4) + 2 * (a4 + b4 + 1)) * cephe4
u4 = h4 * 0.45
uzun4 = Round(u4)
c3 = h4 / 2
ti4 = Round(c3)
bas4 = (a4 + 1 + 1) * cephe4
alt4 = bas4 * 2
kalas4 = ((b4 – 1) * (a4 – 1) * 2 + 2 * (b4 – 1 + a4)) * cephe4
mer4 = b4 * cephe4
yan4 = b4 * cephe4
top4 = kalas4 / 2 + mer4
End If
x5 = en5 / 2.5
a5 = Int(x5)
enk5 = en5 – 2.5 * a5
y5 = boy5 / 2
b5 = Int(y5)
bk5 = boy5 – 2 * b5
If (enk5 > 1) And (bk5 <= 1) Then
h5 = ((a5 + 1) * b5 + b5) * cephe5
kısa5 = (2 * a5 * b5 + 2 * b5) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = (((a5 + 1) * b5 + b5) * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 2) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2 + 2 * b5 - 2) * cephe5
mer5 = (b5 - 1) * cephe5
yan5 = (b5 - 1) * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (enk5 <= 1) And (bk5 <= 1) Then
h5 = (a5 + 1) * b5 * cephe5
kısa5 = 2 * a5 * b5 * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = ((a5 + 1) * b5 * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2) * cephe5
mer5 = (b5 - 1) * cephe5
yan5 = (b5 - 1) * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (bk5 > 1) And (enk5 <= 1) Then
h5 = ((a5 + 1) * b5 + a5 + 1) * cephe5
kısa5 = (2 * a5 * b5 + 2 * a5) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = (((a5 + 1) * b5 + a5 + 1) * cephe5) / 2
ti5 = Round(c4)
bas5 = (a5 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 - 1) * (a5 - 1) * 2 + (2 * a5)) * cephe5
mer5 = b5 * cephe5
yan5 = b5 * cephe5
top5 = kalas5 / 2 + mer5
ElseIf (bk5 > 1) And (enk5) > 1 Then
h5 = ((a5 + 1) * b5 + b5 + a5 + 2) * cephe5
kısa5 = ((2 * a5 * b5) + 2 * (a5 + b5 + 1)) * cephe5
u5 = h5 * 0.45
uzun5 = Round(u5)
c4 = h5 / 2
ti5 = Round(c4)
bas5 = (a5 + 1 + 1) * cephe5
alt5 = bas5 * 2
kalas5 = ((b5 – 1) * (a5 – 1) * 2 + 2 * (b5 – 1 + a5)) * cephe5
mer5 = b5 * cephe5
yan5 = b5 * cephe5
top5 = kalas5 / 2 + mer5
End If
x6 = en6 / 2.5
a6 = Int(x6)
enk6 = en6 – 2.5 * a6
y6 = boy6 / 2
b6 = Int(y6)
bk6 = boy6 – 2 * b6
If (enk6 > 1) And (bk6 <= 1) Then
h6 = ((a6 + 1) * b6 + b6) * cephe6
kısa6 = (2 * a6 * b6 + 2 * b6) * cephe6
u6 = h6 * 0.45
uzun6 = Round(u6)
c5 = (((a6 + 1) * b6 + b6) * cephe6) / 2
ti6 = Round(c5)
bas6 = (a6 + 2) * cephe6
alt6 = bas6 * 2
kalas6 = ((b6 - 1) * (a6 - 1) * 2 + 2 * b6 - 2) * cephe6
mer6 = (b6 - 1) * cephe6
yan6 = (b6 - 1) * cephe6
top6 = kalas6 / 2 + mer6
ElseIf (enk6 <= 1) And (bk6 <= 1) Then
h6 = (a6 + 1) * b6 * cephe6
kısa6 = 2 * a6 * b6 * cephe6
u6 = h6 * 0.45
uzun6 = Round(u6)
c5 = ((a6 + 1) * b6 * cephe6) / 2
ti6 = Round(c5)
bas6 = (a6 + 1) * cephe6
alt6 = bas6 * 2
kalas6 = ((b6 - 1) * (a6 - 1) * 2) * cephe6
mer6 = (b6 - 1) * cephe6
yan6 = (b6 - 1) * cephe6
top6 = kalas6 / 2 + mer6
ElseIf (bk6 > 1) And (enk6 <= 1) Then
h6 = ((a6 + 1) * b6 + a6 + 1) * cephe6
kısa6 = (2 * a6 * b6 + 2 * a6) * cephe6
u6 = h6 * 0.45
uzun6 = Round(u6)
c5 = (((a6 + 1) * b6 + a6 + 1) * cephe6) / 2
ti6 = Round(c5)
bas6 = (a6 + 1) * cephe6
alt6 = bas6 * 2
kalas6 = ((b6 - 1) * (a6 - 1) * 2 + (2 * a6)) * cephe6
mer6 = b6 * cephe6
yan6 = b6 * cephe6
top6 = kalas6 / 2 + mer6
ElseIf (bk6 > 1) And (enk6) > 1 Then
h6 = ((a6 + 1) * b6 + b6 + a6 + 2) * cephe6
kısa6 = ((2 * a6 * b6) + 2 * (a6 + b6 + 1)) * cephe6
u6 = h6 * 0.45
uzun6 = Round(u6)
c5 = h6 / 2
ti6 = Round(c5)
bas6 = (a6 + 1 + 1) * cephe6
alt6 = bas6 * 2
kalas6 = ((b6 – 1) * (a6 – 1) * 2 + 2 * (b6 – 1 + a6)) * cephe6
mer6 = b6 * cephe6
yan6 = b6 * cephe6
top6 = kalas6 / 2 + mer6
End If
h11 = h1 + h2 + h3 + h4 + h5 + h6
kısa11 = kısa1 + kısa2 + kısa3 + kısa4 + kısa5 + kısa6
uzun11 = uzun1 + uzun2 + uzun3 + uzun4 + uzun5 + uzun6
bas11 = bas1 + bas2 + bas3 + bas4 + bas5 + bas6
alt11 = alt1 + alt2 + alt3 + alt4 + alt5 + alt6
mer11 = mer1 + mer2 + mer3 + mer4 + mer5 + mer6
kalas11 = kalas1 + kalas2 + kalas3 + kalas4 + kalas5 + kalas6
ti11 = ti1 + ti2 + ti3 + ti4 + ti5 + ti6
yan11 = yan1 + yan2 + yan3 + yan4 + yan5 + yan6
top11 = top1 + top2 + top3 + top4 + top5 + top6
TextBox19.Text = h11
TextBox20.Text = kısa11
TextBox21.Text = uzun11
TextBox22.Text = yan11
TextBox23.Text = bas11
TextBox24.Text = alt11
TextBox25.Text = mer11
TextBox26.Text = kalas11
TextBox27.Text = ti11
TextBox28.Text = top11
End If
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = “”
TextBox2.Text = “”
TextBox3.Text = “”
TextBox4.Text = “”
TextBox5.Text = “”
TextBox6.Text = “”
TextBox7.Text = “”
TextBox8.Text = “”
TextBox9.Text = “”
TextBox10.Text = “”
TextBox11.Text = “”
TextBox12.Text = “”
TextBox13.Text = “”
TextBox14.Text = “”
TextBox15.Text = “”
TextBox16.Text = “”
TextBox17.Text = “”
TextBox18.Text = “”
TextBox19.Text = “”
TextBox20.Text = “”
TextBox21.Text = “”
TextBox22.Text = “”
TextBox23.Text = “”
TextBox24.Text = “”
TextBox25.Text = “”
TextBox26.Text = “”
TextBox27.Text = “”
TextBox28.Text = “”
CheckBox1 = “”
CheckBox2 = “”
CheckBox3 = “”
CheckBox4 = “”
CheckBox5 = “”
CheckBox6 = “”
End Sub