- 0
- 온텍
- 조회 수 3146
Sub TREND()
T_CODE = GetParameter()
ST1 = "MEMORY.TREND_STRING,"
T_PAGE = "43공구트랜드_메인"
T_NAME = "트랜드"
IF T_CODE = 1 THEN
SetTagVal "MEMORY.TREND_STRING", "LT-201 유입수위A"
ST2 = "RS2."
TAG1 = ST2 & "LT201"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "LT-201 유입"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,5
END IF
IF T_CODE = 2 THEN
SetTagVal "MEMORY.TREND_STRING", "LT-202 유입수위B"
ST2 = "RS2."
TAG1 = ST2 & "LT202"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "LT-202 유입"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,5
END IF
IF T_CODE = 3 THEN
SetTagVal "MEMORY.TREND_STRING", "LT-101 펌프장수위A"
ST2 = "RS3."
TAG1 = ST2 & "LT101"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "LT-101 펌프장수위A"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,5
END IF
IF T_CODE = 4 THEN
SetTagVal "MEMORY.TREND_STRING", "LT-102 펌프장수위B"
ST2 = "RS3."
TAG1 = ST2 & "LT102"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "LT-102 펌프장수위B"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,5
END IF
IF T_CODE = 5 THEN
SetTagVal "MEMORY.TREND_STRING", "LT-103 펌프장수위C"
ST2 = "RS3."
TAG1 = ST2 & "LT103"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "LT-103 펌프장수위C"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,5
END IF
IF T_CODE = 6 THEN
SetTagVal "MEMORY.TREND_STRING", "TR-1 MAIN_TR_TT"
ST2 = "RS3.TR1_MAIN_TR_"
TAG1 = ST2 & "TT"
TAG_TOTAL = ST1 & TAG1
SetTagValex TAG1, "DESC" , "TR 온도"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,250
END IF
IF T_CODE = 7 THEN
SetTagVal "MEMORY.TREND_STRING", "LV-R PANEL"
ST2 = "RS3.LVR_"
TAG1 = ST2 & "ACV"
TAG2 = ST2 & "DCV"
TAG3 = ST2 & "DCA1"
TAG4 = ST2 & "DCA2"
TAG_TOTAL = ST1 & TAG1 &","& TAG2 &","& TAG3 &","& TAG4
SetTagValex TAG1, "DESC" , "AC전압"
SetTagValex TAG2, "DESC" , "DC전압"
SetTagValex TAG3, "DESC" , "DC전류1"
SetTagValex TAG4, "DESC" , "DC전류2"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,600
TrendSetPenVal "Trend",1,3,600
TrendSetPenVal "Trend",2,3,1500
TrendSetPenVal "Trend",3,3,1500
END IF
IF T_CODE = 8 THEN
SetTagVal "MEMORY.TREND_STRING", "M-105 펌프온도"
ST2 = "RS3.M105"
TAG1 = ST2 & "A.BR"
TAG2 = ST2 & "A.CR"
TAG3 = ST2 & "B.BR"
TAG4 = ST2 & "B.CR"
TAG5 = ST2 & "C.BR"
TAG6 = ST2 & "C.CR"
TAG_TOTAL = ST1 & TAG1 &","& TAG2 &","& TAG3 &","& TAG4 &","& TAG5 &","& TAG6
SetTagValex TAG1, "DESC" , "베어링온도#1"
SetTagValex TAG2, "DESC" , "권선온도#1"
SetTagValex TAG3, "DESC" , "베어링온도#2"
SetTagValex TAG4, "DESC" , "권선온도#2"
SetTagValex TAG5, "DESC" , "베어링온도#3"
SetTagValex TAG6, "DESC" , "권선온도#3"
ReplacePageEx T_PAGE, T_NAME, TAG_TOTAL
TrendSetPenVal "Trend",0,3,250
TrendSetPenVal "Trend",1,3,250
TrendSetPenVal "Trend",2,3,250
TrendSetPenVal "Trend",3,3,250
TrendSetPenVal "Trend",4,3,250
TrendSetPenVal "Trend",5,3,250
END IF
End Sub
공유
댓글 0
권한이 없습니다.
