多功能電子日歷的開發(fā)—免費(fèi)計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文-文庫吧
2024-11-09 01:14 本頁面
【正文】 teger bmBitsPixel As Integer bmBits As Long End Type Private Const RGN_OR = 2 Dim bmByte() As Byte 39。*************************************** 39。滾動字幕 Private Declare Function DrawText Lib user32 Alias DrawTextA (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long Private Declare Function GetTickCount Lib kernel32 () As Long Const DT_BOTTOM As Long = amp。H8 Const DT_CALCRECT As Long = amp。H400 Const DT_CENTER As Long = amp。H1 Const DT_EXPANDTABS As Long = amp。H40 Const DT_EXTERNALLEADING As Long = amp。H200 Const DT_LEFT As Long = amp。H0 Const DT_NOCLIP As Long = amp。H100 Const DT_NOPREFIX As Long = amp。H800 Const DT_RIGHT As Long = amp。H2 Const DT_SINGLELINE As Long = amp。H20 Const DT_TABSTOP As Long = amp。H80 Const DT_TOP As Long = amp。H0 Const DT_VCENTER As Long = amp。H4 Const DT_WORDBREAK As Long = amp。H10 Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Const ScrollText As String = 19012049 amp。 vbCrLf amp。 _ 多功能電子日 歷 39。*********************************************** Dim EndingFlag As Boolean, jS As Integer Dim e As String Dim f As String Dim g As Double Dim S_mem As Double Dim op As String Dim chk As Integer Const Pi = Private Const SWP_NOMOVE = 2 Private Const SWP_NOSIZE = 1 Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Private Const HWND_TOPMOST = 1 Private Const HWND_NOTOPMOST = 2 Dim flAge As Boolean, color_index As Integer, tiAo As Boolean, jiSuan As Boolean Dim s_mem_B As Boolean, tip As Integer, ziShi As String 39。************************************************** 39。數(shù)字按下、松開 Private Sub cmdNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdNum(Index) End Sub Private Sub cmdNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdNum(Index) End Sub 39。************************************************** 39。角度、弧度 Private Sub cmdOp_1_Click(Index As Integer) Select Case Index Case 0 If g = 1 Then If op = Then e = Str((Val(e) * 180 / Pi)) = e Else f = Str((Val(e) * 180 / Pi)) = f End If chk = 1 g = Pi / 180 End If ShowNumARG Pt, wPw1(3), 19 Case 1 If g 1 Then If op = Then e = Str((Val(e) * Pi / 180)) = e Else f = Str((Val(e) * Pi / 180)) = f End If chk = 1 g = 1 End If ShowNumARG Pt, wPw1(3), 20 Case 2 39。 g = 1 ShowNumARG Pt, wPw1(3), 21 End Select End Sub Private Sub cmdOp_1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOp_1(Index) End Sub Private Sub cmdOp_1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOp_1(Index) End Sub 39。************************************************** 39。單一功能鍵按下、松開 Private Sub cmdops_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P8, cmdOps(Index) End Sub Private Sub cmdops_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Show_b Picture5, P9, cmdOps(Index) End Sub 39。************************************************** 39。單一功能鍵按下、松開 Private Sub cmdOps_Click(Index As Integer) Dim sum As Double, i As Integer On Error GoTo eh1 Select Case Index Case 0 e = Str(Sqr(Val(e))) ShowNumFun Pt, wPw1(3), 10 Ji_suan Case 1 If e 0 Then e = Val(txtDisp) Else e = 0 End If Ji_suan Case 2 e = Str(Sin(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 3 e = Str(Cos(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 4 e = Str(Tan(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 5 e = Str(Atn(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 6 e = Str(1 / Sin(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 7 e = Str(1 / Cos(Val(e) * g)) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 8 e = Str(Exp(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 9 e = Str(Log(Val(e))) ShowNumFun Pt, wPw1(3), Index 1 Ji_suan Case 10 Randomize If op = Then e = Str(9999999999 * Rnd) = e f = Else f = Str(99999999 * Rnd) = f End If ShowNumFun Pt, wPw1(3), Index 1 Case 11 e = Str(1 / Val(e)) Ji_suan *** 第 1123種情況略 **** Case 24 If s_mem_B = False Then If op = Then e = Str(S_mem) = e f = Else f = Str(S_mem) = f End If s_mem_B = True Else S_mem = 0 s_mem_B = False End If End Select Exit Sub eh1: = E e = f = op = End Sub Private Sub cmdAC_Click() g = 1 ShowNumFun Pt, wPw2(3), 1 ShowNumARG Pt, wPw1(3), 20 e = f = op = = 0 End Sub Private Sub cmdAC_MouseDown(Button
公司管理相關(guān)推薦
鄂ICP備17016276號-1