• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

수식부탁드립니다

프로필 이미지
회원
2019-02-06 18:50:17
255
글번호 125897
답변완료
"새해복 많이 받으세요" A = plot1 B = plot2 $,아래1)번식에서 ㅡ, 현재가가 A 를 상향돌파후 A 지지를 받고 첫 양봉전환시 점표시(Red) ㅡ, 현재가가 B 를 하향이탈후 B 저항을 받고 첫 음봉전환시 점표시(Blue) ( per함수 외부변수처리하면 좋겠습니다) $$,아래2)번식은 Text함수 출력하고저 작성한식인데 내부함수 에러가 자꾸 뜨네요,도움 부탁드립니다.그리고 TL라인 색상과 선굵기 조절도 외부변수처리 되도록 수정 부탁드립니다. 1) input : Per1(23); Var : S1(0),S2(1),S3(1),S4(1); S1 = (dayhigh(0)+daylow(0))/2; S2 = (dayhigh(1)+daylow(1))/2; S3 = dayhigh(1); S4 = daylow(1); plot1(dayopen()+abs(S3-S4)*(Per1/100),"B"); plot2(dayopen()-abs(S3-S4)*(Per1/100),"S"); 2) input : per1(11.8),per2(23.6),per3(38.2),per4(50.0),per5(61.8),per6(76.4),per7(88.2); var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0),tl8(0),tl9(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),tx8(0),tx9(0); if bdate > bdate[1]+30 then { hh = h; ll = l; h1 = hh[1]; l1 = ll[1]; dd = sdate[1]; tt = stime[1]; d1 = dd[1]; t1 = tt[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if h > hh Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if l < ll Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } TL_SetExtRight(tl1,true); TL_SetExtRight(tl2,true); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); TL_SetExtRight(tl7,true); TL_SetExtRight(tl8,true); TL_SetExtRight(tl9,true); TL_SetStyle(TL1,1); TL_SetStyle(TL2,5); TL_SetStyle(TL3,5); TL_SetStyle(TL4,5); TL_SetStyle(TL5,1); TL_SetStyle(TL6,5); TL_SetStyle(TL7,5); TL_SetStyle(TL8,5); TL_SetStyle(TL9,1); TL_SetColor(tl1,MAGENTA); TL_SetColor(tl2,MAGENTA); TL_SetColor(tl3,MAGENTA); TL_SetColor(tl4,MAGENTA); TL_SetColor(tl5,LMAGENTA); TL_SetColor(tl6,BLUE); TL_SetColor(tl7,BLUE); TL_SetColor(tl8,BLUE); TL_SetColor(tl9,BLUE); TL_SetSize(tl5,1); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); tx1 = Text_New(sdate,stime,hh); tx2 = Text_New(sdate,stime,hh-(hh-ll)*(Per1/100),NumToStr(Per1,2)+"% :" +NumToStr(hh-(hh-ll)*(Per1/100),2)); tx3 = Text_New(sdate,stime,hh-(hh-ll)*(Per2/100),NumToStr(Per2,2)+"% :" +NumToStr(hh-(hh-ll)*(Per2/100),2)); tx4 = Text_New(sdate,stime,hh-(hh-ll)*(Per3/100),NumToStr(Per3,2)+"% :" +NumToStr(hh-(hh-ll)*(Per3/100),2)); tx5 = Text_New(sdate,stime,hh-(hh-ll)*(Per4/100),NumToStr(Per4,2)+"% :" +NumToStr(hh-(hh-ll)*(Per4/100),2)); tx6 = Text_New(sdate,stime,hh-(hh-ll)*(Per5/100),NumToStr(Per5,2)+"% :" +NumToStr(hh-(hh-ll)*(Per5/100),2)); tx7 = Text_New(sdate,stime,hh-(hh-ll)*(Per6/100),NumToStr(Per6,2)+"% :" +NumToStr(hh-(hh-ll)*(Per6/100),2)); tx8 = Text_New(sdate,stime,hh-(hh-ll)*(Per7/100),NumToStr(Per7,2)+"% :" +NumToStr(hh-(hh-ll)*(Per7/100),2)); tx9 = Text_New(sdate,stime,ll); Text_SetStyle(tx1,1,3); Text_SetStyle(tx2,1,3); Text_SetStyle(tx3,1,3); Text_SetStyle(tx4,1,3); Text_SetStyle(tx5,1,3); Text_SetStyle(tx6,1,3); Text_SetStyle(tx7,1,3); Text_SetStyle(tx8,1,3); Text_SetStyle(tx9,1,3); Text_SetColor(tx1,BLACK); Text_SetColor(tx2,BLACK); Text_SetColor(tx3,BLACK); Text_SetColor(tx4,BLACK); Text_SetColor(tl5,BLACK); Text_SetColor(tx6,BLACK); Text_SetColor(tx7,BLACK); Text_SetColor(tx8,BLACK); Text_SetColor(tx9,BLACK); 도움 주심에 늘 감사합니다.
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2019-02-07 14:22:51

