基于windows環(huán)境下數(shù)據(jù)通信處理及存儲(chǔ)程序設(shè)計(jì)(參考版)
2025-06-27 18:51本頁面
【正文】 本次課程設(shè)計(jì)雖然完成了，但是還是有的地方有一些缺陷，還是有一些地方似懂非懂，所以在今后的日子里，還要繼續(xù)努力，繼續(xù)學(xué)習(xí)。另外在遇到問題的時(shí)候，我們要學(xué)會(huì)查找資料，利用書籍和互聯(lián)網(wǎng)的便利幫助自己完成任務(wù)，還要學(xué)會(huì)虛心請教同學(xué) 和老師，有些問題自己不會(huì)但別人能一語道破，為我們提供巨大的幫助，子曰：三人行，必有我?guī)熝?。接下來便是在單片機(jī)端進(jìn)行通信仿真，在這部分我采取了Proteus軟件仿真的方法，對單片機(jī)進(jìn)行簡單的編譯，并配上用于顯示的部件，利用RS232串口與PC端設(shè)計(jì)出的軟件進(jìn)行通信，在這部分需要注意的是要先用VSPD軟件進(jìn)行串口連接，不然不能通信，一開始沒有注意到這一點(diǎn)調(diào)試了好久。通過對題目的分析我們決定采用RS232串口來實(shí)現(xiàn)PC端與單片機(jī)端的相互通信，要做到這一點(diǎn)，我們得先要設(shè)計(jì)一個(gè)類似于串口助手的軟件來模仿我們的PC端。 7 實(shí)物圖圖71基于學(xué)習(xí)單片機(jī)的實(shí)物調(diào)試8心得體會(huì) 本次專業(yè)綜合課程設(shè)計(jì)做的比以前的課設(shè)要更加復(fù)雜，任務(wù)量也比之前做過的課設(shè)要多。另外當(dāng)按下保存顯示數(shù)據(jù)按鈕時(shí)，會(huì)在指定位置生成一個(gè)名為“”的文件，也實(shí)現(xiàn)是課設(shè)要求的保存數(shù)據(jù)的要求。如圖62所示，仿真開始，單片機(jī)向外發(fā)送字符“OH MY GOD”字符，接著PC端對單片機(jī)發(fā)送的字符進(jìn)行接收，如圖63所示。 s amp。 指定給位元組陣列以便處理 Arr = Buffer s = For i = 0 To receive_t 1 If Arr(i) = 32 And Arr(i) = 126 Then s = s amp。接收緩沖區(qū)的字節(jié)數(shù) 39。字節(jié)模式 39。發(fā)送緩沖區(qū)空觸發(fā)發(fā)送事件 39。每10位數(shù)據(jù)到接收緩沖區(qū)都觸發(fā)接收事件 39。數(shù)據(jù)接受緩沖區(qū)大小為4000字節(jié) = 256 39。設(shè)置波特率及數(shù)據(jù)幀格式 = 0 39。設(shè)置波特率及數(shù)據(jù)幀格式 = True If Then If = 8002 Then MsgBox 串口 + CStr(port) + 不存在！, vbOKOnly, 警告 If = 8005 Then MsgBox 串口 + CStr(port) + 已打開！, vbOKOnly, 警告 = RGB(0, 0, 0) = False = False Else = RGB(255, 0, 0) = True = 關(guān)閉串口 = True End IfEnd Sub——————————————————————————————————Private Sub Combo1_click() port = + 1 _changeEnd Sub——————————————————————————————————Private Sub Combo2_click() Select Case Case 0 rate = 300 Case 1 rate = 600 Case 2 rate = 1200 Case 3 rate = 2400 Case 4 rate = 4800 Case 5 rate = 9600 Case 6 rate = 19200 Case 7 rate = 38400 Case 8 rate = 56000 Case 9 rate = 57600 Case 10 rate = 115200 End Select _changeEnd Sub ——————————————————————————————————Private Sub Combo3_click() data_t = 8 _changeEnd Sub——————————————————————————————————Private Sub Combo4_click() stop_t = 1 + _changeEnd Sub——————————————————————————————————Private Sub Command1_Click() If = 關(guān)閉串口 Then = False = 打開串口 = RGB(0, 0, 0) Else = True = 關(guān)閉串口 = RGB(255, 0, 0) End IfEnd Sub——————————————————————————————————Private Sub Command2_Click() = End Sub——————————————————————————————————Private Sub Command3_Click() Static f2 As Byte If f2 = 0 Then disp_on = 0 f2 = 1 = 繼續(xù)顯示 Else disp_on = 0 f2 = 0 = 停止顯示 End IfEnd Sub——————————————————————————————————Private Sub Command4_Click() Dim time As Date time = Now() Open C:\Users\Lenovo\Desktop\ For Output As 5 Print 5, time Print 5, Close 5End Sub——————————————————————————————————Private Sub Command5_Click() = End Sub———————————
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1