Not Hesaplama Kodu Visual Basic

Public Class Form1
 Dim vize, final As Integer
 Dim gecme As Double
 Private Sub Txt_Final_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Txt_Final.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()