1

皆様、お時間をいただきありがとうございます

私はボードゲームをプログラミングしていますが、ある時点で 6 つのサイコロが必要です。

1つのサイコロに対して、次のコードを実行しました

Dim Dobbel as integer
Dim RandomNumber as new Random

Dobbel = RandomNumber.Next(1, 6)

        Select Case Dobbel
            Case 1
                Steen1.Image = Game.My.Resources.Een

            Case 2
                Steen1.Image = Game.My.Resources.Twee

            Case 3
                Steen1.Image = Game.My.Resources.Drie

            Case 4
                Steen1.Image = Game.My.Resources.Vier

            Case 5
                Steen1.Image = Game.My.Resources.Vijf

            Case 6
                Steen1.Image = Game.My.Resources.Zes

        End Select

このようにして、1つのサイコロで動作します（ピクチャボックスは正しい画像を取得します）

ここで、上記を行うためにさらに 5 つのサイコロが必要です。「for each」ステートメントでこれを試してみましたが、うまくいきませんでした。助けてください

PS これは私の最初の投稿であり、私が間違ったことについて申し訳ありません

4

2 に答える 2

1

「うまく動かなかった」ということは、6 つの PictureBox コントロールをループする方法を知らなかったことを意味すると仮定して、それらを配列に入れてみてください。

For Each pb As PictureBox In New PictureBox() {steen1, steen2, steen3, steen4, steen5, steen6}
  Select Case RandomNumber.Next(1, 7)
    Case 1 : pb.Image = Game.My.Resources.Een
    Case 2 : pb.Image = Game.My.Resources.Twee
    Case 3 : pb.Image = Game.My.Resources.Drie
    Case 4 : pb.Image = Game.My.Resources.Vier
    Case 5 : pb.Image = Game.My.Resources.Vijf
    Case 6 : pb.Image = Game.My.Resources.Zes
  End Select
Next

これは、steen# などの名前の 6 つの PictureBox があることを前提としています。

また、ランダム範囲を 1 ～ 7 に変更したことにも注意してください。最大値は 1 少ないため、コードでは、画像の数値が 6 になることはありませんでした。

于 2013-11-11T16:02:30.833 に答える
0 
Dim Dobbel(6) as integer
Dim RandomNumber as new Random
for (int = 0; i < 5; i++)
{
    Dobbel(i) = RandomNumber.Next(1, 6)
}

For Each i As Integer In Dobbel
{
        Select Case Dobbel(i)
            Case 1
                Steen(i).Image = Game.My.Resources.Een

            Case 2
                Steen(i).Image = Game.My.Resources.Twee

            Case 3
                Steen(i).Image = Game.My.Resources.Drie

            Case 4
                Steen(i).Image = Game.My.Resources.Vier

            Case 5
                Steen(i).Image = Game.My.Resources.Vijf

            Case 6
                Steen(i).Image = Game.My.Resources.Zes

        End Select
}

もちろん、Steen は配列として宣言する必要があります。

于 2013-11-11T16:01:17.080 に答える