【經(jīng)典】串口通信實(shí)驗(yàn)報(bào)告

1、vb串口通信實(shí)驗(yàn)1實(shí)驗(yàn)要求：設(shè)計(jì)一個(gè)串口通信程序，用于信息的接收和發(fā)送2實(shí)驗(yàn)?zāi)康模?.1熟悉并掌握串口標(biāo)準(zhǔn)及原理；2.2實(shí)現(xiàn)pc機(jī)與pc機(jī)之間通過(guò)串口進(jìn)行數(shù)據(jù)的收發(fā)；3.3熟悉vb語(yǔ)言編寫程序的環(huán)境，用vb開(kāi)發(fā)串口通信程序3實(shí)驗(yàn)步驟：3.1運(yùn)行vb程序，出現(xiàn)“新建工程”對(duì)話框，選擇“標(biāo)準(zhǔn)exe”，單擊“打開(kāi)”命令按鈕，進(jìn)入vb工程集成開(kāi)發(fā)環(huán)境；3.2 添加串口通信控件mscomm到工具箱中；3.3界面設(shè)計(jì)（1）添加兩個(gè)文本框控件：text1 和text2，用于輸入要發(fā)送的字符和顯示要接收的字符；（2）添加兩個(gè)標(biāo)簽控件：label1和label2，作為發(fā)送和接收字符區(qū)的標(biāo)簽；（3）添加一個(gè)按鈕控

2、件：command1執(zhí)行發(fā)送字符命令；（4）添加一個(gè)mscomm控件。3.4屬性設(shè)置窗體控件控 件 類 型主 要 屬 性功 能form(名稱) = comform窗體控件borderstyle = 3運(yùn)行時(shí)窗體固定大小caption = pc與pc串口通信窗體標(biāo)題欄顯示程序名稱標(biāo)簽控件1label(名稱) = label1標(biāo)簽控件caption = 顯示接收字符區(qū)：標(biāo)簽文本標(biāo)簽控件2label(名稱) = label2標(biāo)簽控件caption = 輸入發(fā)送字符區(qū)：標(biāo)簽文本文本框控件1textbox(名稱) = textsend文本框控件multiline = true允許多行顯示scrollba

3、rs = 2-vertical垂直滾動(dòng)條可用文本框控件2textbox(名稱) = textreceive文本框控件multiline = true允許多行顯示scrollbars = 2-vertical垂直滾動(dòng)條可用按鈕控件commandbutton(名稱) = cmdsend按鈕控件caption = 發(fā)送字符 手動(dòng)發(fā)送字符串口通信控件mscomm(名稱) = mscomm1串口通信控件其他屬性在程序中設(shè)置3.5程序代碼設(shè)計(jì)private sub form_load() mscomm1.commport = 1 mscomm1.settings = 9600,n,8,1 mscomm1.

4、inputmode = 0 mscomm1.rthreshold = 1 mscomm1.portopen = true end subprivate sub cmdsend_click() if textsend.text = then pp = msgbox(發(fā)送的數(shù)據(jù)不能為空！, 16) exit sub end if mscomm1.output = trim(textsend.text)end subprivate sub mscomm1_oncomm() dim buf$ select case mscomm1.commevent case comevcd case comevct

5、s case comevdsr case comevreceive buf = trim(mscomm1.input) case comevsend end select textreceive.text = textreceive.text & bufend subprivate sub cmdquit_click() unload meend subprivate sub form_unload(cancel as integer) mscomm1.portopen = falseend sub3.5程序運(yùn)行截圖圖1 主界面圖2 發(fā)送信息圖3 接收信息4.實(shí)驗(yàn)總結(jié)本次實(shí)驗(yàn)是利用vb實(shí)現(xiàn)計(jì)算機(jī)與計(jì)算機(jī)之間的串口通信