Author Topic: sim900d interface with pic16f877a (Read 1710 times)

carlsberg11 · « **Reply #40 on:** May 03, 2012, 11:47:43 AM »

Quote from: ΔЅịMø on May 03, 2012, 11:37:38 AM

Baka makatulong.

http://www.activexperts.com/mobile-messaging-component/at/commands/?at=%2BCPBR

yun nalaman ko din kung ano yung 129 and 145

+1 dito prof

GR47 GM47 at Commands Manual

Philippine Electronics Forum · « **Reply #40 on:** May 03, 2012, 11:47:43 AM »

PlCUSER · « **Reply #41 on:** May 03, 2012, 11:49:07 AM »

Quote from: ninjatuna on May 03, 2012, 11:45:32 AM

bakit po dpat 8 digit lng? e sim number dba po 11 ?

tinext ko na si joy. tanong mo sa kanya kung ilang number ang nag appear.

Philippine Electronics Forum · « **Reply #41 on:** May 03, 2012, 11:49:07 AM »

carlsberg11 · « **Reply #42 on:** May 03, 2012, 11:50:52 AM »

Quote from: PlCUSER on May 03, 2012, 11:49:07 AM

tinext ko na si joy. tanong mo sa kanya kung ilang number ang nag appear.

OT:

si bitoy yan sir...

hala ka!

Philippine Electronics Forum · « **Reply #42 on:** May 03, 2012, 11:50:52 AM »

Engr. Dacuycoy · « **Reply #43 on:** May 03, 2012, 11:52:31 AM »

Quote from: ninjatuna on May 03, 2012, 11:32:17 AM

Ok
AT+CPBR=1
+CPBR: 1,"09261428272",129,"Ram"

OK
AT+CPBR=2
+CPBR: 2,"09153078153",129,"Beyong"

OK
AT+CPBR=3
+CPBR: 3,"09156174948",129,"Pau"

OK
AT+CPBR=4
+CPBR: 4,"+639168481851",145,"Joy"

Ok

Master Ako ngsave sa nyan sa simcard ung AT+CPBR=1 un ang una kon sinave tas 2 pangalawa kong sinave etc.

+CPBR: 4,"+639168481851",145,"Joy"

Ok

^ ito tama

Code: [Select]

    Dim GlobalBuffer As String * 250  ' Sms storage & General storage  max is 250 (0 to 249)
    Dim MobileBuffer As String * 13  ' Mobile phone storage
    
    HSerOut ["AT+CPBR=1",CR]      ' Read memory location 1
    HSerIn 1000,TIMEOUT,[Wait(CR,CR,LF),Str GlobalBuffer]  
TIMEOUT:
'    +CPBR: 4,"+639168481851",145,"Joy"
'    0000000000111111111122222222223333
'    0123456789012345678901234567890123
'    
    VarY = 0
    VarX = 9
    Repeat                                   ' Make a loop as dictated by SMSLength      
      MobileBuffer[VarY]=GlobalBuffer[VarX]  ' Store it to MobileBuffer 
      Inc VarX:Inc VarY                      ' Increment counters
    Until VarY = 14                          ' Finish the job
    
    Print At 1,1,Str MobileBuffer

Philippine Electronics Forum · « **Reply #43 on:** May 03, 2012, 11:52:31 AM »

ninjatuna · « **Reply #44 on:** May 03, 2012, 11:57:54 AM »

Quote from: Engr. Dacuycoy on May 03, 2012, 11:52:31 AM

+CPBR: 4,"+639168481851",145,"Joy"

Ok

^ ito tama

PatuLong na lng pano ideclare as variable sa proton ung inoutput ng AT+CPBR=1 master salamat

Philippine Electronics Forum · « **Reply #44 on:** May 03, 2012, 11:57:54 AM »

ninjatuna · « **Reply #45 on:** May 03, 2012, 12:02:03 PM »

Quote from: carlsberg11 on May 03, 2012, 11:47:43 AM

master,

129 Unknown type (IDSN Format Number)
161 National number type (IDSN)
145 International number Type (ISDN)
177 Network Specific Number (ISDN)

ΔЅịMø · « **Reply #46 on:** May 03, 2012, 12:02:16 PM »

Kailangan pala dapat naka +63 para valid.

OT:

Titext ko rin daw si Joy kung kamusta na ang project na to.

ΔЅịMø · « **Reply #47 on:** May 03, 2012, 12:03:08 PM »

Quote from: carlsberg11 on May 03, 2012, 11:47:43 AM

yun nalaman ko din kung ano yung 129 and 145

+1 dito prof

Salamat sir iceberg.

