• ベストアンサー

ランダムに絵を切り替えたい

同じ位置にイメージを3枚置きます。 コマンドボタンを押すとそれがランダムに切り替えるようにしたいです。 image1 image2 image3 とイメージがあります。 int(rnd*3)と番号を作って、それを 　image(番号).visible.trueに持っていくところが わかりません。 名前の結合？ 説明不足ですが、何かお分かりの方がいましたら教えてください。 よろしくお願いします。

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

  • ベストアンサー
  • Mizyu
  • ベストアンサー率41% (245/593)
回答No.1

imageをコントロール配列にすれば、簡単に実装できます。 コントロール配列にしたい場合には、同じ名前のImageを作れば、 「VBがコントロール配列にしますか？」ときいてくるので、すぐに作れます。 image1(0) image1(1) image1(2) という形にして for i = 0 to 2 image1(0).visible=false next image1(cint( rnd*3 ) ).visible = true こんな感じでしょうか。 ※記載したソースは未テストです。

その他の回答 (1)

  • BlueRay
  • ベストアンサー率45% (204/453)
回答No.2

コントロールの配列化はMizyuさんが先に回答しているので少し まず１点目 cint(rnd*3) これだと、0～3になってしまうので int(rnd*3)　又は　cint(rnd*2) となると思います。 次に２点目 Visibleを使用するのもいいと思いますが表示の 前後位置を変更するだけの方が簡単だと思います。 image1(int(rnd*3)).ZOrder 0 Mizyuさん、横からすいません。 以上で如何でしょうか。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 乱数がうまくランダムされない

    コマンドボタンを押すごとに画像をランダムに表示したいのですが 決まった順番で表示されてしまいます。 （画像はMy Picturesに440個入っています。） Sub ボタン_Click() Dim i As Long '画像をランダムに表示 i = Int((440 - 1 + 1) * Rnd + 1) Forms("フォーム1").ボタン.Picture = "D:\My Documents\My Pictures\画像" & i & ".ico" Debug.Print i End Sub コマンドボタンを何回かクリックし 上記のコート゛を実行してイミディエイトウインドウで確認すると 311 235 255 128 133 341 7 335 359 となります。 何回やってもこの順番です。 なんの規則かわかりません。 確かにランダムなのですが 本当にランダムにするのはどうすればいいでしょうか？ 「i = Int((440 - 1 + 1) * Rnd + 1)」 ここに原因があると思うのですが どうすればいいでしょう？ よろしくお願いします。

  • ランダムで画像を表示させるには？

    環境はFlashCS5で、アクションスクリプト3.0を使用しています。 ５枚の画像（インスタンス名：mc0～mc4）をランダムで表示させるムービーを制作しているのですが、 下記のスクリプトですと、ランダムで画像が表示されるのですが、画像の切り替えがループになってしまって、次から次へとランダムで画像が切り替わります。フレーム１に下記のスクリプトを記述し、フレーム１にムービーインスタンス「mc0」から「mc4」を配置しています。 function randomShowMC():void { for (var i:int=0; i<5; i++) { this["mc" + i].visible = false; } var rnd:int = Math.floor(Math.random() * 5); this["mc" + rnd].visible = true; } randomShowMC(); var myTimer:Timer = new Timer(3000); myTimer.addEventListener(TimerEvent.TIMER ,function(){randomShowMC()}); myTimer.start(); このスクリプトを改良？改造？して、ランダムの画像が１回のみ…つまり、おみくじみたいに、（mc0～mc4の画像を）ランダムで１回のみ画像を表示させたいのです…表示後の画像が切り替わらずそのままで停止させたいのです。 又は、ムービーインスタンス「mc0」から「mc4」の画像をランダムで表示させ、最初に表示された、その画像で停止させるスクリプトを新規に記述しても構いませんので、ご指導・アドバイスをお願い致します…。 どなたか、解る方がいましたらランダム画像表示で１回表示のみのループしないスクリプトを教えてください。よろしくお願い致します…。

    • ベストアンサー
    • Flash
  • Loadしてある絵を切り替えて表示する

    Excel VABで、同じ表示位置に重ねてLoadしてある複数の画像から 一枚だけを選択して表示しようとしています。次のソースのように 表示する絵だけをVisible = Trueとしていますが、絵の切り替わりが もたもたしていて、スパッと切り替わりません。 もっときれいに切り替えるために何か良い方法はないでしょうか？ よろしくお願いします。 Sub dispPicture(pn As Integer) Select Case pn Case 0 ' ClipNameView Image1.Visible = True Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Case 1 ' ThumbnailView Image1.Visible = False Image2.Visible = True Image3.Visible = False Image4.Visible = False Image5.Visible = False End Select End Sub

  • Rnd関数について

    今Rnd関数を使って問題を作ろうとしているのですが, 40問中から重複なしに20問ランダムに出題するというものを作ろうとしています。 しかし,重複を無くすためのプログラムの仕方がわかりません。 ついこの間,VBを始めたばかり(プログラムはVBが始めて）なので, できれば詳しい解説を書いてほしいです。 今現在考えているのはこんなのです↓ Private Function RandomCnt() As Long '********************************* '* ランダムで問題の番号を取得 * '********************************* '一時的にランダムで取得した問題番号を格納 Dim RandomNo As Long RandomNo = Int((MaxRec * Rnd) + 1) 'ランダムで番号を取得 Do While volQuizNo(RandomNo) = True 'まだ出していない問題が見つかる間 RandomNo = Int((MaxRec * Rnd) + 1) 'ランダムで番号を取得 Loop volQuizNo(RandomNo) = True '出題問題のチェック RandomCnt = RandomNo End Function

  • Excel2007VBAのランダム置換ソース

    Excel（エクセル）2007VBAを使って、 「複数ある、同一の置換したい文字・数」 を 「複数の文字・数」 でランダムに置換したいのですが、 VBAソースが分かりません。 たとえば、 【A列】に A1:私は(置換する所)と(置換する所)が得意です。 A2:彼は(置換する所)と(置換する所)と(置換する所)が特技です。 A3:彼女は(置換する所)と(置換する所)と(置換する所)と(置換する所)の選手です。 A4:彼らは(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)が好きです。 A5:あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 と入力されている時に、 【B列】に B1:拳闘 B2:柔道 B3:野球 B4:籠球 B5:打球 B6:羽球 B7:剣道 B8:卓球 B9:水泳 B10:避球 と入力したとします。 そして、コマンドボタンを押すと 【A列】にあるすべての 「(置換する所)」 を、 【B列】にある「拳闘」「柔道」「野球」「籠球」「打球」「羽球」「剣道」「卓球」「水泳」「避球」のどれかで必ず置換されるようにします(【ランダムで置換】されるようにしたいです)。 ※置換の条件として、一つのセル内で同じ文字が重複しないようにしたいです。 (私は拳闘と拳闘が得意です。) 　　　　↑　　　↑ 同じ文字が2つ以上ある置換は失敗です。 --------------------------------- 置換の成功例 (重複なしの置換) ◆置換前の【A列】A5 あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 　　　　　　↓↓↓ ◆置換後の【A列】A5 あの人は打球と柔道と水泳と剣道と避球と拳闘をしたことがありません。 --------------------------------- これが未完成のVBAソースです。 ↓↓↓ Sub test_Click() For Each CellA In Range("A1:A5").Cells Rnd1 = Int(Rnd() * 10) + 1 Rnd2 = Int(Rnd() * 9) + 1 Rnd3 = Int(Rnd() * 8) + 1 Rnd4 = Int(Rnd() * 7) + 1 Rnd5 = Int(Rnd() * 6) + 1 Rnd6 = Int(Rnd() * 5) + 1 If Rnd2 = Rnd1 Then Rnd2 = Rnd2 + 1 If Rnd3 = Rnd2 Then Rnd3 = Rnd3 + 1 If Rnd4 = Rnd3 Then Rnd4 = Rnd4 + 1 If Rnd5 = Rnd4 Then Rnd5 = Rnd5 + 1 If Rnd6 = Rnd5 Then Rnd6 = Rnd6 + 1 CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd1, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd2, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd3, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd4, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd5, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd6, 2), , 1) Next End Sub 【補足】 ※コマンドボタンを押すとランダム置換される仕様です。 ※１回限定の置換ではなく、コマンドボタンを押すたびに(何度でも)ランダム置換できるようにしたいです。 ※上記の【A列】【B列】の文字はあくまで例です。実際は、【A列】【B列】ともに自由に文字を変更できる応用の利く仕様にしたいです(Excelの【A列】【B列】に、文字を直接入力して変更するという意味です)。 ※上記の【A列】が5行、【B列】が10行というのもあくまで例です。実際は、【A列】【B列】ともに何行にでも対応できる仕様にしたいです(具体的には【A列】【B列】ともに、10000行くらいまで対応できるのが理想です)。 長くなりましたが、ここまでの条件を満たすVBAソースが知りたいです。 どうかよろしくおねがいいたします。

  • javaの配列部分ででエラーがでます。

    javaの配列部分ででエラーがでます。 マインスイーパを作っており爆弾の位置を決めるところでエラーの原因がわからず困っています。 ９×９で、 ランダムでかぶらないように10個の爆弾を置くプログラムを作りたいです。 Random rnd=new Random(); int[][] mine=new int[8][8]; for(int i=0;i<=9;i++){ int yoko=(rnd.nextInt()>>>1)%9; int tate=(rnd.nextInt()>>>1)%9; if(mine[yoko][tate]!=10)mine[yoko][tate]=10;　//爆弾があるところは１０ else i--; } よろしくお願いします。

    • ベストアンサー
    • Java
  • VBAのこの実行時エラーは何故起きる？

    ExcelVBAで次の大変簡単なコードを書いてみました。 シート上の行列（100*100）の範囲にランダムに☆印を100個表示するというものです。sheet1にコマンドボタンを貼り付け押すと実行します。ところが実行時エラーが起きて止まります。（メッセージ：”アプリケーション定義またはオブジェクト定義のエラーです”）原因はなんでしょうか？6行目が問題なようです。うまく動く時もあるので不思議です。 Private Sub CommandButton1_Click() Application.ScreenUpdating = False For n = 1 To 100 R = Int(Rnd * 100) C = Int(Rnd * 100) Sheet1.Cells(R, C).Value = "☆" Next Application.ScreenUpdating = True End Sub

  • VB6.0で製作中の「もぐらたたきゲーム」について（補足版）

    昨日しました質問が要領を得ていなくて、回答してくださった皆様すいません。 ランダムで４種類の画像が同時に１６個のImageにランダムに表示するようにしています。が、ランダムに表示するなかでも画像がかぶってしまい３種類、もしくは２種類しか表示されなくなってしまっています。どうしたら４種類とも表示できるでしょうか？ ＜コード＞ Private Sub Form_Load() Randomize End Sub Private Sub Timer1_Timer() n = n + 1 If n <= 20 Then i = Int(Rnd * 16) f = Int(Rnd * 16) s = Int(Rnd * 16) b = Int(Rnd * 16) Image1(i0) = Image4 Image1(f0) = Image4 Image1(s0) = Image4 Image1(b0) = Image4 Image1(i) = Image2 Image1(f) = Image2 Image1(s) = Image5 Image1(b) = Image7 Label1.Caption = " バイキンマンの数　= " & (2 * n) Label3.Caption = " ドキンちゃんの数　= " & n i0 = i s0 = s b0 = b f0 = f Else Timer1.Enabled = False Command1.Caption = " 再度トライ " End If End Sub もっとコードが必要でしたら公開します。

  • rnd関数の使い方教えてください。

    初歩的かも知れませんが、よろしお願いします。 仕様環境：Access2007　Win7 ・・・・・ 只今、新規レコードに自動的にランダムな数字が割り振られるように テストしています。 調べたところ「rnd関数」というものを使うということが解りました。 試験用のデータベースを簡単に作り テーブルの項目（フィールド）も簡単にしました。 テストテーブル ------------------- ID（オートナンバー） 名前（テキスト型） 住所（テキスト型） 乱数（テキスト型）または（数値型）←あとで説明しますが。。 ------------------- 乱数のフィールドにある「規定値」にrnd関数を入力しテーブルを保存しようとすると、 「テーブルレベル入力規則の未定義の関数名です。。」と エラーが出てしまいます。テキスト型でも数値型でもです。 rnd関数は、、 int((200-100+1)*rnd+100) ↓入力してエンターを押すと Int((200-100+1)*Rnd()+100)となります。 つまり100から200までの間の数字をランダムに割り振ろうと挑戦しています。 ちなみにテーブルから「乱数」フィールドを消して、フォームにテキストボックスを作り、 コントロールソースに入力しても「未定義です」のようなエラーがでます。（関数の前に”=”もつけたのですが） また規定値に入力しビューで見ると「#Name？」となります。 クエリにrnd関数のフィールドを作ってフォームにつなげても出来ません。 （集計で「演算」にして作ってみたりしたのですが。。） まるっきりrnd関数の使い方がわかりません（汗）。 VBA（モジュール）は使わず、フィールドプロパティなど基本的な機能かマクロでやりたいです。 また重複しないようにしたいのです。 漠然とした相談ですが、どの場面（テーブルやクエリやフォーム）でどう使うか教えてください、 新規レコードにランダムな番号（複数桁で）割り振られるようにしたいです。 宜しくお願いします。

  • ランダム表示の画像位置

    初めまして、本当に初心者な質問で 申し訳ないのですが回答を頂ければ 嬉しく思います。 ホームページビルダー7ライトを使い、 画像をランダムで変えたいと思って 調べてやってみたところ、以下の JavaScriptで一応は出来たんです。 <script language="JavaScript"> <!-- img = new Array img[0] = "gif/1.gif"; img[1] = "gif/2.gif"; img[2] = "gif/3.gif"; img[3] = "gif/4.gif"; img[4] = "gif/5.gif"; rnd = Math.floor(Math.random() * img.length); document.write("<img src='",img[rnd],"'>"); //--> </script> しかし、画像が一番左上に出てしまいます。 これを位置調整しようと思ったらどんな JavaScriptを使えばよろしいでしょうか？ 本当に申し訳ありませんが、回答の方を どうかよろしくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する