안녕하세요 예스스탁입니다. input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); var : tx1(0),tx2(0),tx3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); tx1 = text_new(sDate,sTime,hh-(hh-ll)*(per1/100),NumToStr(hh-(hh-ll)*(per1/100),2)); tx2 = text_new(sDate,sTime,hh-(hh-ll)*(per2/100),NumToStr(hh-(hh-ll)*(per2/100),2)); tx3 = text_new(sDate,sTime,hh-(hh-ll)*(per3/100),NumToStr(hh-(hh-ll)*(per3/100),2)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); Text_SetString(tx1,NumToStr(hh-(hh-ll)*(per1/100),2)); Text_SetString(tx2,NumToStr(hh-(hh-ll)*(per2/100),2)); Text_SetString(tx3,NumToStr(hh-(hh-ll)*(per3/100),2)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); Text_SetString(tx1,NumToStr(hh-(hh-ll)*(per1/100),2)); Text_SetString(tx2,NumToStr(hh-(hh-ll)*(per2/100),2)); Text_SetString(tx3,NumToStr(hh-(hh-ll)*(per3/100),2)); } TL_SetColor(TL1,CYAN); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); TL_SetColor(TL2,WHITE); TL_SetSize(TL2,1); TL_SetExtRight(TL2,true); TL_SetColor(TL3,RED); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true); Text_SetLocation(tx1,NextBarSdate,NextBarStime,hh-(hh-ll)*(per1/100)); Text_SetLocation(tx2,NextBarSdate,NextBarStime,hh-(hh-ll)*(per2/100)); Text_SetLocation(tx3,NextBarSdate,NextBarStime,hh-(hh-ll)*(per3/100)); Text_SetStyle(tx1,0,0); Text_SetStyle(tx2,0,0); Text_SetStyle(tx3,0,0); 즐거운 하루되세요 > pcasso 님이 쓴 글입니다. > 제목 : 수치 표시 부탁드립니다. > 수치표시 부탁드립니다. 라인은 보이는데 수치도 나타 나게 부탁드립니다. 미리 감사드립니다. input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } TL_SetColor(TL1,CYAN); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); TL_SetColor(TL2,WHITE); TL_SetSize(TL2,1); TL_SetExtRight(TL2,true); TL_SetColor(TL3,RED); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true);