Programalama > VISUAL BASIC

Etiketler: üniversite, not, hesaplama

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
recep123 (0) Sakıncalı Yorum 17 March 14:40
kod için teşekkürler ama nerde ne yapılcanıda yazarmısız.
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.