感谢以上多们朋友的帮助!
最终解决方案是将数据存在了sendcom.txt一个文本文件中,解决问题.
看书上说Open "sendcom.dat" For Random As #1 Len = 6
是以随机方式打开一个文件(记录长度是定长的).可读可写.
这个文件,还需定义什么?不是以上面的方式定义了吗?
If Option1.Value Then MSComm1.CommPort = 1
If Option2.Value Then MSComm1.CommPort = 2
If Option3.Value Then MSComm1.CommPort = 3
If Option4.Value Then MSComm1.CommPort = 4
MSComm1.Settings = cbospeed.Text & ",N,8,1"
MSComm1.PortOpen = True
If Err Then
MsgBox "Communication error!"
Exit Sub
End If
Else
MsgBox "The port has opened!"
End If
Dim sendarr() As Byte
Dim send As Variant
ReDim sendarr(0)
'send(0) = "11111110"
sendarr(0) = CByte(166)
send = sendarr
MSComm1.Output = send
End Sub
Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
MsgBox "Please set port at first!"
Exit Sub
End If
Dim read(30) As String
Dim i As Integer
Open "sendcom.dat" For Random As #1 Len = 6
For i = 0 To 25
Get #1, i + 1, read(i)
data(i) = CByte(read(i))
Next i
Close #1
Dim send As Variant
send = data
MSComm1.Output = send
'MsgBox "Data had been send!"
End Sub