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] 下一页