計(jì)算機(jī)應(yīng)用基礎(chǔ)課程設(shè)計(jì)說明書(vb時(shí)鐘程序)畢業(yè)論文-在線瀏覽
2025-08-09 15:23本頁面
【正文】 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(Second * PI / 30), BaseY + r1 * Cos(Second * PI / 30), BaseX + (R 10) * Sin(Second * PI / 30), BaseY (R 10) * Cos(Second * PI / 30), 0 DrawLine BaseX r2 * Sin(Minute * PI / 30), BaseY + r2 * Cos(Minute * PI / 30), BaseX + R * * Sin(Minute * PI / 30), BaseY R * * Cos(Minute * PI / 30), 1 DrawLine BaseX r3 * Sin((Hours + Minute / 60) * PI / 6), BaseY + r3 * Cos((Hours + Minute / 60) * PI / 6), BaseX + R * * Sin((Hours + Minute / 60) * PI / 6), BaseY R * * Cos((Hours + Minute / 60) * PI / 6), 2End SubPrivate Sub DrawLine(x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer, Flag As Integer)Static OldSX1 As Integer, OldSX2 As Integer, OldSY1 As Integer, OldSY2 As IntegerStatic OldMX1 As Integer, OldMX2 As Integer, OldMY1 As Integer, OldMY2 As IntegerStatic OldHX1 As Integer, OldHX2 As Integer, OldHY1 As Integer, OldHY2 As IntegerSelect Case FlagCase 0 = 2 (OldSX1, OldSY1)(OldSX2, OldSY2), BackColor (x1, y1)(x2, y2), vbBlackOld
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1