VBS脚本调用WIA.Vector对象绘制位图
VBS脚本可以通过调用WIA.Vector对象画图,使用该对象的Add方法可以把vb中的颜色逐个坐标画到位图中。 下面这段代码,是打印方程X(n+1)=cot(X(n)),x(1)=1迭代20次后的图像(坐标有调整,每个小格并不代表单位1) WScript.Echo "计算X(n+1)=cot(X(n)),x(1)=1 迭代20次" '沙盘 Dim V(300,300) '初始值 Dim F F = 1 '迭代前的初始点 Dim TX, TY For TX = -3 To 3 For TY = -3 To 3 V(50 + TX, 150 + TY) = 1 Next Next WScript.Echo "初始值 " & F '迭代公式20次 Dim Counter For Counter = 1 To 20 F = Cos(F) / Sin(F) WScript.Echo "第 " & Counter & " 次迭代,值为 " & F '沙盘描点 For TX = -3 To 3 For TY = -3 To 3 V(50 + Counter * 10 + TX, 150 + Eval(F) * 3 + TY) = 1 Next Next Next WScript.Echo "计算完毕" '创建WIA对象 Set Ve = CreateObject("WIA.Vector")