BS2 Select Case problem, via Blue tooth serial conection

Rob311

Im working on a project where I read in the data from a serial connection and run it into an select case.
For some reason I cant get it to work, keeps telling me “else”

Here is the code, or at least a snippet of it


szData VAR Byte(10) 'Bluetooth serial in

Recive:
'==BT recive== (im using a Bluetooth unit so I display it on my lcd, for debugging purposes
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]"Bluetooth Control"]

'serin pin,baud,[noparse][[/noparse]STR var\how many]
SERIN 0,84,[noparse][[/noparse]STR szData\10\CR] ‘<=this is where is store the serial in data

'==Display Input==
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]STR szData\10] ‘<= I show it here on my lcd no problem
PAUSE 1000 'pause to read

'==Switch Case==
SELECT szData
CASE 0000000001
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]"Case 0"]

CASE 0 TO 1
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]"Case 1"]

CASE 1 TO 2
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]"Case 2"]

CASE ELSE ' invalid command
SEROUT lcdpin, baud19200, [noparse][[/noparse]12] 'clear
SEROUT lcdpin, baud19200, [noparse][[/noparse]"Case Else"]
PAUSE 1000 'read time
ENDSELECT


GOTO recive

I really hope there’s a nice quick answer to this..

Thanks!
Rob

Martin Hebel

It looks as though you are reading the data as a string "1" but trying to process it as a numeric value: 1.· What is the actual data? "1", "2"? If so, read it using and just use a regular variable instead instead of an array.

SERIN 0,84,[noparse][[/noparse]DEC szData]

-Martin


▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
StampPlot - GUI and Plotting, and XBee Wireless Adapters
Southern Illinois University Carbondale, Electronic Systems Technologies

Rob311

Yeah that was it....
As much as it sucks making stupid mistakes, they get solved so simple...