Jawaban Quis Onlain Soal No 2 ( Program Pemakain Listrik)

Berikut ini adalah Designya :

Cara Penyelesaian nya :
"Catatan"
Gaji bersih akan tampil saat diklik proses.

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Gaji Pegawai PT.Telkom"
        Me.BackColor = Color.Coral

        nama.Items.Add("Saibatul Aslamiah Saragi")
        nama.Items.Add("Juhera Safitri")
        nama.Items.Add("Putri Saragi")
    End Sub

    Private Sub nama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.SelectedIndexChanged
        If nama.Text = "Saibatul Aslamiah Saragi" Then
            gdarah.Text = "III A"
            gaji.Text = 1500000
            pinjaman.Text = 50000
            KELUAR.BackColor = Color.Bisque
            HAPUS.BackColor = Color.Red
        ElseIf nama.Text = "Juhera Safitri" Then
            gdarah.Text = "III B"
            gaji.Text = 2500000
            pinjaman.Text = 40000
            KELUAR.BackColor = Color.Blue
            HAPUS.BackColor = Color.Orange
        ElseIf nama.Text = "Putri Saragi" Then
            gdarah.Text = "III C"
            gaji.Text = 3500000
            pinjaman.Text = 90000
            KELUAR.BackColor = Color.Red
            HAPUS.BackColor = Color.Pink
        Else
            gdarah.Text = "_"
            gaji.Text = "_"
            pinjaman.Text = ""

        End If
        pajak.Text = 0.15 * Val(gaji.Text)
    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        nama.Text = ""
        gdarah.Text = ""
        gaji.Text = ""
        pajak.Text = ""
        pinjaman.Text = ""
        GajiBERSIH.Text = ""
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        Dim mia As String
        mia = MsgBox("apakah anda yakin ingin keluar dari form ini", MsgBoxStyle.YesNo)
        If mia = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        GajiBERSIH.Text = Val(gaji.Text) - Val(pinjaman.Text)
    End Sub
End Class

        

Hasil Dari Cara penyelesaian Diatas :

Demikianlah Cara penyelesaian Program Tagihan Listrik.