導線計算(自動裝載數(shù)據(jù)vb程序)

1、目的：進行導線計算界面裝載數(shù)據(jù)源碼const pi as double = 3.14159265private sub fwjjs(xa as double, xb as double, ya as double, yb as double, t)dx = xb - xady = yb - yaif dx = 0 then t = sgn(dy) * 90 else t = atn(dy / dx) * 180 / piif dx 0 then t = t + 180if t 360 then t(i) = t(i) - 360if t(i) x(i) then xmin = x(i)if x

2、max y(i) then ymin = y(i)if ymax y(i) then ymax = y(i)next ipic1.scale (ymin - 50, -xmax - 50)-(ymax + 50, -(xmin - 50)以下四行畫y軸pic1.line (ymin - 20, -(xmin - 30)-(ymax + 30, -(xmin - 30), rgb(0, 0, 255)pic1.line (ymax + 15, -(xmin - 10)-(ymax + 30, -(xmin - 30), rgb(0, 0, 255)pic1.line (ymax + 15, -(

3、xmin - 50)-(ymax + 30, -(xmin - 30), rgb(0, 0, 255)pic1.print y以下四行畫x軸pic1.line (ymin - 20, -(xmin - 30)-(ymin - 20, -xmax - 30), rgb(0, 0, 255)pic1.line (ymin - 40, -xmax + 10)-(ymin - 20, -xmax - 30), rgb(0, 0, 255)pic1.line (ymin, -xmax + 10)-(ymin - 20, -xmax - 30), rgb(0, 0, 255)pic1.pset (ymin

4、 + 15, -xmax - 35), rgb(255, 250, 250)pic1.print xfor i = 0 to ubound(x) - 1pic1.line (y(i), -x(i)-(y(i + 1), -x(i + 1), rgb(250, 0, 0)next i以下畫點號for i = 0 to ubound(x)pic1.pset (y(i), -x(i), rgb(250, 0, 0)if i = 0 then pic1.print aif i = 1 then pic1.print bif i = ubound(x) - 1 then pic1.print cif i = ubound(x) then pic1.print d pic1.print i - 1next irem if x(ubound(x) - 1) = x(1) and y(ubound(x) - 1) = y(1) then pic1.print brem