Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: wxPerl Simulated 7 Segment LCD Display

by ww (Bishop)
on Jan 19, 2013 at 01:42 UTC ( #1014159=note: print w/ replies, xml ) Need Help??


in reply to wxPerl Simulated 7 Segment LCD Display

Nicely done.

A followup( to convert this to a running clock) should be easy and not too protracted a job.

  1. Remove (comment out) the mvalue in $wxGlobals{mValue}.
  2. Insert code to use localtime() to obtain $hour and $minute (as global vars).
  3. Write a routine to ensure those values have two digits.
  4. Use the (global) formatted $hour and $min in the sub do drawing{ instead of the hash element.
  5. And, of course, put the whole thing in a loop with a sleep 15 (or so, +/-) so the clock will update.

Of course, there are easier ways -- including perching a USD 2.49 (cheapo) clock in your view... and better than this top-of-the-head expression of enthusiasm for your "learning...taking place." :)


Comment on Re: wxPerl Simulated 7 Segment LCD Display
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1014159]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-08-28 03:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (256 votes), past polls