|
|
2007/8/10(Fri) 10:49:58|NO.10261
タイマー
のつくりかたおしえて
|
|
2007/8/10(Fri) 14:07:37|NO.10262
大概にしましょう。
記事検索・サイト内検索で「タイマー」で検索しましたか?
グーグルで「HSP タイマー」で検索してみましたか?
質問の項目がある以上はこの掲示板で質問することは罪ではないと思います。
けれど、他人に訊く前にまずは自分で考えたり調べたりして努力しましょう。
検索ワードがわからないというならまだしも、
あなたの場合は「タイマー」を知りたいのだとわかっているわけですし。
一応書いておくと標準命令で作るならgettime関数で
カウント開始時の時刻を取得しておき、現在の時刻を取得して
その差から経過時間を計算すればいいと思います。
それ以上のものは最初に書いたようにサイト内検索してみてください。
|
|
2007/8/10(Fri) 14:51:54|NO.10263
|
|
2007/8/10(Fri) 15:18:41|NO.10264
screen 0,100,20,16
t=1
*main
color 0,0,0:boxf
color 255,255,255
pos 1,1
mes ""+t
wait 100
t--:if t<0 : repeat:loop
goto *main
これでおk
|
|
2007/8/10(Fri) 21:02:39|NO.10266
screen 0,100,50,16
TITLE"一秒感覚タイマー"
*hazime
cls
t=1
repeat
POS 0,20
button goto "止める",*tomare
color 0,0,0:boxf
color 255,255,255
pos 1,1
mes ""+t
wait 100
t=t+1
loop
*tomare
cls
POS 0,20
button goto "動かす",*hazime
stop
できました
|
|
2007/8/10(Fri) 21:19:11|NO.10269
*taaaima
t=0
screen 0,150,50,16
TITLE"一秒感覚タイマー"
*taima
cls
repeat
POS 90,0
button goto "リセット",*taaaima
POS 0,20
button goto "止める",*tomare
color 0,0,0:boxf
color 255,255,255
pos 1,1
mes ""+t
wait 100
t=t+1
loop
*tomare
cls
POS 0,20
button goto "動かす",*taima
POS 80,0
button gosub "リセット",*riset
stop
*riset
T=0
return
ちょっとかいぞー
|
|
2007/8/10(Fri) 21:19:57|NO.10270
作れるかな…
材料ないよ…
|
|
2007/8/10(Fri) 21:30:39|NO.10271
見たところ材料安いしw
電気街歩けば見つかるよ んで作ったそれをI/Oでも何でもいいからpcに接続してそれ使ってタイマー作ればいいw
つか WinApi使えば楽でしょ (使い方は各自参照
|
|
2007/8/10(Fri) 22:13:10|NO.10273
「wait 100」を1秒に見立てて使ってるんなら、かなり精度低いぜ。
どうでもいいが、一秒感覚ってサムい。
HSPやる前に漢字の勉強しろよ (´,_ゝ`)プ
|
|
2007/8/11(Sat) 10:24:48|NO.10283
ホレ
#uselib "WINMM.dll"
#cfunc time "timeGetTime"
screen 0,,,8
width 80,35
objsize 21,21
button ">",*sta
pos 23,0
button "□",*sto
gosub *byo
stop
*byo
redraw 0
color 0,0,0
boxf
color 0,255,0
pos 0,23
tt=strf("%09d",t)
tt1=strmid(tt,0,2)
tt2=strmid(tt,2,2)
tt3=strmid(tt,4,2)
tt4=strmid(tt,6,3)
font "MS UI Gothic",12
mes ""+tt1+" "+tt2+" "+tt3+""
pos ginfo_mesx+2,23+1
font "MS UI Gothic",10
mes tt4
redraw 1
return
*sta
if let{
objprm 0,">"
t2=time()
let=0
stop
}else{
objprm 0,"||"
let=1
}
if once!1{
start=time()
}else{
start+=time()-t2
}
once=1
*lop
await 1
t=time()-start
gosub *byo
goto *lop
*sto
t=0
let=0
once=0
gosub *byo
stop
|
|