Programalama > VISUAL BASIC

VISUAL BASIC / Üniversite Not Hesaplama

6 Adet Text Box 10 Adet Label 1 Adet Timer 1 Adet Command Buttun

Etiketler: üniversite, not, hesaplama

Ort. 0

Puan ver:

hazirkod 14 June 19:34 1

0 kişiden 0 puan aldı

5875

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