川崎北高校 情報科 専門教科「アルゴリズム」 〜スロットマシーンを作ろう〜 |
||||||
| ■要点 | ||||||
|
||||||
| 川崎北高校 情報科 専門教科「アルゴリズム」 〜スロットマシーンを作ろう〜 |
||||||
| ■要点 | ||||||
|
||||||
| 課題 | フォーム | コード（ソース） | |
|---|---|---|---|
| 課 題 1 |
ピクチャボックスに 乱数の値が １ならばグー ２ならばチョキ ３ならばパー を表示させる。 |
 |
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 ※ファイル名は絶対パスで |
| 課 題 ２ |
前回作成したスロットマシーンで、発生した乱数によって画像を表示させよう。 |  |
課題１を参考にして考えよう。 |
| 課 題３ |
課題２では画像の表示に時間がかかる場合がある。 その点を改善しよう。 |
【ヒント】 イメージコントロールを７つ使って Image1〜7に画像を７つ重ねて表示させておく。 ひとつの画像だけ Image*.Visible=True それ以外は Image*.Visible=False にする。 |
|