HSPTV!掲示板

プログラム講座のサンプルプログラムを作っているときに、
rnd文にてランダムで変数が変更されないバグが発生しました。

*main
cls
mes"おみくじ"
randomize
a=rnd(6)
if a=0:mes"大凶"
if a=1:mes"凶"
if a=2:mes"末吉"
if a=3:mes"小吉"
if a=4:mes"中吉"
if a=5:mes"大吉"
mes""+a+""
button "変更",*main
stop

これだとボタンを押した際に変数が変更されて
if文の結果とmesで表示されるaの値が変化しますよね？
運がいいだけ…とは思えないのですね。
私のプログラムが原因かもしれませんが、
とりあえず報告だけしてみました。

もしかしたらヘルプに
”Windowsのタイマから得られた不定な値を
使って初期化します”とかかれているので
そこが私のPCだけダメだったのかもしれませんが。

HSPのバージョンを確認してみてください。HSP3.1RC1ではありませんか？

更新履歴に
> RC1のrandomize命令で引数を省略した時に正しく初期化されなかった不具合を修正。(HSPBT#168)
とあるように、HSP3.1では修正されています。
HSPのアップデートをお勧めします。

ファイル名がhsp31rc1ですけど
これをアップデートしなければなりませんか？

友人に確かめてもらいましたがアップデートの必要がありそうなので
今からやってきます。
ellerさん、お早い返答ありがとうございました。

いえいえ、お力になれたのでしたら何よりです。それでは失礼いたします。

パフォーマンスにモロに影響する処理があるので載せときます。
・clsは基本的に使わない。boxfで塗りつぶし。
・randomize、buttonは１回呼んでおけばいいものなので何度も呼ばない。

	mes"おみくじ"

	randomize

	pos , 50
	button "変更",*change
	stop

*change
;	白色四角で塗りつぶす
	color 255, 255, 255
	boxf 0, 20, 50, 40

;	文字色黒
	color

	pos 0, 20
	a=rnd(6)
	if a=0:mes"大凶"
	if a=1:mes"凶"
	if a=2:mes"末吉"
	if a=3:mes"小吉"
	if a=4:mes"中吉"
	if a=5:mes"大吉"

;	これは別に意味なし
	title ""+a+""