PROGRAM HITUNG BY VB NET

PROGRAM HITUNG NILAI BYVB NET

Public Class Form3

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox1.Text = "zarmi"

        TextBox2.Text = "13020030"

        TextBox3.Text = "Akuntansi"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox8.Text = (Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text)) / 4

        If TextBox8.Text <= 100 Then

            TextBox9.Text = ("LULUS")

        Else

        End If

        If TextBox8.Text <= 61 Then

            TextBox9.Text = ("Gagal")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim x As Integer

        x = MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "Warning")

        If x = vbOK Then

            End

        End If

    End Sub

End Class