直線插補(bǔ)程序_第1頁
直線插補(bǔ)程序_第2頁
直線插補(bǔ)程序_第3頁
直線插補(bǔ)程序_第4頁
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、Private Sub Comma nd1_Click()Dim i As Si nglex0 = 4OOOyO = 7200Picture1.L ine (x0, y0)-(x0, 100)Picture1.Li ne (x0, 100)-(x0 + 100, 300)Picture1.Li ne (x0, 100)-(x0 - 100, 300)Picture1.Li ne (x0 + 300,y0/ 2)-(x0 +300,y0 / 2 -80)Picture1.Li ne (x0 + 600,y0/ 2)-(x0 +600,y0 / 2 -80)Picture1.Li ne (x0 +

2、 900,y0/ 2)-(x0 +900,y0 / 2 -80)Picture1.Li ne (x0 + 1200, y0 / 2)-(x0+1200,y0 / 2-80)Picture1.Li ne (x0 + 1500, y0 / 2)-(x0+1500,y0 / 2-80)Picture1.Li ne (x0 + 1800, y0 / 2)-(x0+1800,y0 / 2-80)Picture1.Li ne (x0 + 2100, y0 / 2)-(x0+2100,y0 / 2-80)Picture1.Li ne (x0 + 2400, y0 / 2)-(x0+2400,y0 / 2-8

3、0)Picture1.Li ne (x0 + 2700, y0 / 2)-(x0+2700,y0 / 2-80)Picture1.Li ne (x0 + 3000, y0 / 2)-(x0+3000,y0 / 2-80)Picture1.Li ne (x0 - 300,y0 / 2)-(x0- 300,y0 /2-80)Picture1.Li ne (x0 - 600,y0 / 2)-(x0- 600,y0 /2-80)Picture1.Li ne (x0 - 900,y0 / 2)-(x0- 900,y0 /2-80)Picture1.Li ne (x0 - 1200, y0/ 2)-(x0

4、 -1200, y0/ 2- 80)Picture1.L ine (x0 - 1500, y0/ 2)-(x0 -1500, y0/ 2- 80)Picture1.L ine (x0 - 1800, y0/ 2)-(x0 -1800, y0/ 2- 80)Picture1.Li ne (x0 - 2100, y0/ 2)-(x0 -2100, y0/ 2- 80)Picture1.Li ne (x0 - 2400, y0/ 2)-(x0 -2400, y0/ 2- 80)Picture1.Li ne (x0 - 2700, y0/ 2)-(x0 -2700, y0/ 2- 80)Picture

5、1.Li ne (x0 - 3000, y0/ 2)-(x0 -3000, y0/ 2- 80)Picture1.Li ne (x0, y0 / 2 + 300)-(x0 +80,y0 /2 +300)Picture1.Li ne (x0, y0 / 2 + 600)-(x0 +80,y0 /2 +600)Picture1.Li ne (x0, y0 / 2 + 900)-(x0 +80,y0 /2 +900)Picture1.Li ne (x0, y0 / 2 + 1200)-(x0+ 80,y0 / 2+1200)Picture1.Li ne (x0, y0 / 2 + 1500)-(x0

6、+ 80,y0 / 2+1500)Picture1.Li ne (x0, y0 / 2 + 1800)-(x0+ 80,y0 / 2+1800)Picture1.Li ne (x0, y0 / 2 + 2100)-(x0+ 80,y0 / 2+2100)Picture1.Li ne (x0, y0 / 2 + 2400)-(x0+ 80,y0 / 2+2400)Picture1.Li ne (x0, y0 / 2 + 2700)-(x0+ 80,y0 / 2+2700)Picture1.Li ne (x0, y0 / 2 + 3000)-(x0+ 80,y0 / 2+3000)Picturel

