Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Donanım / Hardware
  • Elektronik ve Mekanik
  • Elektronik
  • Bu Konuda
Şimdi Ara

HSERIN PIC BASIC sorunu

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
1 Misafir - 1 Masaüstü
5 sn
4
Cevap
0
Favori
737
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Sayın arkadaşlar,HSERIN PIC BASIC,
    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



    < Bu mesaj bu kişi tarafından değiştirildi sky762005 -- 30 Ekim 2015; 17:19:41 >







  • AT+CPBR= 'telefon hafızasındaki numarayı okutma.

    İlk önce CPBR komutu ile istediğim rehber numarasını bir değişken içerisine kaydedip,
    daha sonra CMGS komutu ile mesaj yollarken bu değişken içerisindeki numarayı
    bir for döngüsü içerisinde komuta ekleyebilir miyim.

    Saygılarımla.
  • HSERIN 10000, BASLA, [WAIT(" "),numara]
    HSEROUT ["at+cmgs=",34,"numara",34,13] 'telefon numarası kaydet.
    Bu şekilde yapabilir miyim.



    < Bu mesaj bu kişi tarafından değiştirildi sky762005 -- 30 Ekim 2015; 17:21:00 >
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız