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 » VB 6.0 ile Seri Port kontrolü
Ü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

Winsock İle Komut

Yazar: Dream

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 № : 9952
Yayın Tar:16.02.2008
Yazar : jarvis
Hit :4664

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


VB 6.0 İLE SERİ PORT KONTROLÜ

VB'de kontrolüne geçmeden önce seri iletişimden kısaca bahsedeyim: Seri iletişim bilgisayarın seri portundan RS232 protokolünce verinin ardarda 1 ve 0'lar biçiminde gönderilmesiyle yapılan haberleşme şeklidir. 9 ve 25 pinli olmak üzere 2 türlü seri port vardır. Yaygın olanı ise 9 pinli olanlarıdır ve biri 4, diğeri de 5 pinli olan 2 sıradan oluşur. 4 pinli olan sıra altta bulunacak şekilde bakıldığında 5 pinli olan sıranın ortadaki pini portun çıkış pini(TX), bu pinin sağındaki pin giriş pini(RX) ve o sıranın en solundaki pin ise toprak (referans) pinidir. Seri port 12V düzeyinde çalışır ve bu yüzden de 5V seviyesine düşürülmeden bir mikrodenetleyici ile doğrudan bağlantı kurulması mikrodenetleyici için sakıncalıdır. 5V seviyesindeki veriyi seri porta 12V ile ulaştıran ve seri porttan gelen 12V düzeyindeki veriyi 5V seviyesine düşüren MAX232 yongası bu sorunu çözmek için kullanılabilir.
Gelelim seri portun VB'de kontrolüne: Öncelikle seri port kontrolü için gereken RS232 protokolüne göre haberleşmemizi sağlayacak olan "mscomm32.ocx" dosyasına ihtiyacımız var. Bu dosya bileşenini formunuza eklemek için toolbox alanına sağ tıklayıp "components" tuşunu tıklayın, beliren menünün "Controls" sekmesinde "Microsoft Comm Control 6.0" kontrolünü seçip "Tamam" tuşunu tıkladığınızda bu dosya bileşeni eklenmiş olur ve toolbox alanında "MSComm" tuşu belirir. "MSComm" tuşunu sürükleyip formunuza bırakın. Şimdi ise forma eklediğiniz "MSComm" kontrolünün haberleşme ayarlarını yapmanız gerekli. Bunu da formda bulunan MSComm kontrolünü tıklayıp özellikler kısmından yapabilirsiniz. "Commport" bilgisayarın kaç numaralı seri portunun kontrol edileceğini gösterir. Settings kısmına da sırasıyla saniyede kaç bit gönderileceği(baud rate), parite biti kullanılıp kullanılmayacağı, verinin kaç bitten oluşacağı ve kaç stop biti olacağı sorularının cevapları yazılır. Örneğin: "9600,n,8,1" demek; Hız 9600bps, parite biti yok, 8 veri biti var, 1 stop biti var anlamına gelir. Burada belirlediğiniz ayarların bilgisayarınızın seri port iletişimi ayarlarıyla uyuşması gerekir. Bilgisayarınızın seri port iletişim ayarlarını da şu şekilde düzenleyebilirsiniz: "Bilgisayarım"a sağ tıklayın, "donanım" sekmesinde "aygıt yöneticisi"ne girin,"bağlantı noktaları"nı açın. Burada LPT paralel portu, COM ise seri portu temsil eder. Kontrol etmek istediğiniz seri portu sağ tıklayıp "özellikler"e girin, "Bağlantı Noktası Ayarları" sekmesinde "Saniyedeki bit sayısı" ile "BAUD RATE" değerini, "Veri bitleri" ile kaç veri biti kullanacağınızı, "Eşlik" ile parite biti kullanıp kullanmayacağınızı, "Dur bitleri" ile de kaç stop biti kullanacağınızı ayarlayabilirsiniz. Şimdi tekrar VB'ye dönelim: Forma 4 adet tuş ekleyin, biri seri portu açmak için "başlat", biri portu kapatmak için "bitir", biri gelen veriyi okumak için "verial", diğeriyse veri göndermek için "verigönder" olsun. Bu durumda aşağıdaki kodları kullanabilirsiniz. Hepinize iyi çalışmalar arkadaşlar.

Dim input, output As String
_____________________________________


Private Sub başlat_Click()
MSComm1.PortOpen = True
End Sub
_____________________________________


Private Sub bitir_Click()
MSComm1.PortOpen = False
End Sub
_____________________________________


Private Sub verial_Click()
input=MSComm1.Input
End Sub
_____________________________________


Private Sub verigönder_Click()
MSComm1.Output= output
End Sub




Yorumlar, eklemeler ve düşünceler
        Süpersin KArdeş...

   SoneRKöse, 03.03.2008 19:02
   Çok teşekkürler.Ancak merak ettiğim bişey var.Ben text box içindeki veriyi göndermek istesem önce text içindeki veriyi bir string değişkene eşitliyip sonra giden veri olarak değişkeni göstericem dimi?Daha kolayyolu varmıdır?Yani değişken kullanılmadan?

   eistain54, 06.04.2012 13:49
© 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