HSPTV!掲示板

毎回初歩的な質問で申し訳ありません。

下記のスクリプトのように、
getkeyで入力されたキーに応じた動作をさせたいのですが、
なぜか実行してキーを押下しても反応してくれません。

特にエラーにもならないし、
記述の場所や仕方などいろいろ調べたり、
私なりに考えたのですが、分かりません。

解明といったら大げさですが、原因を教えて頂きたいです。
よろしくお願いいたします。

dim buf,data
sdim mbuf ,256 ,81
dim objno , 81
screen 0,520,700
objmode 2
color 128,128,128 : boxf	;背景色
;入力ボックス
	font "MS UI Gothic" , 30 , 1
	#const a 53 ;   a:間隔
		dim num, 81
		repeat 81
			pos 20 + (cnt\9) * a, 50 + (cnt/9) * a
			num(cnt)=""
			input num(cnt), 50, 50, 1
			objno(cnt) = stat :	loop
	
getkey key,56
getkey key,104
if key=1 : mes "8が入力されました。"
stop

あなたがTestのためにkeyを押そうとする時プログラムはどこを実行していると思いますか？

プログラムの基本的な考え方の問題ですが
プログラムは上の行から1行ずつコンマ何秒という短い時間で
実行されていきます。

そして、実行された行はrepeatなどで
繰り返すように指示しない限り
二度と実行されません

getkeyは、書かれた行が実行されたときに、キーが押されたかを調べる命令であり
それ以外のタイミングでキーが押されても関知しません。
さらに言うなら、最後のifもstopの行の後に、
遡って条件分岐をすることはありません。

キーボードが押されたときに、何かをしたいのであれば
onkeyを使うのが一般的です。

onkey *test
stop
*test
if iparam = 56 : mes "8が入力されました。"
;if wparam = 56 | wparam = 104 : mes "8が入力されました。"

onkeyの詳しい説明はヘルプを読んでもらうとして、
wparamは何のキーが押されたかなので、テンキーとメインで値が異なりますが、
iparamは何の文字が押されたのかなので、テンキーとメインで値が同一です。
8が押されたかを判別するだけならiparamで十分でしょう。

あと直接、関係ないですが下の部分について

getkey key,56
getkey key,104

前にも申しましたが、変数は代入されると前の値は破棄されるので、

1行目で→ 56のキーが押されていれば1押されていなければ0を代入
2行目で→104のキーが押されていれば1押されていなければ0を代入

としていては、結局、メインキーボードの入力は判定時には破棄されることになりますね。
重ねて申し上げますが、keyという変数ひとつで複数のキーの入力を管理することはできません。
調べるキーと同じだけの変数が必要になります。

iparamやwparamは複数キーの同時押しには対応していないので
onkey+getkeyという組み合わせが必要になることもあるかと思います。
覚えておいて頂けると幸いです。

ken2さん
プログラムの基本について改めて考えさせられました。
ありがとうございました。

玄冬さん
プログラムの基本的なことから教えていただきありがとうございます。
基本からもっといろんな命令とその適切な使い方を勉強しないとですね。

これでまた次のやりたいことに取り組みます！
なんとか自力で頑張ります！
ですがもうパンクしそうです…