ninjatuna · « **Reply #48 on:** May 03, 2012, 12:05:55 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 11:52:31 AM

+CPBR: 4,"+639168481851",145,"Joy"

Ok

^ ito tama

Master di ko mgets pano ilgay dun sa AT+CMGS= Ung number na nput as variable na gling sa AT+CPBR=1?

Code: [Select]
Dim GlobalBuffer As String * 250 ' Sms storage & General storage max is 250 (0 to 249) Dim MobileBuffer As String * 13 ' Mobile phone storage HSerOut ["AT+CPBR=1",CR] ' Read memory location 1 HSerIn 1000,TIMEOUT,[Wait(CR,CR,LF),Str GlobalBuffer] TIMEOUT: ' +CPBR: 4,"+639168481851",145,"Joy" ' 0000000000111111111122222222223333 ' 0123456789012345678901234567890123 ' VarY = 0 VarX = 9 Repeat ' Make a loop as dictated by SMSLength MobileBuffer[VarY]=GlobalBuffer[VarX] ' Store it to MobileBuffer Inc VarX:Inc VarY ' Increment counters Until VarY = 14 ' Finish the job Print At 1,1,Str MobileBuffer

Engr. Dacuycoy · « **Reply #49 on:** May 03, 2012, 12:07:41 PM »

Quote from: ninjatuna on May 03, 2012, 11:57:54 AM

PatuLong na lng pano ideclare as variable sa proton ung inoutput ng AT+CPBR=1 master salamat

engr ako hindi master... si carlsberg ang master dito.

andon na sample code pag-aralan mo na lang

ninjatuna · « **Reply #50 on:** May 03, 2012, 12:09:32 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 12:07:41 PM

engr ako hindi master... si carlsberg ang master dito.

andon na sample code pag-aralan mo na lang

Hehehe sige engr try ko balitaan ko kayo

carlsberg11 · « **Reply #51 on:** May 03, 2012, 12:11:21 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 12:07:41 PM

engr ako hindi master... si carlsberg ang master dito.

andon na sample code pag-aralan mo na lang

OT:

nge! FYI sir dacuycoy, may title kana dito sa elab. Master Eng'r. Dacuycoy dapat yung pangalan mo kaya palitan mo na

@TS

bait ni Master Eng'r Dacuycoy no?

may example code kana TS kaya mo na yan.. salamat pala dun sa 129 145 etc.

carlsberg11 · « **Reply #52 on:** May 03, 2012, 12:13:30 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 11:52:31 AM

+CPBR: 4,"+639168481851",145,"Joy"

Ok

^ ito tama

Code: [Select]
Dim GlobalBuffer As String * 250 ' Sms storage & General storage max is 250 (0 to 249) Dim MobileBuffer As String * 13 ' Mobile phone storage HSerOut ["AT+CPBR=1",CR] ' Read memory location 1 HSerIn 1000,TIMEOUT,[Wait(CR,CR,LF),Str GlobalBuffer] TIMEOUT: ' +CPBR: 4,"+639168481851",145,"Joy" ' 0000000000111111111122222222223333 ' 0123456789012345678901234567890123 ' VarY = 0 VarX = 9 Repeat ' Make a loop as dictated by SMSLength MobileBuffer[VarY]=GlobalBuffer[VarX] ' Store it to MobileBuffer Inc VarX:Inc VarY ' Increment counters Until VarY = 14 ' Finish the job Print At 1,1,Str MobileBuffer

bat ang simple simple talaga mag coding sa proton!! hirap nito sa mikroC e...

Engr. Dacuycoy · « **Reply #53 on:** May 03, 2012, 12:15:13 PM »

errata:
varx = 10

ninjatuna · « **Reply #54 on:** May 03, 2012, 01:34:39 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 12:15:13 PM

errata:
varx = 10

Master engr. penge nman link ng proton na pde iDL ng error na proton ko

+1 pt

Engr. Dacuycoy · « **Reply #55 on:** May 03, 2012, 01:37:13 PM »

sori ala ako nyan

ninjatuna · « **Reply #56 on:** May 03, 2012, 01:39:24 PM »

Quote from: Engr. Dacuycoy on May 03, 2012, 01:37:13 PM

sori ala ako nyan

haha ok na master engr. balitaan kta

maraming saLamat

e-tronix · « **Reply #57 on:** May 06, 2012, 09:34:31 AM »

ptambay

ninjatuna · « **Reply #58 on:** May 17, 2012, 08:58:50 PM »

Quote from: ninjatuna on May 03, 2012, 01:39:24 PM

haha ok na master engr. balitaan kta maraming saLamat

Code: [Select]

