Re5:50歳から始めるラズベリーパイ-1
Re5:50歳から始めるラズベリーパイ
簡単なゲームで学ぶVBAプログラミング入門
amazon kindle版を出版しました。
VBAを勉強するのに、分岐や繰り返しとかは退屈ですね。ゲームを作って勉強すると、少しは勉強という苦痛から解放されるかもしれません。ということで、ラズベリーパイのVBAで、簡単なゲームを作って、VBAの勉強をしてみましょう。
VBAは遅いので、アクションゲームには向いていません。
VBAが動作することを、前提にゲームの説明をしていきます。
3.1 数あてゲームの作成
数あてゲームを作成してみましょう。
ゲームの流れは、
(0)初期設定、A1、A2、B1、B2を削除
(1)乱数で1~100までの整数xを決定する。
(2)A1に値を入力、ボタンを押して、
xと同じだったら正解、
A2に数値表示、B2に「正解」表示
xより小さかったら、B1に「小さい」表示
xより大きかったら、B1に「大きい」表示
ボタンの名前は「判定」とします。
また、Botton1__Click()にボタンの実行を割り当てます。
x=42の場合
50を入力して、ボタンをクリックすると、「値が大きい」表示
25を入力して、ボタンをクリックすると、「値が小さい」表示
42を入力して、ボタンをクリックすると、「正解です」表示
Option VBAsupport 1
'xをグローバル変数として定義
Dim x As Integer
Sub Main
Range("A1:B2").Clear 'A1からB2の範囲をクリア
Cells(1, 2).Value = "A1に数値を入力してください"
x = Int(Rnd * 100 + 1) '整数の乱数発生
End Sub
Sub Botton1__Click()
If (x < Cells(1, 1).Value) Then
Cells(2, 2).Value = "値が大きい"
ElseIf (x > Cells(1, 1).Value) Then
Cells(2, 2).Value = "値が小さい"
ElseIf (x = Cells(1, 1).Value) Then
Cells(2, 2).Value = "正解です"
Cells(2, 1).Value = x
End If
End Sub