有vb高手吗,帮我改下_派派后花园

用户中心 游戏论坛 社区服务
发帖 回复
阅读:1039 回复:2

[求助] 有vb高手吗,帮我改下

刷新数据 楼层直达
Frimy

ZxID:10840896


等级: 热心会员
配偶: 神风一树
弃世而去吧。另外提问,论坛网页游戏,怎么进入?
举报 只看楼主 使用道具 楼主   发表于: 2010-06-20 0
Private Sub Timer1_Timer()
    Const HH = 0
    Const MH = 13
    Const SH = 14
    Dim Angle
    Static LS
    If Second(Now) = LS Then Exit Sub
        LS = Second(Now)
        Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))                    '设置时针
        Line1(HH).X1 = 0
        Line1(HH).Y1 = 0
        Line1(HH).X2 = 0.3 * Cos(Angle)
        Line1(HH).Y2 = 0.3 * Sin(Angle)
        Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))                      '设置分针
        Line1(MH).X1 = 0
        Line1(MH).Y1 = 0
        Line1(MH).X2 = 0.7 * Cos(Angle)
        Line1(MH).Y2 = 0.7 * Sin(Angle)
        Angle = 0.5236 * (75 Second(Now))          '设置秒针
        Line1(SH).X1 = 0
        Line1(SH).Y1 = 0
        Line1(SH).X2 = 0.8 * Cos(Angle)
        Line1(SH).Y2 = 0.8 * Sin(Angle)
        Form1.Caption = Str(Now())      '窗口显示精确的日期和数字化的时间
End Sub

这个地方总是错误,我不会改了,有会的吗,帮帮我,谢谢
lijd

ZxID:801961

等级: 职业撰稿
举报 只看该作者 板凳   发表于: 2011-04-21 0
 
norasoul

ZxID:8617637

等级: 热心会员
举报 只看该作者 沙发   发表于: 2010-06-20 0
Angle = 0.5236 * (75 Second(Now))

不算高手。。
但是 75和Second(Now)的运算关系式什么啊?
发帖 回复