안녕하세요 예스스탁입니다. 문의하신 내용은 가능하지 않습니다. 텍스트함수가 날짜시간을 지정해 출력하게 되어 있어 여백에 표시를 불가합니다. 즐거운 하루되세요 > 외국인 님이 쓴 글입니다. > 제목 : 수정부탁드립니다. > 수정부탁드립니다. 텍스트출력이 봉중앙에 나타나는것을 화면 x축 여백25 에 텍스트 출력이 되게 하여주십시요 Input:length선행(20),굵기선행(0.1),간선굵기선행(0.1); input : Per선행1(0),Per선행2(23.6),Per선행3(38.2),Per선행4(50.0),Per선행5(61.8),Per선행6(76.4),Per선행7(100),Per선행8(123.6),Per선행9(161.8); Var : j선행(0),lastHiVal선행(0),lasTL선행oVal선행(0),turnPntBit선행(""),TL선행1(0); var : HV선행(0),LV선행(0),fTsl(0); var : TL선행11(0),TL선행12(0),TL선행13(0),TL선행14(0),TL선행15(0),TL선행16(0),TL선행17(0),TL선행18(0),TL선행19(0); var : Tx선행11(0),Tx선행12(0),Tx선행13(0),Tx선행14(0),Tx선행15(0),Tx선행16(0),Tx선행17(0),Tx선행18(0),Tx선행19(0); Array:valArr선행[10](0),barArr선행[10](0),turnPntArr선행[10](""); var : Tx선행(0),str선행(""); For j선행 = 0 To 9 { barArr선행[j선행] = barArr선행[j선행] + 1; } HV선행 = highest(h,length선행); LV선행 = lowest(l,length선행); Condition1 = HV선행 > HV선행[1] ; Condition2 = LV선행 < LV선행[1] ; If Condition1 Then { lastHiVal선행 = H; lasTL선행oVal선행 = 0; } If Condition2 Then { lasTL선행oVal선행 = L; lastHiVal선행 = 0; } turnPntBit선행 = ""; If Condition1 and Condition2 Then { If Max(valArr선행[1],valArr선행[2]) < H and Min(valArr선행[1],valArr선행[2]) > L Then turnPntBit선행 = "HiLo"; Else If Max(valArr선행[1],valArr선행[2]) < H Then turnPntBit선행 = "Hi"; Else If Min(valArr선행[1],valArr선행[2]) > L Then turnPntBit선행 = "Lo"; } Else If Condition1 Then turnPntBit선행 = "Hi"; Else If Condition2 Then turnPntBit선행 = "Lo"; If turnPntBit선행 <> "" Then { If turnPntBit선행 == "HiLo" Then { valArr선행[1] = IFF(turnPntArr선행[1] == "Hi",H,L); barArr선행[1] = 0; TL_SetEnd(TL선행1,NextBarSdate[barArr선행[1]],NextBarStime[barArr선행[1]],valArr선행[1]); If turnPntArr선행[1] == "Hi" Then turnPntBit선행 = "Lo"; Else turnPntBit선행 = "Hi"; } If turnPntBit선행 <> turnPntArr선행[1] Then { for j선행 = 8 downto 1 { valArr선행[j선행+1] = valArr선행[j선행]; barArr선행[j선행+1] = barArr선행[j선행]; turnPntArr선행[j선행+1] = turnPntArr선행[j선행]; } } If turnPntBit선행 <> turnPntArr선행[1] or (turnPntBit선행 == turnPntArr선행[1] and ((turnPntBit선행 == "Hi" and valArr선행[1] < H) or (turnPntBit선행 == "Lo" and valArr선행[1] > L))) Then { valArr선행[1] = IFF(turnPntBit선행 == "Hi",H,L); barArr선행[1] = 0; turnPntArr선행[1] = turnPntBit선행; If turnPntArr선행[1][1] <> turnPntArr선행[1][0] Then { if turnPntArr선행[1][0] == "Hi" Then { if valArr선행[1] == DayHigh(0) Then str선행 = "HH"; Else str선행 = "LH"; TL선행1= Text_New_Self(NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]], fTsl,"▲▲상승유지신호"); Text_SetBold(TL선행1, 1); Text_SetColor(TL선행1,Magenta); Text_SetSize(TL선행1,12); Text_SetStyle(TL선행1,2,2); } Else { if valArr선행[1] == DayLow Then str선행 = "LL"; Else str선행 = "HL"; TL선행1= Text_New_Self(NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]], fTsl,"▼▼하락유지신호"); Text_SetBold(TL선행1, 1); Text_SetColor(TL선행1,Blue); Text_SetSize(TL선행1,12); Text_SetStyle(TL선행1,2,2); } Tx선행 = text_new(NextBarSdate[barArr선행[1]],NextBarStime[barArr선행[1]],valArr선행[1],str선행); if turnPntArr선행[1][0] == "Hi" Then Text_SetStyle(Tx선행,2,1); Else Text_SetStyle(Tx선행,2,0); value1 = valArr선행[2]-valArr선행[3]; TL_Delete(TL선행11); TL_Delete(TL선행12); TL_Delete(TL선행13); TL_Delete(TL선행14); TL_Delete(TL선행15); TL_Delete(TL선행16); TL_Delete(TL선행17); TL_Delete(TL선행18); TL_Delete(TL선행19); TL_SetExtRight(TL선행11,False); TL_SetExtRight(TL선행12,False); TL_SetExtRight(TL선행13,False); TL_SetExtRight(TL선행14,False); TL_SetExtRight(TL선행15,False); TL_SetExtRight(TL선행16,False); TL_SetExtRight(TL선행17,False); TL_SetExtRight(TL선행18,False); TL_SetExtRight(TL선행19,False); TL선행11 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행1/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행1/100)); TL선행12 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행2/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행2/100)); TL선행13 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행3/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행3/100)); TL선행14 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행4/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행4/100)); TL선행15 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행5/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행5/100)); TL선행16 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행6/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행6/100)); TL선행17 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행7/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행7/100)); TL선행18 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행8/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행8/100)); TL선행19 = TL_New(NextBarSdate[barArr선행[3]],NextBarStime[barArr선행[3]],valArr선행[2]-value1*(Per선행9/100),NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[2]-value1*(Per선행9/100)); TL_SetExtRight(TL선행11,true); TL_SetExtRight(TL선행12,true); TL_SetExtRight(TL선행13,true); TL_SetExtRight(TL선행14,true); TL_SetExtRight(TL선행15,true); TL_SetExtRight(TL선행16,true); TL_SetExtRight(TL선행17,true); TL_SetExtRight(TL선행18,true); TL_SetExtRight(TL선행19,true); TL_SetColor(TL선행11,RED); TL_SetColor(TL선행12,GRAY); TL_SetColor(TL선행13,GRAY); TL_SetColor(TL선행14,GRAY); TL_SetColor(TL선행15,YELLOW); TL_SetColor(TL선행16,GRAY); TL_SetColor(TL선행17,BLUE); TL_SetColor(TL선행18,GRAY); TL_SetColor(TL선행19,YELLOW); TL_SetSize(TL선행11,굵기선행); TL_SetSize(TL선행12,굵기선행); TL_SetSize(TL선행13,굵기선행); TL_SetSize(TL선행14,굵기선행); TL_SetSize(TL선행15,간선굵기선행); TL_SetSize(TL선행16,굵기선행); TL_SetSize(TL선행17,굵기선행); TL_SetSize(TL선행18,굵기선행); TL_SetSize(TL선행19,굵기선행); Text_Delete(Tx선행11); Text_Delete(Tx선행12); Text_Delete(Tx선행13); Text_Delete(Tx선행14); Text_Delete(Tx선행15); Text_Delete(Tx선행16); Text_Delete(Tx선행17); Text_Delete(Tx선행18); Text_Delete(Tx선행19); Tx선행11 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행11,NextBarSdate,NextBarStime),NumTostr(Per선행1,2)+"%("+NumTostr(TL_GetValue(TL선행11,NextBarSdate,NextBarStime),2)+")"); Tx선행12 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행12,NextBarSdate,NextBarStime),NumTostr(Per선행2,2)+"%("+NumTostr(TL_GetValue(TL선행12,NextBarSdate,NextBarStime),2)+")"); Tx선행13 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행13,NextBarSdate,NextBarStime),NumTostr(Per선행3,2)+"%("+NumTostr(TL_GetValue(TL선행13,NextBarSdate,NextBarStime),2)+")"); Tx선행14 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행14,NextBarSdate,NextBarStime),NumTostr(Per선행4,2)+"%("+NumTostr(TL_GetValue(TL선행14,NextBarSdate,NextBarStime),2)+")"); Tx선행15 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행15,NextBarSdate,NextBarStime),NumTostr(Per선행5,2)+"%("+NumTostr(TL_GetValue(TL선행15,NextBarSdate,NextBarStime),2)+")"); Tx선행16 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행16,NextBarSdate,NextBarStime),NumTostr(Per선행6,2)+"%("+NumTostr(TL_GetValue(TL선행16,NextBarSdate,NextBarStime),2)+")"); Tx선행17 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행17,NextBarSdate,NextBarStime),NumTostr(Per선행7,2)+"%("+NumTostr(TL_GetValue(TL선행17,NextBarSdate,NextBarStime),2)+")"); Tx선행18 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행18,NextBarSdate,NextBarStime),NumTostr(Per선행8,2)+"%("+NumTostr(TL_GetValue(TL선행18,NextBarSdate,NextBarStime),2)+")"); Tx선행19 = Text_New(NextBarSdate,NextBarStime,TL_GetValue(TL선행19,NextBarSdate,NextBarStime),NumTostr(Per선행9,2)+"%("+NumTostr(TL_GetValue(TL선행19,NextBarSdate,NextBarStime),2)+")"); Text_SetStyle(Tx선행11,2,1); Text_SetStyle(Tx선행12,2,1); Text_SetStyle(Tx선행13,2,1); Text_SetStyle(Tx선행14,2,1); Text_SetStyle(Tx선행15,2,1); Text_SetStyle(Tx선행16,2,1); Text_SetStyle(Tx선행17,2,1); Text_SetStyle(Tx선행18,2,1); Text_SetStyle(Tx선행19,2,1); } } value1 = valArr선행[2]-valArr선행[3]; TL_SetEnd(TL선행1,NextBarSdate[barArr선행[1]],NextBarStime[barArr선행[1]],valArr선행[1]); if turnPntArr선행[1][0] == "Hi" Then { if valArr선행[1] == DayHigh(0) Then str선행 = "HH"; Else str선행 = "LH"; } Else { if valArr선행[1] == DayLow Then str선행 = "LL"; Else str선행 = "HL"; } Text_Setstring(Tx선행,str선행); Text_SeTLocation(Tx선행,NextBarSdate[barArr선행[1]],NextBarStime[barArr선행[1]],valArr선행[1]); //TL선행_SetBegin(TL선행11,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행1/100)); TL_SetEnd(TL선행11,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행1/100)); //TL선행_SetBegin(TL선행12,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행2/100)); TL_SetEnd(TL선행12,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행2/100)); //TL선행_SetBegin(TL선행13,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행3/100)); TL_SetEnd(TL선행13,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행3/100)); //TL선행_SetBegin(TL선행14,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행4/100)); TL_SetEnd(TL선행14,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행4/100)); //TL선행_SetBegin(TL선행15,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행5/100)); TL_SetEnd(TL선행15,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행5/100)); //TL선행_SetBegin(TL선행16,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행6/100)); TL_SetEnd(TL선행16,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행6/100)); //TL선행_SetBegin(TL선행17,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행7/100)); TL_SetEnd(TL선행17,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행7/100)); //TL선행_SetBegin(TL선행18,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행8/100)); TL_SetEnd(TL선행18,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행8/100)); //TL선행_SetBegin(TL선행19,NextBarSdate[barArr선행[2]],NextBarStime[barArr선행[2]],valArr선행[1]-value1*(Per선행9/100)); TL_SetEnd(TL선행19,NextBarSdate,NextBarStime,valArr선행[2]-value1*(Per선행9/100)); Text_SeTLocation(Tx선행11,NextBarSdate,NextBarStime,TL_GetValue(TL선행11,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행12,NextBarSdate,NextBarStime,TL_GetValue(TL선행12,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행13,NextBarSdate,NextBarStime,TL_GetValue(TL선행13,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행14,NextBarSdate,NextBarStime,TL_GetValue(TL선행14,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행15,NextBarSdate,NextBarStime,TL_GetValue(TL선행15,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행16,NextBarSdate,NextBarStime,TL_GetValue(TL선행16,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행17,NextBarSdate,NextBarStime,TL_GetValue(TL선행17,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행18,NextBarSdate,NextBarStime,TL_GetValue(TL선행18,NextBarSdate,NextBarStime)); Text_SeTLocation(Tx선행19,NextBarSdate,NextBarStime,TL_GetValue(TL선행19,NextBarSdate,NextBarStime)); Text_Setstring(Tx선행11,NumTostr(Per선행1,2)+"%("+NumTostr(TL_GetValue(TL선행11,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행12,NumTostr(Per선행2,2)+"%("+NumTostr(TL_GetValue(TL선행12,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행13,NumTostr(Per선행3,2)+"%("+NumTostr(TL_GetValue(TL선행13,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행14,NumTostr(Per선행4,2)+"%("+NumTostr(TL_GetValue(TL선행14,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행15,NumTostr(Per선행5,2)+"%("+NumTostr(TL_GetValue(TL선행15,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행16,NumTostr(Per선행6,2)+"%("+NumTostr(TL_GetValue(TL선행16,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행17,NumTostr(Per선행7,2)+"%("+NumTostr(TL_GetValue(TL선행17,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행18,NumTostr(Per선행8,2)+"%("+NumTostr(TL_GetValue(TL선행18,NextBarSdate,NextBarStime),2)+")"); Text_Setstring(Tx선행19,NumTostr(Per선행9,2)+"%("+NumTostr(TL_GetValue(TL선행19,NextBarSdate,NextBarStime),2)+")"); } TL_SetSize(TL선행1,굵기선행); TL_SetColor(TL선행1,black);