 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
hou59
註冊時間: 2004-02-17
文章: 20
第 1 樓
|
 發表於: 星期一 三月 01, 2004 11:47 am 文章主題: 開始計時程式 |
 |
|
請問各先進..
設計一個開始計時程式..
由00:00:00至01:30:00時停止程式..要如何做呢?  |
|
| 回頂端 |
|
 |
小桑•無痕
註冊時間: 2003-07-08
文章: 304
來自: Tainan, Taiwan
第 2 樓
|
| 發表於: 星期一 三月 01, 2004 12:44 pm 文章主題: |
|
|
使用 Timer Class，可以再詳下說明一下要做什麼事嗎。
VFP6 MSDN 說明
使用計時器控制項
計時器控制項與使用者的動作獨立。它對時間作出反應，可以讓計時器以一定的間隔重覆地執行某種動作。計時器通常用來檢查系統時間，確定是否到了該執行某一任務的時間。對於其他一些背景處理，計時器也很有用。
若要檢視使用計時器的範例
1.執行 Visual Studio ...\Samples\Vfp98\Solution 目錄中的 Solution.app 。
2.在所有資料夾中，按一下[Controls]，然後選取[Timer]。
每個計時器都有一個 Interval 屬性，它指定了一個計時器事件和下一個計時器事件之間的毫秒數。如果計時器有效，它將以近似等於間隔的時間接收一個事件（命名為 Timer 事件）。在使用計時器程式撰寫時，必須考慮 Interval 屬性的幾條限制。
間隔的範圍從 0 到 2,147,483,647，包括 0 和 2,147,483,647，這意味著最長的間隔約為 596.5 小時（超過 24 天）。
間隔並無法保證經過時間的精確性。為確保精確，計時器應及時檢查系統時間，不應以內部累積的時間為準。
系統每秒鐘產生 18 次時鐘跳動，雖然 Interval 屬性是以毫秒作為計量單位，但間隔的真正精確度不會超過十八分之一秒。
如果應用程式向系統提交繁重的任務 -- 比如很長的迴圈、大量的計算，或磁碟、網路、連接埠的存取 -- 則應用程式無法按 Interval 屬性指定的頻率接受計時器事件。
_________________
用力 Try 一下...可以發現很多好玩的事.... |
|
| 回頂端 |
|
|
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 3 樓
|
| 發表於: 星期一 三月 01, 2004 12:55 pm 文章主題: |
|
|
剩下部分.給你做功課...... 
| 代碼: | LOCAL o
o = CREATEOBJECT("newform")
o.SHOW
o.VISIBLE=.T.
READ EVENTS
RELEASE o
DEFINE CLASS newform AS FORM
ADD OBJECT command1 AS COMMANDBUTTON WITH;
TOP=300,;
LEFT=320,;
HEIGHT=24,;
WIDTH=160,;
CAPTION="結束",;
NAME="command1"
ADD OBJECT text1 AS TEXTBOX WITH ;
TOP=100,;
LEFT=320,;
WIDTH=160,;
VALUE="00:00:00",;
NAME="text1"
ADD OBJECT timer1 AS TIMER WITH ;
INTERVAL=1000,;
NAME="timer1"
hh=0
ss=0
mm=0
FUNCTION INIT()
WITH THIS
WINDOWTYPE=1
.WINDOWSTATE = 2
.CLOSABLE =.F.
.CONTROLBOX = .F.
.MAXBUTTON = .F.
.MINBUTTON = .F.
.MOVABLE = .F.
.CAPTION = "myform"
.NAME = "myform"
.VISIBLE = .T.
ENDWITH
ENDFUNC
PROCEDURE DESTROY
CLEAR EVENTS && 結束事件迴圈
ENDPROC
PROCEDURE command1.CLICK
THISFORM.RELEASE
ENDPROC
PROCEDURE timer1.TIMER
THISFORM.text1.VALUE=PADL(ALLTRIM(STR(THISFORM.hh,2,0)),2,"0")+":"+;
PADL(ALLTRIM(STR(THISFORM.ss,2,0)),2,"0")+":"+;
PADL(ALLTRIM(STR(THISFORM.mm,2,0)),2,"0")
IF THISFORM.mm<59
THISFORM.mm=THISFORM.mm+1
ELSE
THISFORM.mm=0
IF THISFORM.ss<59
THISFORM.ss=THISFORM.ss+1
ELSE
THISFORM.ss=0
THISFORM.hh=THISFORM.hh+1
ENDIF
ENDIF
ENDPROC
ENDDEFINE |
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
|
hou59
註冊時間: 2004-02-17
文章: 20
第 4 樓
|
| 發表於: 星期一 三月 01, 2004 4:35 pm 文章主題: |
|
|
| 我愛您們．．謝謝指教 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
