thermometer and humidity sms

[Raflex]

Hello, the links doesn't work, use [code ] Link [/code ] (withous spaces) for any url

[elektoro2009]

Circuit asm code.

http://dosyayukle.info/index.php?p=download&link=1242889961&name=pic16f876.asm

http://dosyayukle.info/index.php?p=download&link=1219524014&name=pic16f876.asm

[elektoro2009]

circuit address.

http://img.fotoambar.com/img/5/ee15decb5a78ee50f995fe149fe6a2e5.jpg

[elektoro2009]

another sampe circuit :

http://www.imageturk.com/goster.php?res=b3dd66fdfd2f3749bdece.JPG

How can I use this software for my regulated alarm thermometer circuit.
asm software here:

http://dosyayukle.info/index.php?p=download&link=1305062103&name=pic16f876.asm

Thank you your helping.
Regards

[elektoro2009]

I maked this circuit,but complate not run.

http://www.wrankl.de/SMST4PIC/SMST4PIC.html

here asm and hex code:

http://www.wrankl.de/SMST4PIC/V6/SMST4PICV6B47.zip

[elektoro2009]

How can I unite this sample software

http://dosyayukle.info/index.php?p=download&hash=rzskbVI8qQey

with my software.Thank you.

'**************** SMS SEND SAMPLE ********************
'************************************************* *******************
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,"90532XXXXXXX",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
'************************************************* ***************

[elektoro2009]

How can I unite this sample software TERMONEMALRM-1.zip with my software.
Thank you.Best regards.

'**************** SMS SEND SAMPLE ********************
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,"90532XXXXXXX",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
'************************************************* ***************