那位能把这段ＶＢ代码转成Ｃ＃的？


MSComm.OutPut与serialport的那个法对应？Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
'UPGRADE_NOTE: str 已升级到 str_Renamed。 单击以获得更多信息:“ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"”
Dim str_Renamed As String
Dim binbuff(7) As Byte

If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If

'信息發送格式
binbuff(0) = &H55s
binbuff(1) = &HAAs
binbuff(2) = &H0s
binbuff(3) = &H1s
binbuff(4) = &H0s
binbuff(5) = &H0s
binbuff(6) = &H3s
binbuff(7) = &H3s

MSComm1.Output = VB6.CopyArray(binbuff)
str_Renamed = Trim(Text1.Text)
MSComm1.Output = str_Renamed

End Sub