下載本文檔
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、MSCOMM牛在VB中發(fā)送十六進(jìn)制數(shù)據(jù)的方法 轉(zhuǎn)一、初始化配置Private Sub Form_Load()With MSCommlIf .P ortOpe n = True The n.PortOpe n = FalseEnd If.CommPort = 4.Setti ngs = BaudRate & ,n ,8,1 .In BufferSize = 1024.OutBufferSize = 1024使用COM1設(shè)置通信口參數(shù)設(shè)置MSComm1 接收緩沖區(qū)為1024字節(jié)設(shè)置MSComm1 發(fā)送緩沖區(qū)為1024字節(jié)n putMode = comln putModeB inary設(shè)置接收數(shù)據(jù)模
2、式為二進(jìn)制形式n putLe n = 0.SThreshold = 0.In BufferCou nt = 0.OutBufferCou nt = 0設(shè)置In put 一次從接收緩沖讀取全部字節(jié)數(shù)設(shè)置發(fā)送完所有產(chǎn)生 On Comm 事件清除接收緩沖區(qū)清除發(fā)送緩沖區(qū).RThreshold = 1設(shè)置接收一個(gè)字節(jié)產(chǎn)生 On Comm 事件判斷通信口是否打開.RTSE nable = TrueIf Not P ortOpen The nOn Error Resume NextP ortOpe n = True打開通信口If Err Then錯(cuò)誤處理MsgBox 串口被占用或此串口不存在!通信無效!,
3、 16,Exit SubEnd IfEnd IfEnd WithEnd Sub注意:數(shù)據(jù)收發(fā)模式為n putMode = comln putModeB inary設(shè)置接收數(shù)據(jù)模式為二進(jìn)制形式、發(fā)送一個(gè)字節(jié)的16進(jìn)制數(shù)據(jù)Dim aa(0) As Byteaa(0) = &HAAMSComm1.Output = aa三、接收數(shù)據(jù)(事件方式)Private Sub MSComml _On Comm()On Error Resume NextDim in Data As String 串 口接收的數(shù)據(jù)Dim In Byte() As Byte 定義一個(gè)二進(jìn)制指針放接收到的數(shù)據(jù)選擇事件Dim in By
4、te1() As ByteSelect Case MSComm1.CommEve nt Case comEvReceive 接收到字符TimeNum = 4 賦值計(jì)時(shí)常量In Byte = MSComm1.I nput數(shù)據(jù)轉(zhuǎn)移到指針Serial_Rece_Fg = TrueDim j As LongFor j = 0 To UBou nd(l nByte)循環(huán)到指針上標(biāo)If In Byte(j) = 13 The nin Data = in Data & vbCr LfElsein Data = in Data & Chr(I nByte(j) asciiEnd If碼顯示處理Next jTxt_Rcv.SelText = in Data 將剛收到的字符串顯示出來 in Data =Txt_Rcv.SelStart = Len (Txt_Rcv.Text)光標(biāo)置后Case comEve ntRxOver 接收緩沖區(qū)
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 領(lǐng)導(dǎo)力與商務(wù)禮儀培訓(xùn)
- 《跨接導(dǎo)壓技術(shù)創(chuàng)新》課件
- 提升營收的多元化策略計(jì)劃
- 地質(zhì)勘查技術(shù)服務(wù)行業(yè)相關(guān)投資計(jì)劃提議
- 財(cái)務(wù)科預(yù)算與成本控制計(jì)劃
- 丙型肝炎抗體檢測(cè)試劑盒相關(guān)行業(yè)投資規(guī)劃報(bào)告范本
- 寶石、玉石礦相關(guān)行業(yè)投資方案范本
- 《液壓與氣動(dòng)》課件 2過濾器
- 日用織物制品相關(guān)行業(yè)投資方案
- 《信客公開》課件
- 贛南美食-英語版
- 兒童文學(xué)智慧樹知到期末考試答案章節(jié)答案2024年麗水學(xué)院
- 大酒店風(fēng)險(xiǎn)分級(jí)管控和隱患排查治理雙體系文件
- CJ-T129-2000玻璃纖維增強(qiáng)塑料外護(hù)層聚氨酯泡沫塑料預(yù)制直埋保溫管
- 學(xué)校“弘揚(yáng)踐行教育家精神”師德師風(fēng)主題教育活動(dòng)實(shí)施方案
- 勞動(dòng)教育智慧樹知到期末考試答案章節(jié)答案2024年湖州師范學(xué)院
- 成人手術(shù)后疼痛評(píng)估與護(hù)理-中華護(hù)理學(xué)會(huì)團(tuán)體標(biāo)準(zhǔn)(2023)課件
- 普通化學(xué)趙士鐸課后習(xí)題答案
- 2017年7月自考11345文體寫作試題及答案含解析
- 古詩詞誦讀《書憤》公開課一等獎(jiǎng)創(chuàng)新教學(xué)設(shè)計(jì)統(tǒng)編版高中語文選擇性必修下冊(cè)
- 二年級(jí)上冊(cè)數(shù)學(xué)說課課件 7.《認(rèn)識(shí)時(shí)間》 人教版 共24張
評(píng)論
0/150
提交評(píng)論