交通灯程序.doc

/-/程序所包含的头文件#include #pragma hdrstop#include test.h#include unit2.h#include dos.h#include #include /-#pragma package(smart_init)#pragma resource *.dfm#include USERPRGUserFunction.h#include labfun.h#define SEC 60TForm1 *Form1;int sec=SEC,counter=0;/交通灯发生转换的时间60秒，当到3秒时，转成黄灯bool ledn,change=1,flash,start_stop;/几个用于状态切换的布尔变量unsigned int wAccuracy1;unsigned int TimerID_1ms1=0;unsigned char code=0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f;/显示数字的共阴极编码union unLed /控制灯的状态的联合体 高4位控制绿灯，低4位控制红灯struct stLed unsigned RNorth :1; /0unsigned RWest :1; /1unsigned REast :1; /2unsigned RSouth :1; /3unsigned GNorth :1; /4unsigned GWest :1; /5unsigned GEast :1; /6unsigned GSouth :1; /7LedBit; unsigned char LedChar; TrafficLed;/-_fastcall TForm1:TForm1(TComponent* Owner) : TForm(Owner)/-void PASCAL TimeProc1(UINT wTimerID,UINT msg,DWORD dwUser,DWORD dw1,DWORD dw2)/1ms定时中断处理代码 ledn=!ledn; if(ledn) /b口连段码，c口连位选码 WriteIO(U8255C,0xfe);/led显示屏的最后一位用于显示秒的个位 WriteIO(U8255B,codesec%10); else WriteIO(U8255C,0xfd); WriteIO(U8255B,codesec/10);/显示秒的十位，没一ms刷新一次 /-void Stop_Timer()/停止1ms计时if (TimerID_1ms1=NULL)return;timeKillEvent(TimerID_1ms1);timeEndPeriod(wAccuracy1);return;bool Start_Timer(int m_Timer)/1ms计时开始TIMECAPS tc;if(timeGetDevCaps(&tc,sizeof(TIMECAPS)=TIMERR_NOERROR)/获取系统最小时间wAccuracy1=min(max(tc.wPeriodMin,1),tc.wPeriodMax);timeBeginPeriod(wAccuracy1);if(TimerID_1ms1=timeSetEvent(m_Timer,wAccuracy1,(LPTIMECALLBACK)TimeProc1,NULL,TIME_PERIODIC)=0)ShowMessage(不能计时);return FALSE;return TRUE;/-void _fastcall TForm1:FormCreate(TObject *Sender)/初始化卡板 if(!OpenPlx9052()ShowMessage(9052打开失败！),exit(0); WriteIO(U8255Z,0x80);/初始化8255/-void _fastcall TForm1:FormClose(TObject *Sender, TCloseAction &Action) ClosePlx9052();/-void _fastcall TForm1:N2Click(TObject *Sender) Form2-ShowModal();/-void _fastcall TForm1:startClick(TObject *Sender) start_stop=!start_stop; if(start_stop) Start_Timer(1); start-Caption=停止; Timer1-Enabled=true; sec=SEC;/初始化8255WriteIO(U8255A,0);/全灭/状态1：南北绿，东西红 初始状态TrafficLed.LedBit.GNorth= 1;TrafficLed.LedBit.GWest = 0;TrafficLed.LedBit.GEast = 0;TrafficLed.LedBit.GSouth= 1;TrafficLed.LedBit.RNorth= 0;TrafficLed.LedBit.RWest = 1;TrafficLed.LedBit.REast = 1;TrafficLed.LedBit.RSouth= 0;WriteIO(U8255A,TrafficLed.LedChar); else start-Caption=开始; Stop_Timer(); Timer1-Enabled=false;/初始化8255WriteIO(U8255A,0);/全灭 WriteIO(U8255B,0);/全灭 WriteIO(U8255C,0);/全灭 /-void _fastcall TForm1:quitClick(TObject *Sender)WriteIO(U8255A,0);/全灭 WriteIO(U8255B,0);/全灭 WriteIO(U8255C,0);/全灭 Close();/-void _fastcall TForm1:N1Click(TObject *Sender)WriteIO(U8255A,0);/全灭 WriteIO(U8255B,0);/全灭 WriteIO(U8255C,0);/全灭 Close();/-/-void _fastcall TForm1:Timer1Timer(TObject *Sender)/系统定时器，每隔250毫秒中断一次 if(+counter=4) counter=0; sec-; if(sec0&sec=3)/状态2: 南北灯由绿转黄闪三秒，东西红 flash=!flash; TrafficLed.LedBit.GSouth= flash; TrafficLed.LedBit.GNorth=flash; TrafficLed.LedBit.RSouth= flash; TrafficLed.LedBit.RNorth= flash; TrafficLed.LedBit.RWest = change; TrafficLed.LedBit.REast = change; WriteIO(U8255A,TrafficLed.LedChar); if(sec=0)/状态3: 东西绿,南北红 sec=SEC; TrafficLed.LedBit.GNorth= !change; TrafficLed.LedBit.GWest = change; TrafficLed.LedBit.GEast = change; TrafficLed.LedBit.GSouth= !change; TrafficLed.LedBit.RNor