编写timer事件代码（用C++Builder编写定时关机程序）

本文目录

• 用C++Builder编写定时关机程序
• VB中timer控件每隔一小时事件发生一次 代码
• vb6.0中,想要编写一段代码,在窗体载入后开始记时,10秒后触发某事件,怎么写
• 设计表单，请用VFP语言写出Timer1的timer事件代码
• c# timer_Tick事件有什么用Timer控件怎么用
• c# 用代码编写一个timer
• vfp表单设计中如何用代码编写对象的事件程序

用C++Builder编写定时关机程序

从internet下载较大的软件时，由于目前网络带宽的原因，许多人喜欢在晚间进行，而到深夜时就存在人需要休息的问题。目前绝大多数下载软件可以估算出下载所需的时间，如果到时让计算机自动关机，就可以免受守候之苦。本文介绍笔者用c＋＋ builder 5编写的一个能实现定时自动关机的程序。
程序功能
组件设置
向窗体上放置两个tgroupbox组件：groupbox1和groupbox2，其caption属性分别设置为“当前系统时间”和“预设关机时间”。在这两个组件上再放置4个tdatetimepicker组件：datetimepicker1、datetimepicker2和datetimepicker3、datetimepicker4，其中前两个分别用于显示当前系统的日期和时间，后两个用于设置自动关机的日期和时间，它们的部分属性值设置如下表所示：
在窗体上放置一个tcheckbox组件：checkbox1（其caption属性设置为“自动关机生效”）和一个ttimer组件：timer1（其interval属性取缺省值1000）。
代码编写
在窗体的oncreate事件过程中编写如下代码： void __fastcall tform1::formcreate(tobject ＊sender)
{
checkbox1－checked=false;
//初始设置为不可访问
checkbox1－enabled=false;
datetimepicker4－datetime=now();
datetimepicker3－datetime=now();
datetimepicker2－datetime=now();
//用系统时间初始化组件
datetimepicker1－datetime=now();
}
在组件timer1的ontimer事件过程中编写如下代码：
void __fastcall tform1::timer1timer(tobject ＊sender)
{
datetimepicker2－datetime=now();
//接收当前日期和时间，用于即时显示
datetimepicker1－datetime=now();
//随时检测设定的关机日期和时间是否有效
if(datetimepicker4－datetime
now())
{
checkbox1－checked=false;
//无效时不可访问
checkbox1－enabled=false;
}
else
checkbox1－enabled=true; //有效时可以访问
if(checkbox1－checked == true datetime) == datetimetostr(now()))
{//判断定时关机条件是否满足
dword tmp;
//调用win api函数关闭计算机
exitwindowsex(ewx_shutdown,tmp);
}
}
组件datetimepicker3和datetimepicker4的onchange事件过程的代码相类似，为使这两个组件所设置的日期和时间“联动”（同时变化），组件datetimepicker3的onchange代码设置如下： void __fastcall tform1::datetimepicker3change(tobject ＊sender)
{//组件变化“联动”
datetimepicker4－datetime=datetimepicker3－datetime;
//检测设置的日期是否有效
if(datetimepicker4－datetime
now())
{
checkbox1－checked=false;
checkbox1－enabled=false;
}
else
checkbox1－enabled=true;
}
组件datetimepicker4的onchange代码设置如下：
void __fastcall tform1::datetimepicker4change(tobject ＊sender)
{//组件变化“联动”
datetimepicker3－datetime=datetimepicker4－datetime;
//检测设置的时间是否有效
if(datetimepicker3－datetime
now())
{
checkbox1－checked=false;
checkbox1－enabled=false;
}
else
checkbox1－enabled=true;
}
另外，如果在timer1组件的ontimer事件过程中添加如下代码： //定义日期时间型对象（变量）
tdatetime presetdatetime,currentdatetime;
presetdatetime=datetimepicker3－datetime;
currentdatetime=now();
//得到时间差(秒数)
edit1－text=int((presetdatetime.val－currentdatetime.val)＊60＊60＊24);
则可以通过在窗体上放置的tedit组件edit1即时显示距离关机所剩余的秒数，实现倒计时。

