大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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
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位的素数
End Sub
设置字体什么的就不说了,直接在属性卡里面选就好了
双击开始按钮,编辑它的click事件
timer1.enable = true
停止按钮的事件是
timer1.enable = false
然后timer1的ontick是
label1.left = label1.left + 100
if label1.left form1.width then
label1.left = 0
endif
最近正好做一个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有关,所以对用重要的执行任务,还是建议写成服务或独立程序放在服务器上执行好了。