VB 串口通信,传输过去少数据的问题
来源:百度知道 编辑:UC知道 时间:2024/05/18 05:09:37
你在两次MSCOMM.OUTPUT之间加延时试试。
程序执行的速度比波特率快就会发生这种情况。
你是 用 文本 方式 打开 吧
可能是 丢了 非 打印字符
想办法 用 2 机制方式 读写
Option Explicit
Dim sj As String
Dim yTemp() As Byte
Dim strData As String
Dim sTemp As String
Dim i As Long
Dim MySize As Long
Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|"
' 指定缺省的过滤器
'CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.FileName
MySize = FileLen(CommonDialog1.FileName)
Text2 = MySize
send
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub send()
Dim a(