Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Seri port ile veri alış verişi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Dosya Kopyalamak

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 4690
Yayın Tar:18.10.2005
Yazar : sibelvedat
Hit :3878

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Arayüzde görünmeyen ve comm port ile ilgili işlemler yapmamızı sağlayan kontrol Mscomm kontrolörüdür. Bu kontrolörü yüklemek için sırasıyla projects > componenets > microsoft comm control seçilir. Bu işlem yapıldıktan sonra vb çalışma alanının görünümü aşağıda görüldüğü gibidir.
Program ile ilgili kodlar sırasıyla şöyledir. testver butonu için :

Private Sub ver_Click()

MSComm1.Settings = "9600,N,8,1"
'rs232 ile ilgili ayarlar
MSComm1.PortOpen = True
'port açiliyor
MSComm1.Output = Text1.Text
'text penceresine yazilan deger pic'e gonderiliyor
MSComm1.PortOpen = False
'port kapatiliyor

End Sub

Yorumlardan da anlaşılacağı gibi önce comm port ile ilgili ayarlar yapılmaktadır. Bu ayarlar bilginin 9600 baud (bit per second), parity bitsiz (no parity), 8 bitlik data ve bir stop biti ile gönderildiğini veya alındığını gösteriyor. MSComm1.PortOpen=True deyimi portun açıldığını MSComm1.Output porta bilgi gönderildiğini (Gönderilen bilgi text1?e yazılan sayı veya karekterdir) ve MSComm1.PortOpen=False portun kapandığını belirtiyor.

Buton testal için yazılan kodkar şunlardır.

Private Sub al_Click()

MSComm1.Settings = "9600,N,8,1"
'rs232 ile ilgili ayarlar
MSComm1.PortOpen = True
'port açiliyor
deger = Asc(MSComm1.Input)
'pic'ten okunan 8 bitin ascii karsiligi aliniyor
Text1.Text = deger
'okunan bilgi text penceresinde görünüyor
MSComm1.PortOpen = False
'port kapatiliyor

End Sub

Yukardaki kaynak kodunda testver butonunda kullanılan kodlara benzer kodlar vardır. Dışardan gelen bilgiyi almak için MSComm1.Input deyimi kullanılmıştır. Asc fonksiyonu alınan karekterin ascii değerini almak için kullanılmıştır. Ascii tablosunu herhangi bir programlama kitabının arkasında bulabilirsiniz. deger değişkenin dim deger as integer olarak tanımlanması daha uygun olabilir. Portun MSComm1.PortOpen = False satırı ile kapatılması programın ?port zaten açık? hatası vermemesi açısından önemlidir.




Yorumlar, eklemeler ve düşünceler
        slm arkadasim ya bn bu seri portlarla ilgili tm bi bilgi edinmek istiyrm donem odewimde bana /nette bi seri port iletisimi nasl yapilik yazarsaniz sewinirm

   okan91, 18.11.2007 14:23
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin