简单计算器源代码
1.完成程序界面如下：
2.源代码:
Option Explicit
Private Declare Function HideCaret Lib "user32" (ByVal hwnd As Long) As Long
Dim ONOFF As Boolean
Dim operator1 As String
Dim operator2 As String
Dim result
Dim opt As Integer
Dim op As Boolean
Dim caculated As Boolean
Private Sub aboutComputer_Click()
frmAbout.Show
End Sub
Private Sub cmdBackspace_Click()
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
Dim length As Integer
If op Then
length = Len(operator2)
If length <= 1 Then
operator2 = ""
Text2.Text = "0."
Else
operator2 = Mid$(operator2, 1, length - 1)
Text2.Text = operator2
End If
Else
length = Len(operator1)
If length <= 1 Then
operator1 = ""
Text2.Text = "0."
Else
operator1 = Mid$(operator1, 1, length - 1)
Text2.Text = operator1
End If
End If
End Sub
Private Sub cmdClear_Click()
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
Text2.Text = "0."
operator1 = ""
operator2 = ""
opt = 99
op = False
End Sub
Private Sub cmdClear1_Click()
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
Text2.Text = "0."
operator1 = ""
operator2 = ""
opt = 99
op = False
End Sub
Private Sub cmdONOFF_Click()
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
Dim i As Integer
If ONOFF Then
cmdONOFF.Caption = "ON"
ONOFF = False
For i = 0 To 10
Command1(i).Enabled = False
Next
For i = 0 To 4
Command2(i).Enabled = False
Next
cmdClear.Enabled = False
cmdBackspace.Enabled = False
cmdClear1.Enabled = False
Text2.Alignment = 2
operator1 = ""
operator2 = ""
opt = 99
op = False
Text2.Text = "you have locked the caculate!"
Else
cmdONOFF.Caption = "OFF"
ONOFF = True
For i = 0 To 10
Command1(i).Enabled = True
Next
For i = 0 To 4
Command2(i).Enabled = True
Next
cmdClear.Enabled = True
cmdBackspace.Enabled = True
cmdClear1.Enabled = True
Text2.Alignment = 1
Text2.Text = "0."
End If
End Sub
Private Sub Command1_Click(Index As Integer)
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
Dim dot, value
If op Then
If caculated Then
operator2 = ""
caculated = False
End If
If Index = 0 Then
dot = InStr(1, operator2, ".")
value = Val(operator2)
If value <> 0 Or dot <> 0 Then
operator2 = operator2 & Index
Text2.Text = operator2
End If
Else
If Index <> 10 Then
operator2 = operator2 & Index
Text2.Text = operator2
Else
dot = InStr(1, operator2, ".")
If dot = 0 Then
value = Val(operator2)
If value = 0 Then
operator2 = "0."
Else
operator2 = operator2 & "."
End If
Text2.Text = operator2
Else
Text2.Text = operator2
End If
End If
End If
Else
If Index = 0 Then
dot = InStr(1, operator1, ".")
value = Val(operator1)
If value <> 0 Or dot <> 0 Then
operator1 = operator1 & Index
Text2.Text = operator1
End If
Else
If Index <> 10 Then
operator1 = operator1 & Index
Text2.Text = operator1
Else
dot = InStr(1, operator1, ".")
If dot = 0 Then
value = Val(operator1)
If value = 0 Then
operator1 = "0."
Else
operator1 = operator1 & "."
End If
Text2.Text = operator1
Else
Text2.Text = operator1
End If
End If
End If
End If
End Sub
Private Sub Command2_Click(Index As Integer)
Text2.SetFocus
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
If Index = 4 Then
If op Then
operator2 = Val(operator2)
Select Case opt
Case 0
result = Val(operator1) + Val(operator2)
Case 1
result = Val(operator1) - Val(operator2)
Case 2
result = Val(operator1) * Val(operator2)
Case 3
If operator2 = 0 Then
result = "除数不能为零！"
Else
result = Val(operator1) / Val(operator2)
End If
End Select
If result < 0 Then
If Abs(result) < 1 Then
Text2.Text = "-0" & Abs(result)
Else
Text2.Text = result
End If
Else
If result < 1 And result > 0 Then
Text2.Text = "0" & result
Else
Text2.Text = result
End If
operator1 = result
op = True
caculated = True
End If
End If
Else
op = True
opt = Index
End If
End Sub
Private Sub Form_Load()
ONOFF = True
HideCaret (Text1.hwnd)
HideCaret (Text2.hwnd)
operator1 = ""
operator2 = ""
opt = 90
op = False
caculated = False
End Sub
Private Sub helpTopic_Click()
frmSplash.Show
End Sub
Private Sub Text1_GotFocus()
HideCaret (Text1.hwnd)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
HideCaret (Text1.hwnd)
KeyAscii = 0
End Sub
Private Sub Text2_GotFocus()
HideCaret (Text2.hwnd)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
HideCaret (Text2.hwnd)
KeyAscii = 0
End Sub
