电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

机床数控课设

机床数控课设_第1页
1/10
机床数控课设_第2页
2/10
机床数控课设_第3页
3/10
一、课设任务用 DDA 法插补第二象限直线。用逐点比较法插补第三到第二象限顺圆弧。二、课设要求1、具有数据输入界面,有起点、终点、半径与插补步长等;2、具有单步插补过程的动态显示功能;3、插补的步长可调;三、编程语言VisualBasic四、功能说明本程序用逐点比较法插补第二象限的直线,与第三二象限的顺圆弧,可进行连续插补或单步插补。1、直线插补:用逐点比较法实现第二象限任意直线的插补,需要输入起点、终点坐标与步长。2、圆弧插补:用逐点比较法实现第三二象限的顺圆弧段的插补,需要输入起点、终点坐标、半径和步长。3、插补步长可调。4、可以单步执行所有插补动作,单击一次按钮执行一次插补。五、程序容DDA 法插补第二象限直线1、源程序: Dim A, B, C, D, E, F, G, I, J, E, F As Single**************连续直线插补**************Private Sub Command1_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 ^ G) <= FG = G + 1LoopFor H = 0 To (2 ^ G) Step 1I = I + (-C + A)x1 = x2If (I / (2 ^ G)) >= E Then I = I - E * (2 ^ G): x2 = x2 - EJ = J + (D - B)y1 = y2If (J / (2 ^ G)) >= E Then J = J - E * (2 ^ G): y2 = y2 - EPicture1.Line (x2 * Text6.Text, y2 * Text6.Text)-(x1 * Text6.Text, y1 * Text6.Text), vbGreenNext HPicture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedEnd Sub****************单步直线插补*************Private Sub Command2_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 ^ G) <= FG = G + 1Picture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedLoopI = I + (-C + A)J = J + (D - B)If (I / (2 ^ G)) >= E And (J / (2 ^ G)) >= E ThenPicture1.Line ((x2 - E) * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenI = I - E * (2 ^ G)J = J - E * (2 ^ G)x2 = x2 - Ey2 = y2 - EElseIf (I / (2 ^ G)) >= E And (J / (2...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

机床数控课设

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部