鬧鐘程式設計 |
|
尚未結案
|
|
hango
一般會員   發表：5 回覆：10 積分：3 註冊：2004-04-06 發送簡訊給我 |
|
|
jest0024
高階會員  發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
hango
一般會員 發表：5 回覆：10 積分：3 註冊：2004-04-06 發送簡訊給我 |
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
arnoyu
中階會員 發表：73 回覆：88 積分：67 註冊：2003-03-21 發送簡訊給我 |
|
|
hango
一般會員 發表：5 回覆：10 積分：3 註冊：2004-04-06 發送簡訊給我 |
|
|
arnoyu
中階會員 發表：73 回覆：88 積分：67 註冊：2003-03-21 發送簡訊給我 |
TForm1 *Form1;
TDateTime start1;
//--------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
start1=Now();
Timer1->Enabled=true;
}
//--------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Edit1->Text=(Now()-start1).FormatString("hh:nn:ss");
}
//--------------------------------------------------------------------
好吧,我簡單說一下好了.. 先在Form1上拉進: 一個計時器(Timer1),一個Edit1(或Label),一個按鈕Button1
先在外部宣告一個時間變數:
TDateTime start1;
然後在 Button1Click 事件中填入
start1=Now();
Timer1->Enabled=true;
在Timer1Timer啟動事件中填入:
Edit1->Text=(Now()-start1).FormatString("hh:nn:ss"); 如此,當你按下Button1後,Edit1上便會Show出計時時間...
如果,你要做比對,只要在在Timer1Timer啟動事件中再加入:
if(Edit1->Text == "23:59:59")
{
ShowMessage("OK");
}
其實這些在上面我說的那個連結裡都有討論了,
吉米版主也有寫一個BCB版的範例,
如果你都有仔細去看過,
我真的不知還有哪些問題? |
|
hango
一般會員 發表：5 回覆：10 積分：3 註冊：2004-04-06 發送簡訊給我 |
|
|
arnoyu
中階會員 發表：73 回覆：88 積分：67 註冊：2003-03-21 發送簡訊給我 |
引言: 但是...我不是要做計時器...是要做 定時的功能 所以你的範例...我還是不知道要如何應用在我的鬧鐘裡...其實我覺得"計時器"跟"定時的功能"好像沒太大差異, 就如上述範例裡,只要在Form1裡面在加入 MediaPlayer元件(system物件區裡) 然後在程式碼中加入發出音效的功能, 這就跟鬧鐘功能一樣啦.. 如下:
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Edit1->Text=(Now()-start1).FormatString("hh:nn:ss");
if(Edit1->Text == "23:59:59")
{
MediaPlayer1->FileName ="c:\\sound\\test1.wav";
MediaPlayer1->DeviceType = dtWaveAudio;
MediaPlayer1->Open();
try
{
MediaPlayer1->Wait = true;
MediaPlayer1->Play();
MediaPlayer1->Play();// Play again after first play is completed
}
__finally
{
MediaPlayer1->Close();
}
}
當然了,您需自己決定音效路徑,及鬧鐘時間.. 引言: 因為我是初學...所以對一些函數都不太瞭解...說實在的,還是得多看一些相關書籍,及善用 Help功能, 如此對你可能會有較快的幫助.. === 以上僅供參考 === ===三人行必有我師焉=== |
發表時間：2004-06-11 07:14:22
IP:203.64.xxx.xxx 未訂閱
系統時間：2024-06-27 0:44:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |