Lesson 21: Working with Checkbox Controls

Public Class Form1

Private Sub BtnCal_Click(sender As Object, e As EventArgs) Handles BtnCal.Click
    ' Declare item prices as constants
    Const LX As Integer = 100
    Const BN As Integer = 500
    Const SD As Integer = 200
    Const HD As Integer = 80
    Const HM As Integer = 300
    Const AM As Integer = 150
    
    Dim sum As Integer = 0
    
    ' Check each checkbox and add to total if selected
    If CheckBox1.Checked = True Then
        sum += LX
    End If

    If CheckBox2.Checked = True Then
        sum += BN
    End If

    If CheckBox3.Checked = True Then
        sum += SD
    End If
    
    If CheckBox4.Checked = True Then
        sum += HD
    End If

    If CheckBox5.Checked = True Then
        sum += HM
    End If

    If CheckBox6.Checked = True Then
        sum += AM
    End If
    
    ' Display formatted total
    LblTotal.Text = sum.ToString("c")
End Sub

Private Sub BtnReset_Click(sender As Object, e As EventArgs) Handles BtnReset.Click
    ' Reset all checkboxes
    CheckBox1.Checked = False
    CheckBox2.Checked = False
    CheckBox3.Checked = False
    CheckBox4.Checked = False
    CheckBox5.Checked = False
    CheckBox6.Checked = False
    LblTotal.Text = ""
End Sub
End Class

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' Declare size prices
    Const large As Integer = 10
    Const medium As Integer = 8
    Const small As Integer = 5
    
    Dim sum As Integer = 0

    ' Check each size option
    If CheckBox1.Checked = True Then
        sum += large
    End If

    If CheckBox2.Checked = True Then
        sum += medium
    End If

    If CheckBox3.Checked = True Then
        sum += small
    End If
    
    ' Display formatted total
    Label5.Text = sum.ToString("c")
End Sub