November 23, 2024, 07:50:55 AM

News:

Be sure to checkout our Vixen interfaces in the Library forum -- if you want PC automation at near zero cost, EFX-TEK and Vixen is a great combination of tools.


Regular running lights

Started by imagineerdan, March 19, 2009, 03:13:18 PM

Previous topic - Next topic

imagineerdan

Now I am attempting to simply make running marqee lights (from pin 0-8) I cant seem to get all the pins running....

' =========================================================================
'
'   File...... Running_Light.BS1

'
'   {$STAMP BS1}
'   {$PBASIC 1.0}
'
' =========================================================================


' -----[ Program Description ]---------------------------------------------


' -----[ Revision History ]------------------------------------------------


' -----[ I/O Definitions ]-------------------------------------------------


' -----[ Constants ]-------------------------------------------------------


' -----[ Variables ]-------------------------------------------------------

SYMBOL  pinNum          = B4



' -----[ Initialization ]--------------------------------------------------

DIRS=%11111111

' -----[ Program Code ]----------------------------------------------------

Main:


  FOR pinNum = 0 TO 7                           ' loop through outputs

   HIGH pinNum

      PAUSE 200

      LOW pinNum
    NEXT

  GOTO Main



JonnyMac

There's nothing wrong with the program; in fact, you don't even need the DIRS instruction as HIGH takes care of that for you.  I copied your code into my editor and ran it on a Prop-1.  If using external lights do you have the power switch in position #2?
Jon McPhalen
EFX-TEK Hollywood Office