Konu Başlıkları: Öss puan hesabi
Tekil Mesaj gösterimi
Alt 29 March 2008, 17:10   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:32
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Öss puan hesabi

Ö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&quot

End If





If txtturkceyanlis.Text <> "" Then

turkyanlis = txtturkceyanlis.Text

Else

MessageBox.Show("Türkçe yanlış sayısı boş geçilemez&quot

End If





If txtsosdogru.Text <> "" Then

turkyanlis = txtsosdogru.Text

Else

MessageBox.Show("Sosyal doğru sayısı boş geçilemez&quot

End If





If txtsosyanlis.Text <> "" Then

sosyanlis = txtsosyanlis.Text

Else

MessageBox.Show("Sosyal yanlış sayısı boş geçilemez&quot

End If







If txtfendogru.Text <> "" Then

fendogru = txtfendogru.Text

Else

MessageBox.Show("Fen doğru sayısı boş geçilemez&quot

End If







If txtfenyanlis.Text <> "" Then

fenyanlis = txtfenyanlis.Text

Else

MessageBox.Show("Fen yanlış sayısı boş geçilemez&quot

End If





If txtmatdogru.Text <> "" Then

matdogru = txtmatdogru.Text

Else

MessageBox.Show("Matematik doğru sayısı boş geçilemez&quot

End If





If txtmatyanlis.Text <> "" Then

matyanlis = txtmatyanlis.Text

Else

MessageBox.Show("Matematik yanlış sayısı boş geçilemez&quot

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&quot

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&quot

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&quot

Else

lblosspuan.Text = 121.215 + z + q + w + é

End If





End If

End If



End Sub





End Class
Alıntı ile Cevapla