comdef.bas

您的文件包然后写出其具体功能[至少要20把时间都花费在为您修正说明

Attribute VB_Name = "ComDef"
Option Explicit

'Declare Sub dllBeep Lib "beepdll.dll" Alias "#1" (ByVal dwFreq As Long, ByVal dwDuration As Long)
Declare Sub dllBeep Lib "beepdll.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long)
Declare Function timeGetTime Lib "winmm.dll" () As Long

'Public RemoteHostName As String        'Host Name
'Public RemotePortNo As Long            'Port No

Public Const ASC_LF As Integer = &HA
Public Const ASC_CR As Integer = &HD
Public Const ASC_SP As Integer = &H20

Public Const COMM_SOH   As Integer = &H1
Public Const COMM_STX   As Integer = &H2
Public Const COMM_ETX   As Integer = &H3
Public Const COMM_EOT   As Integer = &H4
Public Const COMM_ENQ   As Integer = &H5
Public Const COMM_ACK   As Integer = &H6
Public Const COMM_NAK   As Integer = &H15
Public Const COMM_SNS   As Integer = &H42

Public Const COMM_ACK2  As Integer = &H40
Public Const COMM_NAK2  As Integer = &H21

Public Const COMM_CR    As Integer = &HD
Public Const COMM_LF    As Integer = &HA

'-----------------------------------------------------------------------------
'   Ethernet connection status
'-----------------------------------------------------------------------------
Public Function PutStatus(stat As Integer) As String

    Select Case stat
    Case sckClosed
        PutStatus = "Socket Closed"                   '枹愙懕
    Case sckOpen
        PutStatus = "Socket Open"                     '奐偄偰偄傑偡
    Case sckListening
        PutStatus = "Socket Listening"                '愙懕梫媮傪懸偭偰偄傑偡
    Case sckConnectionPending
        PutStatus = "Socket Connect Pending"          '愙懕偑儁儞僨傿儞僌忬懺偵側偭偰偄傑偡
    Case sckResolvingHost
        PutStatus = "Socket Resolving Host"           '儂僗僩偺夝寛張棟拞偱偡
    Case sckHostResolved
        PutStatus = "Socket Host Resolved"            '儂僗僩偺夝寛偑姰椆偟傑偟偨
    Case sckConnecting
        PutStatus = "Socket Connecting"               '愙懕張棟拞偱偡
    Case sckConnected
        PutStatus = "Socket Connected"                '愙懕偑姰椆偟傑偟偨
    Case sckClosing
        PutStatus = "Socket Closing"                  '憡庤懁偺儅僔儞偑愙懕傪暵偠傛偆偲偟偰偄傑偡
    Case sckError
        PutStatus = "Socket Error"                    '僄儔乕
    End Select

End Function

'-----------------------------------------------------------------------------
'   俛俠俠寁嶼
'-----------------------------------------------------------------------------
Public Function BccCodeCal(buff As Variant) As Integer
    Dim i, bcc As Integer
    
    bcc = 0
    For i = 1 To Len(buff)
        bcc = bcc Xor Asc(Mid$(buff, i, 1))
    Next i
    BccCodeCal = bcc
End Function

'-----------------------------------------------------------------------------
'   俥俠俽寁嶼
'-----------------------------------------------------------------------------
Public Function FcsCodeCal(buff As Variant) As String
    Dim fcs As String
    Dim bcc As Integer
    
    bcc = BccCodeCal(buff)
    fcs = Hex$(bcc)
    If Len(fcs) = 1 Then
        fcs = "0" & fcs
    End If
    
    FcsCodeCal = fcs

End Function