Broken Case statement Logic

[Tom Gonser]

WOW!! I just tried setting my value to 27 manually, and it STILL does not work!!

Check this out:


TC1=27


Select Case TC1
case 0
TracID1 = " "
case TC1 < 27 'A-Z
TracID1 = TC1 + 64
case TC1 >= 27 '0-9
TracID1 = TC1 + 21
case 37
TracID1 = ":"
case 38
TracID1 = "."
case else
TracID1 = "$"
End Select

The result is "[", when it should be "0"!!! How could I be setting a value of "27" and having this kind of result?

TG

[Dave]

Tom, If you would please try the code exactly as I have written it in my first reply and tell me what the results are.

Dave Purola,
N8NTA

[Tom Gonser]

The answer was to not use the CASE statement at all.. It looked like it was failing somehow internally. So I moved to:

If TCX = 0 then TracID1 = " "
If TCX < 27 then TracID1 = TCX+64
If TCX >=27 then TracID1 = TCX+21
If TCX = 37 then TracID1 = ":"
If TCX = 38 then TracID1 = "."
if TCX > 38 then TracID1 = "$"

I think the code is smaller, and best of all it works.

[Dave]

Tom, It only goes to show, There's more than 1 way to skin a cat.......

Dave Purola,
N8NTA