vb 语言改WINFORM中c# 语言 速回

[shishiping1987]

Dim chkdata As Byte
Dim starid(4) As Byte
Dim star As Byte
Dim sendbuf(1 To 300) As Byte



sendbuf(1) = &HAA
sendbuf(2) = &HAA
sendbuf(3) = &HAA
sendbuf(4) = &HFB
sendbuf(5) = &H1
For i = 1 To 256
sendbuf(i + 5) = tempzw(i)
Next i
chkdata = &H0
For i = 4 To 261
chkdata = chkdata Xor sendbuf(i)
Next i
sendbuf(262) = chkdata
MSComm1.Output = sendbuf

[michaelnami]

byte chkdata；
byte starid【4】
byte star
byte sendbuf【300】


sendbuf【1】 = &HAA
sendbuf【2】 = &HAA
sendbuf【3】 = &HAA
sendbuf【4】 = &HFB
sendbuf【5】 = &H1
For int i = 1 i《= 256 i++
sendbuf【i + 5】 = tempzw(i)
chkdata = &H0
For int j = 4 j《= 261 j++
chkdata = chkdata Xor sendbuf(i)
sendbuf(262) = chkdata
MSComm1.Output = sendbuf

[threenewbee]

用Visual Basic项目升级向导升级成.NET项目。