30 lines
1.0 KiB
VB.net
30 lines
1.0 KiB
VB.net
Imports _485_BurningTool.CommunicationFlow
|
|
|
|
Public MustInherit Class Transmitter
|
|
Public mCommunicationFlow As RichTextPrint
|
|
|
|
' 发送数据方法
|
|
Public MustOverride Sub SendData(data As SendNode)
|
|
Public MustOverride Sub SendData(data As Byte())
|
|
'获取发送器接收数据
|
|
Public MustOverride Function ReceiveData(g_comfig As SendNode) As SendNode
|
|
'判断发送器实体化没有
|
|
Public MustOverride Function IsTransmitter() As Boolean
|
|
'打开发送器
|
|
Public MustOverride Function OpenTransmitter() As Boolean
|
|
'关闭发送器
|
|
Public MustOverride Sub CloseTransmitter()
|
|
'获取发送器状态 ' True:打开 False:关闭
|
|
Public MustOverride Function GetTransmitterStatus() As Boolean
|
|
'设置发送器参数
|
|
Public MustOverride Function SetTransmitterParameter(ParamArray params() As Object) As Boolean
|
|
' 清楚发送数据
|
|
Public MustOverride Sub ClearSendData()
|
|
|
|
'创建发送器对象
|
|
Public MustOverride Function CreateTransmitter() As Transmitter
|
|
|
|
|
|
|
|
End Class
|