• ベストアンサー

スロットのプログラミング

初めて質問します 今授業でプログラムをしてるんですが… 私はスロットにしようと思っていて command buttonをクリックするとimage1にjpgで保存した画像(6枚)をランダムに表示したいのですがそのプログラムが分かりません。 なにかDimで宣言なども必要ですか？？ 分かりにくいかもしれませんがご回答お願いします

質問者が選んだベストアンサー

  • ベストアンサー
回答No.2

1です。 Randomizeは、乱数ジェネレータに新しいシード値を渡すステートメントで、その都度、違う乱数系列を得るための準備として使います。なので、それだけで乱数は得られません。 randmizeの後、Rndで乱数を取得します。ただし、Rndという関数は、0以上1未満の乱数を返すので、これを使い易くするには、いくらかの数を掛けて、整数化する必要があります。今回は6択なので、Int(Rnd()*6)、さらにいえば、0から始まる数よりも1から始まるほうが使い勝手が良いので、1を足して、INT(RND()*6)+1としても良いです。 VisibleをFalseにしたりTrueにしたりするには、ユーザーフォーム上に配置したimageのプロパティの中に、選べる欄があるので、そこで設定するのと、プログラム内では、例えば、使いたい画像がユーザーフォーム1にimage1として配置してあるなら、UserForm1.Image1.Visible=Falseと記述します。 ところで、ご質問の際には、お使いのVBのバージョンを書いて頂けるとよろしいかと思います。バージョンによって、仕様が違う部分があるかも知れませんので。

Messiah0306
質問者

お礼

ご丁寧な回答ありがとうございました 先生の助けも借りてなんとか表示させることができました！ ちなみにVBはマクロだったと思います

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (1)

回答No.1

バージョンが書かれていないので、細部わかりませんが、概要だけで良ければ。 仮に、横に3つ並んだドラムにランダムに画像を表示し、絵が揃ったら当たり、という内容で考えてみます。 ユーザーフォーム上に6枚の画像を読み出し、visibleプロパティをfalseにします。 （visible=目に見える、という設定、これをfalseにすると、目に見えない、つまり、透明になる） 乱数で1～6の値を取得し、その数に応じた画像をドラムの位置に表示し、その1枚のvisibleをTrueにします。 これで、6枚の中から1枚を選ぶことができます。ホントは6枚あるんですが、選ばれた１枚だけを「見せる」わけです。 あとは同じ仕組みを3つ作り、横に並べて、3つドラムのスロットのようにデザインします。 スロットなら、スタートとストップのボタンが必要かも知れません。これらのボタンはコマンドボタンなどで作り、クリックイベントで、ボタンが押されたらメインのプログラムが走る仕組みにします。３つの画像が確定したら、絵が揃ったかで当たりを判定して終了します。 なお上記は一例です。他にも有効な考え方はたくさんあるはずです。ご自分が納得できるやり方が正解だと思います。

Messiah0306
質問者

補足

