MERHABA ARKADAŞLAR,
Pic ile GSM MODÜL haberleşmesini yapan yada bilen varmı?
pc ye seri port ile bağlı şekilde visual basic de yaptığım programla mükemmel bir şekilde çalışıyor.
benim istediğim ise PIC ile bu olayı gerçekleştirmek.
hocam yaptığınız kafasını paylaşır misiniz?yani visual basic olan kısmını...
mikro denetleyici ile çalışırken gerekli ayarları doğru yaptığınıza emin misiniz. bana bir gün boyunca saç yoldurmuştu:)
Alıntı yapılan: eistain_54 - 06 Aralık 2011, 01:46:48
hocam yaptığınız kafasını paylaşır misiniz?yani visual basic olan kısmını...
Merhaba
Buyrun ben size basit olarak yazayım.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Open()
Dim gonder1 As String = "1"
SerialPort1.Write(gonder1)
SerialPort1.Close()
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
SerialPort1.Open()
Dim gonder1 As String = "0"
SerialPort1.Write(gonder1)
SerialPort1.Close()
End Sub
----------------------------------------------------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = "COM1"
SerialPort1.PortName = ComboBox1.Text
End Sub
End Class
----------------------------------------------------------------------------------------------------------------
BUTTON 1=PROGRAMI KAPATIR(ÇIKIŞ)
BUTTON 2=SERİPORTTAN KLAVYENİN "1"DEĞERİNİ HEX 31 OLARAK YOLLAR( 00110001 )
BUTTON 3=SERİPORTTAN KLAVYENİN "0"DEĞERİNİ HEX 30 OLARAK YOLLAR( 00110000 )
Private Sub Form1_Load=COMBOBOX'a "COM1" atama yapar.Seriport COM1 olarak kabul edilir.
ARAMA YAPMAK İÇİN
Private Sub Command1_Click()
MSComm1.PortOpen = True
MSComm1.Output = "ATDT" + (Bu alana aranacak numara yazılacak) + Chr$(59) + Chr$(13)
MSComm1.PortOpen = False
End Sub
_____________________________________________________________________________
ARAMAYI SONLANDIRMAK İÇİN
Private Sub Command2_Click()
MSComm1.PortOpen = True
MSComm1.Output = "ATH" + Chr$(13)
MSComm1.PortOpen = False
End Sub
_____________________________________________________________________________
bu şekilde arama ve aramayı sonlandırma yapılabiliyor.
en zoru şimdilik bunu yapabilmek. gerisi çok basit.
takıldığınız bir nokta olursa yardımcı olurum elimden geldiği kadarıyla isik_yasar@hotmail.de
AT komutunu pic aracılığıyla yolladığınızda geri dönüş yapıyor mu ?
ben vb te yaptım. PIC te yapmayı düşünüyorum.
Gönderdiğimiz veriden sonra pic dinleme yapması lazım.
önce veriyi gönderecek hemen dinlemeye geçecek.
çalışma mantığı bu.
biliyorum :) kastettiğim nokta şurası AT komutunu picten modüle gönderince sana OK verisini geri döndürüyor mu ?
evet.
OK komutunu geri gönderiyor.
Chr$(59) + Chr$(13) pic icin olan komutlarını bulmak gerekiyor. Buda dilden dile değişiyo sanırım.
http://www.roubaixinteractive.com/PlayGround/Binary_Conversion/The_Characters.asp
Seçkin ALAN hocam
Chr$(13) vb de enter tuşunun karşılığıdır. Chr$(59) ise ";" karekteri anlamına gelir
burdaki kodların ne işe yaradığını noteped di açıp alt tuşuna basılı tutarak 13-59 deneyerek öğrenebilrisiniz.
üstad kodların karşılıklarını benim anlamam önemli değil önemli olan picin anlaması ;)
basla:
arama yapmak için:
Butona basılı ise
hserout ["ATDT (bu alana telefon numarası girilecek) ;",13]
delayms SerialDelay
end if
aramayı sonlandırmak için:
butona basılı ise
hserout ["ATH",13]
delayms SerialDelay
end if
goto basla
arama yapma ve aramayı sonlandırmak için en basit hali. gerisi sizin hayal gücünüze kalmış.
he sen bu olayı çözdün oda güzelmiş :).
aslında çözdüm denilemez. acemisi olmama rağmen VB te her türlü dans ettiriyorum. mesaj gönderme , gelen mesaj doğru kişiden ve doğru mesajmı diye test ediyor.
gelen mesaja göre lpt portundan çıkış verme. bir sürü şey.
ama proton + bilgim daha iyi. ama tökezlediğim yerlerde var
ben mesaj okuma işini E63 ile yapamadım. nokianın kısıtlaması mı ne varmış.
örnek bir mesajı okuduğunda saat tarih bilgisi yer alıyor mu ?
okutulan mesajın ilk 100 karakteri tarih saat kendine has kodlamaları falan. bunlar yer alıyor. sen mesajın başladığı karakterden itibaren eşleştirme yapacaksın yada okuma.
gelen mesaj bu şekilde.
+CMGR: "REC READ","†tqv~u",,"11/12/11,15:11:45+08"
10000 SEBEKE ICI 2000 SEBEKE DISI SMS PAKETI ICIN BAKIYENIZDE EN AZ 9 TL OLMASI
GEREKMEKTEDIR. BILGI MESAJI GELDIGINDE KULLANMAYA BASLAYABILIRSINIZ.
50. haneden sonraki mesajın içeriğine eşitleme yapabilirsin.
ccs c ile mesaj atmak için kodları varmı