导线计算(自动装载数据vb程序)

1、目的：进行导线计算界面装载数据源码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