Dim Tx As String, Txlen As an Integer, the Sum As Integer
Tx="* c" 01
Txlen=Len (Tx)
Sum=0
For I=1 To Txlen
Sum=Sum + Asc (Mid (Tx, I, 1))
Next I
Sum=((0 - Sum) And 127) Or 64

Tx=Tx + CRH (Sum) + vbCrLf


TX value is how much, thank you

CodePudding user response:

* cr 01
Why he should not run it yourself?

CodePudding user response:

Not * 01 CRCRLF
Tx=Tx + CRH (Sum) + vbCrLf vbCrLf behind this sentence is what meaning, not professional writing VB

CodePudding user response:

The

reference 1/f, allowing response:

* 01 crWhy he should not run it yourself?

Not * 01 CRCRLF
Tx=Tx + CRH (Sum) + vbCrLf vbCrLf behind this sentence is what meaning, not professional writing VB

CodePudding user response:

Add a line break,

CodePudding user response:

VbCrLf is a string constant in Visual Basic, namely "CRH (13) & amp; CRH (10) "(a carriage return and a newline together), is the meaning of a new line

CodePudding user response:

reference yechengnan reply: 3/f

Quote: reference 1/f, allowing response:

* cr 01
Why he should not run it yourself?

Not * 01 CRCRLF
Tx=Tx + CRH (Sum) + vbCrLf vbCrLf behind this sentence is what meaning, not professional writing VB

The result is:
"* 01 cr + enter" + line breaks
VbCrLf is a string constants in VB6, is "a carriage return + a newline,"
Tx=Tx + CRH (Sum) + vbCrLf here plus parameter is a string type of data,
At this time of the + operator is string connection operation, to use & amp; Operator,,