[SCADA][스크립트] 소수점 뒤 유효숫자를 자르고 싶어요
2017.07.25

안녕하세요.

CIMON입니다.

 

소수점 뒷자리가 길 때 자르고 싶으시다면 스크립트로 해결하실 수 있습니다.

 

Sub main()

Dim L As Double
Dim M As Double

for i = 1 to 8 ‘8개의 태그를 적용시키기 위해 8까지 반복문을 적용합니다.
tagname$ = “FLOAT” & i ‘태그이름을 변수로 만듭니다.
StrRecord = FormatStr(“%0.3f “, 1, GetTagVal(tagname) ) ‘실수인 태그값을 소수점 뒤 3자리까지 자릅니다.
L = Left(StrRecord , instr(1,StrRecord, “.”) – 1)
M = Right(StrRecord, len(StrRecord) – instr(1, StrRecord, “.”))
setTagval tagname, L+(M/1000)
next

End Sub

 

이렇게 하신다면 변수이름이 규칙적일 때 적용하여 사용하실 수 있습니다.

 

예를 들어, 원래의 소수점 이하의 자리수가 길 때의 태그들이 아래와 같이 있습니다.

태그들은 당연히 트렌드판넬편집기에서 길게 나오게 되는데 이것을 자르고 싶다면,

위의 스크립트를 작성하시고

CimonX를 실행시킵니다.

소수점 이하 자리수가 원하는 만큼 잘려서 나오게 됩니다.

 

 

 

 

 

 

목록