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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0423
T.K画像がちかちかするのですが4解決


T.K

リンク

2007/4/23(Mon) 22:32:27|NO.7703

最近初めて「getkey」を知って作ってみたプログラムなのですが、実行している間ずっとちかちか
と点滅するのですが、いったいどうしたらいいのでしょうか?教えてください。
ちなみに↓が僕の考えたプログラムです。

A = 20 : B = 30
*HATA
REPEAT
GETKEY UE, 37
GETKEY HIDA, 38
GETKEY MIGI, 39
GETKEY SITA, 40

POS A, B : color 255, 0, 255 : mes "●"

boxf 100, 50, 200, 100
boxf 300, 10, 360, 100
color 0, 0, 255
boxf 100, 300, 300, 400

IF (UE == 1) : A = A-10
IF (HIDA == 1) : B = B-10
IF (MIGI == 1) : A = A+10
IF (SITA == 1) : B = B+10

if (A>100)and(A<200)and(B>49)and(B<100) : end
if (A>300)and(A<360)and(B>9)and(B<100) : end
if (A>90)and(A<300)and(B>299)and(B<400) : end
WAIT 1
CLS 4
LOOP



この記事に返信する


りさ

リンク

2007/4/23(Mon) 22:43:34|NO.7705

こんにちわ、りさです。

「ちらつき」や「ちらつく」で検索なさって貰えれば、
過去ログに色々出てくると思います。

repeat命令の中でredraw命令を使って描画スイッチを変えることと、
cls命令ではなく、color命令とboxf命令を使って背景色を変更すればよいと思います。
あと、背景色を初期化する位置にも注意なさって下さい。



Mogu

リンク

2007/4/23(Mon) 23:05:57|NO.7706

りささんが書き込まれた処理の方が適切だと思いますが、
このような手段もあります。複雑になると使えませんが・・・。


A = 20 : B = 30 cls 4 *HATA REPEAT GETKEY UE, 37 GETKEY HIDA, 38 GETKEY MIGI, 39 GETKEY SITA, 40 pos C,D : color 0,0,0 IF (UE == 1) : A = A-10 : mes "●" IF (HIDA == 1) : B = B-10 : mes "●" IF (MIGI == 1) : A = A+10 : mes "●" IF (SITA == 1) : B = B+10 : mes "●" POS A, B : color 255, 0, 255 : mes "●" C=A : D=B boxf 100, 50, 200, 100 boxf 300, 10, 360, 100 color 0, 0, 255 boxf 100, 300, 300, 400 if (A>100)and(A<200)and(B>49)and(B<100) : end if (A>300)and(A<360)and(B>9)and(B<100) : end if (A>90)and(A<300)and(B>299)and(B<400) : end wait 1 LOOP

※ミスがあったので直しました



T.K

リンク

2007/4/23(Mon) 23:48:04|NO.7707

ありがとうございました。これでやっとちらつきがなくなりました。



T.K

リンク

2007/4/24(Tue) 22:20:29|NO.7736

チェック忘れました。



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