Character

GreyBox Tim

I'm interested to see if anyone already has the code for grabbing a character from a variable·like the "DIG" function in Pbasic.

i.e.: if I want to grab character "0" of 255 I would put it "var DIG 0" and be replied with the character "5"

Thoughts?

-Tim

Jon Williams

I wrote this SX/B·subroutine and it seems to work fine for bytes:

' Use: theDigit = DIG value, whichPos

DIG:
· temp1 = __PARAM1·········· ··' save value
· temp2 = __PARAM2·········· ··' position
· temp3 = 0
· IF temp2 < 3 THEN
··· DO WHILE temp2 > 0
····· temp1 = temp1 / 10
····· DEC temp2·
··· LOOP
··· temp3 = temp1 // 10···
· ENDIF
· RETURN temp3

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax

GreyBox Tim

Simple - yet sexy!

I'll give it a whirl tonigt when I get home - speaking of which, what are you still doing working ths late? I thought I was the only guy staying till 9PM these days...

Cheers!

-Tim

Jon Williams

When one works from home "office hours" are defined as those when one is not sleeping....

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax

GreyBox Tim

In fact, the more I look at that code, I can see that's probably very close (if not spot-on) to how you guys did that in Pbasic...

Again Thanks!

-Tim

Jon Williams

I don't have access to the BASIC Stamp source code so I don't know -- but there is a certain logic that most programmers would agree upon.

▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
Jon Williams
Applications Engineer, Parallax

GreyBox Tim

I define "off hours" as those minutes when I'm not commuting between home and the office (and back) - and when I'm so tired that the keybaord becomes my 'sleeping mask". Ahh the joys of supporting the tech industry...

-Tim