What REFERENCES for communication through COMM / SERIAL PORT from within IMAGE-PRO PREMIER . . .

mbatchelor

All --

I am working to control a device via a COMM / SERIAL PORT

I have example code that includes

Sub GetSerialPortNames()
    ' Show all available COM ports.
    For Each sp As String In My.Computer.Ports.SerialPortNames
        ListBox1.Items.Add(sp)
    Next
End Sub

Unfortunately the MY.COMPUTER.PORTS is not supported by a "native" PREMIER PROJECT.

According to

    https://msdn.microsoft.com/en-us/library/e4560dx9.aspx

the

    My.Computer.Ports

is requires by

    Namespace: Microsoft.VisualBasic.Devices
    Class: Ports
    Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

I tried to add this LIBRARY to my project via

    WORKBENCH + SCRIPT + PROJECT + REFERENCES

but I do not see this LIBRARY on the list in the REFERENCES DIALOG BOX (see below)





Is there a LIBRARY / REFERENCE that I can link to my project to gain access to

    My.Computer.Ports

If this is not possible, can you direct me to the LIBRARY that will support

    ' Open the serial port
    MSComm1.CommPort = 4
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True

or another COMM /SERIAL PORT ACCESS METHODOLOGY I can use from within a PREMIER AUTOMATION?

Thanks.

-- Matt

mbatchelor

All --

What is the best way to proceed on this?

Thanks.

-- Matt

PierreD

Matt,

You need a reference to Microsoft.VisualBasic, Version=10.0.0.0,

then you can use code like this:

    Sub GetSerialPortNames()
        ' Show all available COM ports.
        Dim ports As New Microsoft.VisualBasic.Devices.Ports
        For Each sp As String In ports.SerialPortNames
            Debug.Print sp
        Next
    End Sub

Pierre

mbatchelor

Pierre --

Thanks for the direction on this.

I have added the REFERENCE to the

    Microsoft.VisualBasic, Version=10.0.0.0

as shown below.



I am now able to query WINDOWS for the COM PORTS.

A++

I'll add additional code to start communicating through the PORT shortly.

Were you led to this LIBRARY by the ASSEMBLY LINE in the info I found (below) or was there another trail you found to this LIBRARY?

Thanks again.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

    Namespace: Microsoft.VisualBasic.Devices
    Class: Ports
    Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

mbatchelor

Pierre --

I am working to get communications up and running through the COMM PORT.

I see that your GetSerialPortNamesExample is different than the GetSerialPortNamesExample posted on MSDN at

    https://msdn.microsoft.com/en-us/library/9wahf8t8(v=vs.140).aspx

and when I try some example code from

    https://msdn.microsoft.com

I get syntax errors.

My CODE is below and I have "hardwired" in COM4 because it is the only COMM PORT on my TEST COMPUTER. 

I'll make this more robust later.

Can you please direct me to the MSDN PAGES that will give me guidance to how to get my READ and WRITE ROUTINES up and running?

Thanks.

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

'From https://msdn.microsoft.com/en-us/library/9wahf8t8(v=vs.140).aspx
'Sub GetSerialPortNamesExample()
'    ' Show all available COM ports.
'    For Each sp As String In My.Computer.Ports.SerialPortNames
'        ListBox1.Items.Add(sp)
'    Next
'End Sub

Sub GetSerialPortNamesExampleMMB()
    ' Show all available COM ports.
    Dim MyPort As New Microsoft.VisualBasic.Devices.Ports
    For Each sp As String In MyPort.SerialPortNames
        Debug.Print sp
    Next
End Sub


'From https://msdn.microsoft.com/en-us/library/088fx85y(v=vs.90).aspx
'Sub SendSerialData(ByVal data As String)
'    ' Send strings to a serial port.
'    Using com1 As IO.Ports.SerialPort = _
'            My.Computer.Ports.OpenSerialPort("COM1")
'        com1.WriteLine(data)
'    End Using
'End Sub

Sub SendSerialDataMMB()
    ' Send strings to a serial port.
    Dim MyPort As New Microsoft.VisualBasic.Devices.Ports
    Using com1 As MyPort.OpenSerialPort("COM4")
        com1.WriteLine("?")
    End Using
End Sub

mbatchelor

Pierre --

The VISUAL BASIC LIBRARY that you recommended seemed to generate a lot of SYNTAX ERRORS when I used VB.NET CODE EXAMPLES from MSDN.

After some experimentation, I found that using

	Imports System
	Imports System.IO.Ports

gives a PROJECT within the PREMIER PROJECT WORKBENCH the SERIAL PORT COMMANDS needed to COMMUNICATE through a COMM PORT.

I hope this information is helpful.

-- Matt