3D
3D Photo Gallery (Part 1)
3D Photo Gallery (Part 2)

Audio
Poor Man's MIDI
Make A Metronome
iPod Tricks (Part 1)
iPod Tricks (Part 2)
iPod Tricks (Part 3)
Laugh Track Machine
Audio Player with Reverb
Shepard Melody
RB Phone Home
Build a Drum Machine

Custom Controls and Windows
Double Click Listbox
Draggable Metal Window
Double Click Canvas
Custom Buttons
Custom Buttons Part II
iTunes-style Listboxes
Custom Controls


General RB
Scrolling Windows
Using Mesage Dialogs
Case-Sensitive Word Finder
Introduction to Stacks
Wiggle Window
JPEG in PDF
Listbox Checkboxes
Background Applications
Listbox Auto-Find
Virtual Volumes
Time Tracker
Software Distribution (Part 1)
Software Distribution (Part 2)
Software Distribution (Part 3)
Software Distribution (Part 4)
Exceptions
Tips and Tricks
Text Clippings Made Easy

Graphics
Drawing a Simple Gradient
The SpriteSurface: Space Game
Image Spinner
Cropping Graphics (Part 1)
Cropping Graphics (Part 2)
Cropping Graphics (Part 3)
Cropping Graphics (Part 4)
Shimmer Graphics
Lissajous Figures
Simple Screen Capture
Vector Graphics
Kaleidoscope Images
Stegonography
Spirals!
Image Table
RB Magnifying Lens
Screen Capture
Color Picker Tutorial

Hacks
Ghost Grab
Speedy Mouse Extension
iTunes Plugins
iTunes Skinner

Mac OS X
Global Hot Key Event (Carbon Events)
Login Welcomer (Carbon Events)
Add/Remove Buttons
Resizable Sheets
Mac OS X Preferences Window
Using Sheets in REALbasic
Build a Bundle (Part 1)
Build a Bundle (Part 2)
Dock Your Passwords
Mac OS X Debugging
REALbasic Mac OS X Icon Tutorial
Animate Your Dock
RB and the Command Line

Menus
Window Menu
Templates Menu
Listbox Menu

Novelty
Guessing Game
Calendar Trivia
Tile Mixer
Zip Code Finder
Happy Valentine's Day
Merlin Simulator (Part 1)
Merlin Simulator (Part 2)
Merlin Simulator (Part 3)
Buzzword Machine
AppleSoft BASIC

Printing
Print to PDF

Registration
Registration Code Validation
Network Registration Codes

Resources
Picture Extractor (Part 1)
Picture Extractor (Part 2)

Serial
Caller ID (Part 1)
Caller ID (Part 2)
Caller ID (Part 3)

Speech
Speech Recognition

Socket Communication
Easy Peer-to-Peer File Sharing
MacPAD Version Checking
Display Web Image In Canvas
HTML IMG Tags
Version Tracking
Even Smarter Instant Messaging
Web Tiler
JavaScript and REALbasic
Stock Ticker (Part I)
Stock Ticker (Part 2)
AIM Mate

XML Manipulation
Simple XML Introduction

Video
Big Brother Video Capture

Note: All articles without a byline were written by Erick Tejkowski. When cleaning the site I removed them because the code differed from page to page, and I have yet to put them back in.

REALbasic for Dummies
by Erick Tejkowski

$19.99 @ Amazon

Files are in Stuffit 6.5 or earlier, or ZIP format.
Download Stuffit Expander

Tell us about a bad link.

Track Your Time 05-23-02

Today we'll build a useful tool for tracking your time. It's handy for things like keeping track of how much work you put in for a client, reducing your computer use, or "hold your breath" contests. Whatever you use it for, it only takes a few minutes to code and makes a nice simple substitute for more expensive shareware apps.

Build the Interface

Launch REALbasic and open Window1. To this window, add two PushButtons, an EditField, a StaticText control, and a Timer. Change the properties of each to match the following table:

Control Type	Name	Other Info
Timer	Timer1	Mode=0; Period=1000
PushButton	PushButton1	Caption = "Start Working"
PushButton	PushButton2	Caption = "Save Report"
StaticText	StaticText1	Text = "0:00"

Arrange the interface however you wish, but it might look something like this:

Source Code

To get things rolling, you need to start the Timer. Open the Code Editor and navigate to the Action event of PushButton1 and add the following code:

  dim d as date
  dim i as double
  
  if me.caption="Start Working" then
    editfield2.setfocus
    me.caption="Stop Working"
    //start the timer
    d=new date
    startTime=d.totalSeconds 
    Timer1.period=1000
    Timer1.mode=2
  else
    editfield1.setfocus
    me.caption="Start Working"
    //stop the timer
    d=new date
    endTime=d.totalSeconds 
    Timer1.mode=0
    
    totalTime = endTime-startTime//in seconds
    
  end if

Once you have the Timer started, you'll want it to update the display, so you can visually know how long you've been working. Open the Action event of Timer1 and add this code:

  dim t as double
  dim d as date
  dim i as double
  
  d=new date
  i=d.totalSeconds 
  t= (i-startTime)
  
  if t<60 then
    staticText1.text =format(t,"###########.00")+" seconds"
  else
    t=t660
    staticText1.text =format(t,"###########.00")+" minutes"
  end if

Finally, once your job is finished, you will click PushButton1 again to stop the Timer. When you do, you'll want to save the data for later. To do so, add this code to the Action event of PushButton2.

  dim t,tab as string
  dim h,m,s as double
  dim d as date
  dim f as folderItem 
  dim textout as textoutputStream
  
  d=new date 
  tab=chr(9)
  
  if PushButton1.Caption="Stop Working" then
    PushButton1.push 
  end if
  
  //save the report in a text file
  f=GetSaveFolderItem("any",d.shortDate+"-"+d.longTime+"-"+Editfield1.text)
  if f<>nil then
    textout=f.createTextFile
    textout.writeline "Job Session : "+editfield1.text 
    textout.writeline "Session Date: "+d.longdate+" - "+d.longtime
    textout.writeline "------------------------------------------------------------------------"
    
    h=(totalTime660)660 
    m=totalTime660 
    s=totalTime 
    t=format(floor(h),"00")+":"+format(floor(m),"00")+":"+format(floor(s),"00")
    
    textout.writeline "Total Session Length (hr.) : "+tab+format(h,"########00.00")
    textout.writeline "Total Session Length (min.): "+tab+format(m,"########00.00")
    textout.writeline "Total Session Length (sec.): "+tab+format(s,"########00.00")
    textout.writeline "------------------------------------------------------------------------"
    textout.writeline "Total Session Length (combo.): "+tab+t
  end if
  

Conclusion

Select Debug-Run to test your handiwork. As usual, you can download the finished project here. See you next week!

---

Please support ResExcellence by Visiting our Sponsors. One click makes a difference.

Download REALbasic and create your own software!