Teknoloji Haberleri
Bu konudaki kullanıcılar: 1 misafir
2
Cevap 866
Tıklama 0
Öne Çıkarma
Cevap 866
Tıklama 0
Öne Çıkarma
1. sayfa
-
HSERIN PIC BASIC sorunu
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
yazılım hakkında yardım ederseniz sevinirim.
Yazılımda belirttiğim,buraya SIM kartta kayıtlı telefon numarasını kaydetmek istiyorum,
yazısının bulunduğu yere SIM kartta kayıtlı telefon numarasını nasıl kaydedip sms gönderebilirim.
Yardımlarınız için şimdiden teşekkürler.
Saygılarımla.
'Definitions
DEFINE OSC 4 'for 4 Mhz
'DEFINE OSC 8 'for 8 Mhz
DEFINE HSER_TXSTA 20h 'I wonder shall I define as DEFINE HSER_TXSTA 24h???
DEFINE HSER_RCSTA 90h 'same for all
DEFINE HSER_BAUD 2400 'for 2400 Baud rate
'DEFINE HSER_BAUD 4800 'for 4800 Baud rate
'DEFINE HSER_BAUD 9600 'for 9600 Baud rate
DEFINE HSER_SPBRG 25 'for 4Mhz/2400 & 8Mhz/4800 with an error %0.16
'DEFINE HSER_SPBRG 12 'for 4Mhz/4800 & 8Mhz/9600 with an error %0.16
DEFINE HSER_CLROERR 1 'same for all
' Initialization & Declaration
i var byte
numara var byte
TRISB=%00000000
PORTB=%00000000
TRISD=%00001111
PORTD=%00000000
ILKKONTROL:
HIGH PORTB.7
PAUSE 500
HIGH PORTB.6
PAUSE 500
HIGH PORTB.5
PAUSE 500
HIGH PORTB.4
PAUSE 500
PORTB=%00000000
GSM_KONTROL:
HSEROUT ["AT",13] 'modemle haberleşme
HSERIN 5000, GSM_KONTROL, [WAIT("OK")] '5 saniye ok yanıtını bekle.
HIGH PORTB.7
PAUSE 1000
HSEROUT ["AT+GMM",13] 'Model ismi sorma
HSERIN 5000, GSM_KONTROL, [WAIT("C55 series")] 'model ismi kontrol
HIGH PORTB.6
PAUSE 1000
HSEROUT ["AT+IPR=2400",13] 'Set transfer speed
HSERIN 5000, GSM_KONTROL, [WAIT("OK")] '5 saniye ok yanıtını bekle.
HIGH PORTB.5
PAUSE 1000
PORTB=%00000000
BASLA:
IF PORTB.6=1 THEN SMS_HATA
HIGH PORTB.7
pause 1000
LOW PORTB.7
if PORTD.2 = 0 then SMS_GONDER
PAUSE 1000
GOTO BASLA
SMS_GONDER:
HIGH PORTB.6
HSEROUT ["at+cmgs=",34,"buraya SIM kartta kayıtlı telefon numarasını kaydetmek istiyorum",34,13] 'telefon numarası kaydet.
PAUSE 1000
HSEROUT ["deneme mesajı",26]
HSERIN 10000, BASLA, [WAIT("OK")] '5 saniye ok yanıtını bekle.
LOW PORTB.6
GOTO BASLA
SMS_HATA:
FOR i = 1 to 5
HIGH PORTB.4
PAUSE 500
LOW PORTB.4
PAUSE 500
next i
PORTB=%00000000
GOTO BASLA
END
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
< Bu mesaj bu kişi tarafından değiştirildi sky762005 -- 30 Ekim 2015; 17:19:41 >