vb時鐘模擬的課程設計報告(編輯修改稿)
2025-04-19 00:35 本頁面
【文章內(nèi)容簡介】 OldMY2), BackColor (x1, y1)(x2, y2)OldMX1 = x1OldMX2 = x2OldMY1 = y1OldMY2 = y2Case 2 = 3 (OldHX1, OldHY1)(OldHX2, OldHY2), BackColor (x1, y1)(x2, y2)OldHX1 = x1OldHX2 = x2OldHY1 = y1OldHY2 = y2Case Else (x1, y1)(x2, y2)End SelectEnd SubPrivate Sub Form_Resize()（當窗體大小發(fā)生改變時，重新繪制表盤）ClsCall biaopanEnd Sub4 Timer控件代碼如下Private Sub Timer1_Timer()Call DrawClock = Time()End 5 修改時間控件代碼如下Private Sub Command1_Click() = True MsgBox 請輸入要修改的時間,輸入的數(shù)字必須符合時間格式 End Sub6 確認修改控件代碼如下Private Sub Command4_Click()Time() = = End Sub7 退出控件代碼如下Private Sub Command2_Click()EndEnd Sub總結 這次課設我的題目是時鐘模擬，通過這次課設讓我了解了VB可以畫出許多圖形，并且可以將其與Timer控件聯(lián)系起來，是圖形能夠運動起來。還可以運用一些顏色函數(shù)給予圖形色彩，使圖形更加美觀生動。 在課設過程中，我遇到了重重困難，例如：怎樣畫出時鐘和指針的形狀以及標注表盤刻度。還有，怎樣設計Timer的內(nèi)部代碼以使時鐘能夠運行。通過老師的指點和自己查閱資料，我克服了困難，順利的完成了任務。 同時我也了解了VB的出現(xiàn)是一場技術革命，它在生活中各個方面都能發(fā)揮巨大的作用，而且它也是理論聯(lián)系實踐的一個重要環(huán)節(jié)，培養(yǎng)了我們獨立的創(chuàng)新思維能力。完整的源程序Const PI = Dim BaseX As Integer, BaseY As Integer, R As IntegerPrivate Sub Command1_Click() = True MsgBox 請輸入要修改的時間,輸入的數(shù)字必須符合時間格式 End SubPrivate Sub Command2_Click()EndEnd SubPri
醫(yī)療健康相關推薦
鄂ICP備17016276號-1