画像を何分の何の確率で表示させるには？ (ID:138721)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初心者なのですがVisual Studio6.0でもぐらたたきゲームを利用した作品を現在制作しています。内容は決まった画像がランダムでImageに表示され、それをクリックできると得点加算、クリックできないと減点というゲームです。現在Imageコントロールに決まった画像を呼び出す処理が完成しました。そして追加機能としてそのImageコントロールに５分の１の確率で他の画像を呼び出して表示させたいのですがわからない状態です。宜しくお願いいたします。

こちらがプログラムです。
Option Explicit
Const MinImgAry = 0
Const MaxImgAry = 15
Const GameTime = 15
Dim HitFlg As Integer
Dim TEN As Integer
Dim HoleNum As Integer
Dim IconAry(2) As String

Private Sub Command1_Click()
    Command1.Enabled = False
    Option1.Enabled = False
    Option2.Enabled = False
    Option3.Enabled = False
    HitFlg = 0
    TEN = 0
    Text1.Text = Str(TEN)
    Timer1.Enabled = True
    Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Form_Load()
    Dim StrPath As String
    StrPath = App.Path
    If Right(StrPath, 1) <> "\" Then
        StrPath = StrPath + "\"
    End If
    IconAry(0) = "D:制作\5\画像１.bmp"
    IconAry(1) = "D:制作\5\画像２.bmp"
    IconAry(2) = "D:制作\5\画像３.bmp"
End Sub

Private Sub Image1_Click(Index As Integer)
Image1(Index).Enabled = False
    HitFlg = -1
End Sub

Private Sub Option1_Click()
Timer1.Interval = 1000
End Sub
Private Sub Option2_Click()
Timer1.Interval = 800
End Sub

Private Sub Option3_Click()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
    Static CtlFlg As Integer
    Select Case CtlFlg
        Case 0
            Image1(HoleNum).Enabled = False
            Image1(HoleNum).Visible = False
            HoleNum = Int((MaxImgAry - _
              MinImgAry + 1) * Rnd + MinImgAry)
            Image1(HoleNum).Picture = _
                        LoadPicture(IconAry(0))
            CtlFlg = 1
            Image1(HoleNum).Visible = True
            Image1(HoleNum).Enabled = True
            Exit Sub
        Case 1
            Image1(HoleNum).Enabled = False
            If HitFlg Then
                 HitFlg = 0
                 Image1(HoleNum).Picture = _
                        LoadPicture(IconAry(2))
                 TEN = TEN + 1
                 Text1.Text = Str(TEN)
           Else
                 Image1(HoleNum).Picture = _
                        LoadPicture(IconAry(1))
                 TEN = TEN - 1
                 Text1.Text = Str(TEN)
            End If
            CtlFlg = 0
            Exit Sub
        End Select
End Sub

Private Sub Timer2_Timer()
 Static TimeCnt As Long
    TimeCnt = TimeCnt + 1
    If TimeCnt <> GameTime Then
        Exit Sub
    End If
    Timer1.Enabled = False
    Timer2.Enabled = False
    MsgBox "おしまい"
    TimeCnt = 0
    Command1.Enabled = True
    Image1(HoleNum).Enabled = False
    Image1(HoleNum).Visible = False
    Option1.Enabled = True
    Option2.Enabled = True
    Option3.Enabled = True
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る