一応、今やったのは RandmizeでSelect Caceを使ってみました FalseとTureのプログラムはどのようにしたらいいのでしょうか…

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • javascriptについて

    javascriptについて 画像をイベントハンドラのonClickを使ってランダムに表示したいんですけど、どうしても出来ません。 buttonで作ったスタートボタンを押す→画像がランダムに表示される。 buttonで作ったストップボタンを押す→ランダムに表示していた画像が止まる。 これを３枚の画像を使って、スロットのようにしたいです。 また３枚の画像で、スロットを３つにして、同時にスタート（ストップ含め）させる方法はありませんか？

  • Javascriptでリンク画像を１時間ごとにランダム表示

    Javascriptで、以下のような条件のプログラムが必要です。 1.jpg～8.jpgまで８枚の画像があります。 ８枚の画像は、それぞれ決まった別のページにリンクしています。 1.jpg →1.html 2.jpg →2.html ・ ・ 8.jpg→8.html ８枚の画像を４つのグループに分ける。 グループ１　1.jpg , 2.jpg グループ２　3.jpg , 4.jpg グループ３　5.jpg , 6.jpg グループ４　7.jpg , 8.jpg グループ１から４までを１時間ごとに切り替える。 １～４時まで→グループ１をランダム表示 ５～１２時まで→グループ２をランダム表示 １３～１８時まで→グループ３をランダム表示 １９～０時まで→グループ４をランダム表示 １時間ごとにランダム表示ならなんとかできたのですが、 画像リンクがそれぞれ別であることをすっかり忘れていて、 行き詰まっています。 新しい別の方法を知りたいので、すみませんが うまくいかなかったソースは掲載していません。 お分かりになる方がおられましたら、 プログラムをお教えいただけないでしょうか？ よろしくお願いします。

  • スロットが変な動きをします

    JavaScriptで子供用にPCで遊べるようにスロットを作りました。 ここで疑問なのですが、最初にスタートとストップボタンを画像分だけ作りましたが、 スタートを同時にしてストップだけを個別にするためにスタートボタンを１個にしたら 変な動きになりました。 色々とやってみましたが以外に苦心しています。誰か宜しくお願いします。 スタートを３個にすれば簡単なことは十分わかってはいるのですが。 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ <html><head><title></title> <script type="text/javascript"> var picture = new Array(3); picture[1] = new Image(); picture[2] = new Image(); picture[3] = new Image(); picture[1].src = "img/data1.jpg"; picture[2].src = "img/data2.jpg"; picture[3].src = "img/data3.jpg"; function autoChange() { function autoChange1(); function autoChange2(); function autoChange3(); } function autoChange1() { var kaiten1 = Math.round(9*Math.random()); document.initial1.src = picture[kaiten1].src; timer1 = setTimeout("autoChange1()", 100); } function autoChange2() var kaiten2 = Math.round(9*Math.random()); document.initial2.src = picture[kaiten2].src; timer2 = setTimeout("autoChange2()", 100); } function autoChange3() { var kaiten3 = Math.round(9*Math.random()); document.initial3.src = picture[kaiten3].src; timer3 = setTimeout("autoChange3()", 100); } function stop1(){ clearTimeout(timer1); } function stop2() { clearTimeout(timer2); } function stop3() { clearTimeout(timer3); } </script> </head> <form> <input type="button" value="START" onclick="autoChange()"> <img src="img/data1.jpg" name="initial1"> <img src="img/data1.jpg" name="initial2"> <img src="img/data1.jpg" name="initial3"> <br><br> <input type="button" value="STOP" onclick="stop1()"> <input type="button" value="STOP" onclick="stop2()"> <input type="button" value="STOP" onclick="stop3()"> </form> </body></html>

  • VB.NETでのプログラミングについて

    秒数から「○時間○分○秒」と表示されるプログラムを作りたいと考えています。出来たところまでをご説明致しますと、まずTextBoxを四つとButtonが一つと時間の単位が表示されるLabelを四つ作りました。そして問題のプログラムについてなんですが、TextBox「3600」秒と入力しButtonをクリックすると、他の三つのTextBoxに「1」時間「0」分「0」秒と表示されるといったプログラムを作成したいのです。どうかよろしくお願い致します。

  • ジャンル別にランダム画像を表示させるスクリプト

    タイトルの通り、ジャンル別にランダム画像を表示させるスクリプトを探しています。 イメージとしては、ジャンルAにはA1.jpg, A2.jpg, A3.jpg...のうち一つをランダム表示。 ジャンルBにはB1.jpg,B2.jpg,B3.jpg.....のうち一つをランダムで表示。 などなど複数のジャンルにおいて、画像をランダムに、１ページで表示させたいと考えています。（添付画像ご参照ください） "javascript 複数 ランダム 表示"などのキーワードで探したところ、 「複数の画像を重複せずに表示する」などのようなスクリプトでしたので、 新たに質問させていただきました。 PHPでも構いません。 もし知ってらっしゃる方がいましたらよろしくお願いいたします。

  • JavaScriptについて

    サイト作成中なのですが、JavaScriptのところでつまづいています。 ボタンをクリックすると別窓で画像が出てきて表示されるというJavaScriptを作ると、ボタンは表示されていたのですが、ボタンを押しても画像が表示されません。つまり押しても何も反応がありません。 恐らく画像の保存場所が違うのではないかとにらんでみたのですが見当違いかな？？ タグは以下の通りです。 <HTML> <HEAD> <TITLE></TITLE> <SCRIPT language="JavaScript"> function cl(){ popwin=window.open(",'img','width=150,height=150'); popwin.document.write('<IMG SRC="image3.jpg">'); } </SCRIPT> </BODY> クリックしてください。 <FROM> <INPUT type="button" VALUE="クリック" onClick="cl()"> </FROM> </BODY> </HTML> 私はここの部分で間違えてると思いました。 popwin.document.write('<IMG SRC="***.jpg">'); デスクトップに置いてるmyhomepageにimageというフォルダを置いてそこに画像を保存しています。 その場合、<IMG SRC="image/***.jpg">かなと思い実行してみましたがダメでした。。 JavaScriptのときは何か特別なファルダを作る必要が あるんでしょうか？？ JavaScriptに関しては最近はじめたばかりでチンプン カンプンなのでわかりやすく説明していただけるとありがたいです。 ちなみに上記のタグは説明本通り記載しました。 よろしくお願いいたします。

  • vb2010で２つのフォームを同時制御

    vb2010でプロジェクトを作成しています。 Form1がメインで、Form2を観客用に用意しています。 Form1のButton1をクリックすると、Form2のPictureBox1に画像を表示させたく、 下のようなプログラムを書いたのですが、Form2に画像が表示されないばかりか、 「オブジェクト参照がオブジェクトインスタンスに設定されていません。」というエラーまではかれてしまいます。このエラーの意味もわからないほど、素人なのでわかる方どうかよろしくお願いします。 ------------------------------------------------------------------------------ Private Sub Form1_Load Dim g As New Form2 g.Show() ------------------------------------------------------------------------------ Private Sub Button1_Click Form2.PictureBox1.Image = Image.FromFile("C/xxxxxxx.png") Form2.Refresh() ------------------------------------------------------------------------------

  • ピクチャーボックスやイメージに表示し、画像を保存する時に画像を移動させて保存する方法を教えて下さい。

    開発環境はVB6.0です。 イメージに表示させた画像を保存する方法は Private Sub Command2_Click() 'Picture1.Refresh Call SavePicture(Image1, "z:\meibo\a\1.jpg") End Sub ですが、この場合イメージに表示させた画像は元の場所にあるままなので、保存場所は違いますが、同じ絵の画像が２枚になります。 そうならないように画像を移動させる方法を探しています。 ご存知の方いらっしゃいましたらよろしくお願いします。

  • 画像をランダムに表示したい

    var image = new Image[2]; // おまけ画像の読み込み image[0].src = "aaaa1.jpg"; image[1].src = "bbbb2.jpg"; // プレゼント画像を描画 int r=(int)(Math.random()*2); //ランダムに表示 context.drawImage(image[r], 0, 0); これだけでは、だめなのでしょうか!?

  • 楽天スロットの当選確率について

    楽天プライズにあるスロットについて質問なんですが このようなスロット（プログラム？）の当選率は どのように決められているのでしょうか？完全にランダムですか？ それとも運営側からリアルタイムで人為的に当たり外れを決めているのでしょうか？ どうでもいい事ですがかなり短時間に同じナンバーが 上の欄に数回表示されていたのですが 何か必勝法でもあるのでしょうか？ 回答お願いします

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する