Geçme Notu Hesaplama

1 Vize ve Final Notuna göre harfli sisteme göre hangi notu aldığınızı, 60 geçiş notuna göre geçilip geçilmediğini gösteren program. Aşağıdaki şekilleri inceleyin.

Şekil 1

Şekil 2

Public Class Form1
    Dim vize, final As Integer
    Dim gnotu As Double
    Dim sonuc, durum As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
        final = InputBox("Not Girişi", "Final Notu Girişi", 0)

        gnotu = vize * 0.3 + final * 0.7
        Select Case gnotu
            Case 90 To 100 : sonuc = "A"
            Case 80 To 89 : sonuc = "B"
            Case 70 To 79 : sonuc = "C"
            Case 60 To 69 : sonuc = "D"
            Case Is < 50 : sonuc = "F"
            Case 50 To 59 : sonuc = "E"
            Case Else
        End Select

        If gnotu < 60 Then
            durum = "KALDINIZ!.."
        Else
            durum = "GEÇTİNİZ!.."
        End If
        MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
    End Sub
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN