複数のPictureBoxに画像を表示したい・・・

解決

シュン 2008-12-15 12:35:54 No: 145493 IP: 192.*.*.*

複数のPictureBoxに画像を表示できるプログラムを作りたいんですがどうもうまくいきません。
  具体的には、PictureBoxを３つ用意して、特定の条件下でボタンを押すと画像が表示されます（それぞれ違う画像が表示されます）。このとき、２つの条件を同時に満たす時、条件を満たした２つのボタンを順に押すと、両方のPictureBoxに画像が表示されるようにしたいです。しかし、１つのPictureBoxに画像が表示された後、条件を満たしたもう１つのボタンを表示してももう１つのPictureBoxに何も表示されません。
  ボタンを押して画像を表示させるコードとしては、
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CountLabel.Text Mod 3 = 0 Then
        PictureBox1.Image = Image.FromFile("表示する画像")
            End If
    End Sub
といった感じです。どうすればいいでしょうか・・・。

ガッ 2008-12-16 01:12:47 No: 145494 IP: 192.*.*.*

スロットマシーンのようなものですか？
結局ボタンが何個あるのか、"条件"とは具体的に何なのかわかりません。
提示されているコードのどの部分が条件になるのでしょうか？

通るぜ 2008-12-16 09:29:39 No: 145495 IP: 192.*.*.*

うまくいかないのは、画像表示なのか条件判断なのか？

>特定の条件下で
>２つの条件を
>条件を満たした２つの
>条件を満たしたもう１つの
すべてが同じ条件なのか違う条件なのか判断のしようがない。

>PictureBoxを３つ
>両方のPictureBox
>１つのPictureBox・・・中略・・・もう１つのPictureBox
PictureBoxが３つなのか２つなのかどっちなんだ。

>If CountLabel.Text Mod 3 = 0 Then
どうでもいいが CountLabel.Text は文字列なのでおもむろに計算に巻き込むのではなくて、数値型にキャストしてからのほうがいいぞ。

シュン 2008-12-16 11:59:19 No: 145496 IP: 192.*.*.*

おっとっと、いろいろ抜けてた感がありましたので詳細を。
  ガッさん・・・スロットマシーンではありません。もっと別なゲームを作っています。条件の詳細を記載してませんでした・・・条件は、CountLabelの数値が特定の数（たとえば、３の倍数と３のつく数字とか、５の倍数、８の倍数）になった時です。条件が示されているコードは
            If CountLabel.Text Mod 3 = 0
です。ボタンは画像を表示させるのとカウントさせる機能を持つもので３つあります。
  通るぜさん・・・条件については前述のとおりです。あと、すべてが同じ条件ではなくて、１つの条件の時のあるし、２つの条件が組み合わさるときがあります。問題は画像表示です。PictureBoxは３つあって、条件に応じて１つか２つのPictureBoxに画像を表示したいが２つ同時に画像を表示できないということです。
  ２人ともすいませんでした。改めてアトバイスをお願いします。

特攻隊長まるるう 2008-12-16 12:23:49 No: 145497 IP: 192.*.*.*

> 問題は画像表示です。
> ２つ同時に画像を表示できないということです。
PictureBox1.Image = Image.FromFile("表示する画像１")
PictureBox2.Image = Image.FromFile("表示する画像２")

何がしたいのか全然伝わらないけど、
また、FuzzBuzz問題ができないとか言ってそうな気がするｗ

シュン 2008-12-16 13:00:07 No: 145498 IP: 192.*.*.*

特攻隊長まるるうさん・・・そのように画像を表示できるなら苦労しないです。言葉が抜けていてすいませんでした。TimerでCountLabelをカウントしながら、まず１つ目の条件を満たした１個目のボタンを押してPictureBoxに画像を表示させ、その画像を残したまま２つ目の条件を満たした２つ目のボタンを押して別のPictureBoxに画像を表示させます。つまり、TimerのInterval１回内に２つのボタンを押して２つの画像を同時に表示するプログラムにしたいわけです。
例えば、条件１
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              If Val(CountLabel.Text) Mod 5 = 0 Then
                  PictureBox2.Image = Image.FromFile("表示する画像1")
        End If
    End Sub
条件２
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
              If Val(CountLabel.Text) Mod 8 = 0 Then
                  PictureBox2.Image = Image.FromFile("表示する画像2")
        End If
    End Sub

Timer1.tickでCountLabelをカウントする
という感じです。
  なかなか伝わりません・・・画面としては(Name名で記載)
                    CountLabel

       PictureBox1  PictureBox2  PictureBox3

       Button1      Button2      Button3

特攻隊長まるるう 2008-12-16 14:01:08 No: 145499 IP: 192.*.*.*

> 特攻隊長まるるうさん・・・そのように画像を表示できるなら苦労しないです。
> つまり、TimerのInterval１回内に２つのボタンを押して
> ２つの画像を同時に表示するプログラムにしたいわけです。
残念ながらそのように画像表示できるとしか思えません。
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Button1.PerformClick()
        Me.Button2.PerformClick()
    End Sub

特攻隊長まるるう 2008-12-16 14:14:57 No: 145500 IP: 192.*.*.*

両方の条件が成り立つのは
CountLabel.Text = "40"

。。。毎回、文字列⇔数字の変換をしまくるより、
変数で数値型のカウンタを持ってて数字⇒文字の
変換だけする方がより良いプログラムだと思います。

っつか、すでにバグがあるね。
Button1 も Button2 も PictureBox2 を書き換えてるね。

シュン 2008-12-16 14:32:53 No: 145501 IP: 192.*.*.*

なかなか伝わりませんね・・・
特攻隊長まるるうさん・・・そのようにコードを入力したところボタンを押す前に画像が表示された上、２つの画像が表示されずに最初に表示された画像しか残りませんでした。
                      CountLabel

       PictureBox1  PictureBox2  PictureBox3

       Button1      Button2      Button3
において、CountLabelをカウントさせる→Button1を押す条件を満たしたら押してPictureBox1に画像を表示→Button2を押す条件も満たしていた場合押して、PictureBox1に画像を残したままPictureBox2に画像を表示します。
（PictureBox1とPictureBox3、PictureBox2とPictureBox3でも同じようにできるようにします。また、押す順番は関係ありません。どちらからでもOKにします。）条件は前述どおりCountLabelの数値です。
  どうやら「すぐ画像を表示させる」と思われているようですが、実際は「ボタンを押して画像を表示させる」という内容です。何か方法はないでしょうか・・・

シュン 2008-12-16 14:44:51 No: 145502 IP: 192.*.*.*

っと、連レスになりますが・・・
特攻隊長まるるうさん(2008/12/16(火) 14:14:57のレス)・・・一方がPictureBox1です。すいませんでした。また、数値型のカウンタを持って、文字列に変換する方法はすでに記載しています。
    Timer1.tick内
    Dim i As Integer = 0  ←モジュール関数
         i += 1
            CountLabel.Text = i.ToString()
レスが入れ違いになったようですね・・・

特攻隊長まるるう 2008-12-16 14:54:17 No: 145503 IP: 192.*.*.*

> どうやら「すぐ画像を表示させる」と思われているようですが、
> 実際は「ボタンを押して画像を表示させる」という内容です。
> 何か方法はないでしょうか・・・
条件が整ったときに変更するのは変数(フラグ)の値にして、
ボタン押下時はそのフラグがたってるかどうかを見るだけだね。

特攻隊長まるるう 2008-12-16 14:57:33 No: 145504 IP: 192.*.*.*

> どうやら「すぐ画像を表示させる」と思われているようですが、
> 実際は「ボタンを押して画像を表示させる」という内容です。
伝わってないのではなく、どんどん言ってることが変わってるよね。

> つまり、TimerのInterval１回内に２つのボタンを押して
> ２つの画像を同時に表示するプログラムにしたいわけです。
タイマーイベント時にボタンを押すとはっきり書いておられますが？？？
こういう後出しじゃんけんは嫌われます。

シュン 2008-12-16 15:15:57 No: 145505 IP: 192.*.*.*

特攻隊長まるるうさん・・・そうですか・・・。最初からちゃんと状況を説明するべきでした。すいません。
  タイマーイベント時にボタンを押すと、と言われましたがそのイベントはCountLabelをカウントさせているに過ぎず、実際に画像を表示させるのはボタンイベントです。Timerは画像を表示させるのに直接関係してません。
                        CountLabel

       PictureBox1  PictureBox2  PictureBox3

       Button1      Button2      Button3
        ↑            ↑
のボタンを押すとPictureBox1、PictureBox2に画像が表示される。一方だけではない。ほかのボタンの組み合わせも同様。
  解決策が浮かばないなら、僕の説明不足か、不可能と言うことかもしれませんね・・・。何とかならないだろうか・・・。

特攻隊長まるるう 2008-12-16 15:34:47 No: 145506 IP: 192.*.*.*

だから間に変数のフラグ挟めばいいじゃない？

の 2008-12-16 16:09:09 No: 145507 IP: 192.*.*.*

1.CountLabelはタイマー(Timer1)イベントにてカウントアップ

2.Timer1が一定時間経過するまでに
  ユーザーはCountLabelを目視して条件が合致している
  ボタン(1〜3)を押す。(最大2回?)

3.CountLabelが次に更新されるまでに、ボタンが押された回数(1〜2)・
  押されたボタン1〜3によって、それぞれPictureBox1〜3のうち２つ
  に適切な画像を表示する

4.１へ
>ボタンは画像を表示させるのとカウントさせる機能を持つもので３つあります。
はよく分からなかったのですっ飛ばしました。

みたいなゲームを想像してみました。(こんな感じでいいのかな)

で３番のところが分からない?

通るぜ 2008-12-16 17:21:22 No: 145508 IP: 192.*.*.*

解決方法が浮かばないのは、誰も「何が問題なのか」が伝わらないから。
説明不足ではなくて、説明下手。
誰もキミのやりたいこと、困っていることが理解できてない。

PictureboxもButtonも３つずつあるのに、説明文の中では２つになったりする。
「どちらか」といえば２つのものについてだし、３つならば「どれか」でしょ。
例えば〜の中でPictureboxもButtonも１２３のどれかさっぱりわからないし。

    Private mCount As Integer

    Private Sub Timer1_tick(・・・省略
        mCount += 1
        If mCount = Int32.MaxValue Then mCount = 0
        CountLabel.Text = mCount.ToString()
    End Sub

    Private Sub Button1_Click(・・・省略
        If mCount Mod 5 = 0 Then
            PictureBox1.Image = Image.FromFile("表示する画像1")
        End If
    End Sub

    Private Sub Button2_Click(・・・省略
        If mCount Mod 8 = 0 Then
            PictureBox2.Image = Image.FromFile("表示する画像2")
        End If
    End Sub

    Private Sub Button3_Click(・・・省略
        If mCount Mod 13 = 0 Then
            PictureBox3.Image = Image.FromFile("表示する画像3")
        End If
    End Sub

これで何か問題が？

の 2008-12-16 22:16:53 No: 145509 IP: 192.*.*.*

私も質問するときに、たまに確認しますが
一応読んでみては?

技術系メーリングリストで質問するときのパターン・ランゲージ
http://www.hyuki.com/writing/techask.html

書き出し —— 最初に問題の要旨を書きましょう
実行手順 —— 手順は箇条書きで書きましょう
結果の予想 —— 期待した結果を書きましょう
実際の結果 —— 実際に起きたことを書きましょう
ステップ明記 —— どこからうまく行かなくなったかを書きましょう

この辺で指摘されている文章中がごちゃごちゃと混ざってしまって
うまく説明できていない気がします。

それから
>ボタンは画像を表示させるのとカウントさせる機能を持つもので３つあります。
は
ボタンは画像を表示させるのと、カウントさせる機能を持つもので
３つあります。

だと思いますが、この例だけでなく句読点や改行を適切な位置で
使用してみてください。
曖昧な書き方だと読み方で意味が変わってきてしまいます。

の 2008-12-16 22:18:59 No: 145510 IP: 192.*.*.*

>この辺で指摘されている文章中がごちゃごちゃと混ざってしまって

この辺で指摘されている文章がごちゃごちゃと混ざってしまって

誤字には気をつけましょうを追加しておいてください・・・

特攻隊長まるるう 2008-12-17 10:10:09 No: 145511 IP: 192.*.*.*

主語も無いのかもしれない。。。

> つまり、TimerのInterval１回内に２つのボタンを押して
> ２つの画像を同時に表示するプログラムにしたいわけです。
ボタンクリックの処理は書いてあるし、Timer のイベントは
プログラムが判断することだから、プログラムからボタンを
押すように解釈したけど、ユーザーだった。

ただし、それならそれで話が合わなくなるのが
実行時の動き。
新規プロジェクトで PictureBox をデフォルト設定で貼り付け、
> PictureBox1.Image = Image.FromFile("表示する画像1")
を実行すると描画イメージは更新されます。仮に
PictureBox1.Image = Image.FromFile("次に表示したい画像")
すると画像は変更されます。
> ２つの画像が表示されずに最初に表示された画像しか残りませんでした。
これは再現できません。
それが起こるなら、If の条件が成り立ってないだけでしょう。

最初に
> PictureBox1.Image = Image.FromFile("表示する画像１")
> PictureBox2.Image = Image.FromFile("表示する画像２")
書いたら馬鹿にされたけど、これが一番重要な内容です。
カウントするのもやめて、ボタンで特定の条件のみ If の制限も
やめて、ボタン押下で確実に２つの画像を変更できることを
確かめます。

それが確認できたら、ボタンに If の条件を追加し、カウントは
Button3 クリックのみでカウントアップし、Button1、Button2
で画像更新できることを確認します。

あとは Button3 のカウントアップをタイマーに任せればいいのだから、
> 何とかならないだろうか・・・。
とかいう話じゃないと思う。

> 誤字には気をつけましょうを追加しておいてください・・・
> 改めてアトバイスをお願いします。
→アドバイス
> Dim i As Integer = 0 ←モジュール関数
→モジュール変数
まったくするなっていうのは当然無理な話だけど、
多い人は、単純なバグをたくさん作ってます。
例えば、
> 一方がPictureBox1です。すいませんでした。
で済ませちゃったけど、実際に書いてるコードをコピペして
あれだったなら、画像が更新できなかった原因が PictureBox2
しか更新してなかったから…という事さえ有り得ます。

> 文字列に変換する方法はすでに記載しています。
すでにってなんだろう。。。
掲示板で書いた内容は
> If Val(CountLabel.Text) Mod 5 = 0 Then
ラベルの文字列をわざわざ数値変換してるから、
> Dim i As Integer = 0 ←モジュール関数
使えば良いじゃない。
掲示板に書いてないことまでは知らないです。
掲示板に書かずに勝手に変更したプログラムの内容まで
責任もてません。

通るぜさんのサンプル通りだね。

シュン 2008-12-17 10:31:48 No: 145512 IP: 192.*.*.*

ほんとに申し訳ございませんでした・・・
  通るぜさん・・・いくら状況を説明しても解決策をもらえない理由がようやくわかりました。説明が足りなかったようですね・・・そのようにコードを記載していましたが１つしか画像が表示されません。最初に載せればよかったかもしれません。
  のさん・・・ゲームの機能を持つボタンは、ボタンを押すと画像を表示させるもので３つと、カウントを始動させるボタンがあります。確かに質問がめちゃくちゃでした。その質問で通用するのとばかり思っていつの間にやら説明をどんどん足して・・・
  ３人へ・・・関係ないと思って言ってませんでしたが、条件の３つは
１．３の倍数と３のつく数字
２．５の倍数
３．８の倍数
です。
書き出し —— 最初に問題の要旨を書きましょう
実行手順 —— 手順は箇条書きで書きましょう
結果の予想 —— 期待した結果を書きましょう
実際の結果 —— 実際に起きたことを書きましょう
ステップ明記 —— どこからうまく行かなくなったかを書きましょう
と、誤字をなくす、覚えておきます。

シュン 2008-12-17 11:00:14 No: 145513 IP: 192.*.*.*

特攻隊長まるるうさんのいったとおりにしたところうまくいきました。
startbotton,timer1.tickは省略
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AhoButton.Click
         If i Mod 3 = 0 Then
                 PictureBox1.Image = Image.FromFile("表示画像１")
        End If
（長くなるので一部省略）
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AhoButton.Click
         If i Mod 5 = 0 Then
                 PictureBox2.Image = Image.FromFile("表示画像２")
        End If
  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AhoButton.Click
         If i Mod 8 = 0 Then
                 PictureBox3.Image = Image.FromFile("表示画像３")
        End If
  モジュール変数を使うのは書かれてから気づきました・・・通るぜさん、確認もせず先入観で回答してすいませんでした・・・
  ようやく解決しました。ありがとうございます。