Visual Basic Vize Final Notuna Göre Sonuç Hesaplama | Sınav Sorusu

[turkmedia]

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