MS Access RS232 com port haberleşme
MSCOMM32.ocx
aslında Visual basic,access gibi uygulamaların RS232 üzerinden başka cihazlarla çalışmasını sağlayan bir bileşen. MSCOMM32.OCX bileşeni farklı versiyonlara sahip ve her office versiyonu uyumlu bileşenle çalışıyor.Bazen her şey yolunda giderken forma da bu bileşeni eklemek istediğinizde problemle karşılaşabiliyorsunuz.
2007 uyumlu mscomm32.ocx zip paketini takip eden linkten indirebilirsiniz.
Öncelikle bulduğunuz bileşeni c:windowssystem32 dizini içerine kopyalayalım.Daha sonrada başlat>çalıştır REGSVR32 MSCOMM32.OCX ile bileşeni sisteme kaydettirelim.
mesajı ile karşılaşıyorsanız. Devam edebiliriz.Aksi durumlara sistemsel problemlerden veya problemli dosyalardan kaynaklanabilir. MS Access database yapısı içersinde Veritabanı araçları>Visual Basic başlıklarından,Visual basic application penceresine ulaşıyoruz. Bu alanda tools>references kısmında aşağıdaki pencere geliyor.Bu alanda Microsoft Comm Control 6.0 (SP6) ActiveX bileşenini arıyoruz.Bunun kısa yolu ise Browse butonuna tıklayıp Path ise c:windowssystem32 olama koşulu ile dosya adına MSCOMM32.OCX yazmak ve Aç “˜ı tıklatmak. Bu durumda artık form üzerinde bu ocx bileşenini kullanmaya başlayabiliriz.
Ben size access uygulamasından söz edeceğim basic uygulamalarından benzeri bir durum söz konusudur. Tasarım modunda bir form oluşturalım. Tasarım sekmesinde activeX denetimini göreceksiniz. Bunu tıklayıp, Microsoft Communications Control 6.0 (SP6) bileşenini eklediğinizde telefon iconu şeklinde bu bileşeni eklemiş olduk.
Mscomm bileşeni
gibi COM ayarlarının yapıldığı özellikler penceresine sahip, haberleşilecek cihazında özelliklerine göre ayarlamaları bu alandan gerçekleştirebiliriz.
Ben form içersinde bir buton oluşturup proje içersinde cihaza bilgi göndermek istedim.İlgili kodlar :
[php]Private Sub Komut2_Click()
‘SATIR1
With MSComm
‘make sure the serial port is not open (by this program)
If .PortOpen Then .PortOpen = False
‘set the active serial port
.CommPort = 1
‘set the badurate,parity,databits,stopbits for the connection
.Settings = “9600,N,8,1”
‘set the DRT and RTS flags
.DTREnable = True
.RTSEnable = True
‘enable the oncomm event for every reveived character
.RThreshold = 0
‘disable the oncomm event for send characters
.SThreshold = 0
‘open the serial port
.PortOpen = True
End With ‘MSComm1
MSComm.Output = “1 WRM 1 U: ” & Me!Text1 & Me!BNO & ” ” & Me!Text3 & Me!DNO & vbCr
CreateObject(“WScript.Shell”).PopUp “Lütfen Bekleyiniz.” _
& vbCrLf, 1, “BILGI”
MSComm.Output = “1 WRM 0 A: ” & Me!Text0 & vbCr
MSComm.PortOpen = False
Forms!DKF000![ETIKET BILGISI].SetFocus
Me![YAZDIR].SetFocus
Forms!DKF000!Komut2.Enabled = False
End Sub[/php]
umarım faydalı olmuştur.
Kategori: Yazılım
faydalı olmak ne demek allah senden razı olsun ne dileğin varsa (rahmani) kabul etsin….
yorumunuz icin tesekkur ederim
kardeş ben bu işi halledemedim örnek bir dosya linki verebilirmisin ben rs232 den gelen veriyi access ile almak istiyorum bu konuyu bir şekilde çözmem gerekiyor yardımlarınızı bekliyorum
Merhaba,
http://support.microsoft.com/kb/823179 sayfasından Visual Basic .NET’te MSComm denetimini kullanarak seri bağlantı noktalarına erişme yazısını baz alabilirsin.