vb.net 乱数で出した数値と同じ値を設定している画像を表示

Question

閲覧頂きありがとうございます。
VB.NET初心者です。
今回自主製作でvb.netを用いてソシャゲによくあるガチャに似たものを作ろうと考えています。今考えているのはガチャ画面があり、単発ガチャと10連ガチャを選択できる画面があります。そこでボタンを押してどちらかの画面に移動します。ボタンを押すとカプセルが出てきてそこから乱数で出した数値によってSSRやRが出たりする感じで考えています。
今わからない部分は、

・1-100を出す乱数があり、乱数を出してからその数値と同じ値に設定している画像を表示する。
例　1だとSSRのAというキャラクター 90だとRのBというキャラクターの画像を出力する

・ボタンを1回押すとLabel1にキャラクター名を表示、二回目を押すとLabel2に次の乱数で出したキャラクター名を表示する。

勉強中なので他にもいい方法があればご教示いただけますと幸いです。宜しくお願いいたします。

Public Class Form3
    Dim rand As New System.Random()
    Dim cnt As Integer
    Dim m As Integer
    Dim i1 As Integer
    Dim SSR As String() = {"SSR ゼウス", "SSR ヴァルキリー", "SSR パンドラ"}
    Dim SR As String() = {"SR サキュバス", "SR スフィンクス", "SR マナ"}
    Dim N As String() = {"N スライム", "N スライムベス", "N ももんじゃ"}
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Label1.Text = ""　'初期化ボタン
        Me.Button1.Enabled = True
        cnt = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        i1 = 0
        m = rand.Next(0, 3)
        i1 = rand.Next(0, 100)
        If cnt <> 9 Then '最初の1～9連目はNからSSRを乱数で出力 SSR 3% SR 7% N 90%
            For i = 0 To 100
                If i = i1 And (i >= 0 And i < 3) Then
                    Label1.Text = Label1.Text + SSR(m) & vbCrLf '今現在は配列SSR,SR,Nに登録してあるモンスターの名前を出力
                ElseIf i = i1 And (i >= 3 And i < 10) Then
                    Label1.Text = Label1.Text + SR(m) & vbCrLf
                ElseIf i = i1 And (i >= 10 And i < 100) Then
                    Label1.Text = Label1.Text + N(m) & vbCrLf
                End If
            Next i
        End If
        If cnt = 9 Then '最後の10連目はSR以上確定  SSR 3% SR 97%
            i1 = 0
            m = rand.Next(0, 3)
            i1 = rand.Next(0, 100)
            For i = 0 To 100
                If i = i1 And (i >= 0 And i < 3) Then
                    Label1.Text = Label1.Text + SSR(m) & vbCrLf
                ElseIf i = i1 Then
                    Label1.Text = Label1.Text + SR(m) & vbCrLf
                End If
            Next i
            Me.Button1.Enabled = False
        End If
        cnt = cnt + 1
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = ""
        Me.Button1.Enabled = True
        cnt = 0
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close() '閉じる
    End Sub

End Class

今後種類を増やしますが、今のところこの配列から乱数でキャラクター名を出力しています。
乱数でSSRのゼウスが選ばれたときにどこかからゼウスの画像を持ってきて表示したいと考えています。配列を使えばできそうと考えましたが、どのようにSSR(0)が選ばれたときに該当画像を出力するかわかりませんでした。

Comments

[YAmaGNZ]

表示する内容を配列で用意すればいいのではないでしょうか。

[dodox86]

ご質問の内容では具体的に何が分からないのかが伝わらないようです。（「分からない」ことと言うより「やりたい」ことの羅列です）具体的にどういうコードを書いたらそれが実現できるのか、と言う質問でしょうか。もしそうであると、それはほぼ丸投げです。

[質問するときのヒント] https://teratail.com/help/question-tips

[leaper]

申し訳ございません。コードなどいくつか情報を追加いたしました。

[退会済みユーザー]

・ソースは画像ではなく、コードの挿入でテキストで記入してください。
・宣言されてない変数が使われていますが、メンバ変数でしょうか？変数の宣言部も含めてください。コピペでコンパイルが通る状態だと回答者がローカルで再現しやすいです。
・変数名が何に使われているか大変判りづらく読み手の負担が大きいので、もう少し判り易い変数名を付けた方がよいと思われます。（Randomクラスのオブジェクトならrand, randomとか）

[YAmaGNZ]

1～100の配列に全部入れればどうですか？

[leaper]

radian様
コードの挿入や必要ない変数を削除や分かりやすい名前に変更いたしました。
YAmaGNZ様
初心者質問で恐縮ですが、配列に文字や数字以外の画像を入れることは可能なのでしょうか？例えば
{画像1, 画像2, 画像3}など出来るのでしょうか？

[YAmaGNZ]

単体ではどうやって保持しているのですか？
その保持している型の配列にすればいいかと思います。

[leaper]

YAmaGNZ様
他の方に回答いただき作ることが出来ました。アドバイス頂きありがとうございました。

Answer 1

キャラ名と一緒に画像ファイルのパスかファイル名も持たせたクラスを作ればいいんじゃないでしょうか。
例えば、

    Public Class Chara
        Public Property Name As String
        Public Property ImageFile As String
    End Class

    Private _ListSSR As New List(Of Chara) From
    {
        New Chara() With {.Name = "SSR1", .ImageFile = "SSR1.png"},
        New Chara() With {.Name = "SSR2", .ImageFile = "SSR2.png"},
        New Chara() With {.Name = "SSR3", .ImageFile = "SSR3.png"}
    }

みたいな。

インデックス0のSSRを持ってくる例だと

        Const ImageFolder = "c:\path\to\image\"
        Dim chara = _ListSSR(0)
        Label1.Text = chara.Name
        PictureBox1.Image = New Bitmap(System.IO.Path.Combine(ImageFolder, chara.ImageFile))

という感じで出来ます。
Charaにレアリティを持たせれば、Chara全部のListを一つ作って、そこからR、SR、SSRのListに振り分けるとかも出来ます。

Comments

[leaper]

返信遅れて申し訳ありません。無事作りたかったものを作ることが出来ました。ありがとうございました。