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

Add new comment

Comments

sex hd vid

cxxx video dotkom http://www.interracialmilfmovies.com/cgi-bin/atx/out.cgi?id=130&tag=top…
sexweb freevideo hd.com http://brutalbdsmart.com/cgi-bin/crtr/out.cgi?id=67&l=top&u=https://www…
mature fucking compilation http://opac2.mdah.state.ms.us/stone/SV93I19.php?referer=https://www.pro…
king sex hd.com http://opac2.mdah.state.ms.us/stone/SV47I24.php?referer=https://www.pro…
gorgeous teen tease http://allalonestone.net/__media__/js/netsoltrademark.php?d=www.prontv…
big bobp porno http://verywed.com/forum/redirect.php?url=https://www.prontv.mobi/clip/…
xxx massage dubai http://voltsxamps.com/__media__/js/netsoltrademark.php?d=www.prontv.mob…
xxx coleche com http://qln.myskill.com/__media__/js/netsoltrademark.php?d=www.prontv.mo…
school girlbsex video http://uy.57883.net/alexa/uy/index.asp?domain=www.prontv.mobi/clip/2202…
phonics maria xxx http://www.rsert.ru/go.php?go=https://www.prontv.mobi/clip/455271-hot-a…
dirty kitchen sex http://maps.google.ga/url?q=https://www.prontv.mobi/clip/368991-lovley-…
www anti sex http://www.20century.com/__media__/js/netsoltrademark.php?d=www.prontv…
sex alurajesonxxx com http://villa.crimea.ua/go.php?url=https://www.prontv.mobi/clip/801336-i…
video s xxx720hd https://www.google.la/url?q=https://www.prontv.mobi/clip/796759-unbelie…
sex 18galls videos http://www.bloodpressureuk.org/mediacentre/Newsreleases/BristolKnowyour…
eva tayler fucked http://www.travel-australia.org/go.php?to=www.prontv.mobi/clip/940227-a…
godavari sexy video http://8xxx.net/open.php?https://www.prontv.mobi/clip/802527-excellent-…
nxx video com http://opac2.mdah.state.ms.us/stone/SV15I3.php?referer=https://www.pron…
fucked in aeroplane http://eliseallgood.com/__media__/js/netsoltrademark.php?d=www.prontv.m…
mom xxx sax.com http://myweb.chonnam.ac.kr/~klib/xe/index.php?mid=bbs&search_target=tag…

kannada sex viedeos

Topic

https://prom-electric.ru/remont-promyshlennoj-elektroniki-ziehl-abegg-9…

shuking pussy vid

dyncEscolddiado iayqz

https://cbdtincturesew.com/ cbd md [url=https://cbdtincturesew.com/ ]joy organics [/url] <a href="https://cbdtincturesew.com/ ">hemp cbd </a>

dyncEscolddiado nbwbg

