안녕하세요 예스스탁입니다. input : 간격(5),갯수(5); var : T(0),cnt(0); var : HH1(0),HI1(0),HI2(0),LL1(0),LI1(0),LI2(0); var : LD(0),LT(0),LL(0),HD(0),HT(0),HH(0),TX(0); Array : HTL[100](0),LTL[100](0); if H[간격] > Highest(H,간격) and H[간격] > Highest(H,간격)[간격+1] Then { T = 1; HH1 = H[간격]; Hi1 = index[간격]; Hi2 = HI1[1]; HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1); TL_SetColor(HTL[0],RED); TL_SetExtRight(HTL[0],true); TX = Text_New(sdate[간격],stime[간격],HH1,NumToStr(HH1,2)); Text_SetColor(TX,RED); Text_SetStyle(TX,2,1); for cnt = 1 to 99 { HTL[cnt] = HTL[cnt-1][1]; } TL_Delete(HTL[갯수]); if t == t[1] then { LD = 0; LT = 0; LL = 0; for cnt = index-HI1 to index-HI2 { if LL == 0 or (LL > 0 and L[cnt] < LL) Then { LL = L[cnt]; LD = sdate[cnt]; LT = stime[cnt]; } } LTL[0] = TL_New(ld,lt,ll,sdate,stime,ll); TL_SetColor(LTL[0],blue); TL_SetExtRight(LTL[0],true); TX = Text_New(LD,LT,LL,NumToStr(LL,2)); Text_SetColor(TX,BLUE); Text_SetStyle(TX,2,0); for cnt = 1 to 99 { LTL[cnt] = LTL[cnt-1][1]; } TL_Delete(LTL[갯수]); } } if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then { T = -1; LL1 = L[간격]; LI1 = index[간격]; LI2 = LI1[1]; LTL[0] = TL_New(sdate[간격],stime[간격],LL1,sdate,stime,LL1); TL_SetColor(LTL[0],blue); TL_SetExtRight(LTL[0],true); TX = Text_New(sdate[간격],stime[간격],LL1,NumToStr(LL1,2)); Text_SetColor(TX,BLUE); Text_SetStyle(TX,2,0); for cnt = 1 to 99 { LTL[cnt] = LTL[cnt-1][1]; } TL_Delete(LTL[갯수]); if t == t[1] then { HD = 0; HT = 0; HH = 0; for cnt = index-LI1 to index-LI2 { if HH == 0 or (HH > 0 and H[cnt] > HH) Then { HH = H[cnt]; HD = sdate[cnt]; HT = stime[cnt]; } } HTL[0] = TL_New(HD,HT,HH,sdate,stime,HH); TL_SetColor(HTL[0],RED); TL_SetExtRight(HTL[0],true); TX = Text_New(HD,HT,HH,NumToStr(HH,2)); Text_SetColor(TX,RED); Text_SetStyle(TX,2,1); for cnt = 1 to 99 { HTL[cnt] = HTL[cnt-1][1]; } TL_Delete(HTL[갯수]); } } 즐거운 하루되세요 > pcasso 님이 쓴 글입니다. > 제목 : 수치표시 부탁드립니다. > "○""●" << 모양 대신 수치 표시 부탁드립니다. 항상 감사드립니다. input : 간격(5),갯수(5); var : T(0),cnt(0); var : HH1(0),HI1(0),HI2(0),LL1(0),LI1(0),LI2(0); var : LD(0),LT(0),LL(0),HD(0),HT(0),HH(0),TX(0); Array : HTL[100](0),LTL[100](0); if H[간격] > Highest(H,간격) and H[간격] > Highest(H,간격)[간격+1] Then { T = 1; HH1 = H[간격]; Hi1 = index[간격]; Hi2 = HI1[1]; HTL[0] = TL_New(sdate[간격],stime[간격],HH1,sdate,stime,HH1); TL_SetColor(HTL[0],RED); TL_SetExtRight(HTL[0],true); TX = Text_New(sdate[간격],stime[간격],HH1,"●"); Text_SetColor(TX,RED); Text_SetStyle(TX,2,2); for cnt = 1 to 99 { HTL[cnt] = HTL[cnt-1][1]; } TL_Delete(HTL[갯수]); if t == t[1] then { LD = 0; LT = 0; LL = 0; for cnt = index-HI1 to index-HI2 { if LL == 0 or (LL > 0 and L[cnt] < LL) Then { LL = L[cnt]; LD = sdate[cnt]; LT = stime[cnt]; } } LTL[0] = TL_New(ld,lt,ll,sdate,stime,ll); TL_SetColor(LTL[0],blue); TL_SetExtRight(LTL[0],true); TX = Text_New(LD,LT,LL,"○"); Text_SetColor(TX,BLUE); Text_SetStyle(TX,2,2); for cnt = 1 to 99 { LTL[cnt] = LTL[cnt-1][1]; } TL_Delete(LTL[갯수]); } } if L[간격] < Lowest(L,간격) and L[간격] < Lowest(L,간격)[간격+1] Then { T = -1; LL1 = L[간격]; LI1 = index[간격]; LI2 = LI1[1]; LTL[0] = TL_New(sdate[간격],stime[간격],LL1,sdate,stime,LL1); TL_SetColor(LTL[0],blue); TL_SetExtRight(LTL[0],true); TX = Text_New(sdate[간격],stime[간격],LL1,"●"); Text_SetColor(TX,BLUE); Text_SetStyle(TX,2,2); for cnt = 1 to 99 { LTL[cnt] = LTL[cnt-1][1]; } TL_Delete(LTL[갯수]); if t == t[1] then { HD = 0; HT = 0; HH = 0; for cnt = index-LI1 to index-LI2 { if HH == 0 or (HH > 0 and H[cnt] > HH) Then { HH = H[cnt]; HD = sdate[cnt]; HT = stime[cnt]; } } HTL[0] = TL_New(HD,HT,HH,sdate,stime,HH); TL_SetColor(HTL[0],RED); TL_SetExtRight(HTL[0],true); TX = Text_New(HD,HT,HH,"○"); Text_SetColor(TX,RED); Text_SetStyle(TX,2,2); for cnt = 1 to 99 { HTL[cnt] = HTL[cnt-1][1]; } TL_Delete(HTL[갯수]); } }