StempleLABS Projects

I was unable to start the application on my laptop running XP SP2.  I opened a bug report for KC with a screen shots of the error.  I plan to try again on a different machine.

The error appeared to be related to a font issue…

Dim LCD As New oLCD
Dim x As New oByte

Sub Main()
  LCD.IOLineRS = 24    ’ Set up the I/O.
  LCD.IOLineE = 17
  LCD.IOGroup = 3
  LCD.Nibble = 1
  LCD.Operate = 1    ’ Turn on the oLCD Object.
  LCD.Init        ’ Initialize the LCD Module.
  LCD.Clear        ’ Clear the screen.
 
  LCD.Locate(0,0)
  LCD.String = “  StempleLABS 2006″
 
Do  
  For x.Value = 1 To 21
    LCD.Locate(1,x.Value)
    LCD.Value = 255
    ooPIC.Delay = 5
    LCD.Locate(1,x.Value - 2)
    LCD.Value = 254
  Next x.Value
 
  For x.Value = 1 To 21
    LCD.Locate(1,20 - x.Value)
    LCD.Value = 255
    ooPIC.Delay = 5
   LCD.Locate(1,20 - x.Value + 2)
   LCD.Value = 254
  Next x.Value
 
Loop  
End Sub

I currently have 10 bi-color 5×7 LED Matrix packages that were picked at a sale.
Found this NUTs and Volts story about driving this package use scanning.
http://www.parallax.com/dl/docs/cols/nv/vol2/col/nv70.pdf

Wishlist
=======
MAX7219 (DIP)  IC Driver LED Display 8 Digit - 64 bit $10.81
http://www.digikey.com/scripts/DkSearch/dksus.dll?Detail?Ref=12524&Row=546117&Site=US