Making a game with animation frames in Excel

Submitted by MisterBeck on Mon, 05/18/2020 - 14:24

Why might you make a game Excel? For learning and for fun. So let's get to it.

The Beginnings of a Game.

There are two Windows API functions we will use which make a game in Excel possible.

#If VBA7 Then
    '64 bit declares here
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
#Else
    '32 bit declares here
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
#End If

The GetAsyncKeySate will be for reading the keyboard inputs (Left, Right, Up, Down). timeGetTime will be used for the game counter to iterate frames. That's all you really need. Everything else can be down in VBA pure. Next we come to the game loop. It will be a Do Loop which will loop forever until we stop it and the game ends. Because this is a tight loop we need DoEvents to allow Excel to receive other commands and prevent the window from locking up.
 

Do
    DoEvents

    'Game code goes here.
Loop

 

Now we need a way to control and time updating the game state. timeGetTime is the answer. It returns the current time in milliseconds since boot time. The Do Loop will run continuously, and the if statement will continuously check the current time against the last frame's timestamp. When the current time exceeds the last frame time by a certain amountm the game "tick" over, update game the game state, and animate the next frame. I chose 50 milliseconds arbitrarily. Increasing or decreasing that value will decrease and increase the game's "clock speed."

'if time exceeds last time + gamespeed, then advance game by one and animate new frame.
If timeGetTime - lastFrameTime > 50 Then        
    'Game code goes here
End if


Now the game code itself. In this game, you control a black rectangle and move it around the screen using the arrow keys. Nice, right? Less of a game than Pong.

The game logic is very simple.

1) check if an arrow key is pressed.
2) if so, move a colored cell in that direction
3) repeat

To read the keystate, I'm using an enum in conjunction with GetAysyncKeyState like this.

Private Enum Direction
    None = 0
    Up = 1
    Down
    Left
    Right
End Enum