[code]'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 5/17/2012                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 16F877A
Declare XTAL = 4
HSERIAL_SPBRG = 25
HSERIAL_RCSTA = $90
HSERIAL_TXSTA = $24
HSERIAL_CLEAR = On
HSERIAL_BAUD = 9600
ADCON1 = 7

Symbol CR            =    13   ' Carriage Return
Symbol LF            =    10   ' Line Feed
Symbol CTRL_Z        =    26   ' Control + Z key

Dim MobileBuffer[13] As Byte    ' Mobile phone storage
Dim GlobalBuffer[13] As Byte   ' Sms storage & General storage
Dim VarX As Byte                ' Global variable
Dim VarY As Byte                ' Global variable

start:
High PORTA.1
DelayMS 500
Low PORTA.1
DelayMS 4000
HSerOut["AT",13]
DelayMS 2000
HSerOut["AT+CMGF=1",13]
DelayMS 2000
HSerOut["AT+CFUN=1",13]
DelayMS 2000
HSerOut["AT+CMEE=2",13]
DelayMS 2000
HSerOut["AT+COPS=0",13]
DelayMS 2000
HSerOut ["AT+CPBR=1",CR]      ' Read memory location 1
HSerIn 1000,TIMEOUT,[Wait(CR,CR,LF),Str GlobalBuffer]

TIMEOUT:
'    +CPBR: 1,"+639*********",145,"name"
'    0000000000111111111122222222223333
'    0123456789012345678901234567890123
'    
    VarY = 0
    VarX = 10
    Repeat                                   ' Make a loop as dictated by SMSLength      
      MobileBuffer[VarY]=GlobalBuffer[VarX]  ' Store it to MobileBuffer 
      Inc VarX:Inc VarY                      ' Increment counters
    Until VarY = 14                          ' Finish the job
            
HSerOut["AT+CMGS=",34,MobileBuffer[VarY],34,13]
DelayMS 2000
HSerOut["Test GSM",26]
DelayMS 2000
End

[/code]

ok na ba yan engr?

ninjatuna · « **Reply #59 on:** May 17, 2012, 09:48:00 PM »

Quote from: ninjatuna on May 03, 2012, 12:05:55 PM

Code: [Select]

[code]'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2012 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 5/17/2012                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
Device = 16F877A
Declare XTAL = 4
HSERIAL_SPBRG = 25
HSERIAL_RCSTA = $90
HSERIAL_TXSTA = $24
HSERIAL_CLEAR = On
HSERIAL_BAUD = 9600
ADCON1 = 7

Symbol CR            =    13   ' Carriage Return
Symbol LF            =    10   ' Line Feed
Symbol CTRL_Z        =    26   ' Control + Z key

Dim MobileBuffer[13] As Byte    ' Mobile phone storage
Dim GlobalBuffer[13] As Byte   ' Sms storage & General storage
Dim VarX As Byte                ' Global variable
Dim VarY As Byte                ' Global variable

start:
High PORTA.1
DelayMS 500
Low PORTA.1
DelayMS 4000
HSerOut["AT",13]
DelayMS 2000
HSerOut["AT+CMGF=1",13]
DelayMS 2000
HSerOut["AT+CFUN=1",13]
DelayMS 2000
HSerOut["AT+CMEE=2",13]
DelayMS 2000
HSerOut["AT+COPS=0",13]
DelayMS 2000
HSerOut ["AT+CPBR=1",CR]      ' Read memory location 1
HSerIn 1000,TIMEOUT,[Wait(CR,CR,LF),Str GlobalBuffer]

TIMEOUT:
'    +CPBR: 1,"+639*********",145,"name"
'    0000000000111111111122222222223333
'    0123456789012345678901234567890123
'    
    VarY = 0
    VarX = 10
    Repeat                                   ' Make a loop as dictated by SMSLength      
      MobileBuffer[VarY]=GlobalBuffer[VarX]  ' Store it to MobileBuffer 
      Inc VarX:Inc VarY                      ' Increment counters
    Until VarY = 14                          ' Finish the job
            
HSerOut["AT+CMGS=",34,MobileBuffer[VarY],34,13]
DelayMS 2000
HSerOut["Test GSM",26]
DelayMS 2000
End

engr. eto na pla code ko tama ba flow?[/code]

Philippine Electronics Forum · « **Reply #59 on:** May 17, 2012, 09:48:00 PM »

Author Topic: sim900d interface with pic16f877a (Read 1710 times)

Philippine Electronics Forum

Philippine Electronics Forum

Philippine Electronics Forum

Philippine Electronics Forum

Philippine Electronics Forum

Philippine Electronics Forum