Siemens c55 sms control help please

[camolas]

Code is now full working for people that want to do a sms controled......... thanks to all you that haved hellp me and care for starts as me.


Many thanks 2u

@ 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

High portD.2
Pause 500
Low portD.2
Pause 500
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] 
HSERIN 5000,LOOP,[WAIT("OK")]

IP:
HSEROUT["AT+CMGR=1",13,10] 
HSERIN 5000,IP,[WAIT("+CMGR: 1,,23"),skip 2, STR myarray\62] 

'079153 9 126010000240C915391663921010000807070819341400453FA1B0E

IF myarray[6]="9" then
goto success
endif

goto IP:

success:
High PortD.2

End

[skimask]

Code is no full working

Are you just typing to fast to care or what's up?

'Code is no full working', while not proper English (and again, your grasp of English is obviously thousands of times better than my grasp of anything but English) means to me that it's NOT working.

'Code is now full working' (again, while it's not proper English) means that it IS working.

Which one is it?

[camolas]

Hi,

I was just typing to fast (it was a big moment for me this code ) when you want to learn to speek Portugese just let me now


By by

Are you just typing to fast to care or what's up?

'Code is no full working', while not proper English (and again, your grasp of English is obviously thousands of times better than my grasp of anything but English) means to me that it's NOT working.

'Code is now full working' (again, while it's not proper English) means that it IS working.

Which one is it?

[skimask]

Hi,

I was just typing to fast (it was a big moment for me this code ) when you want to learn to speek Portugese just let me now


By by

Didn't answer the question though!

And I have enough trouble with English...much less anything else.

[camolas]

Hi,

The code works 100% if is that what you are ascking and works thanks to you and other caring members.


Inglish - Thank you
Portugese - Obrigado
By by

[camolas]

Hi,
Im traing to decode pdu to text for my sms control i have been "playing" with Alexandros Zachariadis pdupic

http://www.picbasic.co.uk/forum/atta...6&d=1079679786

But no sucess for starting point i just try to macke the pdu to text decode mode, in me sms code i puted the pdu to myarray\62 my last 8 pdu array are the word "Stop" ........53FA1B0E sow i mod. the pdupic code on this line

LOOKup2 X,[232,50,155,253,70,151,217],B0 'pdu data:E8329Bfd4697D9...

to

LOOKup2 X,[myarray[54],myarray[55],myarray[56],myarray[57],myarray[58],myarray[59],myarray[60],myarray[61] ],B0

But the lcd give not the word Stop it gives some thing else.

Please help me thanks a lot

By by

[camolas]

In my searchs i find that the

LOOKup2 X,[232,50,155,253,70,151,217],B0 'pdu data:E8329Bfd4697D9...

line is the pdu array (exadecimal data) in decimal numbers sow 232 is the decimal number of E8.
How can i convert in pbp code the pdu data to decimal and then fill the LOOKup2 X.....

Thanks.

by by