【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了“数字积分法三、四象限顺圆插补VB源程序 - 大学课件“提供大家参考,希望对大家有所帮助!
程序清单Private Sub 建立坐标系_ClickPicture1.ForeColor vbBlackPicture1.DrawWidth 2Picture1.Line 500 1000-8500 1000 画直线坐标轴Picture1.Line 4500 1000-4500 5000Picture1.CurrentX 23 0 当前位置Picture1.CurrentY 900Picture1.Print -X 坐标轴标注Picture1.CurrentX 4300Picture1.CurrentY 800Picture1.Print 00Picture1.CurrentX 8650Picture1.CurrentY 900Picture1.Print XPicture1.CurrentX 4400Picture1.CurrentY 5100Picture1.Print -YPicture1.Line 500 1000-600 950 箭头Picture1.Line 500 1000-600 1050Picture1.Line 8500 1000-8400 950Picture1.Line 8500 1000-8400 1050Picture1.Line 4500 5000-4450 4900Picture1.Line 4500 5000-4550 4900End SubPrivate Sub 画圆弧_ClickDim a b c d n m As IntegerDim r As Singlea ValText1.Textb ValText2.Textc ValText3.Textd ValText4.Textnaabbmccddr SqrnPicture1.ForeColor vbRedPicture1.DrawWidth 4If Option1.Value True ThenConst PI 3.1415926535Picture1.Circle 4500 1000 300 r PI -3 -PI / 2End IfIf Option2.Value True ThenPicture1.Circle 4500 1000 300 r -3 -PI / 2 0 PIEnd IfEnd SubPrivate Sub 清除_Click Text1.Text Text2.Text Text3.Text Text4.Text Text5.Text Option1.Value False Option2.Value False Picture1.Cls Form1.ClsEnd SubPrivate Sub 插补计算_ClickIf Not Option1.Value True Or Option2.Value True Then ans MsgBox出错了,请选择象限 48 提示信息End IfDim a b c d ni mi ai bi ci k f g m n l i xs yx xe ye jvx jvy xi yi As IntegerDim r As Singlea ValText1.Textb ValText2.Textc ValText3.Textd ValText4.Textni a a b bmi c c d dr SqrniForm1.Clsci 2f1g1k 0 正 X 进给标志 1 正向 -1 负向m 0 负 Y 进给标志 1 正向 -1 负向n 0 累加次数i C IntText5 寄存器位数赋给 il2ixs CIntText1ys CIntText2xe CIntText3ye CIntText4jvx AbsCIntText2jvy AbsCIntText1jrx 0jry 0xi AbsCIntText3 - CIntText1 X 方向总步yi AbsCIntText4 - CIntText2 Y 方向总步长ai xsbi ysPicture1.ForeColor vbGreenPicture1.DrawWidth 3Form1.CurrentX 200Form1.CurrentY 200Print X 积分器 Y 积分器 Form1.CurrentX 100Form1.CurrentY 400Print 累加次数 n jvx JrxJrxJvx △X J∑x Jvy JryJryJvy △Y J∑y Form1.CurrentX 100Form1.CurrentY 600Print 开始 jvx jrx k xi v j y r jy m yiwz: k 0 X 方向进给标志 1 X 正向进给 -1 负向进给 m 0 Y 方向进给标志 1 Y 正向进给 -1 负向进给If xi 0Then X 方向判断 jrx jrx jvx r If j x lThen 判断寄存器是否溢出 jrx jrx - l 溢出修正 r If j x lThen 寄存器位数判断 GoTo ww5 End If k -1 负 X 方向进给 xi xi - 1 X 方向总步长减 1 End IfEnd IfIf yi 0Then Y 方向判断 jry jry jvy r If j y lThen 判断寄存器是否溢出 jry jry - l 溢出修正 If jry lThen 寄存器位数判断 GoTo ww5 End If If O ption1.Value True Then 第三象限 m 1 正 Y 方向进给 ElseIf Option2.Value True Then 第四象限 m -1 负 Y 方向进给 End If yi yi - 1 Y 方向总步长减 1 End IfEnd Ifn n 1 累加次数加 1Form1.CurrentX 100Form1.CurrentY 600 n 200If xi 0 Or yi 0 Then If xi 0 And yi 0 And f 0 Then Print n jvx 停止 v j y r j y m yi GoTo wz2 End If If xi 0 And yi 0 And f 0 Then Print n jvx v j y r j y m yi GoTo wz2 End If If xi 0 And yi 0 And g 0 Then Print n jvx jrx k xi jvy 停止 GoTo wz2 End If If xi 0 And yi 0 And g 0 Then Print n jvx jrx k xi jyv GoTo wz2 End If If xi 0 And yi 0 And f 1 And g 0 Then Print n jvx jry k xi jyv GoTo wz2 End If If xi 0 And yi 0 And f 0 And g 1 Then Print n jvx v j y r j y m yi GoTo wz2 End If If xi 0 And yi 0 And f 0 And g 0 Then Print n jvx 停止 j y v 停止 GoTo wz2 End If If xi 0 And yi 0 And f 0 And g 0 Then Print n jvx 停止 k xi v j y GoTo wz2 End If If xi 0 And yi 0 And f 0 And g 0 Then Print n