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


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0101
Reoボタンを押して離さなくても流れるようにするには?4解決


Reo

リンク

2019/1/1(Tue) 00:06:35|NO.86222

下のプログラムのボタンを押すと、押して離さないと流れないのですが、
押して離さなくても流れるようにするには、どのようにプログラムすればいいいいでしょうか。


screen 0,250,250

title "メロディー"
mmload "A.mp3",0
mmload "B.mp3",1
button gosub"A",*A
button gosub"B",*B
repeat
wait 1
getkey aa,112
getkey bb,113
if aa=1:gosub*A
if bb=1:gosub*B
loop

*A
mmplay 0
return
stop
*B
mmplay 1
return
stop



この記事に返信する


名無し

リンク

2019/1/1(Tue) 00:18:22|NO.86223

112,113 のキーが押されている間,常にサブルーチン *a,*b に飛び続けてしまっています.
なので,
repeat
wait 1 getkey aa,112 getkey bb,113 if aa=1:gosub*A if bb=1:gosub*B loop
のところを
repeat
wait 1
getkey aa,112
getkey bb,113
if aa_==0&&aa=1:gosub*A
if bb_==0&&bb=1:gosub*B
aa_=aa
bb_=bb
loop
のようにしてみてはいかがでしょうか.
aa_,bb_ に一つ前の aa,bb の値を入れて,それが 0 の時(すなわち,押された瞬間)のみサブルーチンの呼び出しを行います.



名無し

リンク

2019/1/1(Tue) 00:39:40|NO.86224

何か変な改行入ってしまってすみません.



Reo

リンク

2019/1/1(Tue) 11:20:52|NO.86226

離さなくてもできるようになりました。
ありがとうございます!



Reo

リンク

2019/1/1(Tue) 11:21:29|NO.86227

解決しました



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