Arrays Oshon Pic Basic

Hi can anyone help me with this please?

I want to store a string something like this

DIM bargraph(10) as Byte

bargraph(6) = s_p, #sr, " ", 0, 1, 2, 3, 4, 5, 6, " "

or perhaps three is a better way?

I have this code:

bargraph0:
Lcdcmdout LcdLine2Home
Lcdout s_p, " ", "0 "
WaitMs 1
Goto home
bargraph1:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, " "
WaitMs 1
Goto home
bargraph2:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, " "

etc.....

It seems to me that it would be great to do something like this here instead

bargraph:
Lcdcmdout LcdLine2Home
Lcdout bargraph(var)
Goto home

that way I could just call 1 line which would read the array element associated with var.

Is this possible?

Regards - Paul

hi Paul,
Have you considered using the LOOKUP statement for Strings.??

eg;
FOR DIGIT = 0 TO 9
bargraph = LOOKUP(s_p#sr 0123456), DIGIT
lcdout bargraph
NEXT DIGIT

Hello again Eric.

I haven't used lookups before. I just had a quick read of the help file in oshon.

So I could do someting like this then.

mask = LookUp(" ", "0 ", #sr, " ", 0, " ", #sr, " ", 0, 1, " "), var
lcdcmdout s_p, mask

etc...

Regards - Paul

Hmmm just realised i'd have to be careful with quotes and commas. Would each parameter require single quotes?

I can't get the construct of the strings right. Can anyone help please?

Here's what it is at present.

bargraph0:
Lcdcmdout LcdLine2Home
Lcdout s_p, " ", "0 "
WaitMs 1
Goto freq
bargraph1:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, " "
WaitMs 1
Goto freq
bargraph2:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, " "
WaitMs 1
Goto freq
bargraph3:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, " "
WaitMs 1
Goto freq
bargraph4:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, 3, " "
WaitMs 1
Goto freq
bargraph5:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, 3, 4, " "
WaitMs 100
Goto freq
bargraph6:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, 3, 4, 5, " "
WaitMs 1
Goto freq
bargraph7:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, 3, 4, 5, 6, " "
WaitMs 1
Goto freq
bargraph8:
Lcdcmdout LcdLine2Home
Lcdout s_p, #sr, " ", 0, 1, 2, 3, 4, 5, 6, 7, " "
WaitMs 1
Goto freq


So how do I do

mask = LookUp(" ", "0 ", #sr, " ", 0, " ", #sr, " ", 0, 1, " "), var
lcdcmdout s_p, mask

Regards - Paul

SwingeyP said:

Hmmm just realised i'd have to be careful with quotes and commas. Would each parameter require single quotes?

Click to expand...

hi,
For ASCII characters in the LOOKUP string use double quotes ONLY at each end of the string.

For mixed hex, ascii ("123",22h,31h,"the quick brown fox")

SwingeyP said:

I can't get the construct of the strings right. Can anyone help please?

Regards - Paul

Click to expand...

hi,
You MUST use a FOR...NEXT loop to select each table character in turn.

Do you need an example.???

Thanks Eric.

Just a quickie, I need to start using a procedure buy OSHON gives me error 282. Support for functions and procedures is not enabled. How do I enable them?

SwingeyP said:

Thanks Eric.

Just a quickie, I need to start using a procedure buy OSHON gives me error 282. Support for functions and procedures is not enabled. How do I enable them?

Click to expand...

hi Paul,
Its an option you have to purchase from Oshonsoft, IIRC it part of the MATH32 support.

hi Paul,
Look at this demo option.

oh right. time to upgrade then. I'll send a mail and enquire about upgrade.

Thanks Eric.

Regards - Paul