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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0820
気まぐれな猫このスクリプトについて8解決


気まぐれな猫

リンク

2008/8/20(Wed) 19:30:28|NO.18522

こんばんは。

またこの掲示板を利用させ頂きます。

簡単な電卓みたいのを練習のつもりで作ってみたのですが・・・

input命令を使ってボタンで計算するようにしてみました。

*keisan input a input s button "+",*dasisan button "-",*hikisan stop *dasisan d = a+s goto*kekka *hikisan d = a-s goto*kekka *kekka mes "="+d goto*keisan

実行してみると分かるように結果は示すことが出来たのですが、ボタンが増えてしまいます。

私がやってみたいことは、誰にもあるパソコンの電卓と同じように結果は同じ場所に示し、

ボタンも増えないようにするためにはどうしたらいいのでしょうか?

よろしくお願いします。



この記事に返信する


axobj

リンク

2008/8/20(Wed) 19:43:12|NO.18525

*kekkaから*keisanにジャンプするようになっていますね。
この*keisanと最後のgoto*keisanは必要ないので、なくしてしまいましょう。



気まぐれな猫

リンク

2008/8/20(Wed) 20:40:03|NO.18536

質問に答えてくださってありがとうございます。

axobj様の答えに参考し、少しスクリプトをいじって見ました。

うまくいきません。

input a input s button "+",*dasisan button "-",*hikisan button "c",*kuria stop *dasisan d = a+s goto*kekka *hikisan d = a-s goto*kekka *kuria color 255,255,255 boxf *kekka mes "="+d
電卓で結果を求めるときもう一度求めようとクリアし、また再入力するときがありますよね?

それと同じようにcというボタンをつけ、クリアするようにしてみました

再入力すると結果を求めることが出来ません。

なぜでしょうか?

お願いします。



inovia

リンク

2008/8/20(Wed) 21:03:41|NO.18538

こうしたらどうですか?


*kuria color 255,255,255 boxf pos 0,100 color

確か電卓はHSPのサンプルにもあったと思うのでそれを参考にするのもいいかと。



かっぺい

リンク

2008/8/20(Wed) 21:05:05|NO.18539

*Kuriaを一番うえに持ってきて、下にclsを入れてみてはどうでしょうか。



Quiet

リンク

2008/8/20(Wed) 21:15:31|NO.18541

>NO.18536
クリアをしたときに、カラーコードが背景と同じ色に
なっているので見えないだけです。
(文字は黒だった→文字は白になった)

あと、再結果を求めると結果文字列の座標が
繰り下がってしまうので、クリアしたときにまたその位置に表示するように
posを使いましょう。

あ、inoviaさんが答えてましたね(^^;)



気まぐれな猫

リンク

2008/8/20(Wed) 21:33:26|NO.18543

質問に答えてくださってありがとうございました。

二人の答えに参考し、いろいろいじってみます。

inovia様によるとHSPには電卓のサンプルがあるようで、参考にしたいのですが、どれがあるのが

わかりません。

すみません。

サンプルスクリプト参照でしょうか?

その在り処を教えてくださるとうれしいです。

では失礼いたしました。



inovia

リンク

2008/8/20(Wed) 21:58:37|NO.18546

demo.hspですね。
いろんなのが入って長いので抜き出してみました。↓(^_^;)

sysfont:color 0,192,192 pos 40,130:mes "・けいさん" ; objsize 48,24:color 192,192,192 cal1=123:cal2=456 caltype=0:calmark="+\n-\n*\n/" pos 60,160:input cal1 pos 160,160:input cal2 objsize 40,24 pos 114,159:combox caltype,150,calmark objsize 120,24 pos 480,400:button "テスト終了",*idover z=300 *idmain color 0,0,64:boxf 210,162,276,180 color 192,192,192 cal1b=cal1:cal2b=cal2:caltb=caltype if caltb=0 : ans=cal1+cal2 if caltb=1 : ans=cal1-cal2 if caltb=2 : ans=cal1*cal2 if caltb=3 : if cal2!0 : ans=cal1/cal2 : else : ans=0 pos 210,162:mes "= "+ans *idloop if cal1!cal1b : goto *idmain if cal2!cal2b : goto *idmain if caltb!caltype : goto *idmain ; if z<=0 : goto *idover z-- wait 10:goto *idloop *idover end



気まぐれな猫

リンク

2008/8/20(Wed) 22:08:51|NO.18551

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

このサンプルスクリプトを参考にしたいと思います。



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