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


HSPTV!掲示板


未解決 解決 停止 削除要請

2010
0205
息子button inputで不可を解除5解決


息子

リンク

2010/2/5(Fri) 22:50:08|NO.30429

こんにちは、息子です。
button が、不可の状態で、
inputで、何か1文字でも入れたときに
不可の状態が、解除されるプログラムを教えてください。
ifで、色々やってみたのですが、うまくできませんでした。

a=""
input a
button "OK", *change
*c
if a="" :gosub *change
stop
*change
objenable 1, check
if a="a" :check ^= 1 :goto *c



この記事に返信する


あまま

リンク

2010/2/6(Sat) 01:58:19|NO.30435

こんな感じでしょうか

#define TRUE 1 // 真 #define FALSE 0 // 偽 a = ""; input a; button "OK", *change; btn_id = stat; objenable btn_id, FALSE; // ボタン無効 *c wait 10; if( a != "" ) { goto *change; } goto *c; *change objenable btn_id, TRUE; // ボタン有効 goto *c;



息子

リンク

2010/2/6(Sat) 09:35:47|NO.30442

うまくいきました!
ありがとうございました。



u

リンク

2010/2/6(Sat) 23:53:11|NO.30462

ループさせるよりonkeyで調べた方が効率が良いのでは?

onkey gosub *key sdim a:input a button "botan",*botan hBut=stat objenable hBut,0 stop *key await if a!="":objenable hBut,1 return *botan stop



あまま

リンク

2010/2/7(Sun) 01:42:29|NO.30464

> ループさせるよりonkeyで調べた方が効率が良いのでは?
uさんのおっしゃる通りですね
失礼しました



息子

リンク

2010/2/8(Mon) 11:19:16|NO.30482

いくつもやり方が、あるんですね。
色々とありがとうございました。



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