29 March 2008, 18:10 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Ö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" 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 |
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 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |