关于vb.net定时器种类的信息

vb定时器是什么怎么用代码举例 vb循环语句是什么怎么用代码举例 vb判断语句是什么怎么用代码举例

vb定时器就是 timer控件，它的interval属性值控制着两次调用timer控件的Timer事件间隔的毫秒数。

创新互联基于分布式IDC数据中心构建的平台为众多户提供成都服务器托管 四川大带宽租用 成都机柜租用 成都服务器租用。

例如：小程序用定时器控制实现图片自动移位（每隔100毫秒，图片的left和top值发生一次变化。

vb循环语句格式有

for 循环控制变量初值  to  循环控制变量终值 step 控制变量递增（递减）值

循环语句体

next  循环控制变量

作用就是，当循环控制变量不满足终值条件时，执行循环语句体，执行一次后，循环变量值自动递增（递减），然后再判断是否到达终值，如果到达就退出循环，不到达就继续循环。

还有 while…… wend   do…… while  do…… loop until 循环的意思是一样的，就是判断条件与执行顺序有些变化。

例如：打印九九乘法表（循环嵌套）

Private Sub Form_Click()

Dim i, j As Integer

For i = 1 To 9

For j = 1 To 9

Print i * j vbTab;

Next j

Print

Next i

End Sub

vb判断语句格式有

if  条件判断 then  条件为真要执行的语句end if

if 条件判断 then 条件为真要执行的语句 else（elseif）条件为假要执行的语句end if

Select Case 变量名

Case 常数值（情况1）    变量值=常数值（情况1）时 要执行的语句

End Select

例如：

Private SubCommand1_Click()

Dim a As Integer

a = Val(Text1.Text)

If a 1000 Then

Text2.Text = a

ElseIf a 2000 Then

Text2.Text = 0.9 * a

ElseIf a 3000 Then

Text2.Text = 0.8 * a

Else

Text2.Text = 0.7 * a

End If

End sub

改成Select形式

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text)

Select Case Int(a / 1000)

Case 0:     Text2.Text = a

Case 1:     Text2.Text = 0.9 * a

Case 2:     Text2.Text = 0.8 * a

Case Else

       Text2.Text = 0.7 * a

End Select

End Sub

综合应用的例子，找第几个素数

Private Sub Command1_Click()

Dim sum, m, n, ss As Integer 'sum存放找到素数的累计数，n用户输入数值，ss存放素数

Dim f As Boolean            '布尔变量f作为判断是否为素数的标志

sum = 0

ss = 1

n = Val(InputBox("请输入要查找的第n个素数"))  '用户输入要查找的素数位置

While sum n              '循环当前查找到的素数是否为第n位素数

f = True

ss = ss + 1

For m = 2 To ss - 1        '判断ss是否为素数

If Int(ss / m) = ss / m Then

f = False

Exit For

End If

Next m

If f = True Then           '找到一个素数就记一次数

sum = sum + 1

End If

Wend

Print "要查找的第" n "个素数是" ss   '打印输出第n位的素数

Print

End Sub

vb定时器

设置字体什么的就不说了，直接在属性卡里面选就好了

双击开始按钮，编辑它的click事件

timer1.enable = true

停止按钮的事件是

timer1.enable = false

然后timer1的ontick是

label1.left = label1.left + 100

if label1.left form1.width then

label1.left = 0

endif

NET中的三种Timer的区别和用法

最近正好做一个WEB中定期执行的程序，而.NET中有3个不同的定时器。所以正好研究研究。这3个定时器分别是：

//1.实现按用户定义的时间间隔引发事件的计时器。此计时器最宜用于 Windows 窗体应用程序中，并且必须在窗口中使用。

System.Windows.Forms.Timer

// 2.提供以指定的时间间隔执行方法的机制。无法继承此类。

System.Threading.Timer

//3.在应用程序中生成定期事件。

System.Timers.Timer

这

三个定时器位于不同的命名空间内，上面大概介绍了3个定时器的用途，其中第一个是只能在Windows窗体中使用的控件。在.NET1.1里面，第3个

System.Timers.Timer，也是可以拖拽使用，而.NET2.0开始取消了，只能手动编写代码。而后2个没有限制制。下面通过具体的列子来

看3个Timer的使用和区别，网上谈的很多，但基本都没有代码。

一 System.Windows.Forms.Timer

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

private void Form_Timer_Tick(object sender, EventArgs e)

{

label1.Text = (++num).ToString();

Thread.Sleep(3000);

}

private void button1_Click(object sender, EventArgs e)

{

Form_Timer.Start();

}

private void button2_Click(object sender, EventArgs e)

{

Form_Timer.Stop();

}

}

#endregion

上

面这个是一个很简单的功能，在Form窗体上拖了一个System.Windows.Forms.Timer控件名字为Form_Timer，在属性窗中

把Enable属性设置为Ture，Interval是定时器的间隔时间。双击这个控件就可以看到

