Geri git   Van.GEN.TR Forum | Yerel Van Forumu > Bilgisayar > Programlama > Visual Basic, Delphi, C++ Ve Diğer Diller

Cevapla
 
Konu Araçları Stil
Alt 06/04/07, 14:16   #1
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart Ö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
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 16/06/07, 13:44   #2
LastDesiqner
Super Moderator
 
LastDesiqner - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2007
Bulunduğu yer: ναη
Mesajlar: 8.132
Tecrübe Puanı: 56 LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute LastDesiqner has a reputation beyond repute
Standart

emeğine sağlık kardeş... teşekkürler....
__________________
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]


[Bu Adresi (link) Görme Yetkiniz Yok BEDAVA'ya Üye Ol Sitemizden Faydalan....]
LastDesiqner isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 488
Takımınız:
Alt 31/07/08, 15:33   #3
Neutralizer
Yasaklı kullanıcı
 
Neutralizer - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.890
Tecrübe Puanı: 0 Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute
Standart

paylaşım için tşkrlr
Neutralizer isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 317
Takımınız:
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Konu Araçları
Stil

Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 17:36 .


Powered by vBulletin
Copyright © 2000-2007 Jelsoft Enterprises Limited.
Sitemap
6, 5, 3, 7, 8, 9, 10, 11, 12, 13, 14, 15, 113, 16, 17, 18, 19, 81, 20, 27, 22, 23, 24, 25, 26, 48, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 136, 40, 58, 45, 42, 44, 46, 47, 53, 54, 55, 56, 57, 59, 60, 70, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 96, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 97, 100, 101, 102, 103, 106, 104, 105, 112, 109, 108, 107, 110, 111, 114, 115, 118, 116, 117, 119, 148, 154, 124, 165, 122, 120, 123, 121, 150, 153, 125, 128, 129, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 151, 149, 202, 175, 164, 152, 167, 155, 156, 157, 158, 159, 160, 161, 162, 163, 195, 169, 166, 168, 170, 171, 172, 199, 174, 173, 196, 200, 176, 177, 180, 178, 179, 182, 189, 187, 184, 186, 191, 192, 193, 194, 197, 198, 201, 203, 229, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 236, 231, 232, 233, 234, 235, 237, 240, 239, 241, 243, 242, 244,