Programming

Public Class frmMain

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

Me.Close()

End Sub

Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click

Const dblBASIC As Double = 39.99

Const dblSILVER As Double = 45.99

Const dblGOLD As Double = 74.99

Const dblDIAMOND As Double = 99.99

Const dblCINNEMATIC As Double = "10.5"

Const dblHBI As Double = 10.5

Const dblSHOWTIMER As Double = 11.5

Const dblLOCAL As Double = 5.0

Dim dblCableBill As Double

If radBasic.Checked Then

dblCableBill = dblBASIC

ElseIf radSilver.Checked Then

dblCableBill = dblSILVER

ElseIf radGold.Checked Then

dblCableBill = dblGOLD

Else

dblCableBill = dblDIAMOND

End If

If chkCinnematic.Checked Then

dblCableBill = dblCableBill + dblCINNEMATIC

End If

If chkHbi.Checked Then

dblCableBill = dblCableBill + dblCableBill

End If

If chkShowtimer.Checked Then

dblCableBill = dblCableBill + dblSHOWTIMER

End If

If chkLocal.Checked Then

dblCableBill = dblCableBill + dblLOCAL

End If

' display the cable bill

lblCableBill.Text = dblCableBill.ToString("C2")

End Sub

Private Sub ClearBill(sender As Object, e As EventArgs) Handles chkCinnematic.CheckedChanged,

chkHbi.CheckedChanged, chkShowtimer.CheckedChanged, radBasic.CheckedChanged, radDiamond.CheckedChanged,

radGold.CheckedChanged, radSilver.CheckedChanged

lblCableBill.Text = String.epty

End Sub

End Class