PF101 โ Object Oriented Programming
Laboratory Activity #3 โ Self-Designed Calculator
Vibal, Mary Joy C. Prof. Ronnie Gatdula
2nd Year โ SFIT2C
Source Code:
Public Class Form1
Dim num1 As Double
Dim num2 As Double
Dim operations As Integer
Dim operator_selector As Boolean = False
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
num1 = TextBox1.Text
TextBox1.Text = "0"
operator_selector = True
operations = 5
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
If TextBox1.Text <> "0" Then
TextBox1.Text += "1"
Else
TextBox1.Text = "1"
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles
Button3.Click
num1 = TextBox1.Text
TextBox1.Text = "0"
operator_selector = True
operations = 7
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles
Button4.Click
num1 = TextBox1.Text
TextBox1.Text = "0"
operator_selector = True
operations = 6
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles
Button5.Click
num1 = TextBox1.Text
TextBox1.Text = "0"
operator_selector = True
operations = 1
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles
Button6.Click
If TextBox1.Text <> "0" Then
TextBox1.Text += "3"
