通过逐点比较与数字积分两种算法对圆和直线图像进行插补运算............................. VB源码PrivateSubCommand1_Click()
xe=Val(Text1.Text)
ye=Val(Text2.Text)
Picture1.Scale(-20,20)-(20,-20)
Picture1.Cls
Picture1.Line(-20,0)-(20,0),vbBlue
Picture1.Line(19,1)-(20,0),vbbiue
Picture1.Line-(19,-1),vbBlue
Picture1.Print"X"
Picture1.Line(0,-20)-(0,20),vbBlue
Picture1.Line(1,19)-(0,20),vbBlue
Picture1.Line-(-1,19),vbBlue
Picture1.Print"Y"
Picture1.Line(0,0)-(xe,ye),vbBlue
Picture1.Print"(";xe;",";ye;")"
IfText1.Text=noneOrText2.Text=noneThenMsgBox"请输入加工终点坐标值。"
Text3.Text=0
Text4.Text=0
Text5.Text=0
EndSub
PrivateSubCommand2_Click()
DimsumAsInteger
xe=Val(Text1.Text)
ye=Val(Text2.Text)
Xm=Val(Text3.Text)
Ym=Val(Text4.Text)
m=Val(Text5.Text)
sum=xe*Ym-Xm*ye
'第一象限开始
Ifxe>0Andye>0Andsum>=0ThenPicture1.Lin