vb時鐘模擬的課程設(shè)計報告-wenkub
2023-04-07 00:35:47 本頁面
【正文】 3) * Sin(i * PI / 180), BaseY (R 3) * Cos(i * PI / 180)), vbBlue End If Next i = 1 (BaseX, BaseY), R, vbRedEnd SubPrivate Sub DrawClock()Dim S As IntegerDim M As IntegerDim H As IntegerS = DatePart(s, Time)M = DatePart(n, Time)H = DatePart(h, Time)If H 12 ThenH = H 12End If = 1DrawLine BaseX, BaseY, BaseX + (R 10) * Sin(S * PI / 30), BaseY (R 10) * Cos(S * PI / 30), 0DrawLine BaseX, BaseY, BaseX + R * * Sin(M * PI / 30), BaseY R * * Cos(M * PI / 30), 1DrawLine BaseX, BaseY, BaseX + R * * Sin((H + M / 60) * PI / 6), BaseY R * * Cos((H + M / 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 = 1 (OldSX1, OldSY1)(OldSX2, OldSY2), BackColor (x1, y1)(x2, y2)OldSX1 = x1OldSX2 = x2OldSY1 = y1OldSY2 = y2Case 1 = 2 (OldMX1, OldMY1)(
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1