(完整版)vb圆弧插补程序_第1页
(完整版)vb圆弧插补程序_第2页
免费预览已结束，剩余2页可下载查看

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、Private Sub Command1_Click()Const pi = 3.14159265Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (50, 500)-(50, 5500)Picture1.Line (50, 5500)-(6500, 5500)Picture1.Line (80, 600)-(50, 500)Picture1.Line (20, 600)-(50, 500)Picture1.Line (6400, 5450)-(6500, 5500)Picture1.Line (6400, 5550

2、)-(6500, 5500)Picture1.ForeColor = vbRedPicture1.DrawWidth = 3If Int(Text1) = 0 ThenPicture1.Circle (50, 5500), Sqr(Int(Text1) *Int(Text1) + Int(Text2) * Int(Text2) * 400, ,Atn(Int(Text4) / Int(Text3), pi / 2ElsePicture1.Circle (50, 5500), Sqr(Int(Text1) *Int(Text1) + Int(Text2) * Int(Text2) * 400,

3、,Atn(Int(Text4) / Int(Text3), Atn(Int(Text2) /Int(Text1)End IfEnd SubPrivate Sub Command2_Click()Dim k, m, j, l, n, F(20) As Integerm = 0l = Text1.Textk = Text2.TextF(m) = 0Picture1.ForeColor = vbGreenPicture1.DrawWidth = 3j = Abs(Int(Text1) - Int(Text3) + Abs(Int(Text2) -Int(Text4)Form1.CurrentX =

4、200Print 初始：进给方向 & F(m)=0 & X0=& Int(Textl) & Y0= & lnt(T ext2) & E= & jFor n = 1 To jIf F(m) = 0 And j 0 Thenm = m + 1k = k - 1F(m) = F(m - 1) - 2 * Abs(k + 1) + 1Picture1.Line (50 + 400 * l, 5500 - k * 400)-(50+ 400 * l, 5500 - (k + 1) * 400)Form1.CurrentX = 200Form1.Cu

5、rrentY = 200 + m * 300Print 第 & m & 步 & -yF( & m &)= & F(m) & & x= & l & & y=;k & E= & j - nElsel = l + 1m = m + 1Picture1.Line (50 + 400 * l, 5500 - k * 400)-(50+ 400 * (l - 1), 5500 - k * 400)F(m) = F(m - 1) + 2 * Abs(l - 1) + 1Form1.CurrentX = 2

6、00Form1.CurrentY = 200 + m * 300Print 第 & m & 步 & +x F( & m &)= & F(m) & & x=; l & & y=;k & E= & j - nEnd IfNext nEnd SubPrivate Sub Command3_Click()Text1.Text = Text3.Text = End SubPrivate Sub Command4_Click()Form1.CurrentY = 200EndEnd SubPrivate Sub

7、Command1_Click()Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (7500, 8500)-(7500, 500)Picture1.Line (7500, 500)-(500, 500)Picture1.Line (7500, 8500)-(7400, 8400)Picture1.Line (7500, 8500)-(7600, 8400)Picture1.Line (500, 500)-(600, 600)Picture1.Line (500, 500)-(600, 400)Picture1.For

8、eColor = vbRedPicture1.DrawWidth = 5Picture1.Line (7500, 500)-(7500 + 400 *Int(Text3), 500 - 400 * Int(Text4)End SubPrivate Sub Command2_Click()Form1.ClsDim k, m, j, l, n, F(20) As Integerm = 0l = 0k = 0F(m) = 0Picture1.ForeColor = vbGreenPicture1.DrawWidth = 3j = Abs(Int(Text3) + Abs(Int(Text4)Form

9、1.CurrentX = 200Form1.CurrentY = 200Print 初始：进给方向 & F(m)=0 & Xe=& lnt(Text3) & Ye= & lnt(Text4) & E= & jFor n = 1 To jlf F(m) = 0 And j 0 Thenm = m + 1l = l - 1Picture1.Line (7500 + 400 * (l + 1), 500 - k *400)-(7500 + 400 * (l), 500 - k * 400)Form1.CurrentX = 200Form1.Cu

10、rrentY = 200 + m * 300Print 第 & m & 步 & x F( & m & )= & F(m) & & x= & l & & y=; k & E= & j - nElsek = k - 1m = m + 1Picture1.Line (7500 + 400 * l, 500 - (k + 1) *400)-(7500 + 400 * l, 500 - k * 400)F(m) = F(m - 1) + Abs(lnt(Text3)Form1.CurrentX = 2

11、00Form1.CurrentY = 200 + m * 300Print 第 & m & 步 & y F( & m & ) & F(m)& & x=; l & & y=; k & E= & j - nEnd lfNext nEnd SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = Picture1.ClsForm1.ClsEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub

12、Form_Load()End SubF(m) = F(m - 1) - Abs(lnt(Text4)If F = m And G = m ThenPrivate Sub Command1_Click()Const pi = 3.14159265Picture1.ForeColor = vbBlack Picture1.DrawWidth= 2Picture1.Line (50, 500)-(50, 5500)Picture1.Line (50, 5500)-(6500, 5500) Picture1.Line(80, 600)-(50, 500)Picture1.Line (20, 600)-

13、(50, 500)Picture1.Line (6400, 5450)-(6500, 5500)Picture1.Line (6400, 5550)-(6500, 5500)Picture1.ForeColor = vbRedPicture1.DrawWidth = 3Picture1.Line (50, 5500)-(50 + 400 * Int(Text3),5500 - 400 * Int(Text4)End SubPrivate Sub Command2_Click()Dim k, m, j, l, n, F, G As Integerl = 0 k = 0 F = 0 G = 0Pi

14、cture1.ForeColor = vbGreen Picture1.DrawWidth= 3 n = Int(Text5)j = 2 A nm = 2AnForm1.CurrentX = 200Form1.CurrentY = 200Print 累加次数 & F= F + int (text3) & + & G=G +int(text4) & +;E=& jPrint n & 0 & 0 &0 & 0 & jFor n = 1 To mF = F + Int(Text3)l = l + 1 k = k + 1P

15、icture1.Line (50 + 400 * (l - 1), 5500 - (k - 1)400)-(50 + 400 * (l), 5500 - k * 400)F = F - mG = G - mPrint ; n & & F & &1 & & G & & 1 & &j - 1ElseIf F = m And G m Thenl = l + 1F = F - mPrint ; n & & F & &1 & & G & & 0 & &a

16、mp;j - 1Picture1.Line (50 + 400 * (l - 1), 5500 - k *400)-(50 + 400 * (l), 5500 - k * 400)ElseIf F = m Thenk = k + 1 G = G - mPicture1.Line (50 + 400 * l, 5500 - (k - 1) *400)-(50 + 400 * (l), 5500 - k * 400)Print ; n & & F & &0 & & G & & 1 & &j - 1ElseIf F m And G m

人人文库> 全部分类> 行业资料 > 信息产业

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论