UTS PERTEUAN 10

Public Class Form1 Dim biaya As Integer Dim biaya_asuransi As Integer Dim jenis, promo As String Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CmbPaket.Items.Clear() CmbPaket.Items.Add("Paket STOP RISK") CmbPaket.Items.Add("Paket HIGH RISK") CmbPaket.Items.Add("Paket MULTI RISK") End Sub Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click If ChkPromo.Checked = True Then biaya_asuransi = biaya - (0.05 * biaya) 'yang dalam kurung ini diskon nya, promo = "Ya" Else biaya_asuransi = biaya promo = "No" End If ListBox1.Items.Add("Nama : " & TxtNama.Text) ListBox1.Items.Add("Jenis/Usia :" & jenis & "/" & TxtUsia.Text) ListBox1.Items.Add("Masa Asuransi :" & TxtMasa.Text) ListBox1.Items.Add("Harga Kendaraan :" & TxtHarga.Text) ListBox1.Items.Add("Paket Asuransi :" & CmbPaket.Text) ListBox1.Items.Add("Promo : " & promo) ListBox1.Items.Add("Biaya Asuransi :" & biaya_asuransi) End Sub Private Sub CmbPaket_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPaket.SelectedIndexChanged Select Case CmbPaket.SelectedIndex() Case 0 : biaya = 0.1 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 1 : biaya = 0.11 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 2 : biaya = 0.12 * Val(TxtHarga.Text) * Val(TxtMasa.Text) End Select End Sub Private Sub RBLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBLaki.CheckedChanged jenis = "Laki - Laki" End Sub Private Sub RBPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPerempuan.CheckedChanged jenis = "Perempuan" End Sub Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click TxtHarga.Text = "" TxtMasa.Text = "" TxtNama.Text = "" TxtUsia.Text = "" RBLaki.Checked = False RBPerempuan.Checked = False ChkPromo.Checked = False CmbPaket.Text = "" ListBox1.Items.Clear() End Sub End Class