Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 254
  • Last Modified:

declare a serial port

I am converting an application from VB6 to .NET

The VB6 code was:
Sub InitComPort(ComPort As Control, PortNum As Integer)
    ' -------------------------------
    ' setups the commport
    ' ------------------------------

    On Local Error Resume Next
    If ComPort.PortOpen = True Then
        ComPort.PortOpen = False
    End If
    ComPort.CommPort = PortNum
   
    ComPort.Settings = "9600,N,8,1"
   
    ComPort.PortOpen = True
   
    ComPort.RThreshold = 0
   
    SendingCmd = False
   
End Sub

How does the ComPort get defined in VB.NET.
Thanks,
0
Adam_930
Asked:
Adam_930
2 Solutions
 
joekucera2002Commented:
You are looking for the SerialPort class in the System.IO.Ports namespace.

Please let me know if you need a code sample. Keep in mind that in VB6, the ComPort was a control that was placed on a form, and the SerialPort is a class meant to be used in code (preferably not in the UI layer).
0
 
Ramkisan JagtapLead DeveloperCommented:
Hello,

Check the following code:

Function ReceiveSerialData() As String
    ' Receive strings from a serial port.
    Dim returnStr As String = "" 

    Dim com1 As IO.Ports.SerialPort = Nothing
    Try
        com1 = My.Computer.Ports.OpenSerialPort("COM1")
        com1.ReadTimeout = 10000
        Do
            Dim Incoming As String = com1.ReadLine()
            If Incoming Is Nothing Then
                Exit Do
            Else
                returnStr &= Incoming & vbCrLf
            End If
        Loop
    Catch ex As TimeoutException
        returnStr = "Error: Serial Port read timed out."
    Finally
        If com1 IsNot Nothing Then com1.Close()
    End Try

    Return returnStr
End Function

Check the detailed article
 http://www.dreamincode.net/forums/topic/37361-serial-port-communication-in-vbnet/
0

Featured Post

 [eBook] Windows Nano Server

Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks

Tackle projects and never again get stuck behind a technical roadblock.
Join Now