Re: [問題] 倒數計時
※ 引述《comg (蟲)》之銘言：
: 請問一下倒數計時器的問題
: 在fortran中是否有倒數計時的語法或IMSL
: 用google找了半天還是沒找著
: 或者要有什麼方式寫 (例如CALL DOS 指令的方式)
我的作法大概是用抓時間去判斷時間間距
那上一篇回文說用法不好 是因為我再迴圈內做太多事
導致跑一次需花太多時間以至於沒辦法抓到精準的時間間距
implicit none
integer date_time(8),s,time,temp
character*10 b(3)
write(*,*)"輸入秒數"
read(*,*)s
call date_and_time(b(1),b(2),b(3),date_time)
s=s*1000 !單位毫秒
do
temp=date_time(8)
call date_and_time(b(1),b(2),b(3),date_time)
if (ABS(temp-date_time(8))==1) then
s=s-1
end if
if (s==0) then
exit
end if
end do
end
測試過可以抓到1毫秒 所以精度上不會有太大的問題
重點是迴圈內不要做太多事!! 尤其是輸出
至於date_and_time的用法請參考
http://docs.sun.com/app/docs/doc/819-5259/6n7bsi994?l=zh_TW&a=view
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.120.26.71
→
10/26 17:37, , 1F
10/26 17:37, 1F
→
10/26 17:37, , 2F
10/26 17:37, 2F
→
10/26 21:29, , 3F
10/26 21:29, 3F
→
10/27 01:02, , 4F
10/27 01:02, 4F
推
10/28 01:21, , 5F
10/28 01:21, 5F
→
10/28 13:39, , 6F
10/28 13:39, 6F
→
10/28 21:33, , 7F
10/28 21:33, 7F
→
10/29 11:23, , 8F
10/29 11:23, 8F
→
10/29 11:24, , 9F
10/29 11:24, 9F
→
10/29 11:25, , 10F
10/29 11:25, 10F
→
10/29 13:41, , 11F
10/29 13:41, 11F
→
10/29 13:41, , 12F
10/29 13:41, 12F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
