几行代码就实现一个图形时钟程序 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 几行代码就实现一个图形时钟程序

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1340 人关注过本帖

标题：几行代码就实现一个图形时钟程序

取消只看楼主加入收藏

ioriliao

来　自：广东
等　级：贵宾
威　望：32
帖　子：2829
专家分：647
注　册：2006-11-30
结帖率：78.95%

楼主

问题点数：0 回复次数：2

几行代码就实现一个图形时钟程序

源码:

时钟.rar (7.97 KB)

效果:

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

程序代码：

Private Const PI = 3.14159265

Private Sub Form_Load()
   Me.Scale (-2000, 2000)-(2000, -2000)
End Sub

Private Sub Timer1_Timer()
    Me.Cls
    For i = 0 To 360 Step 30
        Me.DrawWidth = 5
        Me.PSet (Sin(PI / 180 * i) * 500, Cos(PI / 180 * i) * 600), vbGreen
    Next
    Me.DrawWidth = 1
    Me.Line (-2000, 0)-(2000, 0), vbBlack
    Me.Line (0, 2000)-(0, -2000), vbBlack
    Me.DrawWidth = 2
    '秒
    Me.Line (0, 0)-(Sin(PI / 180 * Second(Now) * 6) * 500, Cos(PI / 180 * Second(Now) * 6) * 500), vbRed
    '分
    Me.Line (0, 0)-(Sin(PI / 180 * Minute(Now) * 6) * 400, Cos(PI / 180 * Minute(Now) * 6) * 400), vbYellow
    '时
    Me.Line (0, 0)-(Sin(PI / 180 * Hour(Now) * 30) * 300, Cos(PI / 180 * Hour(Now) * 30) * 300), vbBlack
End Sub