計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì)說明書(vb時(shí)鐘程序)畢業(yè)論文(編輯修改稿)
2025-07-19 15:23 本頁面
【文章內(nèi)容簡(jiǎn)介】 d SubPrivate Sub Command2_Click() End SubPrivate Sub Command3_Click()jiayi = jiayi + 1End SubPrivate Sub Command4_Click()jiaer = jiaer + 1End SubPrivate Sub Command5_Click()jiayi = jiayi 1End SubPrivate Sub Command6_Click()jiaer = jiaer 1End Sub2）Command7代碼Private Sub Command7_Click()jiayi = 0jiaer = 0End Sub3）加載界面時(shí)公用代碼Private Sub Form_Load() = 3 = True = vbBlack = Time = vbRed = vbRed = vbRed = vbRed If 3000 Then = 3000 If 3000 Then = 3000End Sub4）畫指針用函數(shù)Private Sub Init()Dim i As Integer BaseX = / 2 BaseY = / 2 If BaseX BaseY Then R = BaseY * If BaseY BaseX Then R = BaseY * r1 = R * r2 = R * r3 = R * For i = 0 To 360 Step 6 If i Mod 30 = 0 Then = 5 DrawLine BaseX + (R 3) * Sin(i * PI / 180), BaseY (R 3) * Cos(i * PI / 180), BaseX + (R 8) * Sin(i * PI / 180), BaseY (R 8) * Cos(i * PI / 180), 3 Else = 3 (BaseX + (R 3) * Sin(i * PI / 180), BaseY (R 3) * Cos(i * PI / 180)) End If Next i = 1 (BaseX, BaseY), REnd Sub5）畫外部表盤函數(shù)Private Sub DrawClock() If Hours 12 Then Hours = Hours 12 End If = 1 (BaseX, BaseY), 4 DrawLine BaseX r1 * Sin(
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1