Re5：50歳から始めるラズベリーパイ-13

Re5：50歳から始めるラズベリーパイ

簡単なゲームで学ぶVBAプログラミング入門

amazon kindle版を出版しました。

---

　3.7　ブロック崩しゲームの作成-3

 (4)GAMEOVERなど
　ボールがラケットより下に行ったときにGAMEOVERです。

If (by >= 21 Or n >= 300000) Then
  Range("U5").value= ("GAMEOVER")
  GoTo LP_END
End If

・・・

LP_END:

　ブロックが全部亡くなったとき”全消し！！”を表示します。
Call nokori

If (ct = 0) Then
  Range("U5").value= ("全消し！！")
GoTo LP_END
End If

これら、ほとんど全てのプログラムは、ボタン１をクリックすることによって、始まります。

(5)その他

wait 50 'ここを変えると速度変化

ゲーム開始ボタンはタイトルを「ゲーム開始」とし、
マクロセレクターはbutton1_Clickを選択します。

アクションの割り当ては「実行時」を選択します。

　作ってみたら、やたらと遅いので、１列にしました。

失敗するとGAMEOVERのメッセージがU5に表示されます。

全部消すと”全消し”のメッセージがU5に表示されます。

Sub syoki()

'ブロックの配置
For i = 0 To 19
'ここをFor ii = 0 To 4に変更すると5列のブロックに
For ii = 0 To 4

block(ii, i) = 1

Next ii
Next i