Dim operater_on As Boolean = False Dim operater As String = "" Dim val1, val2 As Double
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load AddHandler btn0.Click, AddressOf buttonClick AddHandler btn1.Click, AddressOf buttonClick AddHandler btn2.Click, AddressOf buttonClick AddHandler btn3.Click, AddressOf buttonClick AddHandler btn4.Click, AddressOf buttonClick AddHandler btn5.Click, AddressOf buttonClick AddHandler btn6.Click, AddressOf buttonClick AddHandler btn7.Click, AddressOf buttonClick AddHandler btn8.Click, AddressOf buttonClick AddHandler btn9.Click, AddressOf buttonClick End Sub
Private Sub buttonClick(sender As Object, e As EventArgs) Dim btn As Button = DirectCast(sender, System.Windows.Forms.Button) If lblDisplay.Text = "0" Or operater_on = True Then lblDisplay.Text = btn.Text operater_on = False Else lblDisplay.Text = lblDisplay.Text & btn.Text End If End Sub
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.