datad.bas

一份串口通信的好资料,对初学串口者很有用滴

Attribute VB_Name = "DATAd"
Public is_cominuse As Boolean
Public IS_ARQ As Boolean

Public VIEWMODE As Integer
Public Counts As Integer
Public CONREQ As Boolean '建立连接 成功才发送
Public Replay As String '发送端的标记 通用? 提取接收端回复用
Public ReplayID As Integer '通用 标记
Public OLDID    As Integer '旧      标记
Public EXPID    As Integer '期待新  标记
Public SENDNEXT As Boolean '是否允许发送下一段数据
'问题是  在SEND ENQ 后是立即把后续数据发送? 那 ACK0 到底是代表?
Public com_b As Long
Public com_p As String
Public com_d As Integer
Public com_s As Variant
Public com_f As Integer

Public firstr As Boolean
Public bufferr As Variant
Public buffer1 As String


Public Type MSCOM
    COMNAME As String
    COMSITTINGS As String
    COMIBUFFER As Integer
    COMOBUFFER As Integer
    COMMODE As Integer
    COMR As Integer
    COMS As Integer
    COMPORT As String
End Type

Public TCOM As MSCOM