Siemens c55 sms control help please

[camolas]

Hi,

Thanks for caring one more time sow i need:

...............
myarray var byte
...........
...........
Loop:
HSEROUT ["AT+CMGR=1",13,10]
Pause 1000
Hserin 6000,loop,[STR myarray]

if myarray[1]="1" then
if myarray[2]="2" then
if myarray[3]="3" then
....
if myarray[0]="0" then
goto success
endif
....
endif
endif
endif

no_success:


success:


Is ok the code?
Thanks

[Ioannis]

...............
myarray var byte

No. You need array not byte variable. Read the Manual. I am not going to teach you the abc's of PBP! That is what YOU have to do! Sorry...

HSEROUT ["AT+CMGR=1",13,10]
Pause 1000
Hserin 6000,loop,[STR myarray]

I wrote on a previous post that you have to read back what the module is responding. By waiting 1 sec. I am sure, don't know about you, that you are quaranteed to lose data. Wait for the OK and read immediately.

if myarray[1]="1" then
if myarray[2]="2" then
if myarray[3]="3" then
....
if myarray[0]="0" then
goto success
endif
....
endif
endif
endif

no_success:


success:

The above was an example! You have to complete the puzzle...

Is ok the code?
Thanks

No, I don't think is 100% OK, as I don't know PDU as I stated before and the example I gave has nothing to do with PDU that needs to be decoded first.

Last, you are welcome, but please, read, read, read the PBP manual as to how the compiler is used. Blink a LED and then try this hardcore stuff...

Ioannis

[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?