川崎北高校 情報科 専門教科「アルゴリズム」
VisualBasicの基礎
〜スロットマシーンを作ろう〜
 
 
■要点

多分岐選択  Select〜Case文  〜が、こういう値の場合は〜


課題 フォーム コード(ソース)


1
ピクチャボックスに
乱数の値が
1ならばグー
2ならばチョキ
3ならばパー
を表示させる。
Private Sub Command1_Click()
Dim x As Integer
x = Int(Rnd(1) * 3 + 1)
Select Case x
Case 1
 Picture1.Picture = LoadPicture("gu.gif")
Case 2
 Picture1.Picture = LoadPicture("choki.gif")
Case 3
 Picture1.Picture = LoadPicture("pa.gif")
End Select
End Sub

※ファイル名は絶対パスで


前回作成したスロットマシーンで、発生した乱数によって画像を表示させよう。 課題1を参考にして考えよう。

題3
課題2では画像の表示に時間がかかる場合がある。
その点を改善しよう。
  【ヒント】
イメージコントロールを7つ使って
Image1〜7に画像を7つ重ねて表示させておく。
ひとつの画像だけ
Image*.Visible=True
それ以外は
Image*.Visible=False
にする。

index