Calculator project with source code and figure?

Answer 1

Option Explicit

Dim firstnum As Single

Dim answer As Single

Dim calculate As Integer

Dim Readout As Integer

Dim DecimalFlag As Integer

Dim NumOps As Integer

Dim LastInput

Dim OpFlag

Private Sub btnadd_Click()

calculate = 1

firstnum = Val(txtcalc)

txtcalc = ""

End Sub

Private Sub btnbackspace_Click()

txtcalc = Left(txtcalc, Len(txtcalc) - 1)

End Sub

Private Sub btnC_Click()

txtcalc = ""

txtcalc = Format(0, "0.")

End Sub

Private Sub btndiv_Click()

calculate = 4

firstnum = Val(txtcalc)

txtcalc = ""

End Sub

Private Sub btndot_Click()

txtcalc = txtcalc + "."

End Sub

Private Sub btnequal_Click()

Dim secondnum As Single

secondnum = Val(txtcalc)

Select Case calculate

Case Is = 1

answer = firstnum + secondnum

Case Is = 2

answer = firstnum - secondnum

Case Is = 3

answer = firstnum * secondnum

Case Is = 4

answer = firstnum / secondnum

End Select

txtcalc = answer

End Sub

Private Sub btnmul_Click()

calculate = 3

firstnum = Val(txtcalc)

txtcalc = ""

End Sub

Private Sub btnpress0_Click()

txtcalc = txtcalc + "0"

End Sub

Private Sub btnpress1_Click()

txtcalc = txtcalc + "1"

End Sub

Private Sub btnpress2_Click()

txtcalc = txtcalc + "2"

End Sub

Private Sub btnpress3_Click()

txtcalc = txtcalc + "3"

End Sub

Private Sub btnpress4_Click()

txtcalc = txtcalc + "4"

End Sub

Private Sub btnpress5_Click()

txtcalc = txtcalc + "5"

End Sub

Private Sub btnpress6_Click()

txtcalc = txtcalc + "6"

End Sub

Private Sub btnpress7_Click()

txtcalc = txtcalc + "7"

End Sub

Private Sub btnpress8_Click()

txtcalc = txtcalc + "8"

End Sub

Private Sub btnpress9_Click()

txtcalc = txtcalc + "9"

End Sub

Private Sub btnsquare_Click()

txtcalc = txtcalc ^ (1 / 2)

End Sub

Private Sub btnsub_Click()

calculate = 2

firstnum = Val(txtcalc)

txtcalc = ""

End Sub

Private Sub Form_Load()

DecimalFlag = False

txtcalc = Format(0, "0.")

End Sub

Private Sub txtcalc_Change()

Dim numval As String

If IsNumeric(txtcalc) Then

Else

txtcalc.Text = CStr(numval)

End If

End Sub