大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

关于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有关,所以对用重要的执行任务,还是建议写成服务或独立程序放在服务器上执行好了。


本文名称:关于vb.net定时器种类的信息
文章分享:http://dzwzjz.com/article/phscoh.html
在线咨询
服务热线
服务热线:028-86922220
TOP