Belajar Logika dan Pemrograman

Public Class Form3
Dim harga As Decimal = 0
Dim x As Decimal = 0
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
harga = harga + 12.51
Else
harga = harga - 12.51
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
harga = harga + 9.68
Else
harga = harga - 9.68
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
harga = harga + 1.5
Else
harga = harga - 1.5
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
harga = harga + 25.25
Else
harga = harga - 25.25
End If
x = harga * 9175
Label2.Text = "Rp. " & x
End Sub
End Class

Download...