SKIP and bs2pe

Comments

• Franklin Posts: 4,747

  2009-12-18 02:53 edited 2009-12-18 02:53

  Have you tried hooking up a pc to this port and seeing just what the modem is sending? Also the stamp is not real fast and you may be sending the data too fast for the skip to catch it all. You might try reading up on the flow control and see if it is possible to implement that.
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  - Stephen
• Tumbler Posts: 323

  2009-12-18 05:03 edited 2009-12-18 05:03

  Thx for the hint Franklin,
  
  I wa sworking in auto baud mode.
  For some reason, the module switched to sleep mode. (dunno how that happend)
  
  At 2400 baud, the module is working perfect with the stamp.
  
  Here a sample, i'm sure it will help others too.
  
  

  ' {$STAMP BS2pe}
  ' {$PBASIC 2.5}
  Tx              CON 0
  Rx              CON 1
  id              VAR Word
  MessageData     VAR Byte(4)
   
   
  #SELECT $STAMP
    #CASE BS2, BS2E, BS2PE
      T1200       CON     813
      T2400       CON     396
      T4800       CON     188
      T9600       CON     84
      T19K2       CON     32
    #CASE BS2SX, BS2P
      T1200       CON     2063
      T2400       CON     1021
      T4800       CON     500
      T9600       CON     240
      T19K2       CON     110
    #CASE BS2PX
      T1200       CON     3313
      T2400       CON     1646
      T4800       CON     813
      T9600       CON     396
      T19K2       CON     188
  #ENDSELECT
   
  Baud            CON     T2400
   
  StartUp:
    DEBUG "STARTING UP...",CR
    PAUSE 1000
  
    'set baudrate to 2400
    SEROUT 0,Baud,[noparse][[/noparse]"AT+IPR=",34,"2400",34,13]
    GOSUB WaitOk
    PAUSE 300
    'Select SMS message format (textmode)
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CMGF=1",13]
    GOSUB WaitOk
    'enable error result code with verbose (string) values
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CMEE=2",13]
    GOSUB WaitOk
    'echoes characters received from the TE.
    SEROUT 0,Baud,[noparse][[/noparse]"ATE1",13]
    GOSUB WaitOk
    'Calling line identification presentation
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CLIP=1",13]
    GOSUB WaitOk
    'enable text mode
    SEROUT 0,Baud,[noparse][[/noparse]"AT&D0",13]
    GOSUB WaitOk
    ' First create some phonebook entries
    GOSUB CreatePBEntry
   
   
  Main:
  
    ' call the first phonebook entry
    ' get the id and name from the pb
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CPBR=1",13]
    SERIN 1,Baud,[noparse][[/noparse]WAIT ("+CPBR:"), WAIT(32), id,WAIT(44,34), SKIP 19, STR MessageData\4\34, WAIT ("OK")]
    'WAIT(32) => 32 is not the 'space' char: my response to get the pb entry = 32 bytes long
    '
    DEBUG "Calling ",STR MessageData,CR
    'DEBUG "  ATD>",DEC id-48,";'",CR,CR
    SEROUT 0,Baud,[noparse][[/noparse]"ATD>",id,";",13]
    GOSUB WaitOk
    DEBUG " Ring... Ring...",CR
    PAUSE 25000
    'and hangup the phone
    SEROUT 0,Baud,[noparse][[/noparse]"ATH",13]
    GOSUB WaitOk
    DEBUG "Call ended.",CR,cr
  END
  
  '-------------- Subroutines ------------------------------------------------
  SendMessage:
    ' we are in text mode, so only 140 chars in message is allowed.
    ' in PDU mode, 160 chars
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CMGS=", 34, "+32496******", 34, 13]
    SERIN 1,Baud,[noparse][[/noparse]WAIT ("> ")]
    SEROUT 0,Baud,[noparse][[/noparse]"Hello World! send sms with BS2!", 26]
    SERIN 1,Baud,[noparse][[/noparse]WAIT ("+CMGS:")]
    DEBUG "message send",CR
    RETURN
   
  CreatePBEntry:
    'Delete all entries...
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CPBW=1",13]
    GOSUB WaitOk
    pAUSE 300
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CPBW=2",13]
    GOSUB WaitOk
    PAUSE 300
    'create new entry :CRIT  for critical alarms, (4 chars long!)
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CPBW=1,",34,"+32496******",34,",145,",34,"CRIT",34,13]
    GOSUB WaitOk
    PAUSE 300
    'create new entry :WARN  for warnings only    (4 chars long!)
    SEROUT 0,Baud,[noparse][[/noparse]"AT+CPBW=2,",34,"+32498******",34,",145,",34,"WARN",34,13]
    GOSUB WaitOk
    PAUSE 300
    return
  WaitOk:
    SERIN 1,Baud,[noparse][[/noparse]WAIT("OK")]
    RETURN