Form_Timer_Tick方法。在这个方法中，我们让她不停的加一个数字并显示在窗体上，2个按钮提供了对计时器的控制功能。

执行的时候你去点击其他窗体在回来，你会发现我们的窗体失去响应了。因为我们这里使用Thread.Sleep(3000);让当前线程挂起，而UI失去相应，说明了这里执行时候采用的是单线程。也就是执行定时器的线程就是UI线程。

Timer 用于以用户定义的事件间隔触发事件。Windows 计时器是为单线程环境设计的，其中，UI 线程用于执行处理。它要求用户代码有一个可用的 UI 消息泵，而且总是在同一个线程中操作，或者将调用封送到另一个线程。

在Timer内部定义的了一个Tick事件，我们前面双击这个控件时实际是增加了一行代码

this.Form_Timer.Tick += new System.EventHandler(this.Form_Timer_Tick);

这

个应该明白，不明白的可以看我BLOG中有关委托和事件的文章。然后Windows将这个定时器与调用线程关联(UI线程)。当定时器触发

时，Windows把一个定时器消息插入到线程消息队列中。调用线程执行一个消息泵提取消息，然后发送到回调方法中（这里的

Form_Timer_Tick方法）。而这些都是单线程进行了，所以在执行回调方法时UI会假死。所以使用这个控件不宜执行计算受限或IO受限的代码，

因为这样容易导致界面假死，而应该使用多线程调用的Timer。另外要注意的是这个控件时间精度不高，精度限定为 55

毫秒。我们把Interval设置为20ms，然后在start和stop方法中记录当前时，并计算出运行时间：

从上面图可以看到程序执行了7.8S也就是 7800ms,而间隔时间是20ms，也就是最后显示数字应该是390左右，但只有250，显然是不准确的，不过按MSDN说的55ms的精度，7800ms应该只执行了140多次或更少。不知道这里是不是理解有问题。

二 System.Timers.Timer

接下来就看下另一个Timer，我们用他来改写上面的程序

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

DateTime time1 = new DateTime();

DateTime time2 = new DateTime();

//定义Timer

System.Timers.Timer Timers_Timer = new System.Timers.Timer();

private void button1_Click(object sender, EventArgs e)

{

//手动设置Timer，开始执行

Timers_Timer.Interval = 20;

Timers_Timer.Enabled = true;

Timers_Timer.Elapsed += new System.Timers.ElapsedEventHandler(Timers_Timer_Elapsed);

time1 = DateTime.Now;

}

void Timers_Timer_Elapsed(object sender, System.Timers.ElapsedEventArgs e)

{

label1.Text = Convert.ToString((++num)); //显示到lable

Thread.Sleep(3000);

}

private void button2_Click(object sender, EventArgs e)

{

//停止执行

Timers_Timer.Enabled = false;

time2 = DateTime.Now;

MessageBox.Show(Convert.ToString(time2-time1));

}

}

#endregion

我

们可以看到这个代码和前面使用Form.Timer的基本相同，不同的是我们是手动定义的对象，而不是通过拉控件。他也有Interval

，Enabled 等属性，作用和第一是一样的。不同的是他的事件名为Elapsed

，但是和上面的Tick一样，绑定一个委托的方法。只是这里我们是手动完成的。另外不同之处是Form.Timer我们可以用Stop和Start方法控

制，而这里是通过Enable属性控制。但实际上也可以用Stop和Start方法，内部也是通过他自己的Enable来控制的。

最大的不同就

是上面的代码在调试时会报错，提示你"线程间操作无效:

从不是创建控件“label1”的线程访问它。"但如果你不调试直接运行是OK的，而且运行时你去拖动窗体会发现没有出现假死。从这里我们就可以知道这里

的Timer的创建线程和执行线程不是同一个线程。也就是使用了多线程。Timer的创建线程是UI线程，而执行线程是TheardPool中的线程，所

以不会假死，但调试的时候会报错，因为非控件的创建线程不能操作控件。但你可以直接运行，这里是VS05做了手脚。解决办法很多，用

delegate.BeginInvoke()等等。这里介绍特有的一种方法，设置Timer的SynchronizingObject属

性，Timers_Timer.SynchronizingObject =

label1;这样的话，我们的话，调试运行时就不会报错了，但是设置了这个属性Timer就编程单线程调用了，就基本和第一个完全一样了。

Timer

是为在多线程环境中用于辅助线程而设计的。服务器计时器可以在线程间移动来处理引发的 Elapsed 事件，这样就可以比 Windows

计时器更精确地按时引发事件。Elapsed 事件在 ThreadPool 线程上引发。如果 Elapsed 事件的处理时间比 Interval

长，在另一个 ThreadPool 线程上将会再次引发此事件。因此，事件处理程序应当是可重入的。

另外和前面不同的现象是每次加1后并没有停止3秒在显示。而是继续显示，只是速度稍慢。因为我们设置间隔为20ms，而执行时间为3s，所以会在20ms后在另一个线程中继续执行，而当前线程被挂起而已。关于计时器的精度，取消3s的挂起，发现结果和第一个基本一致。

