【正文】 在論文的最后，我要向他們表示我真誠的感謝！ 感謝我的導(dǎo)師在畢業(yè)設(shè)計(jì)過程中給我的悉心指導(dǎo)和幫助，他淵博的學(xué)識(shí)和嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度讓我受益匪淺。 } 致謝 在畢業(yè) 設(shè)計(jì)的過程中，我得到了很多老師和同學(xué)的關(guān)心和幫助。 ES=1。 //把接受的數(shù)據(jù)發(fā)送出去 while(!TI)。 //發(fā)送中斷標(biāo)志位，一位位發(fā)送，判斷發(fā)送成功 //硬件自動(dòng)清零 TI=0。i++)//發(fā)送 ’ i get ‘ { SBUF=table[i]。 //關(guān)閉串口通信 for(i=0。 delayms(1)。a39。 t++。 //接受中斷標(biāo)志位 if(t len) { Value[tail]=SBUF。 t。 //關(guān)指示燈 y_position = temp。 //正轉(zhuǎn) else StepX(2,y_position temp,0)。 //開指示燈 temp = Value[head]。 //184。反轉(zhuǎn) LED2 = 1。 //正轉(zhuǎn) else StepX(1,x_position temp,0)。 0x7F。 0x80) //用高位來判斷是 x軸還是 y軸 { LED2 = 0。 LED1 = 0。 } } } } //主函數(shù) void main() { uchar temp。 else P1=step_table4[i]。i4。m0。 delay(1)。i++) { if(n) P1=step_table1[i]。m) { for(i=0。 if(xy == 1) { for(。 //開總中斷 ES=1。 // REN=1。 //啟動(dòng)定時(shí)器 1 SM0=0。 //定時(shí)器 1 裝初值，用波特率計(jì)算器計(jì)算，波特率設(shè)置為9600 TL1=0xfd。 //延時(shí) } void init() { TMOD=0x20。j0。in。//y反轉(zhuǎn) void delay(unsigned int n) { unsigned int i,j。//x反轉(zhuǎn) uchar step_table3[]={0x10,0x20,0x40,0x80}。 //y軸當(dāng)前位置 uchar step_table1[]={0x01,0x02,0x04,0x08}。 uchar x_position = 0。 uchar tail = 0。 //y軸步進(jìn)電機(jī)指示燈 define len 20 //隊(duì)列長度 uchar Value[len]。 //系統(tǒng)狀態(tài)指示燈 sbit LED2=P0^1。繪坐標(biāo)縱線 = 2 (0, 0)(0, 110), vbBlack = 1 (10, 0)(10, 100), vbWhite (20, 0)(20, 100), vbWhite (30, 0)(30, 100), vbWhite (40, 0)(40, 100), vbWhite (50, 0)(50, 100), vbWhite (60, 0)(60, 100), vbWhite (70, 0)(70, 100), vbWhite (80, 0)(80, 100), vbWhite (90, 0)(90, 100), vbWhite (100, 0)(100, 100), vbWhite 39。設(shè)置繪線寬度 = 2 39。 = vbGreen = 5 39。Y操作 If ( / 2 1) 0 Then , 1 = CInt( + / 2) = CInt( / 2) SendXY CInt( + / 2), CInt( / 2) End If End Sub 39。X操作 If ( + / 2 1) 0 Then 1, = CInt( + / 2) = CInt( / 2) SendXY CInt( + / 2), CInt( / 2) End If End Sub Private Sub CommandXP_Click() 39。 = CInt( / 2) Else MsgBox 輸入數(shù)值必須在 0100 之間 End If End If End Sub Private Sub Timer1_Timer() timercount = timercount + 1 If timercount = 1 Then CInt(TextX1(intger).Text) / 2, CInt() + / 2 = CInt(TextX1(intger).Text) = CInt() SendXY CInt(TextX1(intger).Text), CInt() End If If timercount = 2 Then CInt() / 2, CInt() + / 2 = CInt() = CInt() SendXY CInt(), CInt() End If If timercount = 3 Then CInt() / 2, CInt() + / 2 = CInt() = CInt() SendXY CInt(), CInt() timercount = 0 = False = True End If End Sub Private Sub CommandYP_Click() 39。 CInt() / 2, CInt() + / 2 39。發(fā)送 xy坐標(biāo) SendXY = False If Then sendbyte(0) = xv Or amp。如果操作成功，則說明當(dāng)前串口可用，返回 1，表示串口可用 Exit Function Comm_Error: If = 8002 Then MsgBox 串口不存在，請(qǐng)配置串口號(hào)為 COM4！ ElseIf = 8005 Then MsgBox 串口已打開 Else MsgBox 其它錯(cuò)誤 End If Test_COM = False 39。 Private Function Test_COM(_num As Integer) As Boolean If = 打開串口 Then On Error GoTo Comm_Error = _num 39。 參考文獻(xiàn)： [1]李雁翎等 .Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程（第二版） [M]人民郵電出版社 [2]楊加國等 .單片機(jī)原理與應(yīng)用及 C51 程序設(shè)計(jì)（第二版） [M]清華大學(xué)出版社 [3]周榮富 .電子線路 CAD [M]北京大學(xué)出版社 [4]陳忠平 .基于 Proteus 的 51 系列單片機(jī)設(shè)計(jì)與仿真（第二版） [M]電子工業(yè)出版社 [5]陳曾平 .電路設(shè)計(jì)基礎(chǔ) [M]北京高等教育出版社 .20xx:100110. [6]肖洪兵 .跟我學(xué)用單片機(jī) [M]北京航空航天大學(xué)出版社 .. [7]何立民 .單片機(jī)應(yīng)用技術(shù)大全 [M]北京航空航天大學(xué)出版社 ,1994. [8]邱光源等 .電路基礎(chǔ)［ M］高等教育出版社 1998. [9]沈紅衛(wèi) .基于單片機(jī)的智能系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) [M]北 京：電子工業(yè)出版社 , [10]康華光．電子技術(shù)基礎(chǔ)數(shù)字部分 [M]北京高等教育出版社， 20xx. [11]郁有文，常健 傳感器原理及工程應(yīng)用 [M]電子科技大學(xué)出版社， [12][ 數(shù)據(jù)采集與串口通信測(cè)控應(yīng)用實(shí)戰(zhàn) ].李江全等 .掃描版． 淮南師 范學(xué)院 20xx 屆本科畢業(yè)論文 19 [13]梅麗鳳，王艷秋，汪毓鐸 ,張軍 . 單片機(jī)原理及接口技術(shù) [M]清華大學(xué)出版社 20xx [14]蔡朝洋 . 單片機(jī)控制實(shí)習(xí)與專題制作 [M]北京航空航天大學(xué)出版社 [15]楊忠寶，康順哲 .VB 語言程序設(shè)計(jì) [M]人民郵電出版社 [16]夏繼強(qiáng) .單片機(jī)實(shí)驗(yàn)與實(shí)踐教程 [M]北京航空航天大學(xué)出版社 ,20xx. [17]王運(yùn)堅(jiān) .VISUAL BASIC 應(yīng)用指南 [M]人民郵電出版社 1998 附錄 附錄 1 上位機(jī)設(shè)計(jì)界面 附錄 2 上位機(jī)程序 Dim xx, yy As Long Dim timercount As Integer Dim sendbyte(1) As Byte Private Sub Command5_Click() If = 關(guān)閉端口 Then = False = 打開端口 = RGB(0, 0, 0) Else If Test_COM(4) = True Then = True = 關(guān)閉端口 = RGB(0, 255, 0) End If End If End Sub 39。上位機(jī)控制平臺(tái)可以添加更多功能，界面可以做的更美觀。經(jīng)測(cè)試各部分 工作正常，達(dá)到了本課題的設(shè)計(jì)目標(biāo)。上位機(jī)實(shí)現(xiàn)串口通信，當(dāng)手動(dòng)點(diǎn)樣、自動(dòng)點(diǎn)樣或回原點(diǎn)操作時(shí)，會(huì)將相應(yīng)的 X 軸和