안녕하세요 예스스탁입니다. input : Left(5),right(5),표시소숫점자리(0),표시(1); var : T(0),cnt(0),TL(0),HTL1(0),HTL2(0),LTL1(0),LTL2(0); Array : SHD[5](0),SHT[5](0),SHV[5](0),SHTL[100](0),SHTX[100](0); Array : SLD[5](0),SLT[5](0),SLV[5](0),SLTL[100](0),SLTX[100](0); if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 then { var2 = 0; var1 = var1+1; if var1 == 1 then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; for cnt = 1 to 4 { SHD[cnt] = SHD[cnt-1][1]; SHT[cnt] = SHT[cnt-1][1]; SHV[cnt] = SHV[cnt-1][1]; } if SLV[0] > 0 Then { TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if var1 >= 2 and H[right] > SHV[0] then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; if SLV[0] > 0 Then { TL_Delete(TL); TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } SHTL[0] = TL_New(sdate[right],stime[right],H[right],sdate,stime,H[right]); TL_SetColor(SHTL[0],RED); if 표시 == 1 then SHTX[0] = Text_New(sdate,stime,H[right],NumToStr(H[right],표시소숫점자리)); Text_SetColor(SHTX[0],RED); Text_SetStyle(SHTX[0],2,1); for cnt = 1 to 99 { SHTL[cnt] = SHTL[cnt-1][1]; SHTX[cnt] = SHTX[cnt-1][1]; } } if SwingLow(1,L,Left,Right,Left+Right+1) != -1 then { #plot2(L,"2",blue); var1 = 0; var2 = var2+1; if var2 == 1 then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; for cnt = 1 to 4 { SLD[cnt] = SLD[cnt-1][1]; SLT[cnt] = SLT[cnt-1][1]; SLV[cnt] = SLV[cnt-1][1]; } if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if var2 >= 2 and L[right] < SLV[0] then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; TL_Delete(TL); if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } SLTL[0] = TL_New(sdate[right],stime[right],L[right],sdate,stime,L[right]); TL_SetColor(SLTL[0],BLUE); if 표시 == 1 then SLTX[0] = Text_New(sdate,stime,L[right],NumToStr(L[right],표시소숫점자리)); Text_SetColor(SLTX[0],BLUE); Text_SetStyle(SLTX[0],2,0); for cnt = 1 To 99 { SLTL[cnt] = SLTL[cnt-1][1]; SLTX[cnt] = SLTX[cnt-1][1]; } } TL_SetEnd(SHTL[0],sdate,stime,TL_GetBeginVal(SHTL[0])); TL_SetEnd(SLTL[0],sdate,stime,TL_GetBeginVal(SLTL[0])); Text_SetLocation(SHTX[0],sdate,stime,TL_GetBeginVal(SHTL[0])); Text_SetLocation(SLTX[0],sdate,stime,TL_GetBeginVal(SLTL[0])); for cnt = 1 to 99 { if SHTL[cnt] > 0 then { TL_SetEnd(SHTL[cnt],sdate,stime,TL_GetBeginVal(SHTL[cnt])); if H >= TL_GetBeginVal(SHTL[cnt]) Then SHTL[cnt] = 0; } if SLTL[cnt] > 0 then { TL_SetEnd(SLTL[cnt],sdate,stime,TL_GetBeginVal(SLTL[cnt])); if L <= TL_GetBeginVal(SLTL[cnt]) Then SLTL[cnt] = 0; } if SHTL[cnt] > 0 Then { Text_SetLocation(SHTX[cnt],sdate,stime,TL_GetBeginVal(SHTL[cnt])); } if SLTL[cnt] > 0 Then { Text_SetLocation(SLTX[cnt],sdate,stime,TL_GetBeginVal(SLTL[cnt])); } } 즐거운 하루되세요 > 왕팡 님이 쓴 글입니다. > 제목 : 요청합니다 > 가격표시를 선택적으로 보이게/안보이도록 부탁드립니다. input : Left(5),right(5),표시소숫점자리(0); var : T(0),cnt(0),TL(0),HTL1(0),HTL2(0),LTL1(0),LTL2(0); Array : SHD[5](0),SHT[5](0),SHV[5](0),SHTL[100](0),SHTX[100](0); Array : SLD[5](0),SLT[5](0),SLV[5](0),SLTL[100](0),SLTX[100](0); if SwingHigh(1,H,Left,Right,Left+Right+1) != -1 then { var2 = 0; var1 = var1+1; if var1 == 1 then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; for cnt = 1 to 4 { SHD[cnt] = SHD[cnt-1][1]; SHT[cnt] = SHT[cnt-1][1]; SHV[cnt] = SHV[cnt-1][1]; } if SLV[0] > 0 Then { TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } if var1 >= 2 and H[right] > SHV[0] then { SHD[0] = sdate[right]; SHT[0] = stime[right]; SHV[0] = H[right]; if SLV[0] > 0 Then { TL_Delete(TL); TL = TL_New(SLD[0],SLT[0],SLV[0],SHD[0],SHT[0],SHV[0]); } } SHTL[0] = TL_New(sdate[right],stime[right],H[right],sdate,stime,H[right]); TL_SetColor(SHTL[0],RED); SHTX[0] = Text_New(sdate,stime,H[right],NumToStr(H[right],표시소숫점자리)); Text_SetColor(SHTX[0],RED); Text_SetStyle(SHTX[0],2,1); for cnt = 1 to 99 { SHTL[cnt] = SHTL[cnt-1][1]; SHTX[cnt] = SHTX[cnt-1][1]; } } if SwingLow(1,L,Left,Right,Left+Right+1) != -1 then { #plot2(L,"2",blue); var1 = 0; var2 = var2+1; if var2 == 1 then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; for cnt = 1 to 4 { SLD[cnt] = SLD[cnt-1][1]; SLT[cnt] = SLT[cnt-1][1]; SLV[cnt] = SLV[cnt-1][1]; } if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } if var2 >= 2 and L[right] < SLV[0] then { SLD[0] = sdate[right]; SLT[0] = stime[right]; SLV[0] = L[right]; TL_Delete(TL); if SHV[0] > 0 Then { TL = TL_New(SHD[0],SHT[0],SHV[0],SLD[0],SLT[0],SLV[0]); } } SLTL[0] = TL_New(sdate[right],stime[right],L[right],sdate,stime,L[right]); TL_SetColor(SLTL[0],BLUE); SLTX[0] = Text_New(sdate,stime,L[right],NumToStr(L[right],표시소숫점자리)); Text_SetColor(SLTX[0],BLUE); Text_SetStyle(SLTX[0],2,0); for cnt = 1 To 99 { SLTL[cnt] = SLTL[cnt-1][1]; SLTX[cnt] = SLTX[cnt-1][1]; } } TL_SetEnd(SHTL[0],sdate,stime,TL_GetBeginVal(SHTL[0])); TL_SetEnd(SLTL[0],sdate,stime,TL_GetBeginVal(SLTL[0])); Text_SetLocation(SHTX[0],sdate,stime,TL_GetBeginVal(SHTL[0])); Text_SetLocation(SLTX[0],sdate,stime,TL_GetBeginVal(SLTL[0])); for cnt = 1 to 99 { if SHTL[cnt] > 0 then { TL_SetEnd(SHTL[cnt],sdate,stime,TL_GetBeginVal(SHTL[cnt])); if H >= TL_GetBeginVal(SHTL[cnt]) Then SHTL[cnt] = 0; } if SLTL[cnt] > 0 then { TL_SetEnd(SLTL[cnt],sdate,stime,TL_GetBeginVal(SLTL[cnt])); if L <= TL_GetBeginVal(SLTL[cnt]) Then SLTL[cnt] = 0; } if SHTL[cnt] > 0 Then { Text_SetLocation(SHTX[cnt],sdate,stime,TL_GetBeginVal(SHTL[cnt])); } if SLTL[cnt] > 0 Then { Text_SetLocation(SLTX[cnt],sdate,stime,TL_GetBeginVal(SLTL[cnt])); } }