Reply to thread

Message: <blockquote data-quote="deegopower" data-source="post: 5579814" data-attributes="member: 6596">Simple calculator......Dim n1, n2, ans As VariantDim cal As StringPrivate Sub cmdAdd_Click()    n1 = Val(txtDisplay.Text)    cal = "Add"    txtDisplay.Text = ""End SubPrivate Sub cmdClear_Click()    txtDisplay.Text = ""    n1 = 0    n2 = 0    ans = 0    cal = ""End SubPrivate Sub cmdDivide_Click() n1 = Val(txtDisplay.Text)    cal = "Div"    txtDisplay.Text = ""End SubPrivate Sub cmdEq_Click()    n2 = txtDisplay.Text    Select Case cal        Case "Add"            ans = n1 + n2        Case "Subt"            ans = n1 - n2        Case "Mul"            ans = n1 * n2        Case "Div"            If n2 = 0 Then                ans = "Can not divide by Zero"            Else                ans = n1 / n2            End If        End Select        txtDisplay.Text = ans                        End SubPrivate Sub cmdMul_Click() n1 = Val(txtDisplay.Text)    cal = "Mul"    txtDisplay.Text = ""End SubPrivate Sub cmdNo_Click(Index As Integer)    txtDisplay.Text = txtDisplay.Text + cmdNo(Index).Caption    End SubPrivate Sub CMDOFF_Click()EndEnd SubPrivate Sub cmdSub_Click() n1 = Val(txtDisplay.Text)    cal = "Subt"    txtDisplay.Text = ""End Sub</blockquote>

Top Bottom