Dim txdata1, txdata2 As String
Dim i, j, jn1, jn2, m1 As Integer
Dim X1(1 To 3, 0 To 300) As Single
Dim sa, sb As MX
Picture1.ScaleMode = 0
Picture1.Scale (-1000, 4000)-(9000, -1000) '自定義坐標系
Picture1.Line (-1000, 0)-(9000, 0), vbBlack '畫海底平面
Picture1.Line (-1000, 3000)-(9000, 3000), vbBlack '畫海平面
'********************************************************************************************初始形態讀出來
txdata1 = "SHAPE.TXT"
jn = 2
sa = Readdata(txdata1, jn1)
X1 = X '形態數據存入X1中,數據組數存入m1中
m1 = m
'********************************************************************************************初始懸鏈線長度
txdata2 = "INITIAL.TXT"
jn2 = 1
sb = Readdata(txdata2, jn2)
cl = X(1, 0)
tl = X(1, 0)
'********************************************************************************************公***變量賦值
sx = X1(1, m - 1)
sy = Y1(2, m - 1)
sl = 6000 '初始管道長度賦值
'********************************************************************************************懸鏈線
For j = 1 To i - 1
Picture1.Line (X1(1, j - 1) + 6000, X1(2, j - 1))-(X1(1, j) + 6000, X1(2, j)), vbGreen
Next j
'********************************************************************************************海床上的管道
Picture1.Line (0, 0)-(sl, 50), vbBlue, BF
Picture1.DrawWidth = 3
'********************************************************************************************畫船
Picture1.Line (X1(1, i - 1) + sl, 3000)-(X1(1, i - 1) + 6500, 3200), , B
End Sub
問題補充:模塊中
Option Explicit
Type MX '定義結構體
m As Integer
X(1 To 3, 0 To 300) As Single
End Type
Public Function Readdata(txdata As String, jn As Integer) As MX
Dim strPath, sFilePath, str As String
Dim i, j, n As Integer 'jn為壹行中的數據個數
Dim num(3) As Single
Dim s As MX
i = 0
strPath = App.Path
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
sFilePath = strPath & txdata