三 System.Threading.Timer

继续用这个对象改造程序。

#region System.Windows.Forms.Timer

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

int num = 0;

DateTime time1 = new DateTime();

DateTime time2 = new DateTime();

System.Threading.Timer Thread_Time;

private void button1_Click(object sender, EventArgs e)

{

//启动

Thread_Time = new System.Threading.Timer(Thread_Timer_Method,null,0,20);

time1 = DateTime.Now;

}

void Thread_Timer_Method(object o)

{

label1.Text = Convert.ToString((++num));

System.Threading.Thread.Sleep(3000);

}

private void button2_Click(object sender, EventArgs e)

{

//停止

Thread_Time.Dispose();

time2 = DateTime.Now;

MessageBox.Show(Convert.ToString(time2-time1));

}

}

#endregion

用Threading.Timer时的方法，和前面就不太相同了，所以的参数全部在构造函数中进行了设置，而且可以设置启动时间。而且没有提供start和stop方法来控制计时器。而且是以一种回调方法的方式实现，而不是通过事件来实现的。他们之间还是有区别的。

我

们只有销毁掉对象来停止他。当你运行时，你会发现他和前面的Timers.Timer一样，是多线程的，主要表现在不会假死，调试运行报错。但跟让你奇怪

的是，我们的代码竟然无法让她停止下来。调用了Dispose方法没有用。问题在那？然后有进行了测试，修改了间隔时间为

100，200，500，1000，3000，4000。这几种情况。发现当间隔为500ms以上是基本马上就停止了。而间隔时间相对执行时间越短，继续

执行的时间越长。这应该是在间隔时间小于执行时间时多个线程运行造成的。因为所有的线程不是同时停止的。间隔越短，线程越多，所以执行次数越多。

最后来看下这个对象另外一个特殊的地方。

static void Main()

{

Timer t = new Timer(Test,null,0,1000);

Console.ReadLine();

}

public static void Test(object o)

{

Console.WriteLine("nihao");

GC.Collect();

}

这

段代码会输出什么结果呢？默认情况他只输出一次，就停止了。为什么呢？根据上面说的，当定义对象t,执行代码后，进行了强制垃圾回收，因为t在Main中

没有其他引用，所以被回收掉了。但是如果我们吧编译器的”优化“项取消掉，在看看情况。程序进然一直在输出。为什么执行垃圾回收却没有被回收呢？因为这个

禁用优化选项，t的声明周期被扩展到了方法结束。所以一直执行。

因为编译器默认是优化的，所以我们必须保证Timer对象一直被引用，而避免被

垃圾回收。所以我们可以在编译器打开优化的情况下，在Main函数最后加上t=null保证回收前被引用，但你发现，这样是没用的。因为JIT编译器优化

后会吧t=null直接删除，所以我们用t.Dispose(),就可以达到目的。在我们进行垃圾回收时，CLR发现t还有被引用，还没执行

Dispose所以不会被回收。是以Threading.Timer有时候会出现运行一次就停止或者是销毁了还在运行的情况，而且和编译器优化也有关，所

以使用时要注意。

最后看下MSDN的描述： 只要在使用 Timer，就必须保留对它的引用。对于任何托管对象，如果没有对 Timer

的引用，计时器会被垃圾回收。即使 Timer 仍处在活动状态，也会被回收。当不再需要计时器时，请使用 Dispose

方法释放计时器持有的资源。如果希望在计时器被释放时接收到信号，请使用接受 WaitHandle 的 Dispose(WaitHandle)

方法重载。计时器已被释放后，WaitHandle 便终止。

总结：

System.Threading.Timer

是一个简单的轻量计时器，它使用回调方法并由线程池线程提供服务。不建议将其用于 Windows

窗体，因为其回调不在用户界面线程上进行。System.Windows.Forms.Timer 是用于 Windows

窗体的更佳选择。要获取基于服务器的计时器功能，可以考虑使用 System.Timers.Timer，它可以引发事件并具有其他功能。

在

《CLR Via

C#》中讲多线程时有提到这3个计时器，但作者说System.Timers.Timer是对System.Threading.Timer的报装，不推

荐使用，但是在我的WEB项目中的Application_Start中我还是使用的这个而不是Threading.Timer，因为使用

Threading.Timer时只执行了一次就不在执行了。

对于计时器在B/S结构中的使用就复杂一些，一般我们把计时器放在

Application_OnStart中，这样全局维护一个计时器，可以进行定期备份数据库，定期维护用户等操作，而且方法写作静态的，以免被垃圾回

收。而不建议在一般的aspx页面中使用，因为服务器端的定时器对用户这样意义不大，完全可以使用JS代替。而且这个页面的每个请求都可能引入一个新的定

时器，导致系统崩溃。另外，定时器是ASP.NET进程，IIS有关，所以对用重要的执行任务，还是建议写成服务或独立程序放在服务器上执行好了。