Öss puan hesabi
Public Class OssPuan
Inherits System.Windows.Forms.Form
Windows Form Designer generated code
Private Sub txtfendogru_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfendogru.KeyPress, txtfenyanlis.KeyPress, txtmatdogru.KeyPress, txtmatyanlis.KeyPress, txtsosdogru.KeyPress, txtsosyanlis.KeyPress, txtturkcedogru.KeyPress, txtturkceyanlis.KeyPress
If Asc(e.KeyChar) <> 8 Then
e.Handled = Not IsNumeric(e.KeyChar)
End If
End Sub
Private Sub btntemizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntemizle.Click
If txtfendogru.Text <> "" Or txtfenyanlis.Text <> "" Or txtsosdogru.Text <> "" Or txtsosyanlis.Text <> "" Or txtturkcedogru.Text <> "" Or txtturkceyanlis.Text <> "" Or txtmatdogru.Text <> "" Or txtmatyanlis.Text <> "" Then
txtfendogru.Text = ""
txtfenyanlis.Text = ""
txtmatdogru.Text = ""
txtmatyanlis.Text = ""
txtturkcedogru.Text = ""
txtturkceyanlis.Text = ""
txtsosdogru.Text = ""
txtsosyanlis.Text = ""
lblosspuan.Text = ""
End If
End Sub
Private Sub btnpuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpuan.Click
If txtfendogru.Text <> "" Or txtfenyanlis.Text <> "" Or txtsosdogru.Text <> "" Or txtsosyanlis.Text <> "" Or txtturkcedogru.Text <> "" Or txtturkceyanlis.Text <> "" Or txtmatdogru.Text <> "" Or txtmatyanlis.Text <> "" Then
Dim turkdogru, turkyanlis, sosdogru, sosyanlis As Double
Dim fendogru, fenyanlis, matdogru, matyanlis As Double
Dim osspuan As Double
Dim puanturu As String
Dim sayisalpuan, sozelpuan, eapuan As String
Dim turkcenet, matnet, fennet, sosnet As Double
Dim a, b, c, d, f, g, h, j As Double
Dim k, l, m, n, o, p, r, s As Double
Dim t, u, v, y, z, q, w, é As Double
If txtturkcedogru.Text <> "" Then
turkdogru = txtturkcedogru.Text
Else
MessageBox.Show("Türkçe doğru sayısı boş geçilemez"
End If
If txtturkceyanlis.Text <> "" Then
turkyanlis = txtturkceyanlis.Text
Else
MessageBox.Show("Türkçe yanlış sayısı boş geçilemez"
End If
If txtsosdogru.Text <> "" Then
turkyanlis = txtsosdogru.Text
Else
MessageBox.Show("Sosyal doğru sayısı boş geçilemez"
End If
If txtsosyanlis.Text <> "" Then
sosyanlis = txtsosyanlis.Text
Else
MessageBox.Show("Sosyal yanlış sayısı boş geçilemez"
End If
If txtfendogru.Text <> "" Then
fendogru = txtfendogru.Text
Else
MessageBox.Show("Fen doğru sayısı boş geçilemez"
End If
If txtfenyanlis.Text <> "" Then
fenyanlis = txtfenyanlis.Text
Else
MessageBox.Show("Fen yanlış sayısı boş geçilemez"
End If
If txtmatdogru.Text <> "" Then
matdogru = txtmatdogru.Text
Else
MessageBox.Show("Matematik doğru sayısı boş geçilemez"
End If
If txtmatyanlis.Text <> "" Then
matyanlis = txtmatyanlis.Text
Else
MessageBox.Show("Matematik yanlış sayısı boş geçilemez"
End If
puanturu = rbsayisal.Checked Or rbsozel.Checked Or rbeagirlik.Checked
If puanturu = rbsayisal.Checked Then
a = turkyanlis / 4
turkcenet = turkdogru - a
f = turkcenet * 0.537
b = sosyanlis / 4
sosnet = sosdogru - b
g = sosnet * 0.172
c = matyanlis / 4
matnet = matdogru - c
h = matnet * 1.796
d = fenyanlis / 4
fennet = fendogru - d
j = fennet * 1.404
If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
MessageBox.Show("Sonuç için tüm sütunları doldurun"
Else
lblosspuan.Text = 124.001 + f + g + h + j
End If
ElseIf puanturu = rbsozel.Checked Then
k = turkyanlis / 4
turkcenet = turkdogru - k
o = turkcenet * 2.044
l = sosyanlis / 4
sosnet = sosdogru - l
p = sosnet * 1.252
m = matyanlis / 4
matnet = matdogru - m
r = matnet * 0.508
n = fenyanlis / 4
fennet = fendogru - n
s = fennet * 0.208
If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
MessageBox.Show("Sonuç için tüm sütunları doldurun"
Else
lblosspuan.Text = 119.425 + o + p + r + s
End If
ElseIf puanturu = rbeagirlik.Checked Then
t = turkyanlis / 4
turkcenet = turkdogru - t
z = turkcenet * 1.505
u = sosyanlis / 4
sosnet = sosdogru - u
q = sosnet * 0.543
v = matyanlis / 4
matnet = matdogru - v
w = matnet * 1.714
y = fenyanlis / 4
fennet = fendogru - y
é = fennet * 0.21
If txtfendogru.Text = "" Or txtfenyanlis.Text = "" Or txtsosdogru.Text = "" Or txtsosyanlis.Text = "" Or txtturkcedogru.Text = "" Or txtturkceyanlis.Text = "" Or txtmatdogru.Text = "" Or txtmatyanlis.Text = "" Then
MessageBox.Show("Sonuç için tüm sütunları doldurun"
Else
lblosspuan.Text = 121.215 + z + q + w + é
End If
End If
End If
End Sub
End Class