Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA odczytywanie danych z RS232 bez użycia MSComm

Baybus 26 Maj 2011 14:53 1671 1
  • #1 26 Maj 2011 14:53
    Baybus
    Poziom 9  

    Witam,
    czy ma ktoś kod w VBA do odczytywania danych z rs232, ale bez wykorzystania MSComm ? Program jest robiony w Movicon ale niestety obsługa COM jest w skryptach VBA którego ni w ząb nie znam. Jakby kogoś interesowało to znalazłem już kod do nadawania ( i nawet działa).

    Code:

    Sub Main()
       Dim objIOPort As IOPortInterface
       Dim ID As Long
       Dim sVariant As String

       Set objIOPort = GetIOPortInterface
       ID = objIOPort.IOPortOpen ("COM1:9600,n,8,1")
       sVariant = "Test"
       objIOPort.IOOutput(ID, sVariant)

       objIOPort.IOOutBufferCount(ID) = 0

       objIOPort.IOClosePort(ID)
       Set objIOPort = Nothing
    End Sub

    0 1