画像をブランクつきでランダムに表示する方法が分かりません。

質問

VB6.0を使用してプログラミングを作成しているのですが、初心者のため行き詰っています。
前回も質問させていただいたのですが、ブランク（ピクチャーボックスの非表示）が間に入ることを想定していなかったため、改めて質問させていただきます。
作成したいプログラミングの内容は、８枚の写真を２秒間ずつ、1.5秒間のブランクを挿んで、ランダムに一枚ずつピクチャーボックスに表示するというものです。
RandomizeはByte型を使用したいのですが、コードがよくわかりません。
以下は、今までに出来上がっているコードです。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Command1_Click()
Command1.Visible = False
PresentStimulus0
End Sub

Private Sub PresentStimulus()
　Picture1.Visible = True
　Picture1.Picture = LoadPicture("C:\AAA.jpg")
　nowtime = timeGetTime() 'milliseconds from windows startup
　Do
　DoEvents
　Loop Until timeGetTime() - nowtime > 2000
　Picture1.Visible = False
　Do
　DoEvents
　Loop Until timeGetTime() - nowtime > 1500
End Sub

C:\AAA.jpgの部分にランダムに８枚の画像を呼び出し、PresentStimulusを８回繰り返したいのですが・・・。
よろしくお願いいたします。

回答No.1

redfox63 · ベストアンサー

『ランダムに8枚』というのが
1) 8枚すべてを表示したい
2) 重複があってもかまわないので8回表示したい
のどちらでしょう

1) ならば 0-7までの数値を代入した配列をシャッフルして
この配列を元にファイル名を決定すればいいでしょう

2)ならば 単にINT(Rnd()*8) でファイル名の決定をすればいいように思います

Form クラスの変数として
dim nIndex(7) as Byte, sName(7) as String

FormLoadイベントで
dim n as Integer, m as Integer, w as integer
for n = 0 to 7
　　nIndex(n) = n
　　sName(n) = "C:\AAA" & n & ".jpg"
next
for n = 0 to 7
　　m = rnd()* 8
　　w = nIndex( m )
　　nIndex( m ) = nIndex( n )
　　nIndex( n ) = w
next
といった具合に下準備

Private Sub Command1_Click()
　　dim n as Integer
　　Command1.Visible = False
　　Picture1.Visible = False
　　for n = 0 to 7
　　　　' 1) の場合
　　　　PresentStimulus( sName( nIndex(n) ) )
　　　　' 2) の場合
　　　　' PresentStimulus( sName( Int(Rnd()*8) ) )
　　Next
End Sub

Private Sub PresentStimulus(sFileName)
　Picture1.Picture = LoadPicture(sFileName)
　Picture1.Visible = True
　nowtime = timeGetTime() 'milliseconds from windows startup
　Do
　　DoEvents
　Loop Until timeGetTime() - nowtime > 2000
　Picture1.Visible = False
　Do
　　DoEvents
　Loop Until timeGetTime() - nowtime > 1500
End Sub

といった具合で ・・・

お礼

分かりづらい説明ですみません。私の場合『８枚全てを表示したい』という１）の方です。とても分かりやすい回答をありがとうございます!!授業で本当に少ししかかじっていない私には難しく、あきらめていたのですが、redfox63さんのおかげでどうにかまた頑張れそうです!!ありがとうございました!!