HSPTV!掲示板

カウント機のプログラムを作ろうと思って下のようなスクリプトを書いたのですが、

width 320,240

dim count
print count
	button gosub 増やす , *tas
	button gosub 減らす , *hik
*tas
	dim count+
*hik
	dim count-

僕もHSPについてよくわからないのですが、多分「

dim count+

」でエラーが
あるようです。「

count+

」でもダメでした。どこをどう直せばいいですか？

直すとしたらこんな感じかな？

	width 320,240
	button "増やす" , *tas
	button "減らす" , *hik
	stop
*tas
	count++
	pos 0,50:color 255,255,255:boxf:color:mes count
	stop
*hik
	count--
	pos 0,50:color 255,255,255:boxf:color:mes count
	stop

     count=0
     mes count
     button gosub "増やす" , *tas
     button gosub "減らす" , *hik
     stop
*tas
     count++
     return
*hik
     count--
     return

以上に用に替えてみて下さい。
HSPでは変数の宣言はいりません。
print とより mes が推奨されます。
また、文字列は"で囲わなければなりません。
あと,stop命令を入れたのは念のためです。今回の場合入れなくても構いません。
ただ、一般的にあそこにstopを入れないと後ろのスクリプトが実行されてしまいます。
(今回の場合、++と--両方が実行されるため気にしなくて良い。)
あと、変数の中身が変わっても、表示が変わらないので、
return(2つ両方とも)の前に
mes count
を入れて下さい。
このままだと、文字があとにどんどん追加されていくので
本来以下のようであるべきでしょう

     count=0
*start
     cls 0
     mes count
     button "増やす" , *up
     button "減らす" , *down
     stop
*up
     count++
     goto *start
*down
     count--
     goto *start

ちなみにclsは画面をリセットする命令です。

うまくできました。hatterさんありがとうございます。
できたソフトはいつか公開するので、お楽しみに。

解決済みなのでただの補足ですが……。

> hatter さん
> (最後のスクリプト)
増減させるたびにボタンを作り直すのは無駄が多すぎです。
しかも、画面がちかちかしてしまいます。

	 count = 0
	 
	 button gosub "増やす", *inc
	 button gosub "減らす", *dec
	 
	 mes count
	 
	 stop
	 
// 画面を描き直すラベル
*RedrawWindow
	redraw 2		// 描画する前に
	
	color 255, 255, 255 : boxf : color	// 全体を白で塗りつぶす
	
	// 描画
	pos 10, 50 : mes count
	
	redraw 1		// 描画した後に
	return
	
// 増加 (increase の略)
*inc
	count ++
	gosub *RedrawWindow
	return
	
// 減少 (decrease の略)
*dec
	count --
	gosub *RedrawWindow
	return
	

あ、言い忘れましたがリセット機能とかボタン名などをいじってます。

ソフトをまとめたzipファイルアップロード致しました。
http://www.mediafire.com/?sharekey=45144bf8c57de8aeb64026cfc0611236e04e75f6e8ebb871

追記ですが、カウント機のファイルはcount.zipに入っています。