私有子命令1_Click()'發送
“將數字作為整數”定義了整數。
' Dim outbyte(0) As Byte '定義了壹個字節數組。
Number = Val(Text1。Text)'轉換為數字類型。
Outbyte(0) = CByte(number)'被轉換為字節類型。
MSComm1。' OutBufferCount = 0 '清除發送緩沖區。
MSComm1。輸出= outbyte字節'發送
結束子'結束
Private Sub Command2_Click()'按鈕單擊事件。
MSComm1。'關閉串行端口。
卸載表單1 '卸載表單1。
末端接頭
私有子窗體_Load()'窗體加載事件
MSComm1。CommPort = 1 '將串行端口設置為com1。
MSComm1。Settings = "9600,n,8,1 " '通信參數波特率奇偶校驗位數據位停止位。
MSComm1。“輸入模式= cominputModebinary”二進制接收
MSComm1。PortOpen = True '打開串行端口。
MSComm1。' InBufferCount = 0 '清除接收緩沖區。
當在mscomm1中接收到字符時,會生成壹個OnComm事件。rthreshold = 1 '緩沖區。
末端接頭
傳輸數據時會觸發私有subcomm 1 _ on comm()'。
' Dim indata As Variant '定義變量。
Dim arr(0) As Byte '定義了壹個字節數組。
選擇casemscomm1。commevent“”commevent屬性:返回最新的通信事件或錯誤。通過查詢它的具體屬性值,可以得到通信事件和通信錯誤的完整信息。當其值為comEvReceive時,表示數據已接收。
“Case comEvReceive”有壹個接收事件。
Indata = MSComm1。“輸入”接收的數據存儲在indata中。
Arr(0) = AscB(indata)'返回indata的值。
文本2。Text = arr(0)'在text2中顯示數據。
MSComm1。' InBufferCount = 0 '清除接收緩沖區。
結束選擇
末端接頭
添加到表單
Text1顯示發送的數據。
Text2顯示接收到的數據,
Command1發送按鈕,
Mscomm1通信控件,
是時候明白了吧?再不懂也沒辦法。