Ifix4.5专家向导中找不到的专家

最新推荐文章于 2025-05-16 16:34:31 发布

mostxx

最新推荐文章于 2025-05-16 16:34:31 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： iFix 文章标签： comments integer

本文链接：https://blog.youkuaiyun.com/mostxx/article/details/3646637

iFix 专栏收录该内容

9 篇文章

订阅专栏

本文档展示了Ifix4.5中用于数据输入的三个子程序：cmdTempSPSlider_Click、cmdTempSPRamp_Click和cmdTempSPDataEntry_Click。每个子程序都涉及获取和设置数值限制，用于滑块、斜坡和数值输入的用户界面。同时，程序中包含了错误处理和自动化添加的注释，警告用户修改可能导致脚本作者专家功能的不良影响。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub cmdTempSPSlider_Click()
   'The Comments below have been added automatically.
   'Any changes could cause adverse effects to the functionality
   'of the Script Authoring Experts.
   'WizardName=DataEntry
On Error GoTo ErrorHandler
If blnDataEntryFrmFlag <> True Then
     Dim dblLow, dblHigh As Double
     Dim blnFetch, blnContinous As Boolean
     Dim intReturn As Integer
     GetFormSlider
     FetchLimits "Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV", dblHigh, dblLow, intReturn
     If (dblHigh > 32767) Then
         MsgBox " 数据输入的最大值为32767,请重新输入。"
         Exit Sub
     End If
     blnFetch = True
     blnContinous = False
     Slider.SetWriteContinous blnContinous
     Slider.Slider1.min = CInt(dblLow)
     Slider.Slider1.max = CInt(dblHigh)
     Slider.GetTheVars a:=1, b:="Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV"
     Slider.lblLow.Caption = dblLow
     Slider.lblHigh.Caption = dblHigh
     Slider.Show
End If
Exit Sub
ErrorHandler:
HandleError
End Sub

/////////////////////////////////////////////////////////////////

Private Sub cmdTempSPRamp_Click()
   'The Comments below have been added automatically.
   'Any changes could cause adverse effects to the functionality
   'of the Script Authoring Experts.
   'WizardName=DataEntry
On Error GoTo ErrorHandler
If blnDataEntryFrmFlag = True Then
      Exit Sub
End If
Dim strFast As String
Dim strSlow As String
Dim blnFetch As Boolean
Dim vntLow As Variant
Dim vntHigh As Variant
Dim intReturn As Integer
GetFormRamp
FetchLimits "Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV", vntHigh, vntLow, intReturn
Ramp.GetTheLimits High:=vntHigh, Low:=vntLow
blnFetch = True
Ramp.GetTheVars a:=1, b:="Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV"
Ramp.FastSlow F:=10, s:=5
strFast = 10
strSlow = 5
Ramp.lblSlow = strSlow & "%"
Ramp.lblFast = strFast & "%"
Ramp.Show
Exit Sub

ErrorHandler:
HandleError
End Sub

/////////////////////////////////////////////////////////

Private Sub cmdTempSPDataEntry_Click()
   'The Comments below have been added automatically.
   'Any changes could cause adverse effects to the functionality
   'of the Script Authoring Experts.
   'WizardName=DataEntry
Dim vntLow As Variant
Dim vntHigh As Variant
Dim intReturn As Integer
Dim blnFetch As Boolean

On Error GoTo ErrorHandler
If blnDataEntryFrmFlag = True Then
Exit Sub
End If
GetFormNumeric
FetchLimits "Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV", vntHigh, vntLow, intReturn
Numeric.GetTheLimits h:=vntHigh, l:=vntLow
blnFetch = True
Numeric.IsAlpha a:=False
Numeric.GetTheVars a:=1, b:="Fix32.THISNODE.IFIX1_PHARM_@EQUIPMENT_ID@_TEMP_SP.F_CV"
Numeric.Show
Exit Sub

ErrorHandler:
HandleError
End Sub