sms gönderme PIC ile

[sky2008]

Sayın arkadaşlar,Bu adresteki devreyi yaptım asm kodlarındaki
telefon numaralarını kendi servis numaralaramla ve
kendi tel. numaralaramla değiştirip PIC16F876 YI PROGRAMLADIM.
Devreye besleme verdiğimde LCD
ekranda At komutlarına benzer yazılar çıktı,devreye
bağlı led 10sn.de bir yanıp sönüyor.Fakat sms göndermedi.
Bu devreyi yapan arkadaşlar lütfen tecrübelerini
paylaşabilir mi?Şimdiden teşekkürler.Saygılar.
http://www.wrankl.de/SMST4PIC/SMST4PIC.html
Linkback: sms gönderme PIC ile

[sky2008]

Sayın arkadaşlar ben sicaklik ve nem ölçümlerinin sms ile
gönderilmesi hakkinda ilgileniyorum.
Benim yaptigim ikinci çalisan sms olmayan sorunsuz devremde
kurulan sicaklik ve nem arasinda devre çalisiyor ve bu kurulan
degerlerin disina ciktiginde röle tetikliyor,ben röle ile cep telefonunun
tek tusla arama özelliginden yararlanip,2 tusunu birbirine degdirerek kayitli numarayi ariyor.Böylece sicakligin yada nem oraninin
düstügünü anliyorum.Ama hangi degerde oldugunu bilemiyorum.
Diger yapmak istedigim,ben sms gönderip o an ki sicaklik
yada nem degerini ögrenmek istiyorum.Yani ben sms
gönderdigimde bana sicaklik degerini sms ile bildirsin,
ayni sekilde ben sms gönderdigimde bana sms ile nem
degerini bildirsin seklinde nasil yapabilirim.
Bu adresteki http://dosyayukle.info/index.php?p=download&hash=rzskbVI8qQey termometre devre
yazılımında kullanmak için
bu sms gönderme yazılımını nasıl birleştirebilirim.
Yardimlarin için simdiden tesekkürler.Saygilarimla.
'**************** MESAJ GÖNDERME RUTİNİ********************
SmsMesajTx : SerOut2 modem_tx,modem_baud,["AT+CMGF=1",13] ' Mesaj Formatı TXT için
Pause Bek100

SerOut2 modem_tx,modem_baud,["AT+CMGS=",34,"90536XXXXXXX",34,",145",13]

SerIn2 modem_rx,modem_baud,5000,msghata2,[wait(">")]

Pause Bek500

SmsData = "A" ' Gidecek Mesaj

For addr= 0 TO 159
SerOut2 modem_tx,modem_baud,[SmsData]
Next addr
Pause Bek500
SerOut2 modem_tx,modem_baud,[26] ' CTRL+Z
SerIn2 modem_rx,modem_baud,35000,msghata2,[wait("+CMGS")]

msghata2: SerOut2 modem_tx,modem_baud,["ATH",13]
Pause Bek500

Return
'********************* SMS OKUMA *******************
MesajOku : For addr= 0 TO 254
RegGeneral[addr]=ZZ
Next addr

mdmData = ZZ

SerOut2 modem_tx,modem_baud,["AT+CMGF=1",CR,LF]
Pause Bek100
SerOut2 modem_tx,modem_baud,["AT+CPMS=",34,"SM",34,CR,LF]
Pause Bek100
SerOut2 modem_tx,modem_baud,["AT+CMGR=",#MsgIndex,CR,LF]

SerIn2 modem_rx,modem_baud,2000,smsErr1,[wait("+CMGR: ")]

i = 0
j = 0
strComp = "O"

LoopSmsAl1: SerIn2 modem_rx,modem_baud,3000,smsErr1,[mdmData]

IF mdmData = strComp Then

IF j = 0 Then
strComp = "K"
EndIF
IF j = 1 Then
strComp = CR
EndIF
IF j = 2 Then
strComp = LF
EndIF
IF j >= 3 Then
VirSay = 0
i = 0
j = 0
GoTo MesajOkundu
EndIF

j = j + 1

Else

j = 0
strComp = "O"

EndIF

RegGeneral=mdmData
i = i + 1

GoTo LoopSmsAl1

smsErr1 : MsgIndex = 1
GoTo SmsOkumaErr



MesajOkundu : IF (RegGeneral = CR) AND ( RegGeneral[(i+1)] = LF) Then
i = i + 1
GoTo GelenMesaj2
Else
i= i + 1
GoTo MesajOkundu
EndIF


GelenMesaj2 : IF (RegGeneral = CR) AND ( RegGeneral[(i+1)] = LF) Then
GoTo GelenMesajOk
Else
SmsMesaj[j]=RegGeneral[(i+1)]
i= i + 1
j = j + 1
GoTo GelenMesaj2
EndIF

SmsOkumaErr : SerOut2 pc_tx,pc_baud,["ERROR"CR,LF,CR,LF,STR SmsMesaj\160,CR,LF,CR,LF] ' Hatalı
GelenMesajOk : SerOut2 pc_tx,pc_baud,["MESAJ ; ",STR SmsMesaj\160,CR,LF] ' Mesaj Okundu

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