admin 管理员组

文章数量: 1086019


2024年3月27日发(作者：数组转字符串 c++)

Dim day, year, month, ddate, ttime As String '定义时间变量

Dim alf(0 To 11) '定义数组

Dim rr '定义变量

Dim ss, hh, mm

Dim i As Integer

Dim nHourLen, nMinLen, nSecLen As Integer '定义时针，分针，秒针长度变

量

Const Pi = 3.1415926 '定义pi常亮

Dim nWidth, alfsec, alfmin, alfhour As Integer

Option Explicit

Private Sub Form_Load()

al = 1000 '设置计时器每隔一秒变换一次

End Sub

Private Sub Timer1_Timer()

rr = / 2

ddate = Format(Now, "mm:dd:yy") '格式化日期变量

ttime = Format(Now, "hh:mm:ss") '格式化时间变量

month = Left(ddate, 2) '读取月

day = Mid(ddate, 4, 2) '读取年

year = Right(ddate, 2) '读取日

ss = Right(ttime, 2) '读取秒

hh = Left(ttime, 2) '读取时针值

mm = Mid(ttime, 4, 2) '读取分

= "20" & year '读取年份

= month '读取月份

= day '读取几号

n = Time '显示当前事件值

nWidth = - 40 '设置表盘半径

nHourLen = nWidth * 4 / 18 '设置时针半径

nMinLen = nWidth * 6 / 18 '设置分针半径

nSecLen = nWidth * 8 / 18 '设置秒针半径

alfsec = ((ss - 15) / 30) * Pi '设置秒针每次转动的角度

alfmin = ((mm + ss / 60 - 15) / 30) * Pi '设置分针每次转动的角度

alfhour = ((hh + mm / 60 + ss / 3600 - 15) / 6) * Pi '设置时针每次转动的角度

h

For i = 0 To 11 '利用循环开始绘制表盘上的刻度

alf(i) = i * 30 * Pi / 180

dth = 1

If i = 0 Or i = 3 Or i = 6 Or i = 9 Then

dth = 3

End If

(rr + (rr - 100) * Cos(alf(i)), rr + (rr - 100) * Sin(alf(i)))-(rr + (rr - 300)

* Cos(alf(i)), rr + (rr - 300) * Sin(alf(i))), RGB(25, 25, 25)

Next i

dth = 3 '设置时针宽度

(rr, rr)-(rr + nHourLen * Cos(alfhour), rr + nHourLen * Sin(alfhour))

'绘制时针

dth = 2 '设置分针宽度

(rr, rr)-(rr + nMinLen * Cos(alfmin), rr + nMinLen * Sin(alfmin)) '绘

制分针

dth = 1

(rr, rr)-(rr + nSecLen * Cos(alfsec), rr + nSecLen * Sin(alfsec))

dth = 5 '设置中心点大小

(rr, rr), RGB(255, 0, 255) '绘制中心点

End Sub


本文标签： 设置 时针 分针 绘制 转动

版权声明：本文标题：VB计时器源代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711526830a598396.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。