Öss puan hesabi - Papatyam Forum

Papatyam Forum

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

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18: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ş:34
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
Cevapla

Bookmarks

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

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

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
İPİN HESABI umut Dini Hikayeler 0 09 March 2013 10:21
6 HATA 6 KAYIP PUAN umut Türk Milli Takımı 0 27 April 2009 00:01
GÖÇMEN KUŞLARIN KİLOMETRE HESABI YAPTIKLARINI VE BU HESABA GÖRE YAKIT TASARRUFU umut İman Delilleri 0 26 July 2008 15:05
Öss puan hesabı tamerr89 visual basic.net 0 29 March 2008 18:06
50.YIL HESABI pamukKALE Şiir Bahçesi 1 26 May 2006 09:12

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.