• 목록
  • 아래로
  • 위로
  • 0
  • 온텍
  • 조회 수 3263
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

공유

facebooktwitterpinterestbandkakao story
퍼머링크

댓글 0

권한이 없습니다.