【正文】 13 日至 2020 年 11 月 15 日共 10 周 指 導(dǎo) 教 師 簽 字 院長(zhǎng) (系主任 )簽 字 2020 年 10 月 25 日 多功能電子日歷 的開發(fā) 成人教育學(xué)院 05 級(jí)計(jì)算機(jī)信息管理（專） 陳俊 202020200115 李劍 畢業(yè)設(shè)計(jì)（論文）誠(chéng)信聲明 本人鄭重聲明：所呈交的畢業(yè)設(shè)計(jì)（論文）是我 個(gè)人在導(dǎo)師指導(dǎo)下進(jìn)行的研究工作及取得的研究成果。 本人簽名 ____陳俊 ______ 導(dǎo)師簽名 __________ 2020 年 10 月 25 日 I I 目 錄 摘 要 …………………………………………………………… 2 關(guān)鍵字 …………………………………………………………… 2 前 言 …………………………………………………………… 3 第一章 VB 語言概述 ...................................4 1． VB 簡(jiǎn)介 .......................................4 1． VB語言的基本特點(diǎn)及 VB 應(yīng)用程序的基本持點(diǎn) .......4 1． 為何我選擇 VB作為開發(fā)語言 ......................5 1． 應(yīng)用的基本開發(fā)方法 ........................6 第二章 用 VB 開發(fā)多功能日歷程序 ........................7 2． 本程序運(yùn)行界面簡(jiǎn)介 ..............................7 2． 本程序部分控件的設(shè)置 ............................8 2． 主程序部分代碼 ..................................10 第三章 畢業(yè)設(shè)計(jì)總結(jié) ...................................56 第四章 謝辭 ..........................................57 第五章 主要參考文獻(xiàn) …………………………………………… .58 第六章 附錄 ……………………………………………………… 59 . 2 2 摘 要 在日常生活和工作中經(jīng)常有人用到農(nóng)歷和公歷的查詢問題。單擊時(shí)鐘數(shù)字將返回到今天。 Windows 系統(tǒng)的推出使電腦從高雅的學(xué)術(shù)殿堂走入了尋常百姓家，各行各業(yè)的人們無須經(jīng)過特別的訓(xùn)練就能夠使用電腦 完成許許多多復(fù)雜的工作。 Visual Basic 繼承了 Basic 語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。 4 4 第一章 VB 語言概述 一、 VB 簡(jiǎn)介 VB 是微軟公司出品的一個(gè)快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位， VB在短短的幾年內(nèi)風(fēng)靡 全球。 VB 為用戶提供大量的界面元素 (在 VB 中稱為控件對(duì)象 ),這些控件對(duì)象對(duì)于熟悉 Windows 應(yīng)用程序的用戶而言是一 點(diǎn)也不陌生 ,如 窗體 、 菜單 、 命令按鈕 、工具按鈕 、 檢查框 等等 ,用戶只需要利用鼠標(biāo)、鍵盤把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?,設(shè)置它們的大小、形狀、屬性等 ,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。Visual C++是為專業(yè)程序設(shè)計(jì)員提供的開發(fā)工具 ,變量聲明和定義嚴(yán)密 ,功能強(qiáng)大靈活 ,必須經(jīng)過相當(dāng)?shù)呐Σ拍苷莆?。 中央電大陳明主編的 《 Visual Basic 程序設(shè)計(jì) 》 是計(jì)算機(jī)應(yīng)用專業(yè)采用的一本難得的教材 ,使我受益匪淺。 在大多數(shù)語言里 ,如果編寫代碼時(shí)發(fā)生了錯(cuò)誤 ,則在開始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲。 除即時(shí)捕獲錯(cuò)誤以外 ,VB 也在輸入代碼時(shí)部分地編譯該代碼。 由于 VB 的交互特性 ,因此在開發(fā)應(yīng)用程序時(shí) ,系統(tǒng)頻繁地運(yùn)行著應(yīng)用程序。單擊屬相標(biāo)志可以退出程序。*************************************** 39。*************************************** 39。H1 Const DT_EXPANDTABS As Long = amp。H100 Const DT_NOPREFIX As Long = amp。H80 Const DT_TOP As Long = amp。 vbCrLf amp。數(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。 Trim(Str(Index)) = e Else f = f amp。顯示查詢面板 21 21 If tiAo Then = False = True Else = True = False End If = False = True = False End Sub Private Sub Label4_Click() = True = False = True = False If jiSuan Then = True = False = True = False Else = False = True = True = False End If End Sub 39。 39。 temP = sdayF(Year(kDay), Month(kDay), Day(kDay)) = seaSonYxr(kDay) temP1 = Val(Trim(Mid(temP, 1, 4))) temP2 = Trim(Mid(temP, 10, 2)) temP3 = Trim(Mid(temP, 20, 2)) temP4 = Trim(Mid(temP, 9, 1)) temP5 = Trim(Mid(temP, 17, 3)) If temP5 = Big Then temP5 = 大 Else temP5 = 小 End If If temP4 = Y Then ziShi = yTGDZ(temP1) + 年 潤(rùn) + nStr1(Val(temP2)) + 月 + temP5 + sdayF_gzr(kDay) + 日 Else ziShi = yTGDZ(temP1) + 年 + sdayF_gzm(temP1, Val(temP2)) + 月 + temP5 + sdayF_gzr(kDay) + 日 End If ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 1, 1)), 1, 1 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 2, 1)), 1, 2 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 3, 1)), 1, 3 ShowNum wPw1(color_index), N_y, Val(Mid(Trim(Str(temP1)), 4, 1)), 1, 4 ShowNumGz wPw1(6), Gz, ((temP1 1900) Mod 12), 1, 1 mY1 = Val(Left(temP2, 1)) mY2 = Val(Right(temP2, 1)) ShowNum wPw1(color_index), N_m, mY1, color1, 1 ShowNum wPw1(color_index), N_m, mY2, 1, 2 dY1 = Val(Left(temP3, 1)) dY2 = Val(Right(temP3, 1)) 30 30 ShowNum wPw1(color_index), N_d, dY1, 1, 1 ShowNum wPw1(color_index), N_d, dY2, 1, 2 = 今日是 : + llFtv(Val(temP2), Val(temP3)) = Str(Len(Trim(temP))) + + Str(LenB(Trim(temP))) + + temP + vbCrLf + Str(temP1) + + Str(temP2) + + Str(temP3) 39。err MsgBox Error scrolling text, vbExclamation EndingFlag = True Else = = 0 = RectHeight = 31 31 = + End If Do While Not EndingFlag If GetTickCount() LastFrameTime IntervalTime Then DrawText , ScrollText, 1, DrawingRect, DT_CENTER 39。 + 1 If 2745 Then = False = True = True End If End Sub Private Sub Timer4_Timer() Dim hei, w, h tiAo = True If 5065 Then 32 32 = False Else = + 50 hei = ScaleY(, vbTwips, vbPixels) 39。 Str(ScaleY(, vbTwips, vbPixels)) amp。 + 1 Else = + 50 hei = Int(ScaleY(, vbTwips, vbPixels)) 39。 Str(hei) = hei 39。 Str(ScaleY(, vbTwips, vbPixels))