vb.net serialport编程问题
以下是vb的程序，如何把它换成vb.net的？
Dim shuzu(100) As Byte
Private Sub Command1_Click()
Dim in_str() As String
Dim i As Integer
Dim len_str As Integer
Dim hex_str As String
Dim pp As Integer
len_str = Len(Text1.Text)
ReDim in_str(len_str)
pp = 3
For i = 0 To len_str - 1
in_str(i) = Mid(Text1.Text, i + 1, 1)
hex_str = Hex(Asc(in_str(i)))
If Val("&H" & hex_str) < 0 Then
For k = 1 To 4
shuzu(pp + k - 1) = Val("&H0" & Mid(hex_str, k, 1))
Next k
pp = pp + 4
Else
shuzu(pp) = Val("&H" & hex_str)
pp = pp + 1
End If
Next i
shuzu(0) = &H80
shuzu(1) = &HC0
shuzu(2) = &H44
shuzu(pp) = &H1A
With MSComm1
.PortOpen = True
.Output = shuzu
.PortOpen = False
End With
End Sub
[解决办法]
用vs.net打开vb的工程，用向导自动转换
[解决办法]
你的程序在vb.net里面基本变化不大，只需要将MSComm改成SerialPort，发送用SerialPort1.Write(shuzu, 0, shuzu.Length)即可，详细方法可以参考SerialPort编程
[解决办法]
用VS。NET打开，可以转的啊，试试呗
