お世話になります。
仕事で急にVB6を使ってスロットマシンを作成することに、
なったのですが、はじめて使うVBに戸惑っております。
今のところ、イメージボックスにビットマップデータを入れ、Form loadにデータとしておいて、各リール用にタイマーを用意し、何回か回転すると、タイマーのインターバールを0にして、止めるというところまでは出来たのですが
リールデータは回転絵柄の為、停止時に表示する絵柄以外にも回転中の絵柄がはさんであります。
これを回転させ、ランダムに停止絵柄で止めて絵柄が揃ったら配当するといった判定方法が思いつきません。
ぜひご指導のほど、お願いします。
また参考サイトなども教えていただけるとありがたいです。
No.2ベストアンサー
- 回答日時:
配列データにフラグをつけると言っても、大したことではない。
保持している画像と同じ数の変数を作るだけでも良いし。例えば、今そのイメージボックスが配列になっていて、Image(0)、Image(1)、・・・Image(n)という風になっているのならば、別個にフォーム内の変数として、Private StopFlag(0 to n) As Booleanなどとして、同じ数のBoolean配列を作成する。Image(0)、Image(4)、Image(8)が停止画像ならば、StopFlag(0)=True、StopFlag(1)=False、StopFlag(2)=False、StopFlag(3)=False、StopFlag(4)=Trueという風に値を入れていけば良い。
スロットが回っている時、ループカウンタcountが1ずつ足されていって、n+1になったら0に戻るはずだ。それで、止めるよ~という判定の際にStopFlag(count)を参照して、これがTrueならばほんとに止める、と言った処理を行えば良い。
ありがとうございます。だいたいイメージがつかめました
近いうちに、タイマーや判定について、すると思いますが、またよろしくお願いします。
No.1
- 回答日時:
停止絵柄で止める、とあるので、例えば回転中の絵柄が3枚あるとしたら、つまり、
0=ベルの停止絵柄
1=ベル3/4、バー1/4の回転絵柄
2=ベル1/2、バー1/2の回転絵柄
3=ベル1/4、バー3/4の回転絵柄
4=バーの停止絵柄
・・・
というような配列になったとしたら、「必ず4で割り切れるところまで回転する」という処理にする事ですぐ対応可能かと。
つまり、停止絵柄がある法則で導き出されれば良い。前述の○で割り切れる、というのでも良いし、配列データ中に停止絵柄フラグのようなものを作っても良いだろう。後は、停止するかどうか決める時に、停止絵柄かどうかを判別するコードを入れれば良いだろうね。
おおざっぱな回答になったので、こまかな点はまた聞いていただきたい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- パチンコ・スロット パチスロ・ペルソナ5で真ん中の赤が中々止められません 1 2023/04/11 23:08
- その他(IT・Webサービス) 知見のある方、教えてください。AI技術を活用して絵本を作りたいです 1 2023/04/13 13:28
- ドライブ・ストレージ Windowsの絵柄が変わったので元に戻す方法を教えて下さい。 8 2023/02/27 17:31
- その他(アニメ・マンガ・特撮) 作画が綺麗でキャラの表情が魅力的なおすすめ漫画を教えてください。 絵を描く人間です。男性キャラの表情 1 2023/04/18 00:49
- 会社・職場 イヤミかどうかの判別お願いします 11 2022/08/23 13:25
- 着物・浴衣・水着 布にお絵描きをして柄を描きたいのですが、何かいい画材はありますか? 古着屋さんで見た着物が忘れられず 1 2022/11/26 20:48
- 美術・アート 絵柄について質問です。絵を描いている高校生ですが、「絵柄が変わったね」と絵描き仲間と美術の先生などの 2 2022/09/04 19:58
- 絵本・子供の本 昔、家にあった絵本を探しています 1 2023/08/15 01:36
- 統計学 アンケート調査のデータ比較をする際の統計分析方法の選択に迷っています 5 2022/04/15 01:05
- クレジットカード 忌憚なき回答よろしくおねがいします 3 2022/05/27 04:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
VB.NETの配列にExcelから読み込...
-
エクセルでXY座標に並べられた...
-
Excel2010のinputboxで複数デー...
-
Dir関数で読み取り順を操作でき...
-
free()関数の多用 と Segment...
-
Redim とEraseの違いは?
-
2次元配列のソート
-
excel vbaの配列なんですが・・・
-
配列入れ替えの効率的方法は
-
ポーカーを作りたいのですが・・・
-
エクセル(VBA)の空白配列の削除...
-
C#,繰り返し処理での最大値の取...
-
VBAでMODE関数をつくる
-
VB6からの移行したいけど、VB.N...
-
VBAで配列引数を値渡しできない...
-
MATLABを使ったSTLデータのボク...
-
配列の中の最大値とそのインデ...
-
大量の変数を定義するにはどう...
-
2次元配列でウォッチが出来ない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 変数名に変数を使用したい。
-
vba フィルター 複数条件 3つ以...
-
C#でbyte配列から画像を表示さ...
-
Excel2010のinputboxで複数デー...
-
エクセルでXY座標に並べられた...
-
構造体配列の特定のメンバーをF...
-
定数配列の書き方
-
コンボボックスのインデックス...
-
OutOfMemoryExceptionの回避策...
-
Dir関数で読み取り順を操作でき...
-
CheckBoxの配列化
-
構造体配列内の文字列検索のよ...
-
COBOLの基本的な事なので...
-
Redim とEraseの違いは?
-
VBAで配列引数を値渡しできない...
-
2次元配列の初期値
-
配列の中の最大値とそのインデ...
-
大量の変数を定義するにはどう...
-
VB6からの移行したいけど、VB.N...
-
VB6のメモリ解放に関して
おすすめ情報