« HSPTV!メルマガ 第38号 | メイン | 【講座】HSP3ワンポイントテクニック 第20回 »
2007年05月01日
【講座】HSPよく使うフレーズ 第29回 連続して同じ値が出ない乱数
乱数を作るとき、連続して同じ値が出ては困る！という場合もおおいハズ。
乱数を求めたあとにif文で同じかチェックして戻す、というのもできるけど、
スマートじゃないよねぇ。
そんな時には、最初から同じ値が出ないように計算すればOK。
なんで同じ値にならないかというと・・・ま、それは自分で考えてね。
前回の値はmmだから、最初の一回が0以外になっちゃうのは手抜きだね。
randomize
sdim name,20,20
name.0="オレンジ"
name.1="りんご"
name.2="バナナ"
name_num=3
repeat 10
gosub *rnd_sub
mes ""+mm +") "+ name.mm
wait 5
loop
stop
*rnd_sub
m=mm+rnd(name_num-1)+1
if m>=name_num:m=m-name_num
mm=m
return
[hsp3/rnd_banana.hsp]
(うすあじ)
投稿者 usuaji : 2007年05月01日 11:59
口臭チェッカー市場