Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1550 / 76734

←次へ　｜　前へ→


	【80834】ゲーム制作：自機の操作と敵機の自動移動を同時に処理することについて

ＳＨＵＮ - 19/5/21(火) 13:26 -


	引用なし

	パスワード

VBAで自機を動かすプログラム、敵機を自動で移動するプログラムはそれぞれ組めましたが、
その２つを同時に動かす段階で躓いています。

Call '自機を動かすプログラム=aとします。
Call ’敵機を動かすプログラム=bとします。
とすると、aのプログラム終了後にbのプログラム処理となり、
１つのプロシージャ内に両方入れようとすると上手くいきません。

参考に、それぞれのソースを以下に貼り付けます。

Sub 自機発生()

Dim i As Integer
Dim j As Integer

Dim i2 As Integer
Dim j2 As Integer

Cells.Interior.ColorIndex = xlNone

　　i = 10
　　j = 10
　　
　　　　Cells(i, j).Interior.ColorIndex = 6
　　　　
　　　　
　Do
　
　　　　'自機発生、操作
　　　　
　　　　If GetAsyncKeyState(37) <> 0 Then
　　　　
　　　　Cells(i, j).Interior.ColorIndex = xlNone
　　　　　　If j <= 3 Then
　　　　　　j = 17
　　　　　　Else
　　　　　　j = j - 1
　　　　　　End If
　　　　Cells(i, j).Interior.ColorIndex = 6
　　　　
　　　　End If
　　　　
　　　　If GetAsyncKeyState(38) <> 0 Then
　　　　
　　　　Cells(i, j).Interior.ColorIndex = xlNone
　　　　　　If i <= 3 Then
　　　　　　i = 17
　　　　　　Else
　　　　　　i = i - 1
　　　　　　End If
　　　　Cells(i, j).Interior.ColorIndex = 6
　　　　
　　　　End If
　　　　
　　　　If GetAsyncKeyState(39) <> 0 Then
　　　　
　　　　Cells(i, j).Interior.ColorIndex = xlNone
　　　　　　If j >= 17 Then
　　　　　　j = 3
　　　　　　Else
　　　　　　j = j + 1
　　　　　　End If
　　　　Cells(i, j).Interior.ColorIndex = 6
　　　　
　　　　End If
　　　　
　　　　If GetAsyncKeyState(40) <> 0 Then
　　　　
　　　　Cells(i, j).Interior.ColorIndex = xlNone
　　　　　　If i >= 17 Then
　　　　　　i = 3
　　　　　　Else
　　　　　　i = i + 1
　　　　　　End If
　　　　Cells(i, j).Interior.ColorIndex = 6
　　　
　　　　End If
　　　　
　　　　If GetAsyncKeyState(13) <> 0 Then
　　　　
　　　　Exit Do
　　　　
　　　　End If
　　　　
　　DoEvents

　　Sleep 90
　　
　　Loop

End Sub

Sub 発生()
　　Dim i As Integer
　　Dim j As Integer

　　Randomize
　　

　　i = 3
　　j = 15
　　
　　Do
　　
　　'敵機発生、ランダムで移動
　　
　　　　Cells(i, j).Interior.ColorIndex = xlNone

　　　　
　　If 0 <= Rnd And Rnd < 0.25 Then
　　　　If i >= 17 Then
　　　　i = 3
　　　　Else
　　　　i = i + 1
　　　　End If
　　Else
　　If 0.25 <= Rnd And Rnd < 0.5 Then
　　　　If j >= 17 Then
　　　　j = 3
　　　　Else
　　　　j = j + 1
　　　　End If
　　Else
　　If 0.5 <= Rnd And Rnd < 0.75 Then
　　　　If i <= 3 Then
　　　　i = 17
　　　　Else
　　　　i = i
　　　　End If
　　Else
　　If 0.75 <= Rnd And Rnd < 1 Then
　　　　If j <= 3 Then
　　　　j = 17
　　　　Else
　　　　j = j - 1
　　　　End If
　
　　Cells(i, j).Interior.ColorIndex = 3
　　
　　End If
　　
　　　　 If GetAsyncKeyState(13) <> 0 Then
　　　　
　　　　 Exit Do
　　　　
　　　　 End If
　　
　　DoEvents
　　
　　
　　Sleep 90

　Loop

End Sub

よろしくお願いいたします。

6 hits

▼

【80834】ゲーム制作：自機の操作と敵機の自動移動を同時に処理することについて ＳＨＵＮ 19/5/21(火) 13:26