我發現點擊按鈕后,text1每一次都能輸出"你好",而我的下位機有時候會沒有反應。其中的41 07為16進制的指令,可以使下位機中的某個燈亮,有時候卻可以發送出去,使燈亮起來。究竟是什么問題呢?有沒有可能是傳輸程序中資料出錯呢?
Private Sub Form_Load()
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferSize = 4096
MSComm1.InBufferSize = 1024
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
Mscomm1.Portopen=4
MSComm1.PortOpen = True
End Sub
Private Sub Command3_Click()
Dim a1(1) As Byte
a1(0) = &H41
a1(1) = &H7
MSComm1.Output = a1
Text1.Text = "你好!"
end sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/227754.html
標籤:VB基礎類
下一篇:請問如何獲取系統宋體字體位置
