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.

MSCOMM32 indir

Ö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 :

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

umarım faydalı olmuştur.