7、.Li ne (xO, y0 / 2- 300)-(x0+80, y0 / 2- 300)Picturel.Li ne (xO, yO / 2- 600)-(x0+80, yO / 2- 600)Picturel.Li ne (x0, y0 / 2- 900)-(x0+80, y0 / 2- 900)Picturel.Li ne (x0, y0 / 2- 1200)-(x0 +80,y0 /2 -1200)Picture1.Li ne (x0, y0 / 2- 1500)-(x0 +80,y0 /2 -1500)Picture1.Li ne (x0, y0 / 2- 1800)-(x0 +80

8、,y0 /2 -1800)Picture1.Li ne (x0, y0 / 2- 2100)-(x0 +80,y0 /2 -2100)Picture1.Li ne (x0, y0 / 2- 2400)-(x0 +80,y0 /2 -2400)Picture1.Li ne (x0, y0 / 2- 2700)-(x0 +80,y0 /2 -2700)Picture1.Li ne (x0, y0 / 2- 3000)-(x0 +80,y0 /2 -3000)Picture1.L ine (x0 - 3200, y0 / 2)-(x0 + 3400, y0 / 2) Picture1.L ine (

9、x0 + 3400, y0 / 2)-(x0 + 3200, y0 / 2 + 100) Picture1.Li ne (x0 + 3400, y0 / 2)-(x0 + 3200, y0 / 2 - 100)Picture1.Curre ntX = x0 - 100: Picture1.Curre ntY = y0 / 2: Picture1.Pri nt "0"Picture1.Curre ntX = x0 + 200: Picture1.Curre ntY = 100: Picture1.Pri nt "y"Picture1.Curre ntX =

10、7400: Picture1.Curre ntY = y0 / 2: Picture1.Pri nt "x"Picture1.Curre ntX =x0+ 280: Picture1.Curre ntY =y0 / 2:Picture1.Prin t "1"Picture1.Curre ntX =x0+ 580: Picture1.Curre ntY =y0 / 2:Picture1.Prin t "2"Picture1.Curre ntX =x0+ 880: Picture1.Curre ntY =y0 / 2:Picture1.P

11、rin t "3"Picture1.Curre ntX =x0+ 1180: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "4"Picture1.Curre ntX =x0+ 1480: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "5"Picture1.Curre ntX =x0+ 1780: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "6"Picture1.Curre ntX =x0+ 2080:

12、 Picture1.Curre ntY=y0 / 2Picture1.Pri nt "7"Picture1.Curre ntX =x0+ 2380: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "8"Picture1.Curre ntX =x0+ 2680: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "9"Picture1.Curre ntX =x0+ 2980: Picture1.Curre ntY=y0 / 2Picture1.Pri nt "

13、10"Picture1.Curre ntX =x0-400: Picture1.Curre ntY =y0 / 2: Picture1.Pri nt "-1"Picture1.Curre ntX =x0-700: Picture1.Curre ntY =y0 / 2: Picture1.Pri nt "-2"Picture1.Curre ntX =x0-1000: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-3"Picture1.Curre ntX =x0-1300: Pictur

14、e1.Curre ntY=y0 / 2:Picture1.Pri nt "-4"Picture1.Curre ntX =x0-1600: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-5"Picture1.Curre ntX =x0-1900: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-6"Picture1.Curre ntX =x0-2200: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-7&

15、quot;Picture1.Curre ntX =x0-2500: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-8"Picture1.Curre ntX =x0-2800: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-9"Picture1.Curre ntX =x0-3100: Picture1.Curre ntY=y0 / 2:Picture1.Pri nt "-10"Picture1.Curre ntX =x0100:Picture1.Curr

16、e ntY =y0 / 2380:Picture1.Pri nt "1"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 2680:Picture1.Pri nt "2"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 2980:Picture1.Pri nt "3"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 21280Picture1.Pri nt "4"

17、;Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 21580Picture1.Pri nt "5"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 21880Picture1.Pri nt "6"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 22180Picture1.Pri nt "7"Picture1.Curre ntX =x0100:Picture1.Curre ntY

18、 =y0 / 22480Picture1.Pri nt "8"Picture1.Curre ntX =x0100:Picture1.Curre ntY =y0 / 22780Picture1.Pri nt "9"Picture1.Curre ntX =x0200:Picture1.Curre ntY =y0 / 23080Picture1.Pri nt "10"Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200P

19、icturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 200Picturel.Curre ntX = x0 - 300Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel

20、.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 + Picturel.Curre ntY = y0 / 2 +200: Picturel.Pri nt "-1"500: Picturel.Pri nt "-2"800: Picturel.Pri nt "-3

21、"1100: Picturel.Pri nt "-4"1400: Picture1.Pri nt "-5"1700: Picture1.Pri nt "-6"2000: Picture1.Pri nt "-7"2300: Picture1.Pri nt "-8"2600: Picture1.Pri nt "-9"2900: Picture1.Pri nt "-10"Dim a1 As Si ngleDim a100 As Si ngleDim b1 As Si ngleDim b100 As Sin gle a1 = Val(Text1.Text) * 300b1 = Val(Text2.Text) * 300a100 = Val(Text3.Text) * 300b100 = Val(Text4.Text) * 300Picture1.Li

溫馨提示

  • 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論