【正文】
Call InitEnd Sub6)工作函數(shù)Private Sub Timer1_Timer()Dim a As IntegerDim b As IntegerDim c As Integer Second = DatePart(s, Time) Minute = DatePart(n, Time) + jiaer Hours = DatePart(h, Time) + jiayi a = DatePart(s, Time) b = DatePart(n, Time) + jiaer c = DatePart(h, Time) + jiayi Call DrawClock Dim Tt As String = c amp。 : amp。 b amp。 : amp。 aEnd Sub(2)信息界面 圖 2界面一主要代碼如下:Private Sub Command1_Click()Unload Me End Sub3 結果分析 運行結果 圖 3 結 論 在設計過程中,我通過查閱大量有關資料,與同學交流經(jīng)驗和自學,并向老師請教等方式,使自己學到了不少知識,也經(jīng)歷了不少艱辛,但收獲同樣巨大。在整個設計中我懂得了許多東西,大大提高了自己的動手能力,使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。雖然這個設計做的也不太好,但是在設計過程中所學到的東西是這次程序設計的最大收獲和財富,使我終身受益。當然,我也深刻地體會到從理論到實踐是很難的過程,特別是在進行具體時間和指針傳動之間的怎么聯(lián)系時,遇到很大的困難,但最后還是通過上網(wǎng)尋求幫助,得以解決。而在怎么樣寫出鐘盤上的時間數(shù)時,則想出了一個看視比較笨的辦法(用標簽再在標簽上寫具體時間數(shù)字),但是確很實用。設計時由于自己的粗心大意帶來的錯誤也不少,所以以后再編程時一定會多加注意這方面的問題。在編程的過程中學到了很多新的東西,例如:怎樣使用菜單編輯器,怎樣將某個窗體在運行時顯示為第一個。當然以前所學的很多知識也得到鞏固,例如對timer事件的使用,對繪圖方法的掌握。通過本次的程序設計設計,要吸取一定的經(jīng)驗,在以后的學習和工作當中就要更加的認真仔細,盡量不讓不該發(fā)生的錯誤發(fā)生,也更應該增加實踐經(jīng)驗和靈活的思維方法,當然,努力學習還是首要的任務,因為只有有了很牢固的知識后才能讓我們做什么事都游刃有余,胸有成竹致 謝 這次課程設計的圓滿完成得到了滕老師還有同學的幫助,在此對我表示感謝.。 參考文獻[1]. Visual ,21世紀教材;[2]. Visual ,21世紀教材;[3]龔沛曾. Visual Baisc程序設計簡明教程(第二版).高等教育出版社,2003[4] ,2004 13