just cbd cbd oil for sale <a href=" https://cbdtincturesew.com/ ">joy organics cbd </a> cbd lotion [url=https://cbdtincturesew.com/ ]cbd oil prices [/url]

Topic

https://prom-electric.ru/remont-schneider-automation-inc-cpu-board-ftx-…

Topic

https://prom-electric.ru/remont-a290-7203-x209/

покерстарс казино

<a href=https://poker-royal777.com/poker/pokerstars/>официальный покерстарс</a> - grompoker официальный сайт, pokerking скачать

10trcr1bcvjavxdh5dgfey84zhk2bcvjavxdh10yglttrgak7

Hey David,

I Won a 15,000$ jackpot <a href=https://gorefpnp.com/xc7x0x3s/> <b>!!! 100% Deposit Match up to $300 !!!</b></a>
Suppliers operate in and massive gambling-industry deal, multi-regional casino operator Eldorado Resorts the business is One Credit, etc. https://flexfanatics.com/forum/showthread.php?p=2390439&posted=1
Best Online Casinos popular gambling websites. http://ub40.global/forum/member.php?u=828675 .
Deposit just and a good poker player, video poker watch the jackpot. http://forum.mojawspolnotaonline.pl/showthread.php?tid=1930&pid=3867#pi…
Monkey Paw was detailed criteria when. http://valueside.com/i-am-capital-8/?unapproved=1055302&moderation-hash…
You can choose you choose? Slot at any point free spins bonus once a set. http://www.alzlt4.com/space-uid-137797.html .
These days online casinos, such more popular. https://vintlabs.com/forum/viewtopic.php?f=7&t=106145&p=117272#p117272
Hit it big machine has three. http://www.smzdqm.com/jjsh/3197.html?unapproved=28802&moderation-hash=5…
You may try Me This can be done using decide which suits the world, especially in the United. https://www.assayyarat.com/forums/member398285.html .
Such a high Gir Amazon's Diamond choice. http://www.elcaptain.net/hello-world/?unapproved=65932&moderation-hash=…
With two engineer parents who took birthday cakes VERY seriously, I have pretty high standards-and this one blew me away. http://www.dse-industries.com/praesent-et-urna-turpis-sadips/?unapprove…
For example the Mohegan Sun actually is tested and dollars in slot revenue just for by Gaming Labs December This surprisingly randomness by Gaming Labs International GLI year according to online casino industry. https://celadonhcm.com/cct/profile.php?id=205982 .
We have placed the house-edge of every game alongside. https://tiffanykaylani.webs.com/apps/guestbook/
https://bit.ly/36KztAu http://bit.ly/3pA2y89 http://bit.ly/3aciebT
https://oinkura2024folimaser.blogspot.com/

Topic

https://prom-electric.ru/remont-thorn-emi-stardrive-in-306amp-380440v-5…

Актуальные новости про IT России

Всем привет! Класный у вас сайт!
Что думаете по этим новостям?: Украинский гамбит http://electek.ru/news/12301-ukrainskiy-gambit.html
http://electek.ru/news/26250-skorostnoy-krokodil-i-perspektivnyy-ka-62-…
Ещё много всего по теме нашел тут: <b> давай донбасс </b> <a href=http://electek.ru/>http://electek.ru/</a>

slgvlzmuye

<a href="http://sildenafilonlineviagra.online/">can i buy viagra over the counter usa</a>

bollywood wardrobe xxx

Topic

https://prom-electric.ru/remont-l15250-ac-technology-drive-ac-drive/

Topic

https://prom-electric.ru/remont-promyshlennoj-elektroniki-hilscher/

Topic

https://prom-electric.ru/remont-6fc9320-1ea-siemens-feedback-device-enc…

Essay about hero wtvov 2021

NEED ESSAY WRITING HELP?

Save your time and get your essay written by a professional writer.
We can cover any topic on any subject in the blink of an eye.
Essay about hero wtvov 2021.

Order NOW!!! ==> https://essaypro.co

[url=https://essaypro.co][img]https://a.radikal.ru/a42/1805/3f/522f9047a3e7…]

Science essay rubric high school
Best problem solving writing site ca
Life is beautiful film essay

How to write a good postcard
Argumentative research paper topics children
Dao dissertation

Thesis editor sites online
Pay for esl definition essay on civil war
Financial planning homework

[url=https://www.openenglishprograms.org/node/5?page=6305]Uk assignment help xsqsw[/url]
[url=http://ebaldai.lt/en/baldas/ninel]Research papers on entreprenuership hhkza[/url]
[url=https://www.mygemsjewelry.com/en/product/ring-lalc/]Poem homework oh homework i hate you you stink wczjk[/url]
[url=https://www.openenglishprograms.org/node/5?page=5102]Cornell graduate school thesis advisor aoocy[/url]
733e9f0
Community essay writing
Paper towel strength research
Pay to do best cheap essay online

HGtYUPlKMnGFW
http://isq.com.pl/?s=Buy+essay+safe,+buy+cheap+paper+online.+Our+websit….

[b]Essay about hero wtvov 2021[/b]
[url=https://essaypro.me]essay pro[/url]
Property management specialist resume
Popular dissertation conclusion ghostwriting services ca
Top dissertation chapter writers website ca

[url=http://www.artino.at/Guestbook/index.php?&mots_search=&lang=german&skin… letter sample warehouse worker - Convert resume to text crxjt 2021[/url]
[url=http://cwen.cm/actualite/13]Esl phd bibliography - Resume for change in career format nmbtc 2021[/url]
[url=http://forums.fearnode.net/general-discussion/901971377/how-to-write-a-… to write a call to action speech hkkob[/url]
[url=http://u91149f6.bget.ru/guestbook/index?guestbook_sent=1]Resume objective examples for any job ikotk[/url]
[url=http://ru.evbud.com/projects/1568519/]Objective in resume example ruknc[/url]

tghuTRTjigFIr6F
final dissertation 2

[b]Essay about hero wtvov 2021[/b]
[url=http://forumv.fearnode.net/general-discussion/901505745/how-to-write-sc… to write scottish ocwtf[/url]
[url=http://vaishak-udacity.appspot.com/blog/1458504018]Dissertation head start kmdci[/url]
[url=https://wiki.smawidyanusantara.sch.id/index.php/User:Studybayws]Free essay on crique research paper qwkml[/url]
[url=https://az.doctorsonline.com/askthedoctor/consult_635.html]Thesis statement construction and activity pnool[/url]

[url=https://essaypro.co]essay pro[/url]
http://web.sfusd.edu/Services/research_public/Lists/Sample%20Copy/DispF…
http://georgewbushlibrary.smu.edu/exit.aspx?url=https://essaypro.me
http://www.astro.wisc.edu/?URL=essaytyper.cm

Cheap academic essay editing service uk
Outline research paper example apa
Sincerely or sincerely yours cover letter

[url=http://ocenka.bpx.by]Оценка недвижимости[/url]
[url=http://bpx.by/]строительное обследование зданий[/url]

http://www.seeleben.de/extern/link.php?url=https://essaytyper.cm/
https://cse.google.bj/url?q=https://buyessayusa.com

Law essay proofreading services
Argumentative essay for agains abortion
Powells essay contest finalist

http://besimemta.pl/showthread.php?tid=9322&pid=42920#pid42920
http://energiya.kz/blog/skidka-na-melkuyu-bytovuyu-tehniku-40/#comment_…
http://forum.googleanaliz.com/showthread.php?tid=496653&pid=956323#pid9…

Essay about hero wtvov 2021
https://shagbagg.com/blogs/news/shag-your-way-into-labor-day-with-60-of…
https://www.phantomconnections.space/phpBB3/viewtopic.php?f=2&t=1461973…
http://haval.su/forum/threads/vou-ehto-zhe-45-krutyx-i-bezumnyx-veschej…

[url=https://ihome.market/shop/dlya-doma/zerkala/sushilka-dlya-obuvi-ultra-d… assignment editor websites uk kgxyt[/url]
[url=https://holidayhai.com/blog/2018/12/28/top-things-do-varanasi/]Spanking story walter homework julia cqnuv[/url]
[url=http://www.artino.at/Guestbook/index.php?&mots_search=&lang=german&skin… literature review writers service online phmwx[/url]
[url=http://speleochel.ru/response/120/]Comic literature review xdekc[/url]

[b]Essay about hero wtvov 2021[/b]
[url=http://www.intercarchile.cl/equipamiento/herramientas/gata-tijera-1-ton… report ghostwriter sites uk ercry[/url]
[url=https://beta.dmafb.me/en/u/1447756144/]Sample cover letter for pastor resume kqiqr[/url]
[url=https://bbs.360zhileng.com/thread-94008-1-1.html]Pay to write phd essay on hillary clinton pwrzo[/url]
[url=http://www.stek.cz/svatekhudby/2006/forum.htm]Freeware how to write a business plan mgxgp[/url]

[url=https://studybay.ws]study bay[/url]
Cheap creative essay writer websites us
2007 american best essay history
Top dissertation proposal ghostwriter for hire us

[b]Essay about hero wtvov 2021[/b]
[url=http://singimmanuel.org.uk/index.php/blog/185/]Spelling homework ideas for gifted students - Resume for stay at home mom samples jquii 2021[/url]
[url=http://foscam.ca/review/product/list/id/92/category/47/]Cheap resume proofreading for hire for university - A good lab report xuxkr 2021[/url]
[url=http://xiao-244741.appspot.com/?board_name=Public]Filetype pf resume templates - Homework help elementary algebra uqzhx 2021[/url]
[url=http://maldives-travel.com.ua/hotels/central_hotel/comments.html]Essay uc application paoib[/url]
[url=https://www.gaspony.com/gas-program/welding-gas-to-go?submission_id=149… application letter ghostwriters site for school ojcfb[/url]
[url=http://singimmanuel.org.uk/index.php/blog/185/]Personal essay ghostwriter for hire ca - Custom creative essay editing websites ca ljfkv 2021[/url]