PIC İLE GSM MODÜL HABERLEŞMESİ

[isikyasar]

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.

[eistain_54]

hocam yaptığınız kafasını paylaşır misiniz?yani visual basic olan kısmını...

[Seckin ALAN]

mikro denetleyici ile çalışırken gerekli ayarları doğru yaptığınıza emin misiniz. bana bir gün boyunca saç yoldurmuştu:)

[kudretuzuner]

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.

[isikyasar]

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

[Seckin ALAN]

AT komutunu pic aracılığıyla yolladığınızda geri dönüş yapıyor mu ?

[isikyasar]

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.

[Seckin ALAN]

biliyorum kastettiğim nokta şurası AT komutunu picten modüle gönderince sana OK verisini geri döndürüyor mu ?

[isikyasar]

evet.
OK komutunu geri gönderiyor.

[Seckin ALAN]

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

[Mujdat117]

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.

[Seckin ALAN]

üstad kodların karşılıklarını benim anlamam önemli değil önemli olan picin anlaması

[isikyasar]

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ış.

[Seckin ALAN]

he sen bu olayı çözdün oda güzelmiş .

[isikyasar]

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