Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim tag10,tag11,tag12,tag13,tag14,tag15,tag16,tag17,tag18,tag19
Dim tag1,tag2,tag3,tag4,tag5,tag9,PreTemp,PreTemp2,PreTemp3,RT,PreTemp4,PreTemp5,PreTemp6
Dim tag20,tag21,tag22,tag23,tag24,tag25,tag26,tag27,tag28,tag29
Dim tag30,tag31,tag32,tag33,tag34,tag35,tag36,tag37,tag38,tag39
Set tag20 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-1功率偏移")'入口CV_編輯_DB_加熱區_CA1-1功率偏移
Set tag21 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-2功率偏移")
Set tag22 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-3功率偏移")
Set tag23 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-4功率偏移")
Set tag24 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-5功率偏移")
Set tag25 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-6功率偏移")
Set tag26 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-7功率偏移")
Set tag27 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-8功率偏移")
Set tag28 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-9功率偏移")
Set tag29 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_CA1-10功率偏移")
Set tag10 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_1")
Set tag11 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_2")
Set tag12 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_3")
Set tag13 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_4")
Set tag14 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_5")
Set tag15 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_6")
Set tag16 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_7")
Set tag17 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_8")
Set tag18 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_9")
Set tag19 = HMIRuntime.Tags("rcp_HOT_PowerSet_HU1_10")
Set tag9 = HMIRuntime.Tags("入口CV_編輯_DB_加熱區_STEP5上功率")
Set tag30 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_1") 'rcp_HOT_PowerSet_Up_1_1
Set tag31 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_2")
Set tag32 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_3")
Set tag33 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_4")
Set tag34 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_5")
Set tag35 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_6")
Set tag36 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_7")
Set tag37 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_8")
Set tag38 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_9")
Set tag39 = HMIRuntime.Tags("rcp_HOT_PowerSet_Up_1_10")
Set tag1 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_NDS_1")
Set tag2 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_AM_Z1")
Set tag4 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_SEC1")
Set tag5 = HMIRuntime.Tags("rcp_HOT_PowerOfSet_UP_DS_1")
tag30.Read
tag31.Read
tag32.Read
tag33.Read
tag34.Read
tag35.Read
tag36.Read
tag37.Read
tag38.Read
tag39.Read
tag1.Read '上變
tag2.Read '手,自
tag4.Read '基本值
tag5.Read '下變
tag9.Read
If tag2.Value = 1 Then
PreTemp=CDbl((1-tag1.Value) * 0.67)
PreTemp2=CDbl((1-tag1.Value)* 0.33)
PreTemp4=CDbl((1-tag5.Value) * 0.67)
PreTemp5=CDbl((1-tag5.Value)* 0.33)
tag2.Value=0
tag10.Value = CDbl(tag4.Value * tag1.Value) * CDbl(tag9.Value)
tag11.Value = CDbl(tag4.Value * (1-PreTemp) * CDbl(tag9.Value))
tag12.Value = CDbl(tag4.Value * (1-PreTemp2) * (CDbl(tag9.Value)))
tag13.Value = CDbl(tag4.Value * CDbl(tag9.Value))
tag14.Value = CDbl(tag4.Value * CDbl(tag9.Value))
tag15.Value = CDbl(tag4.Value * (1-PreTemp5) * (CDbl(tag9.Value)))
tag16.Value = CDbl(tag4.Value * (1-PreTemp4)) * (CDbl(tag9.Value))
tag17.Value = CDbl(tag4.Value * tag5.Value) * (CDbl(tag9.Value))
tag20.Value = (tag4.Value * tag1.Value) * 100
tag21.Value = (tag4.Value)* (1-PreTemp) * 100
tag22.Value = (tag4.Value)*(1-PreTemp2) * 100
tag23.Value = (tag4.Value * 100)
tag24.Value = (tag4.Value * 100)
tag25.Value = (tag4.Value)*(1-PreTemp5) * 100
tag26.Value = (tag4.Value * (1-PreTemp4) * 100)
tag27.Value = ((tag4.Value * tag5.Value) * 100)
' tag28.Value = (tag4.Value * (1-PreTemp4) * 100)
' tag29.Value = ((tag4.Value * tag5.Value) * 100)
Else
tag2.Value=1
tag10.Value = CInt(tag4.Value * tag30.Value * CDbl(tag9.Value))
tag11.Value = CInt(tag4.Value * tag31.Value * CDbl(tag9.Value))
tag12.Value = CInt(tag4.Value * tag32.Value * CDbl(tag9.Value))
tag13.Value = CInt(tag4.Value * tag33.Value * CDbl(tag9.Value))
tag14.Value = CInt(tag4.Value * tag34.Value * CDbl(tag9.Value))
tag15.Value = CInt(tag4.Value * tag35.Value * CDbl(tag9.Value))
tag16.Value = CInt(tag4.Value * tag36.Value * CDbl(tag9.Value))
tag17.Value = CInt(tag4.Value * tag37.Value * CDbl(tag9.Value))
' tag18.Value = CInt(tag4.Value * tag38.Value * CDbl(tag9.Value))
' tag19.Value = CInt(tag4.Value * tag39.Value * CDbl(tag9.Value))
'
tag20.Value = CDbl(tag4.Value * tag30.Value ) * 100
tag21.Value = CDbl(tag4.Value * tag31.Value ) * 100
tag22.Value = CDbl(tag4.Value * tag32.Value ) * 100
tag23.Value = CDbl(tag4.Value * tag33.Value ) * 100
tag24.Value = CDbl(tag4.Value * tag34.Value ) * 100
tag25.Value = CDbl(tag4.Value * tag35.Value ) * 100
tag26.Value = CDbl(tag4.Value * tag36.Value ) * 100
tag27.Value = CDbl(tag4.Value * tag37.Value ) * 100
' tag28.Value = CDbl(tag4.Value * tag38.Value ) * 100
' tag29.Value = CDbl(tag4.Value * tag39.Value ) * 100
End If
tag2.Write
tag10.Write
tag11.Write
tag12.Write
tag13.Write
tag14.Write
tag15.Write
tag16.Write
tag17.Write
' tag18.Write
' tag19.Write
tag20.Write
tag21.Write
tag22.Write
tag23.Write
tag24.Write
tag25.Write
tag26.Write
tag27.Write
' tag28.Write
' tag29.Write
End Sub
本文介绍了一种使用PHP实现网页分享功能的方法，包括获取URL信息、弹出分享面板及分享成功或失败提示等内容。
扫一扫
11万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
