Form nilai huruf

Public Class Form1

    Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Toni.Text = Val(Nuts.Text) + Val(Ntugas.Text) + Val(Nuas.Text) / 3

        If Toni.Text >= 80 Then
            nihu.Text = "A"
        ElseIf Toni.Text >= 70 Then
            nihu.Text = "B"
        ElseIf Toni.Text >= 60 Then
            nihu.Text = "C"

        ElseIf Toni.Text >= 50 Then
            nihu.Text = "D"
        Else
            nihu.Text = "E"
        End If

    End Sub

    Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click
        Nuts.Text = ""
        Ntugas.Text = ""
        Nuas.Text = ""
        Toni.Text = ""
        nihu.Text = ""

    End Sub

    Private Sub nihu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nihu.TextChanged
       
    End Sub

    Private Sub Toni_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Toni.TextChanged

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Author : Unknown

Share this

Related Posts