Autor Tema: Ayuda alarma sms en pdu  (Leído 5132 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Ayuda alarma sms en pdu
« en: 26 de Junio de 2008, 20:07:31 »
Hola a todos,

Estoy tratando de hacer una alarma gsm con pic16f877a, Osc20, Siemens C55 y programación en Pbp250.
El móvil responde bien a los comandos at atravez de hterminal.
Mi problema y que el móvil solo eceita pdu sms.
Que podría ayudarme a hacer una trama en pdu  para conectar un led después de recibir el sms "on" y enviar una respuesta "led on"

Gracias a todos,

Código: [Seleccionar]
DEFINE LOADER_USED 1
define OSC 20             
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
       
TrisC.5=0
TrisC.6=0
TrisC.7=1
B0 var byte

High portC.5 ' Testing hardware
Pause 500
Low portC.5
Pause 500
High portC.5
Pause 500
Low portC.5
Pause 500


lcdout $fe,1, " GSM ALARM SISTEM  "
pause 5000
LCDOUT $FE, 1 
                                     

HSEROUT ["AT", 13] 
HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35",13]
HSEROUT [20]
STOP
end
« Última modificación: 30 de Junio de 2008, 09:34:06 por camolas »

Desconectado maunix

  • Moderadores
  • DsPIC33
  • *****
  • Mensajes: 4751
    • Mi Sitio Web Personal
Re: Ayuda alarma sms en pdu
« Respuesta #1 en: 01 de Julio de 2008, 08:58:14 »
En este link se explica detalladamente cómo es el formato PDU.

http://www.dreamfabric.com/sms/

Espero te sirva
- La soberbia de un Einstein es entendible.. la de un salame es intolerable (A.Dolina)
- En teoría no hay diferencia entre la teoría y la práctica. En la práctica... si la hay.
- Lee, Lee, Lee y luego pregunta.(maunix)
- Las que conducen y arrastran al mundo no son las máquinas, sino las ideas (V. Hugo)
- Todos los hombres se parecen por sus palabras; solamente las obras evidencian que no son iguales.(Moliere)
- Todo debería ser hecho tan simple como sea posible pero no mas simple que eso.(A.Einstein)

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #2 en: 02 de Julio de 2008, 14:01:34 »
Hola,

Mi trama esta bien   "079153912601000011000C915391663921010000AA02EF35"   pero mi problema es enviar el comando Ctrl+z  en pbp al movil.
Podrias ayudar?

Gracias

Desconectado Modulay

  • Moderadores
  • DsPIC30
  • *****
  • Mensajes: 2651
Re: Ayuda alarma sms en pdu
« Respuesta #3 en: 03 de Julio de 2008, 02:42:50 »
Ese carácter es el 26 en decimal creo recordar (0x1A).

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #4 en: 03 de Julio de 2008, 17:05:52 »
Hola,

Así que esta buena? con el 26  terminar de enviar el sms?

Gracias

Código: [Seleccionar]
HSEROUT ["AT", 13] 
HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 13, 26]
End


Desconectado Modulay

  • Moderadores
  • DsPIC30
  • *****
  • Mensajes: 2651
Re: Ayuda alarma sms en pdu
« Respuesta #5 en: 04 de Julio de 2008, 02:05:15 »
Si no recuerdo mal era así,aunque posiblemente tras la trama pdu no debas intercalar un salto de línea...o quizá te falte ponerlo tras el envío de ctrl+z.
No recuerdo bien.Pruébalo y ya nos cuentas que tal fue.

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #6 en: 04 de Julio de 2008, 12:23:32 »
Hola,

Desde cualquiera de las formas  no fonciona    :(


HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 26]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 26, 13]

Conectei o hercules ( programita similar hyperterminal) lo que deja la es:

ATAT+CMGS=
16079153912601000011000C915391663921010000AA02EF3

no deja lo 5 en el final e pone el 16 en el inicio e no en AT+CMGS=16

Me puede ayudar con esto  :?

Gracias

« Última modificación: 04 de Julio de 2008, 13:32:36 por camolas »

Desconectado Modulay

  • Moderadores
  • DsPIC30
  • *****
  • Mensajes: 2651
Re: Ayuda alarma sms en pdu
« Respuesta #7 en: 04 de Julio de 2008, 14:21:25 »
No termino de entenderte bien.Parece que has obviado el retorno de carro tras indicar el tamaño del mensaje,y eso no puede faltar.
Deberías hacerlo así.

HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 26]

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #8 en: 04 de Julio de 2008, 18:08:12 »
No termino de entenderte bien.Parece que has obviado el retorno de carro tras indicar el tamaño del mensaje,y eso no puede faltar.
Deberías hacerlo así.

HSEROUT ["AT+CMGS=16", 13]
HSEROUT ["079153912601000011000C915391663921010000AA02EF35", 26]

No fonciona :(

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #9 en: 05 de Julio de 2008, 11:33:41 »
 Si fonciona :-/

linea de codigo:

HSEROUT ["AT+CMGS=16",13,10]
PAUSE 500
HSEROUT ["079153912601000011000C915391663921010000AA02EF35",26,10]
HSEROUT [13]


Gracias a todos.

Desconectado fonta26

  • PIC10
  • *
  • Mensajes: 3
Re: Ayuda alarma sms en pdu
« Respuesta #10 en: 08 de Julio de 2008, 04:23:57 »
Hola, yo tengo funcionando una alarma con un PIC 16F628 y un Siemens MC60. Las funciones son:
  • Recibe SMS's a través de los cuales puede activar/desactivar salidas (los SMS's son en formato PDU).
    Tiene una entrada de alarma que si se activa llama por teléfono a los números predeterminados.
    Carga el móvil.
    Me avisa a través de un SMS si me quedo si se produce un corte en el suministro de electricidad de la vivienda.
    Puedes preguntarle vía SMS el estado de las salidas, y te responde con un SMS.
En fin, en lo que pueda ayudarte...

PD. se me olvidaba, todo está programado en ensamblador.

Desconectado Rogil

  • PIC10
  • *
  • Mensajes: 41
Re: Ayuda alarma sms en pdu
« Respuesta #11 en: 07 de Agosto de 2008, 20:34:48 »
Aqí te mando el código, solo tienes que cambiar el difine que recibel el texto, solo cambia de PDU a TXT no vicevresa, espero  haber sido oportuno, suerte con el proyecto.
Código: [Seleccionar]
[size=10pt]
'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2008 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 10/06/2008                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
    include "modedefs.bas"
    define OSC 4     

DEFINE DEBUG_REG PORTB
DEFINE DEBUG_BIT 3
DEFINE DEBUG_MODE 0
DEFINE DEBUGIN_REG PORTB
DEFINE DEBUGIN_BIT 4
DEFINE DEBUGIN_MODE 0
DEFINE DEBUG_BAUD 9600

    strSMS var byte[20]
    B0 var byte
    B1 var BYTE
    B2 var byte
    B3 var byte
    B4 VAR BYTE
    B5 var byte
    B6 VAR BYTE
    B7 var byte
    B8 VAR BYTE

    LenSms var byte
 
'**************************************
    ExchNum var byte[10]

'****************************************

'   GoodSMS var bIT
   CLEAR

_loop:

     debugin [WAIT("81"),hex2 ExchNum[0],hex2 ExchNum[1],hex2 ExchNum[2],hex2 ExchNum[3],_
                         hex2 ExchNum[4],SKIP 18,hex2 LenSms, HEX2 strsms[0],HEX2 strsms[1],_
                         HEX2 strsms[2],HEX2 strsms[3],HEX2 strsms[4],HEX2 strsms[5],HEX2 strsms[6],_
                         HEX2 strsms[7],HEX2 strsms[8],HEX2 strsms[9],HEX2 strsms[10],HEX2 strsms[11],_
                         HEX2 strsms[12],HEX2 strsms[13],HEX2 strsms[14],HEX2 strsms[15],HEX2 strsms[16],_
                         HEX2 strsms[17],HEX2 strsms[18],HEX2 strsms[19],HEX2 strsms[20],HEX2 strsms[21],_
                         HEX2 strsms[22],HEX2 strsms[23]]
       

'debugin [WAIT("A81"),str ExchNum\10,SKIP 18,hex2 LenSms]
'          DEBUG "TEL:",10,13     
'               for b6 = 0 to 10
'                    debug  EXCHNUM[b6],10,13
'               next             
'          DEBUG "LEN:",HEX LENSMS ,10,13 
       
       for b5 = 0 to LENSMS step 8
             B7 = 26+b5
'            '''''''''''''''''''''mov''''''''''''''''
             debugin [WAIT("A81"),SKIP B7, HEX2 strsms[b5],HEX2 strsms[b5 + 1],HEX2 strsms[b5 +2],_
                         HEX2 strsms[b5 +3],HEX2 strsms[b5 +4],HEX2 strsms[b5 +5],HEX2 strsms[b5 +6]]
'            ''''''''''''''''''''''''''''''''''''''''     
             b3 = 7
             b0 = B5
             b6 = 0
             B2 = %10000000 
             b4 = STRSMS[B5] & B2
             STRSMS[B5] = STRSMS[B5] & %01111111
                    while B2 <> $FF
                           B1 = B4
                           B1 = B1 >> B3
                           B3 = b3 - 1
                           B2 = B2 >> 1 + %10000000
                           b0 = b0 + 1
                           B4 = B2 & STRSMS[B0] 
                           b6 = b6+1 
                           STRSMS[B0] = STRSMS[B0] << B6  + B1  & %01111111
                     wend
                    for  b6 = lensms to b0  step - 1
                           strsms[b6+1] = strsms[b6]
                    next
                    strsms[B0 + 1]=b4
           NEXT
     
'    DEBUG "RES:",10,13           
'    for b6 = 0 to lensms
'           debug "B0:",DEC B6," ",HEX strsms[b6],10,13
'    next                     

goTO _loop
[/size]

Desconectado camolas

  • PIC10
  • *
  • Mensajes: 22
Re: Ayuda alarma sms en pdu
« Respuesta #12 en: 08 de Agosto de 2008, 20:33:32 »
Gracias a todos,

E de TXT a PDU alguno tien el codigo?

Gracias.


 

anything