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


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
1024
もう少し2未解決


リンク

2017/10/24(Tue) 01:24:10|NO.81664

以下に記載したプログラムをソースとして、内容はほぼ同じのまま、何か付け加えるだけで
ルーレットのスタート位置と停止位置を乱数で決めたいです。
分かる方ご教授お願いいたします。

title "LEDルーレット" ;タイトルの設定
#include "hspusbio.as" ;hspusbio プラグイン組み込み

;------------------ 変数等初期化 -------------------------------
randomize ;乱数発生の初期化
wait_c=500 ;待ち時間の設定(1=0.01s)

dim x,12 ;ボタンのX座標配列
dim y,12 ;ボタンのY座標配列
screen 0,400,300 ;画面の大きさを設定
x(6)=190 : y(6)=80
x(5)=220 : y(5)=89
x(4)=242 : y(4)=109
x(3)=250 : y(3)=140
x(2)=242 : y(2)=171
x(1)=220 : y(1)=191
x(12)=190 : y(12)=200
x(11)=159 : y(11)=191
x(10)=139 : y(10)=171
x(9)=130 : y(9)=140
x(8)=139 : y(8)=109
x(7)=159 : y(7)=89

;------------------ 点滅終了 -------------------------------
pos 350,270
objsize 45,25
button "終了", *eend


*disp
port=0 : gosub *test
stop
*test
  x=1
  repeat 7
  objsize 20,20
byte=1 : pos x(1),y(1) : button "●", *eend : wait x : clrobj 1
byte=2 : pos x(2),y(2) : button "●", *eend : wait x : clrobj 1
byte=4 : pos x(3),y(3) : button "●", *eend : wait x : clrobj 1
byte=8 : pos x(4),y(4) : button "●", *eend : wait x : clrobj 1
byte=16 : pos x(5),y(5) : button "●", *eend : wait x : clrobj 1
byte=32 : pos x(6),y(6) : button "●", *eend : wait x : clrobj 1
byte=64 : pos x(7),y(7) : button "●", *eend : wait x : clrobj 1
byte=128 : pos x(8),y(8) : button "●", *eend : wait x : clrobj 1
byte=256 : pos x(9),y(9) : button "●", *eend : wait x : clrobj 1
byte=512 : pos x(10),y(10) : button "●", *eend : wait x : clrobj 1
byte=1024 : pos x(11),y(11) : button "●", *eend : wait x : clrobj 1
byte=2048 : pos x(12),y(12) : button "●", *eend : wait x : clrobj 1
x+=3.3
loop
return

*eend
end



この記事に返信する


リンク

2017/10/24(Tue) 02:32:44|NO.81665

ついでにloopが終わった後にボタンが残れば成功です。



f

リンク

2017/10/26(Thu) 08:49:03|NO.81679

>ルーレットのスタート位置と停止位置を乱数で決めたいです。
>分かる方ご教授お願いいたします。

…もしかして乱数の発生のさせ方が分からんと言う意味か?

Start = rnd( 12 ) + 1
Finish = rnd( 12 ) + 1

でいいのか?

Start = 1 << ( rnd ( 12 ) )
Finish = 1 << ( rnd ( 12 ) )

とかの方が良いのか?



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