HSPTV!掲示板

こんばんは。

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

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

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

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

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

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

よろしくお願いします。

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

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

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

電卓で結果を求めるときもう一度求めようとクリアし、また再入力するときがありますよね？

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

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

なぜでしょうか？

お願いします。

こうしたらどうですか？

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

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

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

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

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

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

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

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

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

わかりません。

すみません。

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

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

では失礼いたしました。

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

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

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