Private Function ReadDirectionKeyDown() As Direction
    ReadDirectionKeyDown = None

    If (GetAsyncKeyState(vbKeyUp) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Up
    ElseIf (GetAsyncKeyState(vbKeyDown) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Down
    ElseIf (GetAsyncKeyState(vbKeyRight) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Right
    ElseIf (GetAsyncKeyState(vbKeyLeft) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Left
    End If

End Function


Inside the game loop we have a Select Case for each direction, and an X,Y coordinates for the location of the colored cell. Simply update the the X and Y, color the new cell black, and color the previous cell white.

Dim D As Direction
D = ReadDirectionKeyDown
Select Case D
	Case Up
		Cells(y, x).Interior.ColorIndex = -4142
		y = y - 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Down
		Cells(y, x).Interior.ColorIndex = -4142
		y = y + 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Left
		Cells(y, x).Interior.ColorIndex = -4142
		x = x - 1
		Cells(y, x).Interior.ColorIndex = 1
	Case Right
		Cells(y, x).Interior.ColorIndex = -4142
		x = x + 1
		Cells(y, x).Interior.ColorIndex = 1
End Select

The End. You have a "game." Ok, not a full game, but you have a controllable character in a space. Here's the entire module.

Option Explicit
#If VBA7 Then
    '64 bit declares here
    Private Declare PtrSafe Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
#Else
    '32 bit declares here
    Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
    Private Declare Function timeGetTime Lib "winmm.dll" () As Long
#End If


Private Const KEY_DOWN    As Integer = &H8000   'If the most significant bit is set, the key is down
Private Const KEY_PRESSED As Integer = &H1      'If the least significant bit is set, the key was pressed after the previous call to GetAsyncKeyState

Private Enum Direction
    None = 0
    Up = 1
    Down
    Left
    Right
End Enum

Private Function ReadDirectionKeyDown() As Direction
    ReadDirectionKeyDown = None

    If (GetAsyncKeyState(vbKeyUp) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Up
    ElseIf (GetAsyncKeyState(vbKeyDown) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Down
    ElseIf (GetAsyncKeyState(vbKeyRight) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Right
    ElseIf (GetAsyncKeyState(vbKeyLeft) And KEY_DOWN) = KEY_DOWN Then
        ReadDirectionKeyDown = Left
    End If

End Function


Sub Game()

    Dim x As Long
    Dim y As Long
        
    x = 3
    y = 8
    
    Dim lastFrameTime As Long
    lastFrameTime = timeGetTime     'start the tick counter
    
    Dim D As Direction
    
    Do
        DoEvents
        
        'if time exceeds last time + gamespeed, then advance game by one and animate new frame.
        If timeGetTime - lastFrameTime > 20 Then
            
            lastFrameTime = timeGetTime     'get current time and set to lastframe.
            
            'All game code goes here.
            '*********************************
            
            D = ReadDirectionKeyDown
            
            Select Case D
            
                Case Up
                    Cells(y, x).Interior.ColorIndex = -4142
                    y = y - 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Down
                    Cells(y, x).Interior.ColorIndex = -4142
                    y = y + 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Left
                    Cells(y, x).Interior.ColorIndex = -4142
                    x = x - 1
                    Cells(y, x).Interior.ColorIndex = 1
                Case Right
                    Cells(y, x).Interior.ColorIndex = -4142
                    x = x + 1
                    Cells(y, x).Interior.ColorIndex = 1
                
            End Select
            
            '*********************************
        End If
        
    Loop
    
End Sub

 

Comments

CurtitsGenry (not verified)

Mon, 03/21/2022 - 21:02

Permalink

Это еще единодержавно модный вещество (чай, настоящий традиционный, так ровно обработка ценным деревом стен, дверей и мебели кабинетов деловых людей ввек считалась роскошью). Мебель угловая более эргономична, беспричинно как она прекрасно заполняет пространство. Форма сиденья должна иметь округлость. По предметам интерьера легко определить статус руководителя предприятия, а также его подход к деловым вопросам.Общество «Изложение Стекла» изготавливает и монтирует стеклянные входные группы из высококачественных материалов с учетом всех пожеланий заказчика. Это вдобавок и скольконибудь влагостойких изделий, которые подходят чтобы установки в перегородки, используемые в душевых кабинах и специальных санитарных помещениях.Буде говорить о кресле руководителя, то данная разряд больше и представительнее офисных стульев. Благовременно, одной из главных особенностей таких диванов является мочь разделить большую комнату на зоны – примем, отделить гостиную от кухни. Стены в таких помещениях не должны приохочивать внимание. И этому есть фаланга причин. Сотрудники офиса будут проводить следовать компьютерным столом практически оптом сутки, беспричинно что имеет значение предварительно покупкой сделать некоторые исследования и выбрать наиболее подходящую обстановка для вашего офиса. Данные модуля довольно удобны, так вроде дают возможность подстроится, перед пространство конкретного помещения. Около выборе нужно оценить ее толщину. Самыми распространенными считаются металл, древесина, пластик и кожа. Вторично один разночтение – комбинированный стол. Идеально подойдут пастельные тона: бежевый, салатовый, бледно-розовый. Обращайтесь следовать изготовлением стойки ресепшн в нашу компанию, и вы получите стойку своей мечты. Всего после порядком минут дозволено замечать десятки моделей, ориентируясь на цены и внешние данные.
<a href=https://peregorodka78.ru/peregorodki/mezhkomnatnyie-peregorodki>складные перегородки межкомнатные в спб</a>
[url=https://peregorodka78.ru/peregorodki/ofisnyie-peregorodki/]перегородка в офис дешево[/url]
https://peregorodka78.ru/rolletyi/rolletnyie-shkafyi - купить роллетный шкаф в паркинг в спб

стационарные;Маятниковые двери. Обычно они необходимы, разве вход в дом выполнен нестандартно. Благодаря этому гнездилище, которое находится внизу становится много объемнее в визуальном плане. Вы можете заказать высокие варианты иначе невысокие. В этой сфере и белорусскому производителю снедать чем похвастаться. Их делают из закаленного стекла, поэтому их практически невозможно разбить, только даже коль это и случится, часть никого не поранят. Невысокие изделия изготавливаются из цельного полотна, и их градус не будет побеждать трех метров. Это очень достопамятный момент, так как подвижные элементы, как можно понять уже из их названия, будут неизменно в движении. © 4living. Последнее более прозрачно, и нанесенное на него слепок смотрится ярче.Griffin Enright Architects

abudayoxam (not verified)

Mon, 03/21/2022 - 21:31

Permalink

Use hhh.umaw.parkerbeck.me.jga.qj outlines radius, syndromes, [URL=http://ifcuriousthenlearn.com/amoxil/ - walmart amoxil price[/URL - [URL=http://sketchartists.net/item/azithromycin-250mg/ - effects of alcohol on azithromycin[/URL - [URL=http://staffordshirebullterrierhq.com/generic-propecia-lowest-price/ - generic propecia lowest price[/URL - [URL=http://stroupflooringamerica.com/drug/amoxicillin/ - amoxicillin capsules for sale[/URL - [URL=http://autopawnohio.com/pill/viagra/ - on line viagra[/URL - [URL=http://damcf.org/amoxicillin-brand/ - cost of amoxicillin tablets[/URL - [URL=http://staffordshirebullterrierhq.com/generic-prednisone-uk/ - generic prednisone uk[/URL - [URL=http://columbiainnastoria.com/buy-cipro-online/ - ciprofloxacin online[/URL - [URL=http://minimallyinvasivesurgerymis.com/where-can-i-buy-viagra-professio… - viagra professional 100mg prix en pharmacie[/URL - buy viagra professional 50mg [URL=http://mplseye.com/item/doxycycline-price/ - best price for doxycycline 100 mg[/URL - [URL=http://naturalbloodpressuresolutions.com/item/viagra/ - cheapest viagra[/URL - [URL=http://getfreshsd.com/pill/tretinoin/ - preco tretinoin[/URL - [URL=http://umichicago.com/retin-a-cream/ - retin a cream[/URL - [URL=http://naturalbloodpressuresolutions.com/item/fildena/ - fildena pills[/URL - [URL=http://ossoccer.org/retino-a-cream-0,05/ - retino a cream 0,05[/URL - paradoxically mundane cephalic <a href="http://ifcuriousthenlearn.com/amoxil/">walmart amoxil price</a> <a href="http://sketchartists.net/item/azithromycin-250mg/">strep throat zithromax</a> <a href="http://staffordshirebullterrierhq.com/generic-propecia-lowest-price/">p… price walmart</a> <a href="http://stroupflooringamerica.com/drug/amoxicillin/">amoxicillin without dr prescription</a> <a href="http://autopawnohio.com/pill/viagra/">on line viagra</a> <a href="http://damcf.org/amoxicillin-brand/">amoxicillin brand</a> <a href="http://staffordshirebullterrierhq.com/generic-prednisone-uk/">prednisone from india</a> <a href="http://columbiainnastoria.com/buy-cipro-online/">cipro</a&gt; <a href="http://minimallyinvasivesurgerymis.com/where-can-i-buy-viagra-professio… viagra professional 50mg</a> <a href="http://mplseye.com/item/doxycycline-price/">buy doxycycline online</a> <a href="http://naturalbloodpressuresolutions.com/item/viagra/">viagra without a prescription</a> <a href="http://getfreshsd.com/pill/tretinoin/">tretinoin without dr prescription</a> <a href="http://umichicago.com/retin-a-cream/">retin a buy</a> <a href="http://naturalbloodpressuresolutions.com/item/fildena/">cost of fildena generic 150</a> <a href="http://ossoccer.org/retino-a-cream-0,05/">retino a cream 0,05 coupons</a> meniscus arterial mandible http://ifcuriousthenlearn.com/amoxil/ cost of amoxil tablets low price amoxil http://sketchartists.net/item/azithromycin-250mg/ azithromycin 250mg http://staffordshirebullterrierhq.com/generic-propecia-lowest-price/ mail order propecia http://stroupflooringamerica.com/drug/amoxicillin/ non prescription amoxicillin http://autopawnohio.com/pill/viagra/ viagra http://damcf.org/amoxicillin-brand/ lowest price generic amoxicillin http://staffordshirebullterrierhq.com/generic-prednisone-uk/ prednisone coupon http://columbiainnastoria.com/buy-cipro-online/ low price cipro buy cipro online http://minimallyinvasivesurgerymis.com/where-can-i-buy-viagra-professio… where can i buy viagra professional http://mplseye.com/item/doxycycline-price/ doxycycline no prescriptino http://naturalbloodpressuresolutions.com/item/viagra/ comprar viagra 75 http://getfreshsd.com/pill/tretinoin/ cheap tretinoin http://umichicago.com/retin-a-cream/ retin a http://naturalbloodpressuresolutions.com/item/fildena/ fildena 25mg france fildena walmart price http://ossoccer.org/retino-a-cream-0,05/ retino a cream 0,05 coupons younger, thread solubility.

diyemojule (not verified)

Mon, 03/21/2022 - 21:31

Permalink

Painless ptb.ubqo.parkerbeck.me.apo.ed titrate intermediate [URL=http://websolutionsdone.com/item/zithromax-side-effects/ - zithromax z-pak indi[/URL - 3 day azithromycin dosing [URL=http://wow-70.com/pill/hydroxychloroquine-non-generic/ - hydroxychloroquine without a doctor[/URL - [URL=http://brisbaneandbeyond.com/product/levitra-online-uk/ - levitra capsules[/URL - [URL=http://reso-nation.org/cheapest-levitra-dosage-price/ - cheap us levitra[/URL - [URL=http://lokcal.org/cialis-price-at-walmart/ - buy cialis no prescription[/URL - [URL=http://theprettyguineapig.com/nizagara/ - nizagara[/URL - [URL=http://fontanellabenevento.com/product/generic-viagra-in-canada/ - buy viagra[/URL - [URL=http://center4family.com/product/prednisone/ - prednisone without prescription.net[/URL - [URL=http://intimidationmma.com/amoxicillin/ - amoxicillin on line store[/URL - [URL=http://doctor123.org/product/advair-diskus/ - online no scrip advair diskus[/URL - [URL=http://sunsethilltreefarm.com/levitra/ - 20 mg levitra pharmacy[/URL - levitra generico es bueno [URL=http://stroupflooringamerica.com/generic-prednisone/ - prednisone prices[/URL - [URL=http://livinlifepc.com/order-prednisone-without-prescription/ - generic prednisone from canada[/URL - [URL=http://eatingaftergastricbypass.net/indomethacin/ - indomethacin cap 50 mg[/URL - [URL=http://proteinsportsnutrition.com/item/synthroid/ - buy synthroid[/URL - careless <a href="http://websolutionsdone.com/item/zithromax-side-effects/">3 day azithromycin dosing</a> <a href="http://wow-70.com/pill/hydroxychloroquine-non-generic/">hydroxychloroqu… non generic</a> <a href="http://brisbaneandbeyond.com/product/levitra-online-uk/">levitra</a&gt; <a href="http://reso-nation.org/cheapest-levitra-dosage-price/">levitra cost</a> <a href="http://lokcal.org/cialis-price-at-walmart/">buy cialis without prescription</a> <a href="http://theprettyguineapig.com/nizagara/">pharmacy australia nizagara</a> <a href="http://fontanellabenevento.com/product/generic-viagra-in-canada/">buy viagra</a> <a href="http://center4family.com/product/prednisone/">prednisone</a&gt; <a href="http://intimidationmma.com/amoxicillin/">amoxicillin suppliers</a> amoxicillin for sale australia paypal <a href="http://doctor123.org/product/advair-diskus/">safe site to buy generic advair diskus</a> <a href="http://sunsethilltreefarm.com/levitra/">natural form of levitra</a> <a href="http://stroupflooringamerica.com/generic-prednisone/">prednisone prices</a> prednisone <a href="http://livinlifepc.com/order-prednisone-without-prescription/">buy generic prednisone</a> <a href="http://eatingaftergastricbypass.net/indomethacin/">indocin medication</a> <a href="http://proteinsportsnutrition.com/item/synthroid/">buy synthroid</a> written there http://websolutionsdone.com/item/zithromax-side-effects/ zithromax 5 day course of treatment http://wow-70.com/pill/hydroxychloroquine-non-generic/ hydroxychloroquine non generic http://brisbaneandbeyond.com/product/levitra-online-uk/ levitra online uk http://reso-nation.org/cheapest-levitra-dosage-price/ cheap levitra without script http://lokcal.org/cialis-price-at-walmart/ price of cialis 20 mg generic http://theprettyguineapig.com/nizagara/ nizagara http://fontanellabenevento.com/product/generic-viagra-in-canada/ viagra http://center4family.com/product/prednisone/ deltasone online http://intimidationmma.com/amoxicillin/ amoxicillin for sale australia paypal http://doctor123.org/product/advair-diskus/ advair diskus http://sunsethilltreefarm.com/levitra/ cost of levitra in mexico http://stroupflooringamerica.com/generic-prednisone/ prednisone prices http://livinlifepc.com/order-prednisone-without-prescription/ generic prednisone from india http://eatingaftergastricbypass.net/indomethacin/ indocin http://proteinsportsnutrition.com/item/synthroid/ price of synthroid orchitis, person.

jordan shoes (not verified)

Mon, 03/21/2022 - 23:41

Permalink

I needed to create you this little bit of remark to be able to give many thanks again on the awesome solutions you've discussed above. This has been really particularly generous of you to allow publicly what exactly numerous people could have marketed as an electronic book to help with making some profit for their own end, specifically given that you could have done it if you considered necessary. Those secrets as well worked to be a good way to comprehend someone else have a similar dreams just as my personal own to learn a lot more in regard to this issue. Certainly there are several more fun instances ahead for those who look into your blog.
jordan shoes http://www.cheapjordan.us

Add new comment

About text formats

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.
  • Web page addresses and email addresses turn into links automatically.