9*Rnd)
txtDisp.Text=f
EndIf
ShowNumFunPt,wPw1(3),Index-1
Case11
e=Str(1/Val(e))
Ji_suan
***第11-23种情况略****
Case24
Ifs_mem_B=FalseThen
Ifop=""Then
e=Str(S_mem)
txtDisp.Text=e
f=""
Else
f=Str(S_mem)
txtDisp.Text=f
EndIf
s_mem_B=True
Else
S_mem=0
s_mem_B=False
EndIf
EndSelect
ExitSub
eh1:
txtDisp.Text="-E-"
e=""
f=""
op=""
EndSub
PrivateSubcmdAC_Click()
MPl.Play
g=1
ShowNumFunPt,wPw2(3),1
ShowNumARGPt,wPw1(3),20
e=""
f=""
op=""
txtDisp.Text="0"
EndSub
PrivateSubcmdAC_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdAC
EndSub
PrivateSubcmdAC_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdAC
EndSub
PrivateSubcmdEq_Click()
MPl.Play
Ifop=""Then
e=Str(-(Val(e)))
txtDisp.Text=e
Else
f=Str(-(Val(e)))
txtDisp.Text=f
EndIf
chk=1
EndSub
PrivateSubcmdEq_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdEq
EndSub
PrivateSubcmdEq_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdEq
EndSub
PrivateSubcmdNum_Click(IndexAsInteger)
GoToeh2
MPl.Play
Ifchk=1Then
e=""
f=""
op=""
chk=0
EndIf
Ifop=""Then
e=e&Trim(Str(Index))
txtDisp.Text=e
Else
f=f&Trim(Str(Index))
txtDisp.Text=f
EndIf
ExitSub
eh2:
txtDisp.Text="-E-"
e=""
f=""
op=""
EndSub
PrivateSubcmdOp_MouseDown(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdOp(Index)
EndSub
PrivateSubcmdOp_MouseUp(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdOp(Index)
EndSub
PrivateSubcmdOp_Click(IndexAsInteger)
GoToeh3
op_Sub
txtDisp.Text=e
op=""
chk=0
SelectCaseIndex
Case0
op="+"
Case1
op="-"
Case2
op="*"
Case3
op="/"
Case4
op="^"
EndSelect
ExitSub
eh3:
txtDisp.Text="-E-"
e=""
f=""
op=""
EndSub
PrivateSubcmdPi_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdPi
EndSub
PrivateSubcmdPi_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdPi
EndSub
PrivateSubcmdPi_Click()
MPl.Play
Ifop=""Then
e="3.141592654"
txtDisp.Text=e
Else
f="3.141592654"
txtDisp.Text=f
EndIf
EndSub
PrivateSubcmdPM_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdPM
EndSub
PrivateSubcmdPM_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdPM
EndSub
PrivateSubcmdPM_Click()
GoToeh1
op_Sub
txtDisp.Text=e
op=""
chk=1
ExitSub
eh1:
txtDisp.Text="-E-"
e=""
f=""
op=""
EndSub
PrivateSubcmdPt_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P8,cmdPt
EndSub
PrivateSubcmdPt_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
Show_bPicture5,P9,cmdPt
EndSub
PrivateSubcmdPt_Click()
MPl.Play
Ifop=""Then
e=e&"."
txtDisp.Text=e
Else
f=f&"."
txtDisp.Text=f
EndIf
EndSub
PrivateSubcmdT_Click()
'显示查询面板
IftiAoThen
Timer4.Enabled=False
Timer3.Enabled=True
Else
Timer4.Enabled=True
Timer3.Enabled=False
EndIf
Label4.Enabled=False
Picture4.Visible=True
Picture5.Visible=False
EndSub
PrivateSubLabel4_Click()
Pt.Visible=True
cmdT.Enabled=False
Picture5.Visible=True
Picture4.Visible=False
IfjiSuanThen
Timer6.Enabled=True
Timer5.Enabled=False
Timer1.Enabled=True
Timer8.Enabled=False
Else
Timer6.Enabled=False
Timer5.Enabled=True
Timer8.Enabled=True
Timer1.Enabled=False
EndIf
Picture5.SetFocus
EndSub
'单击返回今天
PrivateSubC_clock_Click()
Text1.Text=Year(Date)
Text2.Text=Month(Date)
Text3.Text=Day(Date)
txt_Sub
disPlay(Date)
EndSub
PrivateSubForm_Activate()
RunMainpicScroll
EndSub
PrivateSubForm_Load()
'===============================================
DimtAsSingle,rtn
Form1.Height=2715
Form1.Width=5400
rtn=SetWindowPos(Form1.hwnd,-1,0,0,0,0,FLAGS)
tip=1
t=Timer
IfMe.Picture<>0ThenCallSetAutoRgn(Me)
tiAo=False
jiSuan=False
'-----------------------------------------------
Picture4.Visible=False
Picture5.Visible=False
'---------------------------------------
'计算器变量初始化
s_mem_B=False
S_mem=0
chk=0
e=""
f=""
op=""
txtDisp.Text="0"
g=1
ShowNumFunPt,wPw2(3),1
ShowNumARGPt,wPw1(3),20
'-----------------------------------------
fhSec3=0
color_index=1
jS=0
picScroll.ForeColor=vbRed
picScroll.FontSize=8
Picture2.Visible=False
color1=1
flAge=False
shxing
'=========================================
Text1.Text=Year(Date)
Text2.Text=Month(Date)
Text3.Text=Day(Date)
txt_Sub
disPlay(Date)
EndSub
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
IfButton=1Then
DimReturnValAsLong
x=ReleaseCapture()
ReturnVal=SendMessage(hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0)
EndIf
EndSub
PrivateSubGz_Click()
End
EndSub
PrivateSubpicScroll_Click()
Picture2.Visible=True
RunMainPicture2
EndSub
PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
IfButton=1Then
DimReturnValAsLong
x=ReleaseCapture()
ReturnVal=SendMessage(hwnd,WM_NCLBUTTONDOWN,HTCAPTION,0)
EndIf
EndSub
PrivateSubPicture2_Click()
Picture2.Visible=False
RunMainpicScroll
EndSub
PrivateSubPicture4_Click()
Timer3.Enabled=True
Timer4.Enabled=False
EndSub
PrivateSubPicture5_Click()
Pt.Visible=False
Timer6.Enabled=True
Timer5.Enabled=False
Timer1.Enabled=True
Timer8.Enabled=False
EndSub
PrivateSubPicture5_KeyPress(KeyAsciiAsInteger)
SelectCaseKeyAscii
Case13
cmdPM_Click
Case48,49,50,51,52,53,54,55,56,57
cmdNum_Click(KeyAscii-48)
Case46
cmdPt_Click
Case42
cmdOp_Click(2)
Case43
cmdOp_Click(0)
Case45
cmdOp_Click(1)
Case47
cmdOp_Click(3)
CaseElse
KeyAscii=0
EndSelect
EndSub
PrivateSubPicture8_Click()
Picture8.Visible=False
EndSub
PrivateSubPt_Click()
Timer6.Enabled=True
Timer5.Enabled=False
Pt.Visible=False
Timer1.Enabled=True
Timer8.Enabled=False
EndSub
PrivateSub
上一篇:
vb公交车查询系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
写作教学评价的整体性的构建论文