Pure Newbie

[Jonathan Allison]

Yes, I admitt it! I am newbie to bs2 hehe

' {$STAMP BS2}
' {$PBASIC 2.5}

lngCount VAR Word
lngGreen VAR Word
lngRed VAR Word
lngDelay VAR Word

lngGreen = 1
lngRed = 1
lngDelay = 1500

FOR lngCount = 0 TO 10000
PAUSE lngDelay

DEBUG "Green: ", DEC lngGreen, CR
DEBUG "Red: ", DEC lngRed, CR

IF lngGreen = 1 THEN
GOTO GreenOff
ENDIF

IF lngRed = 1 THEN
GOTO RedOff
ENDIF

lngGreen = lngGreen + 1
lngRed = lngRed + 1

IF lngRed > 10 THEN
GOTO RedOn
lngRed = 1
ENDIF

IF lngGreen > 15 THEN
GOTO GreenOn
lngGreen = 1
ENDIF



NEXT

GreenOn:
HIGH 14
RETURN
GreenOff:
LOW 14
RETURN
RedOn:
HIGH 15
RETURN
RedOff:
LOW 15
RETURN

this code makes it so lngRed and lngGreen are always 1. Can't figure out for the life of me why this would be? I am, however, use to programming in php, c, c++ and other oop languages.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Johnny

[Jim McCorison]

Johny,

A couple of things.

First, I think you are confusing GOTO and GOSUB. GOTO is a branch, where as GOSUB is a subroutine call and has a RETURN to return to where it was called:




Main:
If x=1 then
gosub X1
else
gosb notx1
endif
goto main

x1:
debug "x1"
return

notx1:
debug "not x1"
return




The second thing is that memory in a stamp is very limited, only 26 bytes. A WORD variable takes 2 bytes. But a quick read of your code indicates that the values of IngRed and IngGree won't exceed 15. In that case you'd be better off using NIB which is a nibble, or half a byte.

For those of us coming from machines with tons of memory, this bit counting is foreign. But you'll need to get used to it on a stamp.

Jim

[Jonathan Allison]

sweet, that fixed it (gosub)

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Johnny