{"id":6503,"date":"2007-03-14T10:41:00","date_gmt":"2007-03-14T10:41:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2007\/03\/14\/coding-a-euchre-game-part-3-timers-matt-gertz\/"},"modified":"2024-07-05T14:49:24","modified_gmt":"2024-07-05T21:49:24","slug":"coding-a-euchre-game-part-3-timers-matt-gertz","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/coding-a-euchre-game-part-3-timers-matt-gertz\/","title":{"rendered":"Coding a Euchre Game, Part 3: Timers (Matt Gertz)"},"content":{"rendered":"

Coding a Euchre Game, Part 3: Timers<\/p>\n

<\/span><\/font><\/font><\/font><\/p>\n

In my previous posts regarding the Euchre game creation, I discussed some issues with creating a complex form and maintaining images to be shown on it.  <\/span>In this posting, I’m going to start covering some of the more esoteric controls.<\/p>\n

<\/font><\/font><\/span><\/p>\n

Timers and Message Pumps<\/p>\n

<\/font><\/font><\/font><\/span><\/h2>\n

Try this:  <\/span>go to your Programs menu in Windows and launch the “Hearts” game.  <\/span>Play a few hands of it.  <\/span>Go ahead, I’ll wait.<\/p>\n

<\/font><\/font><\/span><\/p>\n

(hum-dee-dum-dee-dum)<\/p>\n

<\/font><\/font><\/span><\/i><\/p>\n

You back yet? Notice anything a little odd about that game?  <\/span>The action is just a little fast, isn’t it?  <\/span>In fact it’s so fast that you can barely take it in, and it takes you a few seconds just to realize what the other players have done.  <\/span>That’s just too fast for me, and although I enjoy playing Hearts on my handheld (where it’s much better paced), I simply can’t play it on my desktop – it just feels unnatural.<\/p>\n

<\/font><\/font><\/span><\/p>\n

Hearts is fast because the AI players simply connect their actions from one to the other without pauses.  <\/span>Real players don’t act like that, though.  <\/span>To simulate real player hesitation, we’re going to use a timer control.<\/p>\n

<\/font><\/font><\/span><\/p>\n

To start this, we simply drag a Timer control from the toolbox to the EuchreTable form.  <\/span>You’ll note that the timer control does not actually land on the form, but instead goes to a grey area below the form.  <\/span>That’s because timers don’t actually have real positions; they’re never visible, so it makes no sense to put the on the form itself.  <\/span>However, you still need to be able to set properties on them,which is why they show up in that grey area.  (Controls such as these are essentially identical to the old concept of a “windowless control.”)<\/font><\/font><\/span><\/p>\n

For the timer control, we’ll change its name to “EuchreTimer” and set the Interval to 1500 (measured in milliseconds) as a default — we can always adjust it later.  <\/span>Now, in the constructor for EuchreTable, we’ll add the following line of code:<\/p>\n

<\/font><\/font><\/span><\/p>\n

        <\/span>AddHandler<\/span> EuchreTimer.Tick, AddressOf<\/span> TimerEventProcessor<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/font><\/p>\n

<\/span><\/p>\n

which specifies the handler for the Tick event which will occur every 1.5 seconds. <\/p>\n

<\/font><\/font><\/span><\/p>\n

Now, we don’t want the timer to be on all the time.  <\/span>We just want it to fire when the AI is making a decision.  <\/span>So, by default, the timer will be off, and we’ll turn it on when needed.  <\/span>After it fires once, we’ll turn it off again.<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TimerEventProcessor(ByVal<\/span> myObject As<\/span> Object<\/span>, _<\/p>\n

<\/span><\/p>\n

 <\/span>ByVal<\/span> myEventArgs As<\/span> EventArgs)<\/p>\n

<\/span><\/p>\n

        <\/span>EuchreTimer.Stop()<\/p>\n

<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/font><\/p>\n

<\/span><\/p>\n

When we want to use the timer, we simply turn it on.  <\/span>Let’s put the call in a method called TimerSleep which anyone can call to start up the timer:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TableSleep()<\/p>\n

<\/span><\/p>\n

        <\/span>EuchreTimer.Start()<\/p>\n

<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

<\/span><\/p>\n

However, now we have a problem.  <\/span>The timer doesn’t actually block the AI from proceeding – it just throws out a “tick” which will be handled.  <\/span>To actually block the AI from proceeding, we’re going to need to wait for the tick.  <\/span>Let’s create a member variable call GoAhead and add a check for that to the two routines we’ve defined:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TimerEventProcessor(ByVal<\/span> myObject As<\/span> Object<\/span>, _<\/p>\n

<\/span><\/p>\n

 <\/span>ByVal<\/span> myEventArgs As<\/span> EventArgs)<\/p>\n

<\/span><\/p>\n

        <\/span>EuchreTimer.Stop()<\/p>\n

<\/span><\/p>\n

        <\/span>GoAhead = True<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TableSleep()<\/p>\n

<\/span><\/p>\n

        <\/span>GoAhead = False<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>EuchreTimer.Start()<\/p>\n

<\/span><\/p>\n

        <\/span>While<\/span> GoAhead = False<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>End<\/span> While<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

<\/span><\/p>\n

 <\/span>Cool, now anyone calling TableSleep will block until the value of GoAhead changes when the timer event is processed, right?  <\/span>Well, no.  <\/span>The timer uses the UI message pump, and with the code as it currently is, the Timer message won’t be processed.  <\/span>There are other messages that we’d want to have handled as well, such as those involving painting the application.  <\/span>So, we’re going to need to pump messages.  <\/span>This is extremely easy to do by using the Application.DoEvents() method:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TableSleep()<\/p>\n

<\/span><\/p>\n

        <\/span>StopPumpingMessagesDuringPause = False<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>EuchreTimer.Start()<\/p>\n

<\/span><\/p>\n

        <\/span>While<\/span> GoAhead = False<\/p>\n

<\/span><\/span><\/p>\n

           <\/span> <\/span>Application.DoEvents()<\/p>\n

<\/span><\/p>\n

        <\/span>End<\/span> While<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

<\/span><\/p>\n

Now, what if the user exited the game (or start a new one) while the timer was functioning?  <\/span>We’d like to turn off the timer immediately, rather than have them wait to exit.  <\/span>We do this by handling the “Closed” event (or the New Game message, as applicable).  <\/span>First, we add a handler in the constructor of EuchreTable:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>AddHandler<\/span> Me<\/span>.Closed, AddressOf<\/span> Me<\/span>.EuchreTable_Closed<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

Then we implement the handler:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> EuchreTable_Closed(ByVal<\/span> sender As<\/span> Object<\/span>, _<\/p>\n

<\/span><\/p>\n

ByVal<\/span> e As<\/span> EventArgs)<\/p>\n

<\/span><\/p>\n

        <\/span>GoAhead = True<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>exitEuchre = True<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/font><\/p>\n

<\/span><\/p>\n

And then we’ll alter the TableSleep method to throw an exception so that we can exit the game logic, no matter where we are.  <\/span>This is a realy important step – as we are in the middle of a game, it would be bad if the form went away while we were still executing in the middle of a hand! I’ve created a class called EuchreException which just makes it easier for me to determine that it’s one of my own exceptions and not a system exception:<\/p>\n

<\/font><\/font><\/span><\/p>\n

Class<\/span> EuchreException<\/p>\n

<\/span><\/p>\n

    <\/span>Inherits<\/span> SystemException<\/p>\n

<\/span><\/p>\n

    <\/span>Public<\/span> Sub<\/span> New<\/span>(ByVal<\/span> message As<\/span> String<\/span>)<\/p>\n

<\/span><\/p>\n

        <\/span>MyBase<\/span>.New(message)<\/p>\n

<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

End<\/span> Class<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> TableSleep()<\/p>\n

<\/span><\/p>\n

        <\/span>StopPumpingMessagesDuringPause = False<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>EuchreTimer.Start()<\/p>\n

<\/span><\/p>\n

        <\/span>While<\/span> GoAhead = False<\/p>\n

<\/span><\/span><\/p>\n

            <\/span>Application.DoEvents()<\/p>\n

<\/span><\/p>\n

        <\/span>End<\/span> While<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>If<\/span> exitEuchre = True<\/span> Then<\/p>\n

<\/span><\/span><\/p>\n

            <\/span>Throw<\/span> New<\/span> EuchreException(“ExitGame”<\/span>)<\/p>\n

<\/span><\/p>\n

        <\/span>End<\/span> If<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

<\/span><\/p>\n

And in the main loop of the program (which I call “NewGameInvoked”), we catch the exception and force an exit to the application:<\/p>\n

<\/font><\/font><\/span><\/p>\n

    <\/span>Private<\/span> Sub<\/span> NewGameInvoked()<\/p>\n

<\/span><\/p>\n

  <\/span>Try<\/p>\n

<\/span><\/span><\/p>\n

            <\/span>Do<\/span> While<\/span> exitEuchre = False<\/p>\n

<\/span><\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

‘ (this is where the game actually happens – <\/p>\n

<\/span><\/p>\n

   <\/span>I’ve omitted the actual code for brevity’s sake)<\/p>\n

<\/span><\/p>\n

<\/p>\n

 <\/p>\n

<\/span><\/p>\n

            <\/span>Loop<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>Catch<\/span> ex As<\/span> EuchreException<\/p>\n

<\/span><\/p>\n

            <\/span>If<\/span> ex.Message = “ExitGame”<\/span> Then<\/p>\n

<\/span><\/span><\/p>\n

                <\/span>exitEuchre = False<\/span> <\/p>\n

<\/span><\/p>\n

                <\/span>‘ Do nothing; fall through and exit the application<\/p>\n

<\/span><\/span><\/p>\n

            <\/span>End<\/span> If<\/p>\n

<\/span><\/span><\/p>\n

        <\/span>End<\/span> Try<\/p>\n

<\/span><\/span><\/p>\n

    <\/span>End<\/span> Sub<\/p>\n

<\/span><\/span><\/p>\n

This may seem a little complicated for a game – after all, who cares if they have to wait a couple of seconds for the game to exit?  <\/span>Or why not just let the AI players operate at warp speed?  <\/span>But, at the very least, we *have* to periodically check for messages or we’ll never repaint or be able to exit the app until the game ends.  <\/span>You might think that we could have simply<\/font><\/font><\/span><\/p>\n<\/h2>\n","protected":false},"excerpt":{"rendered":"

Coding a Euchre Game, Part 3: Timers In my previous posts regarding the Euchre game creation, I discussed some issues with creating a complex form and maintaining images to be shown on it.  In this posting, I’m going to start covering some of the more esoteric controls. Timers and Message Pumps Try this:  go to […]<\/p>\n","protected":false},"author":258,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[22,195],"tags":[101,165],"class_list":["post-6503","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-matt-gertz","category-visual-basic","tag-matt-gertz","tag-vb2005"],"acf":[],"blog_post_summary":"

Coding a Euchre Game, Part 3: Timers In my previous posts regarding the Euchre game creation, I discussed some issues with creating a complex form and maintaining images to be shown on it.  In this posting, I’m going to start covering some of the more esoteric controls. Timers and Message Pumps Try this:  go to […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/6503","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/258"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=6503"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/6503\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=6503"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=6503"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=6503"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}