Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 17:06   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 hesabı

Öss puan hesabı

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
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
9 6 ' nın hesabı görüldü umut Trabzonspor 0 17 May 2010 21:40
6 HATA 6 KAYIP PUAN umut Türk Milli Takımı 0 26 April 2009 23:01
Öss puan hesabi tamerr89 visual basic.net 0 29 March 2008 17:10

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.