Siemens c55 sms control help please

[camolas]

Im lost now

[camolas]

Hi,

I think the array is now ok

..........
..........
myarray var byte[48] 'My array is made i think
..........
..........
Loop:
HSEROUT ["AT+CMGR=1",13,10]
HSERIN 5000, Loop,[WAIT("OK")]

if myarray[0]="0" then
if myarray[1]="1" then
..................... ' from 0 to 47
.....................
if myarray[46]="46" then
if myarray[47]="47" then

goto success
endif
endif
................... ' from 0 to 47
...................
endif
endif

no_success:
Goto Loop

success:
High PortD.2

End


Please give me your input thanks.

[Ioannis]

OK. That is an improovment!

I don't like the loop with Hserin. If you have to do other things and the data arrived are not good, it will stuck in the loop. You must have a way out and do some other checks if you need to execute tasks in the mean time.

Ioannis

[camolas]

Hi,

100% right is stuck and keep doing AT+CMGR=1 (see it in hterminal)

Can you please show me how you do it?

thanks for caring.

OK. That is an improovment!

I don't like the loop with Hserin. If you have to do other things and the data arrived are not good, it will stuck in the loop. You must have a way out and do some other checks if you need to execute tasks in the mean time.

Ioannis

[camolas]

Hi,

Its stuck and keep doing LOOP: (see it in hterminal)

at+cpms="SM"
+CPMS: 1,15,1,15,1,15

OK
AT+CMGR=1
+CMGR: 1,,23
0791539126010000240C915391663921010000807070819341 400453FA1B0E

OK

There is some error on my code.

 @ Device HS_OSC         ' High Speed Crystal
define OSC 20     ' Check the spelling of OSC, must be in capital letter
        
Include "modedefs.bas" ' Include serial modes

' Define LCD registers and bits
Define	LCD_DREG	PORTB           'Lcd D 4-bit parallel register starts at PortB.4 to PortB.7
Define	LCD_DBIT	4              
Define	LCD_RSREG	PORTB
Define	LCD_RSBIT	2
Define	LCD_EREG	PORTB
Define	LCD_EBIT	3
Define  LCD_COMMANDUS   2000	      ' Command Delay (uS)
Define  LCD_DATAUS      50 	     ' Data Delay (uS)
DEFINE  OSC         20                'Define oscilator frequency
DEFINE LCD_LINES 4 'Number lines on LCD 

DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive
DEFINE HSER_TXSTA 24h ' Enable transmit, BRGH = 1
DEFINE HSER_SPBRG 129 ' 9600 Baud @ 20MHz, 0.16%
DEFINE HSER_CLROERR 1 ' Clear overflow automatically
        


myarray var byte[62]


TrisD.2=0
TrisC.6=0
TrisC.7=1
B0 var byte

High portD.2
Pause 500
Low portD.2
Pause 500
High portD.2
Pause 500
Low portD.2
Pause 500



LOOP:
                                      
HSEROUT["at+cpms=",34,"SM",34,13]
PAUSE 500
HSEROUT ["AT+CMGR=1",13,10]
PAUSE 500



HSERIN 5000, POR,[WAIT("OK")]

POR:
if myarray[0]="0"then 
'0791539126010000240C915391663921010000807070819341400453FA1B0E

goto success

endif
goto LOOP

success:
High PortD.2

End

Thanks for caring.

[skimask]

There is some error on my code.

No kidding...
Where is myarray getting filled from? And how?

[Ioannis]

After this:

HSERIN 5000, POR,[WAIT("OK")]

and before that:

POR:
if myarray[0]="0"then

you need to fill the array as Skimask stated.

Ioannis

[camolas]

Hi,

It is this ok Masters?

Code:
..........
..........
HSERIN 5000, [WAIT("OK")] ' I tacke off the POR from HSERIN 5000, POR,[WAIT("OK")] i think theres no need, is ok masters?
HSERIN 5000 POR,[STR myarray\62]

POR:
if myarray[0]="0"then
..........
..........

Thanks for caring