HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
1219
ぱーたん左クリック中に座標をタイトルに表示する2未解決


ぱーたん

リンク

2013/12/19(Thu) 20:15:00|NO.58810

HSP今日初めて使い始めたんですが思った通りの動作ができません。何が原因か教えていただけませんか?;;

動作:左クリック中にタイトルにマウスの座標を表示する


#define WM_LBUTTONDOWN 0x0201
#define WM_LBUTTONUP    0x0202

oncmd gosub *jump_oncmd, WM_LBUTTONDOWN

while(i=1)
title ""+ginfo(0)+" x "+ginfo(1)
wait 10
oncmd gosub *jump_oncmd2, WM_LBUTTONUP
wend

stop

*jump_oncmd2
i = 0
return

*jump_oncmd
i = 1
return


このように書いたのですが、クリックしても何も動きません。
ド素人ですいませんがお願いします。



この記事に返信する


future

リンク

2013/12/19(Thu) 20:26:26|NO.58811

while は指定された条件が成り立たなくなった時点でwendの次の行に飛びます。
そのプログラムではスタート時iの値は0なので結局while〜wendの間は一度も実行されません。
たぶんやりたかったことはこんな感じでできます。

#define WM_LBUTTONDOWN 0x0201 #define WM_LBUTTONUP 0x0202 oncmd gosub *jump_oncmd, WM_LBUTTONDOWN oncmd gosub *jump_oncmd2, WM_LBUTTONUP while(1) if i=1:title ""+ginfo(0)+" x "+ginfo(1) wait 10 wend stop *jump_oncmd2 i = 0 return *jump_oncmd i = 1 return
他にもこんな方法も

repeat getkey k,1 if k:title ""+ginfo(0)+" x "+ginfo(1) wait 10 loop



ぱーたん

リンク

2013/12/19(Thu) 21:42:44|NO.58812

あーー!なるほど!
ずっとwhileでループさせとけばいいのか!ありがとうございます!!



ONION software Copyright 1997-2018(c) All rights reserved.