作者：hxfwsk
email: hxfwsk@hotmail.com
日期：8/1/2001 3:47:01 PM

C++Building制作鬧鐘 
　

---- 大凡熱戀中的網(wǎng)蟲都曾經(jīng)陷入下列的困境：約好女/男朋友晚七點半在老地方等，卻在計算機面前一直爬行到深夜，等反映過來，朋友早已拂塵而去，又得幾天的功夫去陪禮道歉。朋友何不按以下步驟做一簡單的鬧鐘，讓你安安心心上網(wǎng)，大大方方約會。你只要在上網(wǎng)的時候打開此應(yīng)用程序，設(shè)置好約會時間（當(dāng)然也可以是默認好的）即可。時間一到，音樂響起，快去約會吧。 

---- 本鬧鐘程序有以下組件組成： 

　　 序號 　 組件類型 　 組件名稱 　　 功能
　　　 1 Tlabel l_Clock_1 顯示“輸入日期”
　　　 2 TdateTimePicker dtp_Clock_1 選擇日期
　　　 3 Tlabel l_Clock_2 顯示“輸入時間”
　　　 4 TdateTimePacker tdp_Clock_2 選擇時間
　　　 5 TmediaPlayer mp_Clock 演奏音樂
　　　 6 Tbutton b_Clock_Open 重新打開
　　　 7 Ttimer t_Clock 定時檢測
　　　 8 Tbutton b_Clock_Close 關(guān)閉應(yīng)用程序

　

---- 屏幕組件一覽表 



---- 屏幕組件一覽圖 

---- 說明：dtp_Clock_1 的Kind屬性設(shè)置為dtkDate ， dtp_Clock_2 的Kind屬性設(shè)置為dtkTime，mp_Clock 的FileName屬性設(shè)置為你主機上存在的任何mid、wav、avi文件。t_Clock 的Interval屬性設(shè)置為10。 

---- 事件說明如下： 

①、 t_Clock的OnTimer :
　　{
//按時觸發(fā)演示程序
struct date d;
struct time t;
AnsiString thour,tmin,tsec;
int dyear;
int dintyear;
int dmon,dday;
AnsiString tinthour,tintmin,tintsec;
AnsiString dintmon,dintday;
//取當(dāng)天日期
getdate(&d);
dyear=d.da_year;
dday=d.da_day;
dmon=d.da_mon;
dintyear=StrToInt(dint.SubString(1,2));
dintmon=dint.SubString(4,2);
dintday=dint.SubString(7,2);
//取當(dāng)時時間
gettime(&t);
thour=AnsiString(t.ti_hour);
tmin=AnsiString(t.ti_min);
//tsec=AnsiString(t.ti_sec);
//tint=AnsiString(DateTimePicker1- >Time);
tinthour=tint.SubString(10,2);
tintmin=tint.SubString(13,2);
//tintsec=tint.SubString(16,2);
//鬧鐘服務(wù)功能
if ((StrToInt(thour)==StrToInt(tinthour))&&
(StrToInt(tmin)==StrToInt(tintmin))
&&(StrToInt(AnsiString(dyear).SubString(3,2))
==dintyear)&&(StrToInt(dmon)==StrToInt(dintmon))
&&(StrToInt(dday)==StrToInt(dintday)))
　{
　dTimer- >Enabled=false;
　MediaPlayer1- >Open();
　MediaPlayer1- >Play();
}
　 }
②、 b_Clock_Open 的OnClick：
{
t_Clock- >Enabled=true; 
}
③、　b_Clock_Close的OnClick
{
Application- >Terminate();
}

　

---- 當(dāng)然此程序還可以拓展、細化，如我僅將觸發(fā)條件檢測到分，當(dāng)然它完全可以檢測到秒，也可以僅檢測到時。