Öss puan hesaplama (v.b)
 

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

paylaşım için tşkrlr