Skip to Content

Register Login

Default Header

(header konnte nicht geladen werden)

Navigation

WinCC Professional decimal places option for i/o field

Created by: autorund at: 4/23/2014 7:03 PM (1 Replies)

Rating (0)

Thanks 0

2 Entries

4/23/2014 7:03 PM	Rate (0)
autorund Posts: 1 Rating: (0)	Here is a method to use Int and Dint in I/O field with any decimal places : 1.formatpatern must be like 999.999 2.call the function on inputvalue property modified in an IO field 3. Sub Sub Real_To_Int_IO_Field(ByRef tag) Dim object Set object=HMIRuntime.Screens(AccessPath).ActiveScreenItem object.ProcessValue=object.InputValue tag.Value=CLng(object.InputValue*getDenominator(object.FormatPattern)) End Sub Function getDenominator(ByVal pattern) Dim dec_pos,pattern_length pattern_length=Len(pattern) dec_pos=InStrRev(pattern,".",-1,0) getDenominator=1 If dec_pos>0 Then getDenominator=10^(pattern_length-dec_pos) End Function Any suggestion for a better approach will be much appreciated !
autorund Posts: 1 Rating: (0)
Suggestion To thank Quote Answer

4/25/2014 1:01 PM	Rate (0)
K!ke Posts: 1299 Rating: (136)	Hello, do you have any problemsregarding this script? or do you just like to share your solution with us? K!ke
K!ke Posts: 1299 Rating: (136)
Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Related topics by keywords:

TIA WinCC Prof System functions/Scripting

Follow us on