Pemrograman 2

Nama TextBox 1 : uts
Nama TextBox 2 : uas
Nama TextBox 3 : tgs
Nama TextBox 4 : absen
Nama TextBox 5 : NA
Nama TextBox 6 : HM
Nama TextBox 7 : Ket

Public Class Tugas2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cek.Click
        NA.Text = Val(uts.Text * 0.3) + Val(uas.Text * 0.3) + Val(tgs.Text * 0.3) + Val(absen.Text * 0.1)
        If NA.Text >= 80 Then
            HM.Text = "A"
        ElseIf NA.Text >= 70 Then
            HM.Text = "B"
        ElseIf NA.Text >= 56 Then
            HM.Text = "C"
        ElseIf NA.Text >= 40 Then
            HM.Text = "D"
        Else
            HM.Text = "E"
        End If
        If HM.Text = "A" Then
            Ket.Text = "Baik Sekali"
        ElseIf HM.Text = "B" Then
            Ket.Text = "Baik"
        ElseIf HM.Text = "C" Then
            Ket.Text = "Cukup"
        ElseIf HM.Text = "D" Then
            Ket.Text = "Kurang"
        Else
            Ket.Text = "Sangat Kurang"
        End If
    End Sub
End Class

Pemrograman 3

Nama TextBox 1 : nama
Nama TextBox 2 : upah
Nama TextBox 3 : jk
Nama TextBox 4 : gaji
Nama TextBox 5 : lmbr
Nama TextBox 6 : GB
Nama ComboBox 1 : gol

Public Class Kasus_2

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        If gol.Text = "A" Then
            upah.Text = "5000"
        ElseIf gol.Text = "B" Then
            upah.Text = "6000"
        ElseIf gol.Text = "C" Then
            upah.Text = "7500"
        ElseIf gol.Text = "D" Then
            upah.Text = "9000"
        Else
            upah.Text = "0"
        End If
    End Sub

    Private Sub jk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jk.TextChanged

        If Val(jk.Text) > 150 Then
            gaji.Text = Val(150) * Val(upah.Text)
            lmbr.Text = Val(jk.Text - 150) * Val(upah.Text)
            GB.Text = Val(gaji.Text) + Val(lmbr.Text)
        Else
            gaji.Text = Val(jk.Text) * Val(upah.Text)
            lmbr.Text = 0
            GB.Text = Val(gaji.Text) + Val(lmbr.Text)

        End If
    End Sub
End Class