【經(jīng)典】串口通信實驗報告

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

2、件：command1執(zhí)行發(fā)送字符命令；（4）添加一個mscomm控件。3.4屬性設(shè)置窗體控件控 件 類 型主 要 屬 性功 能form(名稱) = comform窗體控件borderstyle = 3運行時窗體固定大小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垂直滾動條可用文本框控件2textbox(名稱) = textreceive文本框控件multiline = true允許多行顯示scrollbars = 2-vertical垂直滾動條可用按鈕控件commandbutton(名稱) = cmdsend按鈕控件caption = 發(fā)送字符 手動發(fā)送字符串口通信控件mscomm(名稱) = mscomm1串口通信控件其他屬性在程序中設(shè)置3.5程序代碼設(shè)計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程序運行截圖圖1 主界面圖2 發(fā)送信息圖3 接收信息4.實驗總結(jié)本次實驗是利用vb實現(xiàn)計算機(jī)與計算機(jī)之間的串口通信