Kod:
Public Class Form1
Dim vize, final As Integer
Dim gecme As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
'Final notunun girildiği metin kutusu değişirken…
If Txt_Final.Text <> "" And IsNumeric(Txt_Final.Text) Then
'Eğer final metin kutusu dolu ve sayısal veri ise…
If Txt_Final.Text > 100 Then
'Eğer girilen final değeri 100 den büyük ise…
MsgBox("Hatalı Giriş!")
Txt_Final.Clear()
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
Else 'Aksi halde, yani final 100 den küçük…
If Txt_Vize.Text <> "" And IsNumeric(Txt_Vize.Text) Then
vize = Txt_Vize.Text
final = Txt_Final.Text
gecme = 2 * vize / 5 + 3 * final / 5
'vizenin %40’ı + finalin %60’ı
TxtGecme.Text = gecme
If gecme >= 50 Then TxtGecme.BackColor = Color.GreenYellow Else TxtGecme.BackColor = Color.Red
End If
End If
Else 'Ya final alanı boş, ya da girilen değer sayısal değil.
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
End If
End Sub
Private Sub Txt_Vize_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Vize.TextChanged
'Aynı şeyler vize notu için de yapılıyor.
If Txt_Vize.Text <> "" And IsNumeric(Txt_Vize.Text) Then
If Txt_Vize.Text > 100 Then
MsgBox("Hatalı Giriş!")
Txt_Vize.Clear()
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
Else
If Txt_Final.Text <> "" And IsNumeric(Txt_Final.Text) Then
vize = Txt_Vize.Text
final = Txt_Final.Text
gecme = 2 * vize / 5 + 3 * final / 5
TxtGecme.Text = gecme
If gecme >= 50 Then TxtGecme.BackColor =
Color.GreenYellow Else TxtGecme.BackColor = Color.Red
End If
End If
Else
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
End If
End Sub
Private Sub TxtGecme_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtGecme.TextChanged
'Geçme notu alanı değişirken harf notu hesaplanıyor.
If TxtGecme.Text <> "" Then
If TxtGecme.Text >= 90 Then
TxtHarf.Text = "AA"
ElseIf TxtGecme.Text >= 80 Then
TxtHarf.Text = "BA"
ElseIf TxtGecme.Text >= 70 Then
TxtHarf.Text = "BB"
ElseIf TxtGecme.Text >= 60 Then
TxtHarf.Text = "CB"
ElseIf TxtGecme.Text >= 50 Then
TxtHarf.Text = "CC"
ElseIf TxtGecme.Text >= 40 Then
TxtHarf.Text = "DC"
ElseIf TxtGecme.Text >= 30 Then
TxtHarf.Text = "DD"
ElseIf TxtGecme.Text >= 20 Then
TxtHarf.Text = "FD"
Else
TxtHarf.Text = "FF"
End If
End If
End Sub
End Class