Public Class frmMain

    Private Sub c1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c1.CheckedChanged
        If c1.Checked = True Then
            txtHargaMakanan.Text = "5000"
        Else
            txtHargaMakanan.Text = ""
        End If
    End Sub

    Private Sub c2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c2.CheckedChanged
        If c2.Checked = True Then
            txtHargaMakanan.Text = "4000"
        Else
            txtHargaMakanan.Text = ""
        End If
    End Sub

    Private Sub c3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c3.CheckedChanged
        If c3.Checked = True Then
            txtHargaMakanan.Text = "6000"
        Else
            txtHargaMakanan.Text = ""
        End If
    End Sub

    Private Sub c5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c5.CheckedChanged
        If c5.Checked = True Then
            txtHargaMinuman.Text = "2000"
        Else
            txtHargaMinuman.Text = ""
        End If
    End Sub

    Private Sub c4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c4.CheckedChanged
        If c4.Checked = True Then
            txtHargaMakanan.Text = "8000"
        Else
            txtHargaMakanan.Text = ""
        End If
    End Sub

    Private Sub c6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c6.CheckedChanged
        If c6.Checked = True Then
            txtHargaMinuman.Text = "5000"
        Else
            txtHargaMinuman.Text = ""
        End If
    End Sub

    Private Sub c7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c7.CheckedChanged
        If c7.Checked = True Then
            txtHargaMinuman.Text = "3000"
        Else
            txtHargaMinuman.Text = ""
        End If
    End Sub

    Private Sub c8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c8.CheckedChanged
        If c8.Checked = True Then
            txtHargaMinuman.Text = "7000"
        Else
            txtHargaMinuman.Text = ""
        End If
    End Sub

    Private Sub bJalankan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bJalankan.Click
            txtTotal.Text = (Val(txtHargaMakanan.Text) * Val(txtJumlah1.Text)) + (Val(txtHargaMinuman.Text) * Val(txtJumlah2.Text))
    End Sub

    Private Sub bHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bHapus.Click
        txtHargaMakanan.Text = ""
        txtHargaMinuman.Text = ""
        txtJumlah1.Text = ""
        txtJumlah2.Text = ""
        txtTotal.Text = ""
    End Sub
End Class