龍華技術學院電子工程系視窗程式設計講義-delphik.top討論區.docVIP

實習題目：時鐘、鬧鐘與馬錶計時器 功能說明： 時鐘視窗表單位於螢幕中央如圖一所示其標題為AlarmClock，具有日期時間顯示面板、Stop Watch與Alarm Clock選項群組、鬧鐘與馬錶輸入編輯盒與Start、Stop、End等三個控制按鈕。 Stop Watch倒數計時器時間可使用輸入編輯盒設定。 使用者可利用Start按鈕啟動計時器倒數計時，Stop按鈕則用來停止倒數計時。 計時器倒數啟動後，時間顯示格式為 01:00:00:99精密度至1/100秒(圖二)，進度軸顯示倒數進度。 Alarm Settings鬧鐘日期時間可使用輸入編輯盒設定。 使用者可利用Start按鈕啟動時鐘並顯示系統日期與時間，Stop按鈕則用來停止。 時鐘啟動後，日期與時間顯示格式為 2006/08/12 19:18:20精密度至1秒(圖三)。 鬧鐘啟動後，日期與時間顯示中止、顯示面板顏色每0.5秒隨機閃爍同時播放鬧鈴音樂。 時鐘停止後，日期時間顯示面板顯示作者班級學號與姓名。 使用End控制按鈕以結束此視窗程式的執行。 視窗畫面 圖一 時鐘視窗表單 圖二 計時器倒數啟動視窗表單 圖三 時鐘啟動視窗表單 使用物件： 表單(TForm)，標籤(TLabel)，按鈕(TButton)，計時器(TTimer)，編輯盒(TEdit)，面板(TPanel)，選項群組(TRadioGroup)，進度軸(TProgressBar) 重點提示： 使用表單的Caption屬性以設定視窗標籤。 使用Border Style屬性以設定表單為對話盒視窗。 使用Position屬性以設定表單的位置位於為螢幕中央。 使用Date()與Time()函式讀取系統日期與時間。 使用Application-Terminate (); 結束游標選擇程式，返回視窗作業系統。 使用Timer1-Enabled = true;啟動計時器、Timer1-Enabled = false;暫停計時器、Timer1-Interval = 10;設定計時器為0.01秒。 使用RGB(rand()%256, rand()%256, rand()%256);產生一隨機顏色。 使用 swHourStr = Edit1-Text.SubString(1,2); swMinStr = Edit1-Text.SubString(4,2); swSecStr = Edit1-Text.SubString(7,2); 以擷取倒數計時時、分、秒字串。 使用 swCount = StrToInt(swHourStr)*3600*100 + StrToInt(swMinStr)*60*100 + StrToInt(swSecStr)*100; 以取得倒數計時數。 使用 tswHourStr = IntToStr(swCount/360000); 以取得倒數計時數所代表的時。 使用 min = swCount%360000; tswMinStr = IntToStr(min/6000); 以取得倒數計時數所代表的分。 使用 sec = min%6000; tswSecStr = IntToStr(sec/100); 以取得倒數計時數所代表的秒。 使用 hund = sec%100; 以取得倒數計時數所代表的百分位。 使用AnsiString nowStr; nowStr = FormatDateTime(yyyy/mm/dd hh:mm:ss,Date() + Time()); nowStr內儲存目前系統日期與時間的字串且格式為yyyy/mm/dd hh:mm:ss nowStr.Length()函式可取得字串長度。 StrToInt()可將字串轉成整數， IntToStr可將整數轉成字串，使用 + 運算子可將字串加以串接，SubString(20,2);函式可取得子字串。 使用sndPlaySound(NULL, SND_ASYNC | SND_LOOP);播放鬧鈴音樂， sndPlaySound(NULL, SND_ASYNC | SND_LOOP); 停止播放鬧鈴音樂。 使用執行緒來執行擷取系統時間的動作。 使用File-New-Thread Object以建立一執行緒。 類別名稱Class Name : ClockThread。 執行緒名稱Thread Name: ClkThread。 執行緒執行函式 //-------------------------------------------------------------------------