unit1.cpp

时钟程序 这是书本上的相关内容

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "dos.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------

void __fastcall TForm1::t_ClockTimer(TObject *Sender)
{
       //按时触发演示程序
struct date d;
struct time t;
AnsiString thour,tmin;
int dyear;
int dintyear;
int dmon,dday;
AnsiString tinthour,tintmin;
AnsiString dintmon,dintday;
AnsiString dint,tint;
int pos;
//取当天日期
getdate(&d);
dyear=d.da_year;
dday=d.da_day;
dmon=d.da_mon;
dint=dtp_Clock_1->Time;
tint=dtp_Clock_2->Time;
dintyear=StrToInt(dint.SubString(1,4));
dintmon=dint.SubString(6,2);
if(dintmon.Pos("-"))
   {
     dintmon=dint.SubString(6,1);
     dintday=dint.SubString(8,2);
     if(dintday.Pos(" "))
        dintday=dint.SubString(8,1);
   }
else
   {
     dintday=dint.SubString(9,2);
     if(dintday.Pos(" "))
        dintday=dint.SubString(9,1);
   }
//取当时时间
gettime(&t);
thour=AnsiString(t.ti_hour);
tmin=AnsiString(t.ti_min);

pos=tint.Pos(":");
tinthour=tint.SubString(pos-2,2);
if(tinthour.Pos(" "))
   tinthour=tint.SubString(pos-1,1);
tintmin=tint.SubString(pos+1,2);


//tintsec=tint.SubString(16,2);
//闹钟服务功能
/*if ((StrToInt(thour)==StrToInt(tinthour))&&
(StrToInt(tmin)==StrToInt(tintmin))
*/
if((dyear==dintyear)&&(StrToInt(dmon)==StrToInt(dintmon))&&(StrToInt(dday)==StrToInt(dintday))&&(StrToInt(thour)==StrToInt(tinthour))&&(StrToInt(tmin)==StrToInt(tintmin)))

{
t_Clock->Enabled=false;
mp_Clock->Open();
mp_Clock->Play();
}
}
 

//---------------------------------------------------------------------------

void __fastcall TForm1::b_Clock_OpenClick(TObject *Sender)
{
t_Clock->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::b_Clock_CloseClick(TObject *Sender)
{
Application->Terminate();        
}
//---------------------------------------------------------------------------