안녕하세요 예스스탁입니다. input : 간격(2.5); var : cnt(0); Array : TL1[100](0),TL2[100](0),TL3[100](0),TL4[100](0); Array : TL5[100](0),TL6[100](0),TL7[100](0),TL8[100](0); Array : TX1[100](0),TX2[100](0),TX3[100](0),TX4[100](0); Array : TX5[100](0),TX6[100](0),TX7[100](0),TX8[100](0); if Index == 1 or Bdate != Bdate[1] Then { var1 = (Floor(DayOpen/간격)*간격)-100; For cnt = 0 to 99 { TL_Delete(TL1[cnt]); TL_Delete(TL2[cnt]); TL_Delete(TL3[cnt]); TL_Delete(TL4[cnt]); TL_Delete(TL5[cnt]); TL_Delete(TL6[cnt]); TL_Delete(TL7[cnt]); TL_Delete(TL8[cnt]); value11 = var1+간격*cnt; value12 = value11+(간격/8)*1; value13 = value11+(간격/8)*2; value14 = value11+(간격/8)*3; value15 = value11+(간격/8)*4; value16 = value11+(간격/8)*5; value17 = value11+(간격/8)*6; value18 = value11+(간격/8)*7; TL1[cnt] = TL_New(sDate,sTime,value11,NextBarSdate,NextBarStime,Value11); TL2[cnt] = TL_New(sDate,sTime,value12,NextBarSdate,NextBarStime,Value12); TL3[cnt] = TL_New(sDate,sTime,value13,NextBarSdate,NextBarStime,Value13); TL4[cnt] = TL_New(sDate,sTime,value14,NextBarSdate,NextBarStime,Value14); TL5[cnt] = TL_New(sDate,sTime,value15,NextBarSdate,NextBarStime,Value15); TL6[cnt] = TL_New(sDate,sTime,value16,NextBarSdate,NextBarStime,Value16); TL7[cnt] = TL_New(sDate,sTime,value17,NextBarSdate,NextBarStime,Value17); TL8[cnt] = TL_New(sDate,sTime,value18,NextBarSdate,NextBarStime,Value18); TL_SetExtLeft(TL1[cnt],true); TL_SetExtLeft(TL2[cnt],true); TL_SetExtLeft(TL3[cnt],true); TL_SetExtLeft(TL4[cnt],true); TL_SetExtLeft(TL5[cnt],true); TL_SetExtLeft(TL6[cnt],true); TL_SetExtLeft(TL7[cnt],true); TL_SetExtLeft(TL8[cnt],true); TL_SetExtRight(TL1[cnt],true); TL_SetExtRight(TL2[cnt],true); TL_SetExtRight(TL3[cnt],true); TL_SetExtRight(TL4[cnt],true); TL_SetExtRight(TL5[cnt],true); TL_SetExtRight(TL6[cnt],true); TL_SetExtRight(TL7[cnt],true); TL_SetExtRight(TL8[cnt],true); TL_SetSize(TL1[cnt],3); TL_SetSize(TL2[cnt],0); TL_SetSize(TL3[cnt],0); TL_SetSize(TL4[cnt],0); TL_SetSize(TL5[cnt],0); TL_SetSize(TL6[cnt],0); TL_SetSize(TL7[cnt],0); TL_SetSize(TL8[cnt],0); TL_SetStyle(TL1[cnt],0); TL_SetStyle(TL2[cnt],3); TL_SetStyle(TL3[cnt],0); TL_SetStyle(TL4[cnt],3); TL_SetStyle(TL5[cnt],2); TL_SetStyle(TL6[cnt],3); TL_SetStyle(TL7[cnt],0); TL_SetStyle(TL8[cnt],3); TL_SetColor(TL1[cnt],Brown); TL_SetColor(TL2[cnt],Pink); TL_SetColor(TL3[cnt],Lime); TL_SetColor(TL4[cnt],Pink); TL_SetColor(TL5[cnt],Brown); TL_SetColor(TL6[cnt],Pink); TL_SetColor(TL7[cnt],Lime); TL_SetColor(TL8[cnt],Pink); Text_Delete(TX1[cnt]); Text_Delete(TX2[cnt]); Text_Delete(TX3[cnt]); Text_Delete(TX4[cnt]); Text_Delete(TX5[cnt]); Text_Delete(TX6[cnt]); Text_Delete(TX7[cnt]); Text_Delete(TX8[cnt]); TX1[cnt] = Text_New(NextBarSdate,NextBarStime,value11," "+NumToStr(value11,2)); TX2[cnt] = Text_New(NextBarSdate,NextBarStime,value12," "+NumToStr(value12,2)); TX3[cnt] = Text_New(NextBarSdate,NextBarStime,value13," "+NumToStr(value13,2)); TX4[cnt] = Text_New(NextBarSdate,NextBarStime,value14," "+NumToStr(value14,2)); TX5[cnt] = Text_New(NextBarSdate,NextBarStime,value15," "+NumToStr(value15,2)); TX6[cnt] = Text_New(NextBarSdate,NextBarStime,value16," "+NumToStr(value16,2)); TX7[cnt] = Text_New(NextBarSdate,NextBarStime,value17," "+NumToStr(value17,2)); TX8[cnt] = Text_New(NextBarSdate,NextBarStime,value18," "+NumToStr(value18,2)); Text_SetStyle(TX1[cnt],0,1); Text_SetStyle(TX2[cnt],0,1); Text_SetStyle(TX3[cnt],0,1); Text_SetStyle(TX4[cnt],0,1); Text_SetStyle(TX5[cnt],0,1); Text_SetStyle(TX6[cnt],0,1); Text_SetStyle(TX7[cnt],0,1); Text_SetStyle(TX8[cnt],0,1); Text_SetSize(TX1[cnt],12); Text_SetSize(TX2[cnt],12); Text_SetSize(TX3[cnt],12); Text_SetSize(TX4[cnt],12); Text_SetSize(TX5[cnt],12); Text_SetSize(TX6[cnt],12); Text_SetSize(TX7[cnt],12); Text_SetSize(TX8[cnt],12); Text_SetColor(TX1[cnt],Brown); Text_SetColor(TX2[cnt],Pink); Text_SetColor(TX3[cnt],Lime); Text_SetColor(TX4[cnt],Pink); Text_SetColor(TX5[cnt],Brown); Text_SetColor(TX6[cnt],Pink); Text_SetColor(TX7[cnt],Lime); Text_SetColor(TX8[cnt],Pink); } } Else { For cnt = 0 to 99 { Text_SetLocation(TX1[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX1[cnt])); Text_SetLocation(TX2[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX2[cnt])); Text_SetLocation(TX3[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX3[cnt])); Text_SetLocation(TX4[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX4[cnt])); Text_SetLocation(TX5[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX5[cnt])); Text_SetLocation(TX6[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX6[cnt])); Text_SetLocation(TX7[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX7[cnt])); Text_SetLocation(TX8[cnt],NextBarSdate,NextBarStime,Text_GetValue(TX8[cnt])); } } 즐거운 하루되세요 > 어떤하루 님이 쓴 글입니다. > 제목 : 수정부탁드립니다. > 기존 수식에서 선의 색깔과 두께 그리고 선의모양을 그림과 같이 수정부탁드립니다. 분홍색 얇은점선 추가도 부탁드립니다. 선위에 행사가격이 표시되게도 부탁드리는데 봉과 숫자 사이에 간격이 있었으면 좋겠습니다. 항상 수고해주셔서 감사드립니다. input : 간격(2.5); var : cnt(0); Array : HTL1[100](0),LTL1[100](0); Array : HTL2[100](0),LTL2[100](0); Array : HTL3[100](0),LTL3[100](0); Array : HTL4[100](0),LTL4[100](0); if Index == 1 or Bdate != Bdate[1] Then { var1 = Floor(DayOpen/간격)*간격; For cnt = 0 to 99 { TL_Delete(HTL1[cnt]); TL_Delete(LTL1[cnt]); TL_Delete(HTL2[cnt]); TL_Delete(LTL2[cnt]); TL_Delete(HTL3[cnt]); TL_Delete(LTL3[cnt]); TL_Delete(HTL4[cnt]); TL_Delete(LTL4[cnt]); value1 = var1+간격*cnt; value2 = value1+(간격/4)*1; value3 = value1+(간격/4)*2; value4 = value1+(간격/4)*3; HTL1[cnt] = TL_New(sDate,sTime,value1,NextBarSdate,NextBarStime,Value1); HTL2[cnt] = TL_New(sDate,sTime,value2,NextBarSdate,NextBarStime,Value2); HTL3[cnt] = TL_New(sDate,sTime,value3,NextBarSdate,NextBarStime,Value3); HTL4[cnt] = TL_New(sDate,sTime,value4,NextBarSdate,NextBarStime,Value4); TL_SetExtLeft(HTL1[cnt],true); TL_SetExtLeft(HTL2[cnt],true); TL_SetExtLeft(HTL3[cnt],true); TL_SetExtLeft(HTL4[cnt],true); TL_SetExtRight(HTL1[cnt],true); TL_SetExtRight(HTL2[cnt],true); TL_SetExtRight(HTL3[cnt],true); TL_SetExtRight(HTL4[cnt],true); TL_SetSize(HTL1[cnt],5); TL_SetSize(HTL2[cnt],0); TL_SetSize(HTL3[cnt],0.5); TL_SetSize(HTL4[cnt],0); TL_SetStyle(HTL1[cnt],0.5); TL_SetStyle(HTL2[cnt],3); TL_SetStyle(HTL3[cnt],0.5); TL_SetStyle(HTL4[cnt],3); if cnt >= 1 Then { value5 = var1-간격*cnt; value6 = value5+(간격/4)*1; value7 = value5+(간격/4)*2; value8 = value5+(간격/4)*3; LTL1[cnt] = TL_New(sDate,sTime,value5,NextBarSdate,NextBarStime,Value5); LTL2[cnt] = TL_New(sDate,sTime,value6,NextBarSdate,NextBarStime,Value6); LTL3[cnt] = TL_New(sDate,sTime,value7,NextBarSdate,NextBarStime,Value7); LTL4[cnt] = TL_New(sDate,sTime,value8,NextBarSdate,NextBarStime,Value8); TL_SetExtLeft(LTL1[cnt],true); TL_SetExtLeft(LTL2[cnt],true); TL_SetExtLeft(LTL3[cnt],true); TL_SetExtLeft(LTL4[cnt],true); TL_SetExtRight(LTL1[cnt],true); TL_SetExtRight(LTL2[cnt],true); TL_SetExtRight(LTL3[cnt],true); TL_SetExtRight(LTL4[cnt],true); TL_SetSize(LTL1[cnt],5); TL_SetSize(LTL2[cnt],0); TL_SetSize(LTL3[cnt],0.5); TL_SetSize(LTL4[cnt],0); TL_SetStyle(LTL1[cnt],0.5); TL_SetStyle(LTL2[cnt],3); TL_SetStyle(LTL3[cnt],0.5); TL_SetStyle(LTL4[cnt],3); } } }