Mathematical functions in Diadem

Question

Can someone tell me how I simply add two channel properties together in Diadem VB script.
Or if I can calculate a new value by adding a variable to a channel property.
The output from the addition I would like to put back into a new Channel Property.
This code does not seem to work.
msgbox ChnPropValGet(1, "maximum") + ChnPropValGet(2, "maximum")
Thanks

Answer 1

You are correct - it looks like ChnPropValGet only shows up in DIAdem 10.1.  I use different versions of DIAdem, so often re-create the new functions that I enjoy and register them as a user command (using ScriptCmdAdd).  I think something like the function below should give you somewhat similar results.  And yes, you should be able to put this value into a channel property by using the ChnPropSet command, and perhaps the ChnPropCreate command, if you want to create a new property.  For example, the bit between the dashed lines saves the sum of the maximum values to the variable, "MaxSumVal" and then creates a property for channel #5 called "MaxSum" and sets this value to MaxSumVal.  But you could also put the value in an already-created property, but some excisting channel properties are read-only.  I hope this is not confusing!
MaxSumVal = ChnPropValGet(4, "maximum") + ChnPropValGet(3, "maximum")
Call ChnPropCreate(5, "MaxSum", DataTypeFloat64)
Call ChnPropSet(5, "MaxSum", MaxSumVal)
Call ChnPropSet(5, "Description", MaxSumVal)
Public Function ChnPropValGet(ChnNum, ChnProperty)
  Dim ChanType
  ChanType = ChnPropGet(ChnNum, "displaytype")
  Select Case ChanType
    Case "Numeric"  ChnPropValGet = Val(ChnPropGet(ChnNum, ChnProperty))
    Case "Text"     ChnPropValGet = ChnPropGet(ChnNum, ChnProperty)
    Case "Time"     ChnPropValGet = ChnPropGet(ChnNum, ChnProperty)
    Case Else       ChnPropValGet = ""
  End Select
End Function ' ChnPropValGet