siemens S7-SCL 或 PASCAL 问题！！

[Ivanlam]

有那位高手能帮个忙？帮忙把一段VB小函数转换成S7-SCL 或PASCAL也行。着急拜托。。。解决立即送分。！！
Private Function OutputY(ByVal x As Integer, n As Integer, PTN() As String) As Integer
Dim i As Integer

If x <= PTN(1, 1) Then
OutputY = PTN(1, 2)
ElseIf x >= PTN(n, 1) Then
OutputY = PTN(n, 2)
Else
For i = 1 To n
If x > PTN(i, 1) And x <= PTN(i + 1, 1) Then
OutputY = (PTN(i + 1, 2) - PTN(i, 2)) / (PTN(i + 1, 1) - PTN(i, 1))
OutputY = OutputY * (x - PTN(i, 1))
OutputY = OutputY + PTN(i, 2)
End If
Next
End If

End Function

功能：输入X坐标，函数输出Y坐标。
说明：在曲线图中截取N个节点的曲线，X是传入的X坐标，数组PTN()存放曲线节点，PTN(N,1)是X坐标，PTN(N,2)是Y坐标。
X<=X1--->Y=Y1
X>=Xn--->Y=Yn
先谢过各位大虾！

[klbt]

VB没有用过，帮你顶！

[我和我的蓝天白云]

关注，顶

[cygandti]

好象是图形的啊！是不是啊？

[Ivanlam]

谢了！问题自己基本解决，谢谢关注！