28
End
Get
Set
(
ByVal
Value
As
Integer
)
End
Set
End
Property
Public
Function
Enable(
ByVal
port
As
String
)
As
Boolean
If
(PortOpen)
Then
Return
True
End
If
Try
If
(
Not
(port =
""
))
Then
Comport = port
End
If
Serial =
New
IO.Ports.SerialPort(Comport,
115200, IO.Ports.Parity.Even, 8, IO.Ports.StopBits.One)
Serial.Open()
PortOpen =
True
SendReceive(
Me
.PING, 0,
Me
.ACK)
SendReceive(
Me
.PING, 0,
Me
.ACK)
Catch
ex
As
Exception
PortOpen =
False
Return
False
End
Try
Return
True
End
Function
Public
Function
Disable()
As
Boolean
If
(PortOpen)
Then
Try
Serial.Close()
Catch
ex
As
Exception
End
Try
PortOpen =
False
Serial =
Nothing
Return
True
End
If
Return
False
End
Function
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
网址:www.bonphot.com
电话:0512-62828421