VB中timer控件每隔一小时事件发生一次 代码

单靠一个控件 完成不了,你只可以 最长 65535 毫秒 定时,可以利一个公共变量(比如T)来计数,然后再在timer控件事件过程中第次使T 增(减)1,再判定T 是否到了规定的值.
以下是参考代码:
Dim T%
Private Sub Form_Load()
Timer1.Interval = 1000 ’1000毫秒
Timer1.Enabled = True ’计时器开始工作
T = 360 ’置初值为360秒即1小时
End Sub
Private Sub Timer1_Timer()
T = T - 1 ’每1000毫秒减1
If T = 0 Then
T = 360 ’重置初值为360,为下一次
’==================
Print "此处放每小时要执行的代码"
’==================
End If
End Sub

vb6.0中,想要编写一段代码,在窗体载入后开始记时,10秒后触发某事件,怎么写

用timer控件
设置timer控件Interval属性为10000
然后双击Timer控件 在其中写事件代码就可以了
Private Sub Timer1_Timer()
msgbox "text"
End Sub
timer控件就是钟表样子的哪个

设计表单，请用VFP语言写出Timer1的timer事件代码

if thisform.label1.forecolor=rgb(255,0,0)&&red
thisform.label1.forecolor=rgb(0,0,255)&&blue
thisform.label1.backcolor=rgb(255,0,0)
else
thisform.label1.forecolor=rgb(255,0,0)
thisform.label1.backcolor=rgb(0,0,255)
endi ，答案被采纳可获得悬赏分和额外20分奖励。

c# timer_Tick事件有什么用Timer控件怎么用

timer_Tick：是Timer对象的一个事件，表示在设定的时间间隔后自动触发的事件。

Timer控件使用方法

Timer 控件

通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。

语法

timer1.Enabled = true;

timer1.Interval=3600000;//以毫秒为单位

private void timer1_Tick(object sender, EventArgs e)

{

MessageBox.Show("时间到");

}

扩展资料：

说明

Timer 控件用于背景进程中，它是不可见的。

对于 Timer 控件以外的其它控件的多重选择，不能设置 Timer 的 Enabled 属性。

在运行于 Windows 95 或 Windows NT 下的 Visual Basic 5.0 中可以有多个活动的定时器控件，对此，实际上并没有什么限制。

补充:Timer控件通俗来说就是计时器,这是一个不可视控件.它的重要属性有Interval,Enabled.

它的Tick事件指的是每经过Interval属性指定的时间间隔时发生一次.

c# 用代码编写一个timer

System.Timers.Timer t = new System.Timers.Timer(10000);  
//实例化Timer类，设置间隔时间为10000毫秒；   
t.Elapsed +=new System.Timers.ElapsedEventHandler(theout);  
//到达时间的时候执行事件；   
t.AutoReset = true;  
//设置是执行一次（false）还是一直执行(true)；   
t.Enabled = true;  
//是否执行System.Timers.Timer.Elapsed事件；   
 
public void theout(  
object source,   
System.Timers.ElapsedEventArgs e)   
 {   
    MessageBox.Show("OK!");   
 }

vfp表单设计中如何用代码编写对象的事件程序

如果你的vfp版本是9.0  你可以使用  bindevent()  函数把 timer 事件的代码 绑定到另一个方法上

 form.init
 
thisform.addobject(’timer2’,’timer’)
thisform.timer2.Interval=2000
BINDEVENT(thisform.timer2,’timer’,thisform,"tttt")
form.tttt
=MESSAGEBOX("时间到",0,"tips")
thisform.timer2.interval=0

如果 不是 9.0   就要先自定义一个类  把 timer代码写在类里面, 然后在form里面加入自定义类对象

tttt.prg
DEFINE CLASS tttt as timer
    interval=0    
    PROCEDURE timer  
       =MESSAGEBOX("你好")
    endpro
ENDDEFINE
form.init
SET LIBRARY TO tttt addi  &&加载自定义库
thisform.addobject(’timer2’,’tttt’) &&建立对象
thisform.timer2.interval=5000 && 触发事件