汽車ぽっぽゲームを作りました
先週の木曜日、エクセルのマクロで、「汽車ぽっぽゲーム」を作りました。エクセルの画面一面に「┼」や「─」や「└」と言うものが出て、その線路を「汽車」が走って来るというゲームです。以下にコードをはりつけますね。Option Explicit
Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
Sub 汽車ぽっぽ()
Dim rc As Integer
Dim rcend As String
Dim tuyosamoji, ironomoji As String
Dim tuyosa, irobangou As Integer
Dim gyou, retu, i, j, n As Integer
Dim sentaku As String
Dim px As Variant
Dim hayasa, hayasas As Integer
Dim ii As Integer
Dim k As Integer
Dim maegyou, maeretu, kishagyou, kisharetu, saishonoichi As Integer
Dim kuurangyou, kuuranretu As Integer
Dim hayaokuri As Integer
Dim machijikan As Integer
Dim PressNumb
0