指针式时钟不明白怎么该 - C语言论坛

insoyang

等　级：新手上路
帖　子：4
专家分：0
注　册：2011-5-5
结帖率：0

楼主

已结贴√ 问题点数：10 回复次数：3

指针式时钟不明白怎么该

Private Sub Form_Load()
    pi = 3.14159265358979
    cx = Me.ScaleWidth / 2
    cy = Me.ScaleHeight / 2
    Scale (-cx, cy)-(cx, -cy)
    For I = 1 To 12
        alf = pi * (I - 1) / 6
        Load Line4(I)
        Line4(I).X1 = 1000 * Cos(alf)
        Line4(I).Y1 = 1000 * Cos(alf)
        Line4(I).X2 = 1200 * Cos(alf)
        Line4(I).Y2 = 1200 * Cos(alf)
        Line4(I).Visible = Ture
        Next I
End Sub

Private Sub Form_Paint()
    Circle (0, 0), 1400
End Sub

Private Sub Timer1_Timer()
    hh = Hour(Time) Mod 12
    mm = Minute(Time)
    ss = Second(Time)
    alf = ss * pi / 30 + pi / 2
    Line3.X1 = 100 * Cos(alf)
    Line3.Y1 = -100 * Sin(alf)
    Line3.X2 = 1000 * Cos(alf - pi)
    Line3.Y2 = -1000 * Sin(alf - pi)
    alf = mm * pi / 30 + pi / 2
    Line2.X1 = 100 * Cos(alf)
    Line2.Y1 = -100 * Sin(alf)
    Line2.X2 = 900 * Cos(alf - pi)
    Line2.Y2 = -900 * Sin(alf - pi)
    alf = hh * pi / 6 + mm * pi / 360 + pi / 2
    Line1.X1 = 100 * Cos(alf)
    Line1.Y1 = -100 * Sin(alf)
    Line1.X2 = 700 * Cos(alf - pi)
    Line1.Y2 = -700 * Sin(alf - pi)
End Sub

图片附件: 游客没有浏览图片的权限，请登录或注册

Private Sub Form_Load()
    pi = 3.14159265358979
    cx = Me.ScaleWidth / 2
    cy = Me.ScaleHeight / 2
    Scale (-cx, cy)-(cx, -cy)
    For I = 1 To 12
        alf = pi * (I - 1) / 6
        Load Line4(I)
        Line4(I).X1 = 1000 * Cos(alf)
        Line4(I).Y1 = 1000 * Cos(alf)
        Line4(I).X2 = 1200 * Cos(alf)
        Line4(I).Y2 = 1200 * Cos(alf)
        Line4(I).Visible = Ture
        Next I
End Sub

Private Sub Form_Paint()
    Circle (0, 0), 1400
End Sub

Private Sub Timer1_Timer()
    hh = Hour(Time) Mod 12
    mm = Minute(Time)
    ss = Second(Time)
    alf = ss * pi / 30 + pi / 2
    Line3.X1 = 100 * Cos(alf)
    Line3.Y1 = -100 * Sin(alf)
    Line3.X2 = 1000 * Cos(alf - pi)
    Line3.Y2 = -1000 * Sin(alf - pi)
    alf = mm * pi / 30 + pi / 2
    Line2.X1 = 100 * Cos(alf)
    Line2.Y1 = -100 * Sin(alf)
    Line2.X2 = 900 * Cos(alf - pi)
    Line2.Y2 = -900 * Sin(alf - pi)
    alf = hh * pi / 6 + mm * pi / 360 + pi / 2
    Line1.X1 = 100 * Cos(alf)
    Line1.Y1 = -100 * Sin(alf)
    Line1.X2 = 700 * Cos(alf - pi)
    Line1.Y2 = -700 * Sin(alf - pi)
End Sub

搜索更多相关主题的帖子: 1200　