【課題２６のプログラム】

１．素材の作成

　　今回はなし。

２．インターフェイスの作成

（１）コマンドボタンを３つ配置する。

（２）ラベルを８つ配置する。

（３）テキストボックスを１つ配置する。

３．プロパティの設定

（１）コマンドボタン

（２）ラベル

（３）テキスト

（４）フォーム

４．コードの記述

（１）コマンド１

（２）コマンド２

（３）コマンド３

（４）変数宣言

（５）Ｆｕｎｃｔｉｏｎプロシージャ

　　入力する枠を作る。

　　Ｆｕｎｃｔｉｏｎ　ｓｌｏｔｇｏ（ｋａｋｅｋｉｎ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ａｓ　Ｉｎｔｅｇｅｒ　と入力してエンターキーを押すと、

　　Ｆｕｎｃｔｉｏｎ　ｓｌｏｔｇｏ（ｋａｋｅｋｉｎ　Ａｓ　Ｉｎｔｅｇｅｒ）　Ａｓ　Ｉｎｔｅｇｅｒ

　　　　　　　ここにプログラムを入力する

　　Ｅｎｄ　Ｆｕｎｃｔｉｏｎ

　　という領域が作られる。

　　プログラムを入力する。

（６）プログラム全文

Option Base 1
Dim total As Integer
Dim ransu(3) As Integer

Option Explicit

Function slotgo(kakekin As Integer) As Integer
Dim maxnum As Integer
Dim match As Integer
Dim i As Integer
　　maxnum = 9
　　For i = 1 To 3
　　　　ransu(i) = Int(maxnum * Rnd) + 1
　　Next i
　　If ransu(1) = ransu(2) Then
　　　　If ransu(2) = ransu(3) Then
　　　　　　match = 3
　　　　Else
　　　　　　match = 2
　　　　End If
　　Else
　　　　If ransu(2) = ransu(3) Then
　　　　　　match = 2
　　　　Else
　　　　　　If ransu(1) = ransu(3) Then
　　　　　　　　match = 2
　　　　　　Else
　　　　　　　　match = 0
　　　　　　End If
　　　　End If
　　End If
　　Label1.Caption = ransu(1)
　　Label2.Caption = ransu(2)
　　Label3.Caption = ransu(3)
　　Select Case match
　　　　Case 0: slotgo = 0
　　　　Case 2: slotgo = 2 * kakekin
　　　　Case 3: slotgo = 5 * kakekin
　　End Select
End Function

Private Sub Command1_Click()
　　Randomize
　　total = 50
　　Label8.Caption = total
End Sub

Private Sub Command2_Click()
Dim kake As Integer
Dim harai As Integer
　　kake = Text1.Text
　　If kake > total Then
　　　　MsgBox "かけコイン数はコイン総数以下です。", 48, "かけコイン不正"
　　Else
　　　　harai = slotgo(kake)
　　　　If harai = 0 Then
　　　　　　total = total - kake
　　　　Else
　　　　　　total = total + harai
　　　　End If
　　　　Label6.Caption = harai
　　　　Label8.Caption = total
　　End If
　　If total = 0 Then
　　　　MsgBox "コインがなくなりました。", 48, "終了"
　　　　End
　　End If
End Sub

Private Sub Command3_Click()
　　End
End Sub

５．実行

６．保存

（１）フォーム

（２）プロジェクト