ascii modbus vc源码_MODBUS ASCII协议VB程序用MSCOMM控件核心通讯程序源代码

MODBUS ASCII协议VB程序用MSCOMM控件核心通讯程序源代码Dim B$

Pr ivat e Sub en d_Click()

MSCo mm1.Po rtOp en = False

En d

En d Sub

Pr ivat e Sub clr_Click()

r eceve.Text = ""

En d Sub

Pr ivat e Sub in p ut c_Ch an ge()

En d Sub

Pr ivat e Sub sen d_Click()

MSCo mm1.Outp ut = B$ & Ch r(13) & Ch r(10)

En d Sub

Pr ivat e Sub lr c_Click()

Dim A$

Dim ee

A = inp ut c.Text

For j = 2 To Len(A) St ep 2

ee = ee + Val("&h" + Mid(A, j, 2))

Next j

B = A + Hex((256 - (ee An d &HFF)))

o ut p ut c.Text = B

En d Sub

Pr ivat e Sub Fo rm_Lo ad()

MSCo mm1.Po rtOp en = Tr ue

MSCo mm1.Sett in gs = "9600,e,7,1"

Timer1.Int er val = 500

En d Sub