- Kod:
Private Sub Command1_Click()
ort = Val(Text1) * Val(Text3) + Val(Text2) * Val(Text4)
If ort < Val(Text5) Then
durum = "Başarısız"
Else
durum = "Başarılı"
End If
If ort < Val(Text5) Then
durum = "Başarısız"
durum.BackColor = &HFF&
Else
durum = "Başarılı"
durum.BackColor = &HC000&
End If
If ort < 35 Then
Label11 = "FF"
Label11.BackColor = &HFF&
ElseIf ort >= 35 And ort < 49 Then
Label11 = "FF"
durum.BackColor = &HFF&
ElseIf ort >= 50 And ort < 59 Then
Label11 = "DD"
durum.BackColor = &HFF&
ElseIf ort >= 60 And ort < 69 Then
Label11 = "DC"
durum.BackColor = &HC000&
ElseIf ort >= 70 And ort < 74 Then
Label11 = "CC"
durum.BackColor = &HC000&
ElseIf ort >= 75 And ort < 79 Then
Label11 = "CB"
durum.BackColor = &HC000&
ElseIf ort >= 80 And ort < 84 Then
Label11 = "BB"
durum.BackColor = &HC000&
ElseIf ort >= 85 And ort < 89 Then
Label11 = "BA"
durum.BackColor = &HC000&
ElseIf ort >= 90 And ort < 100 Then
Label11 = "AA"
durum.BackColor = &HC000&
End If
End Sub
Private Sub Timer1_Timer()
Label9 = Time
End Sub
[Linkleri görebilmek için üye olun veya giriş yapın.]
Private Sub Command1_Click()
ort = Val(Text1) * Val(Text3) + Val(Text2) * Val(Text4)
If ort < Val(Text5) Then
durum = "Başarısız"
Else
durum = "Başarılı"
End If
If ort < Val(Text5) Then
durum = "Başarısız"
durum.BackColor = &HFF&
Else
durum = "Başarılı"
durum.BackColor = &HC000&
End If
If ort < 35 Then
Label11 = "FF"
Label11.BackColor = &HFF&
ElseIf ort >= 35 And ort < 49 Then
Label11 = "FF"
durum.BackColor = &HFF&
ElseIf ort >= 50 And ort < 59 Then
Label11 = "DD"
durum.BackColor = &HFF&
ElseIf ort >= 60 And ort < 69 Then
Label11 = "DC"
durum.BackColor = &HC000&
ElseIf ort >= 70 And ort < 74 Then
Label11 = "CC"
durum.BackColor = &HC000&
ElseIf ort >= 75 And ort < 79 Then
Label11 = "CB"
durum.BackColor = &HC000&
ElseIf ort >= 80 And ort < 84 Then
Label11 = "BB"
durum.BackColor = &HC000&
ElseIf ort >= 85 And ort < 89 Then
Label11 = "BA"
durum.BackColor = &HC000&
ElseIf ort >= 90 And ort < 100 Then
Label11 = "AA"
durum.BackColor = &HC000&
End If
End Sub
Private Sub Timer1_Timer()
Label9 = Time
End Sub
[Linkleri görebilmek için üye olun veya giriş yapın.]
Perş. Mart 28, 2013 11:45 pm tarafından layezu
» Bayrak Resimleri
Cuma Nis. 02, 2010 2:23 am tarafından Admin
» Arkadaş Resimleri = 2...
Cuma Nis. 02, 2010 2:10 am tarafından Admin
» Arkadaş Resimleri =1.....
Cuma Nis. 02, 2010 2:07 am tarafından Admin
» Msn Nick Oluşturma Modül Kodu
Cuma Nis. 02, 2010 2:04 am tarafından Admin
» Türkçe Mp3 Player Kodu
Cuma Nis. 02, 2010 2:01 am tarafından Admin
» Giriş Ekle Giriş 1 Kodu
Cuma Nis. 02, 2010 1:59 am tarafından Admin
» Belgesel Videoları Kodu
Cuma Nis. 02, 2010 1:56 am tarafından Admin
» FlasH OyuNLar EkLe
Cuma Nis. 02, 2010 1:52 am tarafından Admin
» Flash Sattler
Cuma Nis. 02, 2010 1:46 am tarafından Admin
» Sitene Peygamberler TArihi Ekle
Cuma Nis. 02, 2010 1:28 am tarafından Admin
» sitene dini sorularla cevaplar ekle
Cuma Nis. 02, 2010 1:24 am tarafından Admin
» sitene duyuru panosu ekle html kod
Cuma Nis. 02, 2010 1:19 am tarafından Admin
» sağ üst köşe reklam alanı kodu
Cuma Nis. 02, 2010 1:17 am tarafından Admin
» sitene ilahi arama motoru ekle htm kodu
Cuma Nis. 02, 2010 1:15 am tarafından Admin
» sitene ilahi mp3 çalar html kodu
Cuma Nis. 02, 2010 1:13 am tarafından Admin
» Sitene Veda Hutbesi Ekle
Cuma Nis. 02, 2010 1:07 am tarafından Admin
» Not ortalama
Cuma Nis. 02, 2010 12:41 am tarafından Admin
» Ziyaretçi selamlama
Cuma Nis. 02, 2010 12:38 am tarafından Admin
» Daktilo yazisi
Cuma Nis. 02, 2010 12:37 am tarafından Admin
» Göz kirpan yazi
Cuma Nis. 02, 2010 12:33 am tarafından Admin
» Bugunku ve toplam hit... wap siteleri icin bire bir ( PHP ) script
Cuma Nis. 02, 2010 12:31 am tarafından Admin
» Mesaj yollama......
Cuma Nis. 02, 2010 12:28 am tarafından Admin
» Harf harf reknli yazi yapmak
Cuma Nis. 02, 2010 12:26 am tarafından Admin
» Kutu içerisinde çikan yazilar
Cuma Nis. 02, 2010 12:23 am tarafından Admin
» Downloader......
Cuma Nis. 02, 2010 12:21 am tarafından Admin
» Bu kod ile sayfanızda depremler yarata bilirsiniz :d
Cuma Nis. 02, 2010 12:18 am tarafından Admin
» Ziyaretci defteri......
Cuma Nis. 02, 2010 12:16 am tarafından Admin
» Google arama
Cuma Nis. 02, 2010 12:13 am tarafından Admin
» Tehlikeli bir tiklama
Cuma Nis. 02, 2010 12:09 am tarafından Admin
» Müzk dosyalarininiin bütününü çalin
Cuma Nis. 02, 2010 12:07 am tarafından Admin
» Üye girişi
Cuma Nis. 02, 2010 12:05 am tarafından Admin
» Görüş formu
Cuma Nis. 02, 2010 12:02 am tarafından Admin
» Sitenizdeki aktif kullanicilar ( AsP)
Cuma Nis. 02, 2010 12:01 am tarafından Admin
» En güzel kayan yazı
Perş. Nis. 01, 2010 11:59 pm tarafından Admin
» En iyi konuk defteri
Perş. Nis. 01, 2010 11:56 pm tarafından Admin
» Yükleniyor
Perş. Nis. 01, 2010 11:55 pm tarafından Admin
» Kayan yazı süper birşey
Perş. Nis. 01, 2010 11:53 pm tarafından Admin
» Sayfada yagmur
Perş. Nis. 01, 2010 11:52 pm tarafından Admin
» Sitende çok süper bir saat olsun
Perş. Nis. 01, 2010 11:51 pm tarafından Admin
» Farenin etrafında ismin dönsün
Perş. Nis. 01, 2010 11:49 pm tarafından Admin
» Online ziyaretci saysini
Perş. Nis. 01, 2010 11:48 pm tarafından Admin
» Hazır index
Perş. Nis. 01, 2010 11:42 pm tarafından Admin
» Hazır site sadece kodu ekle ve farkı gör
Perş. Nis. 01, 2010 11:40 pm tarafından Admin
» . Sitende enson teknoloji haberlerini bant panel halinde görüntüle
Perş. Nis. 01, 2010 11:38 pm tarafından Admin
» Sitene kamerali sesli chat ekle super
Perş. Nis. 01, 2010 11:37 pm tarafından Admin
» Günlük gazete ekle
Perş. Nis. 01, 2010 11:36 pm tarafından Admin
» Sitene gazete 1. sayfa ekle
Perş. Nis. 01, 2010 11:34 pm tarafından Admin
» Flash mp3 player
Perş. Nis. 01, 2010 11:32 pm tarafından Admin
» Poyraz internet cafe
Perş. Nis. 01, 2010 11:29 pm tarafından Admin
» Harika bir kod
Perş. Nis. 01, 2010 11:28 pm tarafından Admin
» Üniversite not hesaplama
Perş. Nis. 01, 2010 11:26 pm tarafından Admin
» Radyo Faruki'yi günün hangi saatlerinde dinliyorsunuz?
Perş. Nis. 01, 2010 3:16 am tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:31 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 6:01 pm tarafından Admin
» Doğa & Manzara
Ptsi Mart 29, 2010 5:56 pm tarafından Admin
» Peygamber Efendimizin Hicreti
Ptsi Mart 29, 2010 5:47 pm tarafından Admin
» Şakk-ı Kamer Mu'cizesi
Ptsi Mart 29, 2010 5:43 pm tarafından Admin
» İlk Müslümanlar
Ptsi Mart 29, 2010 5:39 pm tarafından Admin
» Peygamberlikten Önce Dünya
Ptsi Mart 29, 2010 5:35 pm tarafından Admin