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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0718
エレキ掃除機getkeyでうまくいきません6解決


エレキ掃除機

リンク

2008/7/18(Fri) 14:04:18|NO.17369

	width 200,200
*main getkey Home,37 ;Home getkey Pgup,38 ;PgUp getkey Endo,39 ;End getkey Pgdn,40 ;PgDn if Home=1 : pos ginfo_cx-1,ginfo_cy if PgUp=1 : pos ginfo_cx,ginfo_cy+1 if Endo=1 : pos ginfo_cx+1,ginfo_cy if PgDn=1 : pos ginfo_cx,ginfo_cy-1 redraw 2 color 255,255,255:boxf color 255,255,0:boxf 100,0,200,200 color 0,0,0 print "(^^)" redraw 1 wait 10 goto *main



この記事に返信する


SYAM

リンク

2008/7/18(Fri) 17:15:41|NO.17379

質問もうまくいってない気がしますが…
おかしな点を挙げます
?getkeyに指定しているキーコードが違います。これらはカーソルキーです。
?posなどで指定するカレントポジションは、mes命令の後にフォントの縦幅ぶん下にズレます。それを意図していますか?



レヴィン

リンク

2008/7/18(Fri) 19:32:00|NO.17382

>>エレキ掃除機さん
結局何が訊きたいのかわかりません。
「getkeyでうまくいかない」とのことですが、「何がうまくいかない」んですか?
ソースの内容と実行結果を踏まえると、「カーソルで『(^^)』を移動して表示するって
ことがしたいけど、うまくいかない」と考えられます。
もしそうなら、SYAMさんのような回答になるかと思います。

このスレの質問はソースの内容と実行結果からある程度何が訊きたいのかわかりますから
いいかと思いますが、今後はもっと具体的に書いたほうがいいと思います。
SYAMさんは自分でおかしいと思った点を挙げていますが、
あくまでもこれはSYAMさんの見解。
エレキ掃除機さんが意図した内容とは限りません(俺の回答もそう)。
もし、この回答が違う場合、「また新たに説明→回答」という流れになり、
望む答えが返ってくるまでに時間がかかります。
タイトルはこれでいいと思いますが、本文に
「○○がしたいんだけど、××になってしまってうまくできない。
どうしたらいいのか?何がおかしいのか教えてくれ。」
って書けば、勘違いされることも減るし、望む回答が返ってくるまでの時間も
短くなると思います。



ANTARES

リンク

2008/7/19(Sat) 01:12:39|NO.17402

もしかして、こんなことがやりたかった?

width 200,200 color 255,255,255:boxf color 255,255,0:boxf 100,0,200,200 char="(^^)" lx=strlen(char)*8 ly=lx*2 speed=4 *main px=x: py=y stick c,15,1 if c&1: x-=speed ;← if c&2: y-=speed ;↑ if c&4: x+=speed ;→ if c&8: y+=speed ;↓ redraw 2 color 255,255,255 pos px,py print char color 0,0,0 pos x,y print char redraw 1 wait 10 goto *main



エレキ掃除機

リンク

2008/7/20(Sun) 09:46:49|NO.17433

>>ANTRESさん
そうです。
>>SYAMさん、レヴィンさん
(^^)君をPgupとかで1ドットずつ移動させたかったのです。
ミスでソースだけ投稿したまま、放置してしまいすいませんでした。



エレキ掃除機

リンク

2008/7/20(Sun) 09:50:21|NO.17434

あ、でも黄色いほうへいくと(^^)君が壊しますね。
直しに行って見ます。



エレキ掃除機

リンク

2008/7/20(Sun) 09:51:34|NO.17435

ループ内にboxfを入れたら直りました。有難う御座いました。



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