家好！
我是 一别深秋
小弟今天第一次做教程，做的不好不要见笑！
我最近在学习网安的VB课程，昨天看到了啊呆做的一个教程，是做了一个毫秒的计时器
我自己想把小时 分钟 和 秒都显示出来，所以就摸索着做了一个小东西>>>>>>>>>>就是它
怎么样，看上去还可以吧，^_^虽然很粗糙，但是毕竟是自己第一个编出来的东西，所以很是兴奋
了一阵。
今天就来给大家演示一下我制作的过程以及代码的编写过程。做这个教程不是卖弄什么，主
要是让和我一样的广大菜鸟们增加自己学习的信心，想学+想做+动手＝成果 当然少不了大侠
的帮助了！我想高手们对这些小东西已经没兴趣了，但对我们菜鸟来说却是一个好的练习方法。
好了，我们开始今天的教程！
首先打开我们的VB6.0 新建一个标准工程 ，然后在窗体上添加用到的控件
1 timer
2 label
3 commandbutton
今天用到的就这三个控件，看我操作了
添加好了之后修改属性 把label的caption都改成0，也就是计时器初始都显示0
好，下面我们来编写代码，让它能实现计时 停止 清零 和退出的功能
为了节省时间，代码我先写好了现在拿过来用
首先是对timer进行编码，这之前要改一下它的属性把Interva的属性设为100，也就是每隔100毫
秒，就触发一次事件；把它的Enabled属性设置为False，也就是让它在窗体载入的时候不起作用
好了，先看看它的代码
Dim a As Long '首先声明了我们要用到的变量
Dim b As Long
Dim c As Long
a = Label1.Caption '把label1的caption属性值赋给a
a = a + 1 '让a每过timer1所设定的时间间隔后就自身加1
Label1.Caption = a '这时候再把a的值赋给label1的caption属性，也就试显示出来
Label2.Caption = a Mod 100 ' 100除a取它的余数显示毫秒 mod的作用就是除完取余数
Label3.Caption = Int(a / 100) '因为timer1的时间间隔是以毫秒为单位的，所以对它除以100换算成秒(我不知道一秒等于多少毫秒，如果等于1000毫秒的话就除以1000哈！呵呵,关键是要弄明白思想！）
b = Label3.Caption '把label3的caption属性值赋给b
Label4.Caption = Int(b / 60) 'label3里面显示的是秒，60秒等于1分钟，通过除以60取整就换算成了分钟显示
c = Label4.Caption
Label5.Caption = Int(c / 60) 'label4里面显示的是分钟，60分钟等于1小时，通过除以60取整就换算成了小时显示
If b >= 60 Then '通过上面的语句我们的程序基本可以运行了。但是当秒和分钟>=60的时候程序不能自动从零开始计时，还是从60往上顺加！所以要通过下面的两条IF语句，让程序在秒和分到达60的时候从零开始计起
Label3.Caption = b Mod 60
End If
If c >= 10 Then
Label4.Caption = c Mod 60
End If
接下来的代码读起来就比较简单了
command1～4的代码
Private Sub Command1_Click()
Timer1.Enabled = True '当单击Command1的时候让timer1开始起作用
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False '当单击Command2的时候让timer1失效
End Sub
Private Sub Command3_Click()
Label1.Caption = "0" '当单击Command3的时候，使label里的内容显示为 0
Label2.Caption = "0"
Label3.Caption = "0"
Label4.Caption = "0"
Label5.Caption = "0"
End Sub
Private Sub Command4_Click()
End '当单击command4的时候，退出程序
End Sub
为了方便大家看教程，我载代码后面都加了注释，大家看下它是怎么样一个运行过程
代码写完了，我们的计时器基本上就完成了，好了，我们来测试一下看看
这里我们把timer1的时间间隔改为1，让时钟运行的快一点
大家看到了label1里面也一直在显示内容，它是作为初始的毫秒显示的，是一直往上顺加的，在
我们的.exe程序中，是不需要显示它的，所以我们可以通过修改它的属性让它隐藏起来，看不到
了吧
最后我们再美化一下我们的小程序，主要还是修改各个控件的属性，看我操作吧 ^_^，还好吧，
其他的美化工作自己去琢磨
最后说一下，看VB的是示例还有动画教程，对学习帮助很大
我在网安的ID是:36381 我的QQ:362651491 希望大家和我多交流
好了今天的教程就到这里8888 |
