vb時鐘模擬的課程設(shè)計報告(編輯修改稿)
2025-02-13 13:31 本頁面
【文章內(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()（當(dāng)窗體大小發(fā)生改變時，重新繪制表盤）ClsCall biaopanEnd Sub4 Timer控件代碼如下Private Sub Timer1_Timer()Call DrawClock = Time()End 5 修改時間控件代碼如下Private Sub Command1_Click() = True MsgBox 請輸入要修改的時間,輸入的數(shù)字必須符合時間格式 End Sub6 確認(rèn)修改控件代碼如下Private Sub Command4_Click()Time() = = End Sub7 退出控件代碼如下Private Sub Command2_Click()EndEnd Sub總結(jié) 這次課設(shè)我的題目是時鐘模擬，通過這次課設(shè)讓我了解了VB可以畫出許多圖形，并且可以將其與Timer控件聯(lián)系起來，是圖形能夠運(yùn)動起來。還可以運(yùn)用一些顏色函數(shù)給予圖形色彩，使圖形更加美觀生動。 在課設(shè)過程中，我遇到了重重困難，例如：怎樣畫出時鐘和指針的形狀以及標(biāo)注表盤刻度。還有，怎樣設(shè)計Timer的內(nèi)部代碼以使時鐘能夠運(yùn)行。通過老師的指點和自己查閱資料，我克服了困難，順利的完成了任務(wù)。 同時我也了解了VB的出現(xiàn)是一場技術(shù)革命，它在生活中各個方面都能發(fā)揮巨大的作用，而且它也是理論聯(lián)系實踐的一個重要環(huán)節(jié)，培養(yǎng)了我們獨(dú)立的創(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
研究報告相關(guān)推薦
鄂ICP備17016276號-1