커뮤니티
추가 문의 드립니다.
2015-11-03 17:15:02
250
글번호 92017
첨부 이미지
그림1
매우 성의있고 만족한
수식 답변(44823)에 깊이 깊이 감사 드립니다.
그림과 같이 텍스트 위치를 변경할려면
(별표 부분을 화살표 위치로)
70~73행을 어떻게 고치면 되는지요?
input : 소수점자리조정(10000);
input : 아시아시작(081000),아시아종료(152000);
input : 유럽시작(153000),유럽종료(213000);
input : 미국시작(214000),미국종료(065000);
var : cnt(0),Tcond1(false),Tcond2(false),Tcond3(false);
Array : TL11[10](0),TL12[10](0),TL13[10](0),TL14[10](0),Tx1[10](0),TX11[10](0);
Array : SD1[10](0),ST1[10](0),ED1[10](0),ET1[10](0),H1[10](0),L1[10](0);
Array : TL21[10](0),TL22[10](0),TL23[10](0),TL24[10](0),Tx2[10](0);
Array : SD2[10](0),ST2[10](0),ED2[10](0),ET2[10](0),H2[10](0),L2[10](0);
Array : TL31[10](0),TL32[10](0),TL33[10](0),TL34[10](0),Tx3[10](0);
Array : SD3[10](0),ST3[10](0),ED3[10](0),ET3[10](0),H3[10](0),L3[10](0);
if time == 아시아종료 or (time > 아시아종료 and time[1] < 아시아종료) Then
Tcond1 = false;
if stime == 아시아시작 or (stime > 아시아시작 and stime[1] < 아시아시작) Then{
SD1[0] = sdate;
ST1[0] = stime;
H1[0] = H;
L1[0] = L;
Tcond1 = true;
for cnt = 1 to 9{
SD1[cnt] = SD1[cnt-1][1];
ST1[cnt] = ST1[cnt-1][1];
ED1[cnt] = ED1[cnt-1][1];
ET1[cnt] = ET1[cnt-1][1];
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
#전일
TL_Delete(TL11[1]);
TL_Delete(TL12[1]);
TL_Delete(TL13[1]);
TL_Delete(TL14[1]);
TL11[1] = TL_New(SD1[1],ST1[1],H1[1],ED1[1],ET1[1],H1[1]);
TL12[1] = TL_New(SD1[1],ST1[1],L1[1],ED1[1],ET1[1],L1[1]);
TL13[1] = TL_New(SD1[1],ST1[1],H1[1],SD1[1],ST1[1],L1[1]);
TL14[1] = TL_New(ED1[1],ET1[1],H1[1],ED1[1],ET1[1],L1[1]);
TL_SetColor(TL11[1],RED);
TL_SetColor(TL12[1],RED);
TL_SetColor(TL13[1],RED);
TL_SetColor(TL14[1],RED);
Text_Delete(tx1[1]);
tx1[1] = Text_New(ED1[1],ET1[1],H1[1],NumToStr((H1[1]-L1[1])*소수점자리조정,0));
Text_SetColor(tx1[1],RED);
Text_SetStyle(tx1[1],1,1);
#전전일
TL_Delete(TL11[2]);
TL_Delete(TL12[2]);
TL_Delete(TL13[2]);
TL_Delete(TL14[2]);
TL11[2] = TL_New(SD1[2],ST1[2],H1[2],ED1[2],ET1[2],H1[2]);
TL12[2] = TL_New(SD1[2],ST1[2],L1[2],ED1[2],ET1[2],L1[2]);
TL13[2] = TL_New(SD1[2],ST1[2],H1[2],SD1[2],ST1[2],L1[2]);
TL14[2] = TL_New(ED1[2],ET1[2],H1[2],ED1[2],ET1[2],L1[2]);
TL_SetColor(TL11[2],RED);
TL_SetColor(TL12[2],RED);
TL_SetColor(TL13[2],RED);
TL_SetColor(TL14[2],RED);
Text_Delete(tx1[2]);
tx1[2] = Text_New(ED1[2],ET1[2],H1[2],NumToStr((H1[2]-L1[2])*소수점자리조정,0));
Text_SetColor(tx1[2],RED);
Text_SetStyle(tx1[2],1,1);
Text_Delete(tx11[2]);
tx11[2] = Text_New(ED1[2],ET1[2],H1[2],RIGHTStr("(-2일)",6));
Text_SetColor(tx11[2],RED);
Text_SetStyle(tx11[2],3,1);
}
if Tcond1 == true Then{
ED1[0] = Sdate;
ET1[0] = Stime;
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
#당일
TL_Delete(TL11[0]);
TL_Delete(TL12[0]);
TL_Delete(TL13[0]);
TL_Delete(TL14[0]);
TL11[0] = TL_New(SD1[0],ST1[0],H1[0],ED1[0],ET1[0],H1[0]);
TL12[0] = TL_New(SD1[0],ST1[0],L1[0],ED1[0],ET1[0],L1[0]);
TL13[0] = TL_New(SD1[0],ST1[0],H1[0],SD1[0],ST1[0],L1[0]);
TL14[0] = TL_New(ED1[0],ET1[0],H1[0],ED1[0],ET1[0],L1[0]);
TL_SetColor(TL11[0],RED);
TL_SetColor(TL12[0],RED);
TL_SetColor(TL13[0],RED);
TL_SetColor(TL14[0],RED);
Text_Delete(tx1[0]);
tx1[0] = Text_New(sdate,stime,H1[0],NumToStr((H1[0]-L1[0])*소수점자리조정,0));
Text_SetColor(tx1[0],RED);
Text_SetStyle(tx1[0],1,1);
}
if time == 유럽종료 or (time > 유럽종료 and time[1] < 유럽종료) Then
Tcond2 = false;
if stime == 유럽시작 or (stime > 유럽시작 and stime[1] < 유럽시작) Then{
SD2[0] = sdate;
ST2[0] = stime;
H2[0] = H;
L2[0] = L;
Tcond2 = true;
for cnt = 1 to 9{
SD2[cnt] = SD2[cnt-1][1];
ST2[cnt] = ST2[cnt-1][1];
ED2[cnt] = ED2[cnt-1][1];
ET2[cnt] = ET2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
#전일
TL_Delete(TL21[1]);
TL_Delete(TL22[1]);
TL_Delete(TL23[1]);
TL_Delete(TL24[1]);
TL21[1] = TL_New(SD2[1],ST2[1],H2[1],ED2[1],ET2[1],H2[1]);
TL22[1] = TL_New(SD2[1],ST2[1],L2[1],ED2[1],ET2[1],L2[1]);
TL23[1] = TL_New(SD2[1],ST2[1],H2[1],SD2[1],ST2[1],L2[1]);
TL24[1] = TL_New(ED2[1],ET2[1],H2[1],ED2[1],ET2[1],L2[1]);
TL_SetColor(TL21[1],YELLOW);
TL_SetColor(TL22[1],YELLOW);
TL_SetColor(TL23[1],YELLOW);
TL_SetColor(TL24[1],YELLOW);
Text_Delete(tx2[1]);
tx2[1] = Text_New(ED2[1],ET2[1],H2[1],NumToStr((H2[1]-L2[1])*소수점자리조정,0));
Text_SetColor(tx2[1],YELLOW);
Text_SetStyle(tx2[1],1,1);
#전전일
TL_Delete(TL21[2]);
TL_Delete(TL22[2]);
TL_Delete(TL23[2]);
TL_Delete(TL24[2]);
TL21[2] = TL_New(SD2[2],ST2[2],H2[2],ED2[2],ET2[2],H2[2]);
TL22[2] = TL_New(SD2[2],ST2[2],L2[2],ED2[2],ET2[2],L2[2]);
TL23[2] = TL_New(SD2[2],ST2[2],H2[2],SD2[2],ST2[2],L2[2]);
TL24[2] = TL_New(ED2[2],ET2[2],H2[2],ED2[2],ET2[2],L2[2]);
TL_SetColor(TL21[2],YELLOW);
TL_SetColor(TL22[2],YELLOW);
TL_SetColor(TL23[2],YELLOW);
TL_SetColor(TL24[2],YELLOW);
Text_Delete(tx2[2]);
tx2[2] = Text_New(ED2[2],ET2[2],H2[2],NumToStr((H2[2]-L2[2])*소수점자리조정,0));
Text_SetColor(tx2[2],YELLOW);
Text_SetStyle(tx2[2],1,1);
}
if Tcond2 == true Then{
ED2[0] = Sdate;
ET2[0] = Stime;
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
#당일
TL_Delete(TL21[0]);
TL_Delete(TL22[0]);
TL_Delete(TL23[0]);
TL_Delete(TL24[0]);
TL21[0] = TL_New(SD2[0],ST2[0],H2[0],ED2[0],ET2[0],H2[0]);
TL22[0] = TL_New(SD2[0],ST2[0],L2[0],ED2[0],ET2[0],L2[0]);
TL23[0] = TL_New(SD2[0],ST2[0],H2[0],SD2[0],ST2[0],L2[0]);
TL24[0] = TL_New(ED2[0],ET2[0],H2[0],ED2[0],ET2[0],L2[0]);
TL_SetColor(TL21[0],YELLOW);
TL_SetColor(TL22[0],YELLOW);
TL_SetColor(TL23[0],YELLOW);
TL_SetColor(TL24[0],YELLOW);
Text_Delete(tx2[0]);
tx2[0] = Text_New(sdate,stime,H2[0],NumToStr((H2[0]-L2[0])*소수점자리조정,0));
Text_SetColor(tx2[0],YELLOW);
Text_SetStyle(tx2[0],1,1);
}
if time == 미국종료 or (time > 미국종료 and time[1] < 미국종료) Then
Tcond3 = false;
if stime == 미국시작 or (stime > 미국시작 and stime[1] < 미국시작) Then{
SD3[0] = sdate;
ST3[0] = stime;
H3[0] = H;
L3[0] = L;
Tcond3 = true;
for cnt = 1 to 9{
SD3[cnt] = SD3[cnt-1][1];
ST3[cnt] = ST3[cnt-1][1];
ED3[cnt] = ED3[cnt-1][1];
ET3[cnt] = ET3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
#전일
TL_Delete(TL31[1]);
TL_Delete(TL32[1]);
TL_Delete(TL33[1]);
TL_Delete(TL34[1]);
TL31[1] = TL_New(SD3[1],ST3[1],H3[1],ED3[1],ET3[1],H3[1]);
TL32[1] = TL_New(SD3[1],ST3[1],L3[1],ED3[1],ET3[1],L3[1]);
TL33[1] = TL_New(SD3[1],ST3[1],H3[1],SD3[1],ST3[1],L3[1]);
TL34[1] = TL_New(ED3[1],ET3[1],H3[1],ED3[1],ET3[1],L3[1]);
TL_SetColor(TL31[1],BLUE);
TL_SetColor(TL32[1],BLUE);
TL_SetColor(TL33[1],BLUE);
TL_SetColor(TL34[1],BLUE);
Text_Delete(tx3[1]);
tx3[1] = Text_New(ED3[1],ET3[1],H3[1],NumToStr((H3[1]-L3[1])*소수점자리조정,0));
Text_SetColor(tx3[1],BLUE);
Text_SetStyle(tx3[1],1,1);
#전전일
TL_Delete(TL31[2]);
TL_Delete(TL32[2]);
TL_Delete(TL33[2]);
TL_Delete(TL34[2]);
TL31[2] = TL_New(SD3[2],ST3[2],H3[2],ED3[2],ET3[2],H3[2]);
TL32[2] = TL_New(SD3[2],ST3[2],L3[2],ED3[2],ET3[2],L3[2]);
TL33[2] = TL_New(SD3[2],ST3[2],H3[2],SD3[2],ST3[2],L3[2]);
TL34[2] = TL_New(ED3[2],ET3[2],H3[2],ED3[2],ET3[2],L3[2]);
TL_SetColor(TL31[2],BLUE);
TL_SetColor(TL32[2],BLUE);
TL_SetColor(TL33[2],BLUE);
TL_SetColor(TL34[2],BLUE);
Text_Delete(tx3[2]);
tx3[2] = Text_New(ED3[2],ET3[2],H3[2],NumToStr((H3[2]-L3[2])*소수점자리조정,0));
Text_SetColor(tx3[2],BLUE);
Text_SetStyle(tx3[2],1,1);
}
if Tcond3 == true Then{
ED3[0] = Sdate;
ET3[0] = Stime;
if H > H3[0] Then
H3[0] = H;
if L < L3[0] Then
L3[0] = L;
#당일
TL_Delete(TL31[0]);
TL_Delete(TL32[0]);
TL_Delete(TL33[0]);
TL_Delete(TL34[0]);
TL31[0] = TL_New(SD3[0],ST3[0],H3[0],ED3[0],ET3[0],H3[0]);
TL32[0] = TL_New(SD3[0],ST3[0],L3[0],ED3[0],ET3[0],L3[0]);
TL33[0] = TL_New(SD3[0],ST3[0],H3[0],SD3[0],ST3[0],L3[0]);
TL34[0] = TL_New(ED3[0],ET3[0],H3[0],ED3[0],ET3[0],L3[0]);
TL_SetColor(TL31[0],BLUE);
TL_SetColor(TL32[0],BLUE);
TL_SetColor(TL33[0],BLUE);
TL_SetColor(TL34[0],BLUE);
Text_Delete(tx3[0]);
tx3[0] = Text_New(sdate,stime,H3[0],NumToStr((H3[0]-L3[0])*소수점자리조정,0));
Text_SetColor(tx3[0],BLUE);
Text_SetStyle(tx3[0],1,1);
}
- 1. 92530_123qq.jpg (0.13 MB)
답변 1
예스스탁 예스스탁 답변
2015-11-03 17:51:59
안녕하세요
예스스탁입니다.
박스의 시작시간과 날짜는 SD,ST
마지막 시간과 날짜가 ED,ET각 배열에 저장이 됩니다.
현재 모두 ED,ET로 지정외 되어 있는데
SD,ST로 변경하시면 됩니다.
input : 아시아시작(081000),아시아종료(152000);
input : 유럽시작(153000),유럽종료(213000);
input : 미국시작(214000),미국종료(065000);
var : cnt(0),Tcond1(false),Tcond2(false),Tcond3(false);
Array : TL11[10](0),TL12[10](0),TL13[10](0),TL14[10](0),Tx1[10](0);
Array : SD1[10](0),ST1[10](0),ED1[10](0),ET1[10](0),H1[10](0),L1[10](0);
Array : TL21[10](0),TL22[10](0),TL23[10](0),TL24[10](0),Tx2[10](0);
Array : SD2[10](0),ST2[10](0),ED2[10](0),ET2[10](0),H2[10](0),L2[10](0);
Array : TL31[10](0),TL32[10](0),TL33[10](0),TL34[10](0),Tx3[10](0);
Array : SD3[10](0),ST3[10](0),ED3[10](0),ET3[10](0),H3[10](0),L3[10](0);
if time == 아시아종료 or (time > 아시아종료 and time[1] < 아시아종료) Then
Tcond1 = false;
if stime == 아시아시작 or (stime > 아시아시작 and stime[1] < 아시아시작) Then{
SD1[0] = sdate;
ST1[0] = stime;
H1[0] = H;
L1[0] = L;
Tcond1 = true;
for cnt = 1 to 9{
SD1[cnt] = SD1[cnt-1][1];
ST1[cnt] = ST1[cnt-1][1];
ED1[cnt] = ED1[cnt-1][1];
ET1[cnt] = ET1[cnt-1][1];
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
#전일
TL_Delete(TL11[1]);
TL_Delete(TL12[1]);
TL_Delete(TL13[1]);
TL_Delete(TL14[1]);
TL11[1] = TL_New(SD1[1],ST1[1],H1[1],ED1[1],ET1[1],H1[1]);
TL12[1] = TL_New(SD1[1],ST1[1],L1[1],ED1[1],ET1[1],L1[1]);
TL13[1] = TL_New(SD1[1],ST1[1],H1[1],SD1[1],ST1[1],L1[1]);
TL14[1] = TL_New(ED1[1],ET1[1],H1[1],ED1[1],ET1[1],L1[1]);
TL_SetColor(TL11[1],RED);
TL_SetColor(TL12[1],RED);
TL_SetColor(TL13[1],RED);
TL_SetColor(TL14[1],RED);
Text_Delete(tx1[1]);
tx1[1] = Text_New(SD1[1],ST1[1],H1[1],NumToStr((H1[1]-L1[1])*10000,0));
Text_SetColor(tx1[1],RED);
Text_SetStyle(tx1[1],2,1);
#전전일
TL_Delete(TL11[2]);
TL_Delete(TL12[2]);
TL_Delete(TL13[2]);
TL_Delete(TL14[2]);
TL11[2] = TL_New(SD1[2],ST1[2],H1[2],ED1[2],ET1[2],H1[2]);
TL12[2] = TL_New(SD1[2],ST1[2],L1[2],ED1[2],ET1[2],L1[2]);
TL13[2] = TL_New(SD1[2],ST1[2],H1[2],SD1[2],ST1[2],L1[2]);
TL14[2] = TL_New(ED1[2],ET1[2],H1[2],ED1[2],ET1[2],L1[2]);
TL_SetColor(TL11[2],RED);
TL_SetColor(TL12[2],RED);
TL_SetColor(TL13[2],RED);
TL_SetColor(TL14[2],RED);
Text_Delete(tx1[2]);
tx1[2] = Text_New(SD1[2],ST1[2],H1[2],NumToStr((H1[2]-L1[2])*10000,0));
Text_SetColor(tx1[2],RED);
Text_SetStyle(tx1[2],2,1);
}
if Tcond1 == true Then{
ED1[0] = Sdate;
ET1[0] = Stime;
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
#당일
TL_Delete(TL11[0]);
TL_Delete(TL12[0]);
TL_Delete(TL13[0]);
TL_Delete(TL14[0]);
TL11[0] = TL_New(SD1[0],ST1[0],H1[0],ED1[0],ET1[0],H1[0]);
TL12[0] = TL_New(SD1[0],ST1[0],L1[0],ED1[0],ET1[0],L1[0]);
TL13[0] = TL_New(SD1[0],ST1[0],H1[0],SD1[0],ST1[0],L1[0]);
TL14[0] = TL_New(ED1[0],ET1[0],H1[0],ED1[0],ET1[0],L1[0]);
TL_SetColor(TL11[0],RED);
TL_SetColor(TL12[0],RED);
TL_SetColor(TL13[0],RED);
TL_SetColor(TL14[0],RED);
Text_Delete(tx1[0]);
tx1[0] = Text_New(SD1[0],ST1[0],H1[0],NumToStr((H1[0]-L1[0])*10000,0));
Text_SetColor(tx1[0],RED);
Text_SetStyle(tx1[0],2,1);
}
if time == 유럽종료 or (time > 유럽종료 and time[1] < 유럽종료) Then
Tcond2 = false;
if stime == 유럽시작 or (stime > 유럽시작 and stime[1] < 유럽시작) Then{
SD2[0] = sdate;
ST2[0] = stime;
H2[0] = H;
L2[0] = L;
Tcond2 = true;
for cnt = 1 to 9{
SD2[cnt] = SD2[cnt-1][1];
ST2[cnt] = ST2[cnt-1][1];
ED2[cnt] = ED2[cnt-1][1];
ET2[cnt] = ET2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
#전일
TL_Delete(TL21[1]);
TL_Delete(TL22[1]);
TL_Delete(TL23[1]);
TL_Delete(TL24[1]);
TL21[1] = TL_New(SD2[1],ST2[1],H2[1],ED2[1],ET2[1],H2[1]);
TL22[1] = TL_New(SD2[1],ST2[1],L2[1],ED2[1],ET2[1],L2[1]);
TL23[1] = TL_New(SD2[1],ST2[1],H2[1],SD2[1],ST2[1],L2[1]);
TL24[1] = TL_New(ED2[1],ET2[1],H2[1],ED2[1],ET2[1],L2[1]);
TL_SetColor(TL21[1],YELLOW);
TL_SetColor(TL22[1],YELLOW);
TL_SetColor(TL23[1],YELLOW);
TL_SetColor(TL24[1],YELLOW);
Text_Delete(tx2[1]);
tx2[1] = Text_New(SD2[1],ST2[1],H2[1],NumToStr((H2[1]-L2[1])*10000,0));
Text_SetColor(tx2[1],YELLOW);
Text_SetStyle(tx2[1],2,1);
#전전일
TL_Delete(TL21[2]);
TL_Delete(TL22[2]);
TL_Delete(TL23[2]);
TL_Delete(TL24[2]);
TL21[2] = TL_New(SD2[2],ST2[2],H2[2],ED2[2],ET2[2],H2[2]);
TL22[2] = TL_New(SD2[2],ST2[2],L2[2],ED2[2],ET2[2],L2[2]);
TL23[2] = TL_New(SD2[2],ST2[2],H2[2],SD2[2],ST2[2],L2[2]);
TL24[2] = TL_New(ED2[2],ET2[2],H2[2],ED2[2],ET2[2],L2[2]);
TL_SetColor(TL21[2],YELLOW);
TL_SetColor(TL22[2],YELLOW);
TL_SetColor(TL23[2],YELLOW);
TL_SetColor(TL24[2],YELLOW);
Text_Delete(tx2[2]);
tx2[2] = Text_New(SD2[2],ST2[2],H2[2],NumToStr((H2[2]-L2[2])*10000,0));
Text_SetColor(tx2[2],YELLOW);
Text_SetStyle(tx2[2],2,1);
}
if Tcond2 == true Then{
ED2[0] = Sdate;
ET2[0] = Stime;
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
#당일
TL_Delete(TL21[0]);
TL_Delete(TL22[0]);
TL_Delete(TL23[0]);
TL_Delete(TL24[0]);
TL21[0] = TL_New(SD2[0],ST2[0],H2[0],ED2[0],ET2[0],H2[0]);
TL22[0] = TL_New(SD2[0],ST2[0],L2[0],ED2[0],ET2[0],L2[0]);
TL23[0] = TL_New(SD2[0],ST2[0],H2[0],SD2[0],ST2[0],L2[0]);
TL24[0] = TL_New(ED2[0],ET2[0],H2[0],ED2[0],ET2[0],L2[0]);
TL_SetColor(TL21[0],YELLOW);
TL_SetColor(TL22[0],YELLOW);
TL_SetColor(TL23[0],YELLOW);
TL_SetColor(TL24[0],YELLOW);
Text_Delete(tx2[0]);
tx2[0] = Text_New(SD2[0],ST2[0],H2[0],NumToStr((H2[0]-L2[0])*10000,0));
Text_SetColor(tx2[0],YELLOW);
Text_SetStyle(tx2[0],2,1);
}
if time == 미국종료 or (time > 미국종료 and time[1] < 미국종료) Then
Tcond3 = false;
if stime == 미국시작 or (stime > 미국시작 and stime[1] < 미국시작) Then{
SD3[0] = sdate;
ST3[0] = stime;
H3[0] = H;
L3[0] = L;
Tcond3 = true;
for cnt = 1 to 9{
SD3[cnt] = SD3[cnt-1][1];
ST3[cnt] = ST3[cnt-1][1];
ED3[cnt] = ED3[cnt-1][1];
ET3[cnt] = ET3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
#전일
TL_Delete(TL31[1]);
TL_Delete(TL32[1]);
TL_Delete(TL33[1]);
TL_Delete(TL34[1]);
TL31[1] = TL_New(SD3[1],ST3[1],H3[1],ED3[1],ET3[1],H3[1]);
TL32[1] = TL_New(SD3[1],ST3[1],L3[1],ED3[1],ET3[1],L3[1]);
TL33[1] = TL_New(SD3[1],ST3[1],H3[1],SD3[1],ST3[1],L3[1]);
TL34[1] = TL_New(ED3[1],ET3[1],H3[1],ED3[1],ET3[1],L3[1]);
TL_SetColor(TL31[1],BLUE);
TL_SetColor(TL32[1],BLUE);
TL_SetColor(TL33[1],BLUE);
TL_SetColor(TL34[1],BLUE);
Text_Delete(tx3[1]);
tx3[1] = Text_New(SD3[1],ST3[1],H3[1],NumToStr((H3[1]-L3[1])*10000,0));
Text_SetColor(tx3[1],BLUE);
Text_SetStyle(tx3[1],2,1);
#전전일
TL_Delete(TL31[2]);
TL_Delete(TL32[2]);
TL_Delete(TL33[2]);
TL_Delete(TL34[2]);
TL31[2] = TL_New(SD3[2],ST3[2],H3[2],ED3[2],ET3[2],H3[2]);
TL32[2] = TL_New(SD3[2],ST3[2],L3[2],ED3[2],ET3[2],L3[2]);
TL33[2] = TL_New(SD3[2],ST3[2],H3[2],SD3[2],ST3[2],L3[2]);
TL34[2] = TL_New(ED3[2],ET3[2],H3[2],ED3[2],ET3[2],L3[2]);
TL_SetColor(TL31[2],BLUE);
TL_SetColor(TL32[2],BLUE);
TL_SetColor(TL33[2],BLUE);
TL_SetColor(TL34[2],BLUE);
Text_Delete(tx3[2]);
tx3[2] = Text_New(SD3[2],ST3[2],H3[2],NumToStr((H3[2]-L3[2])*10000,0));
Text_SetColor(tx3[2],BLUE);
Text_SetStyle(tx3[2],2,1);
}
if Tcond3 == true Then{
ED3[0] = Sdate;
ET3[0] = Stime;
if H > H3[0] Then
H3[0] = H;
if L < L3[0] Then
L3[0] = L;
#당일
TL_Delete(TL31[0]);
TL_Delete(TL32[0]);
TL_Delete(TL33[0]);
TL_Delete(TL34[0]);
TL31[0] = TL_New(SD3[0],ST3[0],H3[0],ED3[0],ET3[0],H3[0]);
TL32[0] = TL_New(SD3[0],ST3[0],L3[0],ED3[0],ET3[0],L3[0]);
TL33[0] = TL_New(SD3[0],ST3[0],H3[0],SD3[0],ST3[0],L3[0]);
TL34[0] = TL_New(ED3[0],ET3[0],H3[0],ED3[0],ET3[0],L3[0]);
TL_SetColor(TL31[0],BLUE);
TL_SetColor(TL32[0],BLUE);
TL_SetColor(TL33[0],BLUE);
TL_SetColor(TL34[0],BLUE);
Text_Delete(tx3[0]);
tx3[0] = Text_New(SD3[0],ST3[0],H3[0],NumToStr((H3[0]-L3[0])*10000,0));
Text_SetColor(tx3[0],BLUE);
Text_SetStyle(tx3[0],2,1);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 추가 문의 드립니다.
> 매우 성의있고 만족한
수식 답변(44823)에 깊이 깊이 감사 드립니다.
그림과 같이 텍스트 위치를 변경할려면
(별표 부분을 화살표 위치로)
70~73행을 어떻게 고치면 되는지요?
input : 소수점자리조정(10000);
input : 아시아시작(081000),아시아종료(152000);
input : 유럽시작(153000),유럽종료(213000);
input : 미국시작(214000),미국종료(065000);
var : cnt(0),Tcond1(false),Tcond2(false),Tcond3(false);
Array : TL11[10](0),TL12[10](0),TL13[10](0),TL14[10](0),Tx1[10](0),TX11[10](0);
Array : SD1[10](0),ST1[10](0),ED1[10](0),ET1[10](0),H1[10](0),L1[10](0);
Array : TL21[10](0),TL22[10](0),TL23[10](0),TL24[10](0),Tx2[10](0);
Array : SD2[10](0),ST2[10](0),ED2[10](0),ET2[10](0),H2[10](0),L2[10](0);
Array : TL31[10](0),TL32[10](0),TL33[10](0),TL34[10](0),Tx3[10](0);
Array : SD3[10](0),ST3[10](0),ED3[10](0),ET3[10](0),H3[10](0),L3[10](0);
if time == 아시아종료 or (time > 아시아종료 and time[1] < 아시아종료) Then
Tcond1 = false;
if stime == 아시아시작 or (stime > 아시아시작 and stime[1] < 아시아시작) Then{
SD1[0] = sdate;
ST1[0] = stime;
H1[0] = H;
L1[0] = L;
Tcond1 = true;
for cnt = 1 to 9{
SD1[cnt] = SD1[cnt-1][1];
ST1[cnt] = ST1[cnt-1][1];
ED1[cnt] = ED1[cnt-1][1];
ET1[cnt] = ET1[cnt-1][1];
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
#전일
TL_Delete(TL11[1]);
TL_Delete(TL12[1]);
TL_Delete(TL13[1]);
TL_Delete(TL14[1]);
TL11[1] = TL_New(SD1[1],ST1[1],H1[1],ED1[1],ET1[1],H1[1]);
TL12[1] = TL_New(SD1[1],ST1[1],L1[1],ED1[1],ET1[1],L1[1]);
TL13[1] = TL_New(SD1[1],ST1[1],H1[1],SD1[1],ST1[1],L1[1]);
TL14[1] = TL_New(ED1[1],ET1[1],H1[1],ED1[1],ET1[1],L1[1]);
TL_SetColor(TL11[1],RED);
TL_SetColor(TL12[1],RED);
TL_SetColor(TL13[1],RED);
TL_SetColor(TL14[1],RED);
Text_Delete(tx1[1]);
tx1[1] = Text_New(ED1[1],ET1[1],H1[1],NumToStr((H1[1]-L1[1])*소수점자리조정,0));
Text_SetColor(tx1[1],RED);
Text_SetStyle(tx1[1],1,1);
#전전일
TL_Delete(TL11[2]);
TL_Delete(TL12[2]);
TL_Delete(TL13[2]);
TL_Delete(TL14[2]);
TL11[2] = TL_New(SD1[2],ST1[2],H1[2],ED1[2],ET1[2],H1[2]);
TL12[2] = TL_New(SD1[2],ST1[2],L1[2],ED1[2],ET1[2],L1[2]);
TL13[2] = TL_New(SD1[2],ST1[2],H1[2],SD1[2],ST1[2],L1[2]);
TL14[2] = TL_New(ED1[2],ET1[2],H1[2],ED1[2],ET1[2],L1[2]);
TL_SetColor(TL11[2],RED);
TL_SetColor(TL12[2],RED);
TL_SetColor(TL13[2],RED);
TL_SetColor(TL14[2],RED);
Text_Delete(tx1[2]);
tx1[2] = Text_New(ED1[2],ET1[2],H1[2],NumToStr((H1[2]-L1[2])*소수점자리조정,0));
Text_SetColor(tx1[2],RED);
Text_SetStyle(tx1[2],1,1);
Text_Delete(tx11[2]);
tx11[2] = Text_New(ED1[2],ET1[2],H1[2],RIGHTStr("(-2일)",6));
Text_SetColor(tx11[2],RED);
Text_SetStyle(tx11[2],3,1);
}
if Tcond1 == true Then{
ED1[0] = Sdate;
ET1[0] = Stime;
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
#당일
TL_Delete(TL11[0]);
TL_Delete(TL12[0]);
TL_Delete(TL13[0]);
TL_Delete(TL14[0]);
TL11[0] = TL_New(SD1[0],ST1[0],H1[0],ED1[0],ET1[0],H1[0]);
TL12[0] = TL_New(SD1[0],ST1[0],L1[0],ED1[0],ET1[0],L1[0]);
TL13[0] = TL_New(SD1[0],ST1[0],H1[0],SD1[0],ST1[0],L1[0]);
TL14[0] = TL_New(ED1[0],ET1[0],H1[0],ED1[0],ET1[0],L1[0]);
TL_SetColor(TL11[0],RED);
TL_SetColor(TL12[0],RED);
TL_SetColor(TL13[0],RED);
TL_SetColor(TL14[0],RED);
Text_Delete(tx1[0]);
tx1[0] = Text_New(sdate,stime,H1[0],NumToStr((H1[0]-L1[0])*소수점자리조정,0));
Text_SetColor(tx1[0],RED);
Text_SetStyle(tx1[0],1,1);
}
if time == 유럽종료 or (time > 유럽종료 and time[1] < 유럽종료) Then
Tcond2 = false;
if stime == 유럽시작 or (stime > 유럽시작 and stime[1] < 유럽시작) Then{
SD2[0] = sdate;
ST2[0] = stime;
H2[0] = H;
L2[0] = L;
Tcond2 = true;
for cnt = 1 to 9{
SD2[cnt] = SD2[cnt-1][1];
ST2[cnt] = ST2[cnt-1][1];
ED2[cnt] = ED2[cnt-1][1];
ET2[cnt] = ET2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
#전일
TL_Delete(TL21[1]);
TL_Delete(TL22[1]);
TL_Delete(TL23[1]);
TL_Delete(TL24[1]);
TL21[1] = TL_New(SD2[1],ST2[1],H2[1],ED2[1],ET2[1],H2[1]);
TL22[1] = TL_New(SD2[1],ST2[1],L2[1],ED2[1],ET2[1],L2[1]);
TL23[1] = TL_New(SD2[1],ST2[1],H2[1],SD2[1],ST2[1],L2[1]);
TL24[1] = TL_New(ED2[1],ET2[1],H2[1],ED2[1],ET2[1],L2[1]);
TL_SetColor(TL21[1],YELLOW);
TL_SetColor(TL22[1],YELLOW);
TL_SetColor(TL23[1],YELLOW);
TL_SetColor(TL24[1],YELLOW);
Text_Delete(tx2[1]);
tx2[1] = Text_New(ED2[1],ET2[1],H2[1],NumToStr((H2[1]-L2[1])*소수점자리조정,0));
Text_SetColor(tx2[1],YELLOW);
Text_SetStyle(tx2[1],1,1);
#전전일
TL_Delete(TL21[2]);
TL_Delete(TL22[2]);
TL_Delete(TL23[2]);
TL_Delete(TL24[2]);
TL21[2] = TL_New(SD2[2],ST2[2],H2[2],ED2[2],ET2[2],H2[2]);
TL22[2] = TL_New(SD2[2],ST2[2],L2[2],ED2[2],ET2[2],L2[2]);
TL23[2] = TL_New(SD2[2],ST2[2],H2[2],SD2[2],ST2[2],L2[2]);
TL24[2] = TL_New(ED2[2],ET2[2],H2[2],ED2[2],ET2[2],L2[2]);
TL_SetColor(TL21[2],YELLOW);
TL_SetColor(TL22[2],YELLOW);
TL_SetColor(TL23[2],YELLOW);
TL_SetColor(TL24[2],YELLOW);
Text_Delete(tx2[2]);
tx2[2] = Text_New(ED2[2],ET2[2],H2[2],NumToStr((H2[2]-L2[2])*소수점자리조정,0));
Text_SetColor(tx2[2],YELLOW);
Text_SetStyle(tx2[2],1,1);
}
if Tcond2 == true Then{
ED2[0] = Sdate;
ET2[0] = Stime;
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
#당일
TL_Delete(TL21[0]);
TL_Delete(TL22[0]);
TL_Delete(TL23[0]);
TL_Delete(TL24[0]);
TL21[0] = TL_New(SD2[0],ST2[0],H2[0],ED2[0],ET2[0],H2[0]);
TL22[0] = TL_New(SD2[0],ST2[0],L2[0],ED2[0],ET2[0],L2[0]);
TL23[0] = TL_New(SD2[0],ST2[0],H2[0],SD2[0],ST2[0],L2[0]);
TL24[0] = TL_New(ED2[0],ET2[0],H2[0],ED2[0],ET2[0],L2[0]);
TL_SetColor(TL21[0],YELLOW);
TL_SetColor(TL22[0],YELLOW);
TL_SetColor(TL23[0],YELLOW);
TL_SetColor(TL24[0],YELLOW);
Text_Delete(tx2[0]);
tx2[0] = Text_New(sdate,stime,H2[0],NumToStr((H2[0]-L2[0])*소수점자리조정,0));
Text_SetColor(tx2[0],YELLOW);
Text_SetStyle(tx2[0],1,1);
}
if time == 미국종료 or (time > 미국종료 and time[1] < 미국종료) Then
Tcond3 = false;
if stime == 미국시작 or (stime > 미국시작 and stime[1] < 미국시작) Then{
SD3[0] = sdate;
ST3[0] = stime;
H3[0] = H;
L3[0] = L;
Tcond3 = true;
for cnt = 1 to 9{
SD3[cnt] = SD3[cnt-1][1];
ST3[cnt] = ST3[cnt-1][1];
ED3[cnt] = ED3[cnt-1][1];
ET3[cnt] = ET3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
#전일
TL_Delete(TL31[1]);
TL_Delete(TL32[1]);
TL_Delete(TL33[1]);
TL_Delete(TL34[1]);
TL31[1] = TL_New(SD3[1],ST3[1],H3[1],ED3[1],ET3[1],H3[1]);
TL32[1] = TL_New(SD3[1],ST3[1],L3[1],ED3[1],ET3[1],L3[1]);
TL33[1] = TL_New(SD3[1],ST3[1],H3[1],SD3[1],ST3[1],L3[1]);
TL34[1] = TL_New(ED3[1],ET3[1],H3[1],ED3[1],ET3[1],L3[1]);
TL_SetColor(TL31[1],BLUE);
TL_SetColor(TL32[1],BLUE);
TL_SetColor(TL33[1],BLUE);
TL_SetColor(TL34[1],BLUE);
Text_Delete(tx3[1]);
tx3[1] = Text_New(ED3[1],ET3[1],H3[1],NumToStr((H3[1]-L3[1])*소수점자리조정,0));
Text_SetColor(tx3[1],BLUE);
Text_SetStyle(tx3[1],1,1);
#전전일
TL_Delete(TL31[2]);
TL_Delete(TL32[2]);
TL_Delete(TL33[2]);
TL_Delete(TL34[2]);
TL31[2] = TL_New(SD3[2],ST3[2],H3[2],ED3[2],ET3[2],H3[2]);
TL32[2] = TL_New(SD3[2],ST3[2],L3[2],ED3[2],ET3[2],L3[2]);
TL33[2] = TL_New(SD3[2],ST3[2],H3[2],SD3[2],ST3[2],L3[2]);
TL34[2] = TL_New(ED3[2],ET3[2],H3[2],ED3[2],ET3[2],L3[2]);
TL_SetColor(TL31[2],BLUE);
TL_SetColor(TL32[2],BLUE);
TL_SetColor(TL33[2],BLUE);
TL_SetColor(TL34[2],BLUE);
Text_Delete(tx3[2]);
tx3[2] = Text_New(ED3[2],ET3[2],H3[2],NumToStr((H3[2]-L3[2])*소수점자리조정,0));
Text_SetColor(tx3[2],BLUE);
Text_SetStyle(tx3[2],1,1);
}
if Tcond3 == true Then{
ED3[0] = Sdate;
ET3[0] = Stime;
if H > H3[0] Then
H3[0] = H;
if L < L3[0] Then
L3[0] = L;
#당일
TL_Delete(TL31[0]);
TL_Delete(TL32[0]);
TL_Delete(TL33[0]);
TL_Delete(TL34[0]);
TL31[0] = TL_New(SD3[0],ST3[0],H3[0],ED3[0],ET3[0],H3[0]);
TL32[0] = TL_New(SD3[0],ST3[0],L3[0],ED3[0],ET3[0],L3[0]);
TL33[0] = TL_New(SD3[0],ST3[0],H3[0],SD3[0],ST3[0],L3[0]);
TL34[0] = TL_New(ED3[0],ET3[0],H3[0],ED3[0],ET3[0],L3[0]);
TL_SetColor(TL31[0],BLUE);
TL_SetColor(TL32[0],BLUE);
TL_SetColor(TL33[0],BLUE);
TL_SetColor(TL34[0],BLUE);
Text_Delete(tx3[0]);
tx3[0] = Text_New(sdate,stime,H3[0],NumToStr((H3[0]-L3[0])*소수점자리조정,0));
Text_SetColor(tx3[0],BLUE);
Text_SetStyle(tx3[0],1,1);
}
이전글