' Ramp tank level from 0 to 100 in steps of five, with a delay
' on 100ms between each set.
sub main()
??????Dim MyPoint as new Point??????????????'Declare the point object
??????MyPoint.Id = "TANK_LEVEL"????????????'Set the Id
??????for I = 0 to 100 step 5????????????????'Loop in steps of 5
????????????MyPoint.SetValue = I????????????????'Set and write value to CIMPLICITY
????????????Sleep 100??????????????????????????????????????'Sleep 100ms
??????next I??????????????????????????????????????????????????'Loop
end sub
|