|

楼主 |
发表于 2022-9-30 06:32:08
|
显示全部楼层
软件采用VB6.0,截取其中一点运算代码:
For i = CDbl(txtMinX) To CDbl(txtMaxX) Step CDbl(Me.txtBC)
'通过脚本计算器来计算出结果
Text1 = Replace(Text1, "x", "X")
txtGS = Replace((Text1), "X", i)
x2 = i
On Error Resume Next
y2 = scr.Eval(txtGS)
On Error GoTo 0
If i > CDbl(txtMinX) Then
If y2 <= CDbl(txtMaxY) And y2 >= CDbl(txtMinY) Then
Picture1.Line (x1, y1)-(x2, y2), QBColor(Combo1.ListIndex)
End If
End If
x1 = x2
y1 = y2
Next
|
|