안녕하세요 예스스탁입니다. 1 지지나 저항은 좀더 산술적인 내용으로 올려주시기 바랍니다. 지지를 받고 저항을 받는 조건은 모호합니다. 2 input : per1(11.8),per2(23.6),per3(38.2),per4(50.0),per5(61.8),per6(76.4),per7(88.2); var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0),tl8(0),tl9(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),tx8(0),tx9(0); if bdate > bdate[1]+30 then { hh = h; ll = l; h1 = hh[1]; l1 = ll[1]; dd = sdate[1]; tt = stime[1]; d1 = dd[1]; t1 = tt[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if h > hh Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if l < ll Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } TL_SetExtRight(tl1,true); TL_SetExtRight(tl2,true); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); TL_SetExtRight(tl7,true); TL_SetExtRight(tl8,true); TL_SetExtRight(tl9,true); TL_SetStyle(TL1,1); TL_SetStyle(TL2,5); TL_SetStyle(TL3,5); TL_SetStyle(TL4,5); TL_SetStyle(TL5,1); TL_SetStyle(TL6,5); TL_SetStyle(TL7,5); TL_SetStyle(TL8,5); TL_SetStyle(TL9,1); TL_SetColor(tl1,MAGENTA); TL_SetColor(tl2,MAGENTA); TL_SetColor(tl3,MAGENTA); TL_SetColor(tl4,MAGENTA); TL_SetColor(tl5,LMAGENTA); TL_SetColor(tl6,BLUE); TL_SetColor(tl7,BLUE); TL_SetColor(tl8,BLUE); TL_SetColor(tl9,BLUE); TL_SetSize(tl5,1); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); tx1 = Text_New(sdate,stime,hh,NumToStr(hh,2)); tx2 = Text_New(sdate,stime,hh-(hh-ll)*(Per1/100),NumToStr(Per1,2)+"% :" +NumToStr(hh-(hh-ll)*(Per1/100),2)); tx3 = Text_New(sdate,stime,hh-(hh-ll)*(Per2/100),NumToStr(Per2,2)+"% :" +NumToStr(hh-(hh-ll)*(Per2/100),2)); tx4 = Text_New(sdate,stime,hh-(hh-ll)*(Per3/100),NumToStr(Per3,2)+"% :" +NumToStr(hh-(hh-ll)*(Per3/100),2)); tx5 = Text_New(sdate,stime,hh-(hh-ll)*(Per4/100),NumToStr(Per4,2)+"% :" +NumToStr(hh-(hh-ll)*(Per4/100),2)); tx6 = Text_New(sdate,stime,hh-(hh-ll)*(Per5/100),NumToStr(Per5,2)+"% :" +NumToStr(hh-(hh-ll)*(Per5/100),2)); tx7 = Text_New(sdate,stime,hh-(hh-ll)*(Per6/100),NumToStr(Per6,2)+"% :" +NumToStr(hh-(hh-ll)*(Per6/100),2)); tx8 = Text_New(sdate,stime,hh-(hh-ll)*(Per7/100),NumToStr(Per7,2)+"% :" +NumToStr(hh-(hh-ll)*(Per7/100),2)); tx9 = Text_New(sdate,stime,ll,NumToStr(ll,2)); Text_SetStyle(tx1,1,3); Text_SetStyle(tx2,1,3); Text_SetStyle(tx3,1,3); Text_SetStyle(tx4,1,3); Text_SetStyle(tx5,1,3); Text_SetStyle(tx6,1,3); Text_SetStyle(tx7,1,3); Text_SetStyle(tx8,1,3); Text_SetStyle(tx9,1,3); Text_SetColor(tx1,BLACK); Text_SetColor(tx2,BLACK); Text_SetColor(tx3,BLACK); Text_SetColor(tx4,BLACK); Text_SetColor(tl5,BLACK); Text_SetColor(tx6,BLACK); Text_SetColor(tx7,BLACK); Text_SetColor(tx8,BLACK); Text_SetColor(tx9,BLACK); 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > "새해복 많이 받으세요" A = plot1 B = plot2 $,아래1)번식에서 ㅡ, 현재가가 A 를 상향돌파후 A 지지를 받고 첫 양봉전환시 점표시(Red) ㅡ, 현재가가 B 를 하향이탈후 B 저항을 받고 첫 음봉전환시 점표시(Blue) ( per함수 외부변수처리하면 좋겠습니다) $$,아래2)번식은 Text함수 출력하고저 작성한식인데 내부함수 에러가 자꾸 뜨네요,도움 부탁드립니다.그리고 TL라인 색상과 선굵기 조절도 외부변수처리 되도록 수정 부탁드립니다. 1) input : Per1(23); Var : S1(0),S2(1),S3(1),S4(1); S1 = (dayhigh(0)+daylow(0))/2; S2 = (dayhigh(1)+daylow(1))/2; S3 = dayhigh(1); S4 = daylow(1); plot1(dayopen()+abs(S3-S4)*(Per1/100),"B"); plot2(dayopen()-abs(S3-S4)*(Per1/100),"S"); 2) input : per1(11.8),per2(23.6),per3(38.2),per4(50.0),per5(61.8),per6(76.4),per7(88.2); var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0),tl8(0),tl9(0); var : Tx1(0),Tx2(0),Tx3(0),Tx4(0),Tx5(0),Tx6(0),Tx7(0),tx8(0),tx9(0); if bdate > bdate[1]+30 then { hh = h; ll = l; h1 = hh[1]; l1 = ll[1]; dd = sdate[1]; tt = stime[1]; d1 = dd[1]; t1 = tt[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if h > hh Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } if l < ll Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL_Delete(tl8); TL_Delete(tl9); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,hh-(hh-ll)*(per6/100),sdate,stime,hh-(hh-ll)*(per6/100)); tl8 = TL_New(dd,tt,hh-(hh-ll)*(per7/100),sdate,stime,hh-(hh-ll)*(per7/100)); tl9 = TL_New(dd,tt,ll,sdate,stime,ll); } TL_SetExtRight(tl1,true); TL_SetExtRight(tl2,true); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); TL_SetExtRight(tl7,true); TL_SetExtRight(tl8,true); TL_SetExtRight(tl9,true); TL_SetStyle(TL1,1); TL_SetStyle(TL2,5); TL_SetStyle(TL3,5); TL_SetStyle(TL4,5); TL_SetStyle(TL5,1); TL_SetStyle(TL6,5); TL_SetStyle(TL7,5); TL_SetStyle(TL8,5); TL_SetStyle(TL9,1); TL_SetColor(tl1,MAGENTA); TL_SetColor(tl2,MAGENTA); TL_SetColor(tl3,MAGENTA); TL_SetColor(tl4,MAGENTA); TL_SetColor(tl5,LMAGENTA); TL_SetColor(tl6,BLUE); TL_SetColor(tl7,BLUE); TL_SetColor(tl8,BLUE); TL_SetColor(tl9,BLUE); TL_SetSize(tl5,1); Text_Delete(tx1); Text_Delete(tx2); Text_Delete(tx3); Text_Delete(tx4); Text_Delete(tx5); Text_Delete(tx6); Text_Delete(tx7); Text_Delete(tx8); Text_Delete(tx9); tx1 = Text_New(sdate,stime,hh); tx2 = Text_New(sdate,stime,hh-(hh-ll)*(Per1/100),NumToStr(Per1,2)+"% :" +NumToStr(hh-(hh-ll)*(Per1/100),2)); tx3 = Text_New(sdate,stime,hh-(hh-ll)*(Per2/100),NumToStr(Per2,2)+"% :" +NumToStr(hh-(hh-ll)*(Per2/100),2)); tx4 = Text_New(sdate,stime,hh-(hh-ll)*(Per3/100),NumToStr(Per3,2)+"% :" +NumToStr(hh-(hh-ll)*(Per3/100),2)); tx5 = Text_New(sdate,stime,hh-(hh-ll)*(Per4/100),NumToStr(Per4,2)+"% :" +NumToStr(hh-(hh-ll)*(Per4/100),2)); tx6 = Text_New(sdate,stime,hh-(hh-ll)*(Per5/100),NumToStr(Per5,2)+"% :" +NumToStr(hh-(hh-ll)*(Per5/100),2)); tx7 = Text_New(sdate,stime,hh-(hh-ll)*(Per6/100),NumToStr(Per6,2)+"% :" +NumToStr(hh-(hh-ll)*(Per6/100),2)); tx8 = Text_New(sdate,stime,hh-(hh-ll)*(Per7/100),NumToStr(Per7,2)+"% :" +NumToStr(hh-(hh-ll)*(Per7/100),2)); tx9 = Text_New(sdate,stime,ll); Text_SetStyle(tx1,1,3); Text_SetStyle(tx2,1,3); Text_SetStyle(tx3,1,3); Text_SetStyle(tx4,1,3); Text_SetStyle(tx5,1,3); Text_SetStyle(tx6,1,3); Text_SetStyle(tx7,1,3); Text_SetStyle(tx8,1,3); Text_SetStyle(tx9,1,3); Text_SetColor(tx1,BLACK); Text_SetColor(tx2,BLACK); Text_SetColor(tx3,BLACK); Text_SetColor(tx4,BLACK); Text_SetColor(tl5,BLACK); Text_SetColor(tx6,BLACK); Text_SetColor(tx7,BLACK); Text_SetColor(tx8,BLACK); Text_SetColor(tx9,BLACK); 도움 주심에 늘 감사합니다.
등록