发布于 2010-11-03 22:43:47
4楼
可以把类似指针的东西可以根据精度需要分为几段。每一段的属性位置X,位置Y分别连接它的轨迹函数(貌似要用到解析几何)。以一个小圆围绕大圆旋转为例说明。Cx2= Cx1 + R*cosA-r Cy2 = Cy1+ R*sinA + r 其中R为大圆的直径,r为小圆的直径,A为指针的角度,Cx1为大圆的X坐标,Cy1为大圆的Y坐标,Cx2为小圆的X坐标,Cy2为小圆的Y坐标。
举个例子。“v"为转动角度。
Function Left_Trigger(ByVal Item)
dim x
x = 165 * Cos(HMIRuntime.Tags("v").read) - 15
x = x + 230
HMIRuntime.trace "x = " & x &vbCrLf
Left_Trigger = x
End Function
Function Top_Trigger(ByVal Item)
Dim y
y = 165 * Sin(HMIRuntime.Tags("v").read) + 15
y = y + 525
HMIRuntime.trace "y = " & y &vbCrLf
Top_Trigger = y
End Function
好好学习,天天向上!