C++builder 定时器程序开发实验步骤

《C++builder 定时器程序开发实验步骤》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验二定时器应用程序开发一、实验目的通过一个定时器简单的实例，让同学们掌握定时器控件、工具条、单选按钮控件、多选按钮控件的使用，并以及进一步掌握菜单控件的使用方法，并为下个串口通信实验做准备。二、实验设备1台PC、CB6开发环境等。三、实验内容1、利用定时器进行倒计时功能处理；2、利用定时器实现文字闪烁功能处理。四、实验内容1——利用定时器进行倒计时功能处理1、新建工程图（1）新建工程2、往窗体中添加对应的控件Timer定时器在System面板中。图（2）添加控件后的界面3、添加事件响应命令4、运行效果图（3）运行效果实验内容2—

2、—利用定时器进行文字闪烁功能处理本程序首先实现文字在闪烁中向左移动，然后再分别通过控件、菜单和工具栏控制文字的移动方向与是否移动。设计步骤1、Timer控件的使用功能：文字不受控制地循环地向左移动。1）从Standard面板放一个Label控件，从System面板放一个Timer控件，设计如图（4）界面2）有关控件属性设置如下表控件类型控件名称属性值LabelLabel1Caption“欢迎光临”Font自行设置Anchors[]TimerTimer1InterVal503）为Timer1控件添加定时事件响应代码如下：void__

3、fastcallTForm1::Timer1Timer(TObject*Sender){  Label1->Left-=4;  if(Label1->Left<-Label1->Width)    Label1->Left=Form1->Width;  Label1->Font->Color=RGB(255*rand(),255*rand(),255*rand());}4）运行程序图（4）定时器初始运行效果2、Radio与CheckBox控件的使用功能：CheckBox控件控制文字是否移动，Radio控件控制文字移动的方向。1）在

4、图（4）的基础上，再从Standard面板上加入一个CheckBox控件和一个RadioGroup控件，建立如图（5）界面。2）有关控件属性设置如下表控件类型控件名称属性值TimerTimer1InterVal50CheckBoxCheckBox1Caption运行CheckedfalseRadioGroupRadioGroup1Caption方向Items向左向右Columns2图（5）加入CheckBox控件和RadioGroup控件的界面3)各控件事件响应代码如下：双击定时器，在前面的基础上将运行代码修改为如下方式：void

5、__fastcallTForm1::Timer1Timer(TObject*Sender){    }//---------------------------------------------------------------void__fastcallTForm1::CheckBox1Click(TObject*Sender){ if(CheckBox1->State==cbChecked)   Timer1->Enabled=true; else   Timer1->Enabled=false;}//----------

6、-----------------------------------------------------void__fastcallTForm1::FormActivate(TObject*Sender){  CheckBox1->OnClick(Sender);//只在初次激活时被执行}注意：若要显示触发事件的对象Sender，则用ShowMessage(((对象名称*)Sender)->Caption); 3、菜单的使用功能：用菜单控制文字是否移动以及移动的方向。1）使用MainMenu菜单建立如图（6）界面。图（6）加入菜

7、单后的界面2）菜单的有关控件属性设置如下表：控件类型控件名称属性值MenuItemmiLeftCaptionm向左CheckedtrueRadioItemtruemiRightCaption向右CheckedfalseRadioItemtruemiStopCaption停止Checkedtrue4)各控件事件响应代码如下：__fastcallTForm1::TForm1(TComponent*Owner):TForm(Owner)//类成员初始化，程序运行时首先被执行{}//----------------------------

8、------------------------------------void__fastcallTForm1::Timer1Timer(TObject*Sender){if(nDirect==0){Label1->Left-=4;if(Labe