機床數(shù)控課設(shè)-插補原理及流程圖設(shè)計(存儲版)
【正文】 Abs(xe) End If Next m Else: count = 0 End If ElseIf xe 0 And ye 0 Then 39。*****************************臨時點坐標 j = qy i1 = qx j1 = qy jrx = 0 jry = 0 jvx = Abs(j) jvy = Abs(i) m = 2 ^ n yichu = 0 If zx = 0 And zy 0 Then If u 5 Then If zx qx And zy qy Then zxx = zx zyy = zy ElseIf zx = qx And zy = qy Then zxx = Abs(r) zyy = 0 ElseIf zx qx And zy qy Then zxx = Abs(r) zyy = 0 End If ElseIf u = 5 Then zxx = zx zyy = zy End If Else zxx = Abs(r) zyy = 0 End If While (Abs(i zxx) = L Or Abs(j zyy) = L) And count1 0 jrx = jrx + jvx jry = jry + jvy If jrx = m And jry = m And Abs(i zxx) = L And Abs(j zyy) = L Then jrx = jrx m i1 = i + L jry = jry m j1 = j L yichu = 1 ElseIf jrx = m And Abs(i zxx) = L Then jrx = jrx m i1 = i + L yichu = 1 ElseIf jry = m And Abs(j zyy) = L Then jry = jry m j1 = j L yichu = 1 End If If yichu = 1 Then (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) yichu = 0 count1 = count1 1 End If i = i1 j = j1 jvx = Abs(j) jvy = Abs(i) Wend If (Abs(i zx) = L Or Abs(j zy) = L) And count1 0 Then If j 0 Then j = j L (i + a, j + b)(i1 + a, j1 + b), RGB(255, 0, 0) count1 = count1 1 End If If (Abs(i zx) = L Or Abs(j zy) = L) And count1 0 Then u = u + 1 Call danbuddashun4(i, j, zx, zy, r, L, a, b, n, u, count1, count2) ElseIf Abs(i zx) L And Abs(j zy) L Then count2 = 0 End If ElseIf Abs(i zx) L And Abs(j zy) L Then count2 = 0 End If End Sub 八 .參考文獻 陳蔚芳，王宏濤等 . .北京：科學(xué)出版社 楊有君 . .北京：機械工業(yè)出版社 羅學(xué)科，謝富春 . .北京：化學(xué)工業(yè)出版社 畢承恩，丁乃建 . .北京：機械工業(yè)出版社 劉銳寧，宋坤等 . Basic 從入門到精通 .北京：清華大學(xué)出版社 王建平，李團結(jié)等 . BASIC 編程 .北京：科學(xué)出版社 。*************x負向 i = 0 j = 0 i1 = 0 j1 = 0 If count = n Then For a = 1 To count i1 = i L (i + x0, j + y0)(i1 + x0, j1 + y0), RGB(255, 0, 0) i = i1 Next a Else: count = 0 End If End If flag1 = 1 End If If flag1 = 0 Then 39。****************畫直線 (x0, y0)(x1, y1), RGB(0, 0, 255) End If End Sub Private Sub Command2_Click() 39。*************Ｙ負向 i = 0 j = 0 i1 = 0 j1 = 0 For a = 1 To n j1 = j L (x0, j + y0)(x0, j1 + y0), RGB(255, 0,
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1