Namespace mhc.bs.seriell
    Public Class connect
        Public Comm1 As MSCommLib.MSCommClass
        Public Sub New()
            Comm1 = New MSCommLib.MSCommClass()
        End Sub
 
        Public Enum Port
            Com1 = 1
            Com2 = 2
        End Enum
 
        Public Sub hello(ByVal port As Port)
            If Comm1.PortOpen = False Then
                Comm1.CommPort = Convert.ToInt16(port.ToString.Substring(3))
                Comm1.Settings = "2400,N,8,1"
                Comm1.InputLen = 0
               Comm1.PortOpen = True
            End If
        End Sub
 
        Public Sub bye()
            If Comm1.PortOpen = True Then
                Comm1.PortOpen = False
            End If
        End Sub
        Public Shared Sub talk()
 
        End Sub
    End Class
End Namespace