hserin and sms controller

[xxxxxx]

thx ioannis for idea, and i put a hex inverter (invert signal from phone twice) in tx phone to rx pic line and the program is now working. so it search letter A in first readed message in SM location and if it find it turn on led on portb.6

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2009 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 20/02/2009                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
ansel=$00'konfigurisi AN pinove kao digital I/O
anselh=$00


' Definisanje 
define OSC 4
DEFINE HSER_SPBRG 25
DEFINE HSER_TXSTA 24h
DEFINE HSER_RCSTA 90h
DEFINE HSER_BAUD 9600
DEFINE HSER_CLROERR 1
DEFINE LCD_BITS 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_LINES 2

PORUKA VAR BYTE[16]

I VAR BYTE

HIGH PORTB.7
PAUSE 2000
LOW PORTB.7


' provjeri nove poruke

pocetak:
HSerout ["AT",13,10]' pocni komunikaciju

HSERIN 2000,pocetak,[WAIT("OK")]
 LCDOUT $FE,1,"start"
 pause 1000

textmod:
HSerout ["AT+CMGF=1",13,10]'postavi text mod
HSERIN 2000,textmod,[WAIT("OK")]

LCDOUT $FE,1,"text mod" 
 pause 1000

mem:
HSEROUT["AT+CPMS=",34,"SM",34,13,10]' ciljana memory lokacija
HSERIN 2000,mem,[WAIT("OK")]

LCDOUT $FE,1,"mem loc"
pause 1000

IP:
'HSEROUT["AT+CMGL=",34,"REC READ",34,13,10]' filter za query
HSEROUT["AT+CMGR=1",13,10]' filter za query

LCDOUT $FE,1,"query"

HSERIN 5000,IP,[WAIT("REC READ"),skip 41, STR PORUKA\16\13] 
LCDOUT $FE,1,"analizing"

I=0

WHILE I <> 13' count till 13 
        if poruka[i]=$41 THEN ' searc leterr A....
            GOTO UKLJUCI:
            ELSE
            GOSUB NAZAD:
      I=I+1
        ENDIF
WEND

goto ip:
UKLJUCI:
High PortB.6 ' turn on led
 end
NAZAD:
RETURN

End

[xxxxxx]

is there any way to get data fom hserin or hserout statement to lcd?????

[Ioannis]

is there any way to get data fom hserin or hserout statement to lcd?????

Have you used LCD before?

Ioannis

[xxxxxx]

Have you used LCD before?

Ioannis

i'm learnig, the idea is to show string from hserout, like "AT+CMGL" on lcd????

but not like this:

LCDOUT $FE,1,"AT+CMGL"

i want to catch up string and diplay it on lcd


thx for helping!!

--

www.mtskola.com

[Ioannis]

If the string is in the array e.g. my_string and your array say is 16 bytes in length, then do this:

LCDOUT $fe,$01,STR my_string\16

Ioannis

P.S. I suppose that all characters are in ASCII of course.

[xxxxxx]

If the string is in the array e.g. my_string and your array say is 16 bytes in length, then do this:

LCDOUT $fe,$01,STR my_string\16

Ioannis

P.S. I suppose that all characters are in ASCII of course.

thx i'm gona try it tonight after work

[xxxxxx]

If the string is in the array e.g. my_string and your array say is 16 bytes in length, then do this:

LCDOUT $fe,$01,STR my_string\16

Ioannis

P.S. I suppose that all characters are in ASCII of course.

and it's working i can list sms mesages and display it on lcd!!!! thx a lot ioannis

[Ioannis]

You are welcome!

Ioannis