【正文】 And CInt() = 100 And CInt() = 100 And CInt() = 100 Then = True = False timercount = 0 39。 = CInt( + / 2) 39。Y+操作 If ( / 2) 100 Then , + 1 = CInt( + / 2) = CInt( / 2) SendXY CInt( + / 2), CInt( / 2) End If End Sub Private Sub CommandXM_Click() 39。X+操作 If ( + / 2) 100 Then + 1, = CInt( + / 2) = CInt( / 2) SendXY CInt( + / 2), CInt( / 2) End If End Sub Private Sub CommandYM_Click() 39。回原點(diǎn)操作 Private Sub Command7_Click() 0 / 2, 0 + / 2 = CInt( + / 2) = CInt( / 2) SendXY 0, 0 End Sub Private Sub Form_Load() 39。像素 (10, 110)(110, 10) 定義左上角坐標(biāo)為 (20,120),右下角坐標(biāo)為 110,20) 39。繪坐標(biāo)橫線 (0, 0)(110, 0), vbBlack = 1 (0, 10)(100, 10), vbWhite (0, 20)(100, 20), vbWhite (0, 30)(100, 30), vbWhite (0, 40)(100, 40), vbWhite (0, 50)(100, 50), vbWhite (0, 60)(100, 60), vbWhite (0, 70)(100, 70), vbWhite (0, 80)(100, 80), vbWhite (0, 90)(100, 90), vbWhite (0, 100)(100, 100), vbWhite 39。指定位置顯示原點(diǎn) 0 = 5 = 0 O = 5 = 10 1O = 5 = 20 2O = 5 = 30 3O = 5 = 40 4O = 5 = 50 5O = 5 = 60 6O = 5 = 70 7O = 5 = 80 8O = 5 = 90 9O = 5 = 100 10O = 3 = 106 Y = 10 = 2 10 = 20 = 2 20 = 30 = 2 30 = 40 = 2 40 = 50 = 2 50 = 60 = 2 60 = 70 = 2 70 = 80 = 2 80 = 90 = 2 90 = 100 = 2 100 = 107 = 2 X = CInt( + / 2) = CInt( / 2) End Sub Private Sub TextX1_GotFocus(Index As Integer) TextX1(Index).Text = End Sub Private Sub TextX1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub TextX2_GotFocus() = End Sub Private Sub TextX2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub TextX3_GotFocus() = End Sub Private Sub TextX3_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub TextY1_GotFocus() = End Sub Private Sub TextY1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub TextY2_GotFocus() = End Sub Private Sub TextY2_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub Private Sub TextY3_GotFocus() = End Sub Private Sub TextY3_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then KeyAscii = 0 End Sub 附錄 3 下位機(jī)設(shè)計(jì)界面 附錄 4 下位機(jī)程序 include include define uchar unsigned char define uint unsigned int sbit LED1=P0^0。 //x軸步進(jìn)電機(jī)指示燈 sbit LED3=P0^2。 //隊(duì)列數(shù)組 uchar head = 0。 uchar t = 0。 //x軸當(dāng)前位置 uchar y_position = 0。//x正轉(zhuǎn) uchar step_table2[]={0x08,0x04,0x02,0x01}。//y正轉(zhuǎn) uchar step_table4[]={0x80,0x40,0x20,0x10}。 for(i=0。i++) for(j=500。j)。 //定時(shí)器 1，工作方式 八位定時(shí)器初值自動(dòng)重裝 TH1=0xfd。 // TR1=1。 //設(shè)置串口工作方式 1— 八位數(shù)據(jù)，十位數(shù)據(jù)收發(fā) SM1=1。 //允許串口收發(fā) EA=1。 //開串口中斷 } //xy： 1x軸電機(jī)， 2y軸電機(jī) //調(diào)整轉(zhuǎn)的角度 //n: 1正轉(zhuǎn)， 0反轉(zhuǎn) void StepX(char xy,char m,char n) { uchar i。m0。i4。 else P1=step_table2[i]。 } } } else if(xy == 2) { for(。m) { for(i=0。i++) { if(n) P1=step_table3[i]。 delay(1)。 init()。 while(1) { while(t 0) { if(Value[head] amp。 //開指示燈 temp = Value[head] amp。 if(temp = x_position) StepX(1,temp x_position,1)。 // //關(guān)指示燈 x_position = temp。更新當(dāng)前位置 } else { LED3 = 0。 if(temp = y_position) StepX(2,temp y_position,1)。 //反轉(zhuǎn) LED3 = 1。 //更新當(dāng)前位置 } if(++head == len) head = 0。 } } } void ser()interrupt 4 { RI=0。 if(++tail == len) tail = 0。 } } SBUF=39。 //把接到的數(shù)據(jù)發(fā)送出去 while(!TI)。 TI=0； 發(fā)送并接受測試 if(flag==1) //若收到數(shù)據(jù) { ES=0。i9。 while(!TI)。 } SBUF=a。 TI=0。 flag=0。我的畢業(yè)設(shè)計(jì)能夠順利按時(shí)完成離不開他們的支持與鼓勵(lì)。在此謹(jǐn)向我的老師致以崇高的敬意和誠摯的感謝！ 我還要感謝我的畢業(yè)設(shè)計(jì)論文評閱老師和答辯委員會(huì)的老師，謝謝你們對我的畢業(yè)設(shè)計(jì)的細(xì)心評閱