《资料杂谈》动态秒表 免费试读
OptionExplicit
丁克斯龙
迪姆哈斯龙，马斯龙，萨斯龙，姆萨斯龙
DimcjlhAsLong，cjlmAsLong，cjlsAsLong
DimcjlmsAsString
PrivateSubForm_L)
表格1。StartUpPosition=2
1.caption =实时动态秒表(小时:分钟:秒.毫秒)
1.命令=开始
命令。标题=结束[E]
1.对齐= 2中心对齐
标签1。标题=00:00:00.000
定时器1。间隔=10
定时器1。启用=假
标签1。背景色=H0
标签1。ForeColor=HFF00
标签1。Font . Name = ArialRoundedMTBold
标签1。对齐=2
x=0
末端接头
PrivateSubCommand1_Click()
定时器1。启用=真
标签1。Font.Size=24
末端接头
PrivateSubCommand2_Click()
定时器1。启用=假
标签1。Font.Size=14
x=0
1.标签标题= IIF (len (trim (str (h)) 2，0 trim (str (h))，trim (str (h))小时IIF (len (trim (str (m)) 2，0 trim (str (m))和str (m))已运行。
表格1。标题=标签1。标题
末端接头
PrivateSubTimer1 _ Timer()每秒触发100次。
X=x+10单位是毫秒。
cjlh=Int(x/3600000)
H=cjlh采集时间
cjlm = Int((xmod 3600000)/60000))关键在这里。用INT舍入有点奇怪，但如果不用INT，每30秒就会输入1。
M=cjlm获取分钟数
cjls = Int((xmod 3600000)mod 60000)/1000)
S=cjls以获取秒数。
ms =(((xmod 3600000)mod 60000)mod 1000)
IfLen(Trim(Str(ms)))= 2然后
cjlms=0Trim(Str(ms))
结束条件
IfLen(Trim(Str(ms)))= 3然后
cjlms=Trim(Str(ms))
结束条件
cjlms=Left(cjlms，2)Trim(Str(Int(Rnd*9)))
标签1。Caption=IIf(Len(Trim(Str(h)))2，0Trim(Str(h))、Trim(Str(h)))+:+IIf(Len(Trim(Str(m)))2，0Trim(Str(m))、Trim(Str(m)))+:+IIf(Len(Trim(Str(s)))2，0Trim(Str(s))、Trim(Str(s)))+。+cjlms
末端接头
