|
|||||||||||
| 技術(shù)交流 | 電路欣賞 | 工控天地 | 數(shù)字廣電 | 通信技術(shù) | 電源技術(shù) | 測(cè)控之家 | EMC技術(shù) | ARM技術(shù) | EDA技術(shù) | PCB技術(shù) | 嵌入式系統(tǒng) 驅(qū)動(dòng)編程 | 集成電路 | 器件替換 | 模擬技術(shù) | 新手園地 | 單 片 機(jī) | DSP技術(shù) | MCU技術(shù) | IC 設(shè)計(jì) | IC 產(chǎn)業(yè) | CAN-bus/DeviceNe |
VB編寫(xiě)的小程序.: 串口與單片機(jī)通訊. |
| 作者：coke 欄目：單片機(jī) |
VB編寫(xiě)的小程序.: 串口與單片機(jī)通訊. Private Sub Command1_Click() Dim buff$ buf = Trim(MSComm1.Input) If (Len(buf) > 0) Then CHAR = CDbl(buff) If CHAR Mod 3 > 1 Then Text1.Text = buf Shape1.BackColor = vbGreen Else: Shape1.BackColor = vbRed Text1.Text = "Error" End If End If End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() MSComm1.PortOpen = True End Sub 我的意思是將串口的數(shù)據(jù)先存入buff中. 然而在判斷他除3的餘數(shù)數(shù)否大於1 如果是則顯示數(shù)據(jù).否則顯示"Error" 可是.當(dāng)單片機(jī)構(gòu)發(fā)送數(shù)據(jù)到PC機(jī)時(shí). 觸發(fā)接收按鈕.電腦跳出一對(duì)話框 執(zhí)行階段錯(cuò)誤 '13' 形態(tài)不符 自動(dòng)關(guān)閉vb程式. 如果單單不增加buff的判斷. 就可以很好地接受數(shù)據(jù)並顯示. 各位幫我看一下/ |
|
|
| 免費(fèi)注冊(cè)為維庫(kù)電子開(kāi)發(fā)網(wǎng)會(huì)員，參與電子工程師社區(qū)討論，點(diǎn)此進(jìn)入 |
Copyright © 1998-2006 m.58mhw.cn 浙ICP證030469號(hào) |