vb农历公历转换系统设计 第4页
MPl.Play
g = 1
ShowNumFun Pt, wPw2(3), 1
ShowNumARG Pt, wPw1(3), 20
e = ""
f = ""
op = ""
txtDisp.Text = "0"
End Sub
Private Sub cmdAC_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P8, cmdAC
End Sub
Private Sub cmdAC_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P9, cmdAC
End Sub
Private Sub cmdEq_Click()
MPl.Play
If op = "" Then
e = Str(-(Val(e)))
txtDisp.Text = e
Else
f = Str(-(Val(e)))
txtDisp.Text = f
End If
chk = 1
End Sub
Private Sub cmdEq_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P8, cmdEq
End Sub
Private Sub cmdEq_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P9, cmdEq
End Sub
Private Sub cmdNum_Click(Index As Integer)
On Error GoTo eh2
MPl.Play
If chk = 1 Then
e = ""
f = ""
op = ""
chk = 0
End If
If op = "" Then
e = e & Trim(Str(Index))
txtDisp.Text = e
Else
f = f & Trim(Str(Index))
txtDisp.Text = f
End If
Exit Sub
eh2:
txtDisp.Text = "-E-"
e = ""
f = ""
op = ""
End Sub
Private Sub cmdOp_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P8, cmdOp(Index)
End Sub
Private Sub cmdOp_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P9, cmdOp(Index)
End Sub
Private Sub cmdOp_Click(Index As Integer)
On Error GoTo eh3
op_Sub
txtDisp.Text = e
op = ""
chk = 0
Select Case Index
Case 0
op = "+"
Case 1
op = "-"
Case 2
op = "*"
Case 3
op = "/"
Case 4
op = "^"
End Select
Exit Sub
eh3:
txtDisp.Text = "-E-"
e = ""
f = ""
op = ""
End Sub
Private Sub cmdPi_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P8, cmdPi
End Sub
Private Sub cmdPi_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P9, cmdPi
End Sub
Private Sub cmdPi_Click()
MPl.Play
If op = "" Then
e = "3.141592654"
txtDisp.Text = e
Else
f = "3.141592654"
txtDisp.Text = f
End If
End Sub
Private Sub cmdPM_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P8, cmdPM
End Sub
Private Sub cmdPM_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Show_b Picture5, P9, cmdPM
End Sub
Private Sub cmdPM_Click()
On Error GoTo eh1
op_Sub
txtDisp.Text = e
op = ""
chk = 1
Exit Sub
eh1:
txtDisp.Text = "-E-"
e = ""
f = ""
op = ""
End Sub
Private Sub cmdPt_MouseDown(Button As Integer, Shift As Integer, x As Single, y As
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页
vb农历公历转换系统设计 第4页下载如图片无法显示或论文不完整，请联系qq752018766
