大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你没有明白Timer控件的工作原理:
创新互联建站是一家专业提供晋宁企业网站建设,专注与成都做网站、成都网站建设、H5高端网站建设、小程序制作等业务。10年已为晋宁众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
你可以按照下面代码,做一个实验,然后体会,关键:
Timer控件按照其Interval设置的值,每间隔一定的时间,自动触发其Tick事件。
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
End Class
需要准备的工具:电脑,VB6.0程序设计软件。
1、首先打开VB6.0程序设计软件,到程序新建工程主界面,如下图:
2、然后双击新建工程里的”标准 exe“进入工程1(forml)如下图:
3、在左边工具栏窗体上先加载一个计时器控件 如图:
4、加载好计时器控件后,我们在当前计时器控件下面加载一个标签。
5、为了使加载的标签在运行时能把它看清楚,通过修改右边属性”Bordarstyle"里面的属性”0“改选为”1“使标签边框凹陷下去 ,如图:
6、接下来,我们将当前标签右边的属性名称改为”L1“如图:
7、我们开始修改计时器的属性,接下来我们把计时器控件当前的”interval“的属性设置成”1000“ 毫秒,就是1秒钟让它产生一次事件,如图 :
8、双击计时器控件,开始编写计时器程序,”L1.caption=time”如图:
9、然后返回“form"窗口,点击运行,一个简单的计时器软件就做好了。
1、开机进入桌面后,按下“Windows徽标键+I”键,选中并打开“控制面板”
2、在“控制面板”中的“系统和安全”里,选中“管理工具”里的“计划任务”,并打开“计划任务”
3、在“任务计划程序”里,打开“创建任务”
4、在“创建任务”的“常规”中,根据相应需求设置,比如“名称:定时关机”
5、在“创建任务”的“触发器”中,点“新建”,并在“新建触发器”中,根据相应需求设置后,点“确定”
6、在“创建任务”的“操作”中,点“新建”,并在“新建操作”中的“程序或脚本”里,根据下图依次输入“shutdown”和“-s”后,“点“确定”
7、在“创建任务”的“条件”中,根据相应需求设置
8、在“创建任务”的“设置”中,根据相应需求设置后,点“确定”
9、这时“定时关机”的任务已创建完成!
请参考:
Dim eTime As DateTime
Dim sTime As DateTime
sTime = DateTime.Now()
For i As Integer = 0 To 100000
Next i
eTime = DateTime.Now()
Dim Scound As Double = Math.Round(((eTime - sTime).TotalMilliseconds() / 1000), 4)
MessageBox.Show("当前循环总计用时:" + Scound.ToString() + " 秒")
也可以使用Stopwatch
Dim stopWatch As New Stopwatch()
'添加一个label标签名字label1 用来显示时间
'再添加一个timer控件 名字timer1 interval属性=1000 用来计时
'窗体添加代码
Dim t As Date '用来记录时间
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登录时间:" t.TimeOfDay.ToString
End Sub
简单的说Timer是一个时间的控件, 不能说Timer的值等於2秒时,因为Timer相当於时间,只能说当Timer跳动两秒时触发某事件。 代码如下: ' 首先要确定启动控件 Me.Timer1.Enabled = True’启动控件 Me.Timer1.Interval = 1000‘设定跳动频为1秒。