Code เครื่องคิดเลข

Public Class Calculator

Private Sub chbบวก_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbบวก.CheckedChanged

Chbลบ.Enabled = False

chbคูณ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbลบ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbลบ.CheckedChanged

chbบวก.Enabled = False

chbคูณ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbคูณ_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbคูณ.CheckedChanged

chbบวก.Enabled = False

chbลบ.Enabled = False

chbหาร.Enabled = False

End Sub

Private Sub chbหาร_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbหาร.CheckedChanged

Chbบวก.Enabled = False

chbลบ.Enabled = False

chbคูณ.Enabled = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSum.Click

Dim a, b As Integer

Dim c As String

a = txtNum1.Text

b = txtNum2.Text

c = txtSum.Text

If chbบวก.Checked Then

c = a + b

ElseIf chbลบ.Checked Then

c = a - b

ElseIf chbคูณ.Checked Then

c = a * b

Else

c = a / b

End If

txtSum.Text = c

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtNum1.Text = ""

txtNum2.Text = ""

txtSum.Text = ""

chbบวก.Checked = False

chbลบ.Checked = False

chbคูณ.Checked = False

chbหาร.Checked = False

chbบวก.Enabled = True

chbลบ.Enabled = True

chbคูณ.Enabled = True

chbหาร.Enabled = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click

Me.Close()

End Sub

End Class