커뮤니티
부탁 드립니다.
2015-11-03 12:41:31
258
글번호 91979
첨부 이미지
그림1
항상 만족한 수식으로 도움 주셔셔 감사합니다.
44778번의 추가 질문 입니다.
2일전의 아시아장의 박스(유로화)설정 하고자
시도 하였으나 실행이 되지 않습니다.(10:00경)
(70행에서 100행까지)
수정 부탁 드립니다.
미리 감사 드립니다.
input : 아시아시작(081000),아시아종료(152000);
input : 유럽시작(153000),유럽종료(213000);
input : 미국시작(214000),미국종료(065000);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : D4(0),T4(0),H4(0),L4(0),Tcond4(false);
var : D5(0),T5(0),H5(0),L5(0),Tcond5(false);
var : D6(0),T6(0),H6(0),L6(0),Tcond6(false);
var : D7(0),T7(0),H7(0),L7(0),Tcond7(false);
var : D8(0),T8(0),H8(0),L8(0),Tcond8(false);
var : D9(0),T9(0),H9(0),L9(0),Tcond9(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : ED4(0),ET4(0),ED5(0),ET5(0),ED6(0),ET6(0);
var : ED7(0),ET7(0),ED8(0),ET8(0),ED9(0),ET9(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL1112(0),TL1212(0),TL1312(0),TL1412(0);
var : TL1113(0),TL1213(0),TL1313(0),TL1413(0);
var : TL1114(0),TL1214(0),TL1314(0),TL1414(0);
var : TL1115(0),TL1215(0),TL1315(0),TL1415(0);
var : TL1116(0),TL1216(0),TL1316(0),TL1416(0);
var : TL1117(0),TL1217(0),TL1317(0),TL1417(0);
var : TL1118(0),TL1218(0),TL1318(0),TL1418(0);
var : TL1119(0),TL1219(0),TL1319(0),TL1419(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL2112(0),TL2212(0),TL2312(0),TL2412(0);
var : TL2113(0),TL2213(0),TL2313(0),TL2413(0);
var : TL2114(0),TL2214(0),TL2314(0),TL2414(0);
var : TL2115(0),TL2215(0),TL2315(0),TL2415(0);
var : TL2116(0),TL2216(0),TL2316(0),TL2416(0);
var : TL2117(0),TL2217(0),TL2317(0),TL2417(0);
var : TL2118(0),TL2218(0),TL2318(0),TL2418(0);
var : TL2119(0),TL2219(0),TL2319(0),TL2419(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : TL3112(0),TL3212(0),TL3312(0),TL3412(0);
var : TL3113(0),TL3213(0),TL3313(0),TL3413(0);
var : TL3114(0),TL3214(0),TL3314(0),TL3414(0);
var : TL3115(0),TL3215(0),TL3315(0),TL3415(0);
var : TL3116(0),TL3216(0),TL3316(0),TL3416(0);
var : TL3117(0),TL3217(0),TL3317(0),TL3417(0);
var : TL3118(0),TL3218(0),TL3318(0),TL3418(0);
var : TL3119(0),TL3219(0),TL3319(0),TL3419(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
var : tx112(0),tx212(0),tx312(0);
var : tx113(0),tx213(0),tx313(0);
var : tx114(0),tx214(0),tx314(0);
var : tx115(0),tx215(0),tx315(0);
var : tx116(0),tx216(0),tx316(0);
var : tx117(0),tx217(0),tx317(0);
var : tx118(0),tx218(0),tx318(0);
var : tx119(0),tx219(0),tx319(0);
//아래 부분은 에러로 수정해야 할 부분 입니다.
if time == 아시아종료 or (time[1] > 아시아종료 and time[2] < 아시아종료) Then
Tcond4 = false;
if stime == 아시아시작 or (stime[1] > 아시아시작 and stime[2] < 아시아시작) Then{
D4 = sdate[1];
T4 = stime[1];
H4 = H;
L4 = L;
Tcond4 = true;
if d4[2] > 0 and ED4[2] > 0 Then{
TL_Delete(TL1112);
TL_Delete(TL1212);
TL_Delete(TL1312);
TL_Delete(TL1412);
TL1112 = TL_New(D4[2],T4[2],H4[2],ED4,ET4,H4[2]);
TL1212 = TL_New(D4[2],T4[2],L4[2],ED4,ET4,L4[2]);
TL1312 = TL_New(D4[2],T4[2],H4[2],D4[2],T4[2],L4[2]);
TL1412 = TL_New(ED4,ET4,H4[2],ED4,ET4,L4[2]);
TL_SetColor(TL1112,RED);
TL_SetColor(TL1212,RED);
TL_SetColor(TL1312,RED);
TL_SetColor(TL1412,RED);
Text_Delete(tx112);
tx112 = Text_New(ED4[2],ET4[2],H4[2],NumToStr((H4[2]-L4[2])*10000,0));
Text_SetColor(tx112,RED);
Text_SetColor(tx112,RED);
}
}
//이상은 에러 부분 입니다.
//아래부분은 정상 가동 됩니다.
if time == 아시아종료 or (time > 아시아종료 and time[1] < 아시아종료) Then
Tcond1 = false;
if stime == 아시아시작 or (stime > 아시아시작 and stime[1] < 아시아시작) Then{
D1 = sdate;
T1 = stime;
H1 = H;
L1 = L;
Tcond1 = true;
if d1[1] > 0 and ED1 > 0 Then{
TL_Delete(TL111);
TL_Delete(TL121);
TL_Delete(TL131);
TL_Delete(TL141);
TL111 = TL_New(D1[1],T1[1],H1[1],ED1,ET1,H1[1]);
TL121 = TL_New(D1[1],T1[1],L1[1],ED1,ET1,L1[1]);
TL131 = TL_New(D1[1],T1[1],H1[1],D1[1],T1[1],L1[1]);
TL141 = TL_New(ED1,ET1,H1[1],ED1,ET1,L1[1]);
TL_SetColor(TL111,RED);
TL_SetColor(TL121,RED);
TL_SetColor(TL131,RED);
TL_SetColor(TL141,RED);
Text_Delete(tx11);
tx11 = Text_New(ED1,ET1,H1[1],NumToStr((H1[1]-L1[1])*10000,0));
Text_SetColor(tx11,RED);
}
}
if Tcond1 == true Then{
if H > H1 Then
H1 = H;
if L < L1 Then
L1 = L;
ED1 = sdate;
ET1 = stime;
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL13);
TL_Delete(TL14);
TL11 = TL_New(D1,T1,H1,Sdate,stime,H1);
TL12 = TL_New(D1,T1,L1,Sdate,stime,L1);
TL13 = TL_New(D1,T1,H1,D1,T1,L1);
TL14 = TL_New(sdate,stime,H1,sdate,stime,L1);
TL_SetColor(TL11,RED);
TL_SetColor(TL12,RED);
TL_SetColor(TL13,RED);
TL_SetColor(TL14,RED);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H1,NumToStr((H1-L1)*10000,0));
Text_SetColor(tx1,RED);
}
if time == 유럽종료 or (time > 유럽종료 and time[1] < 유럽종료) Then
Tcond2 = false;
if stime == 유럽시작 or (stime > 유럽시작 and stime[1] < 유럽시작) Then{
D2 = sdate;
T2 = stime;
H2 = H;
L2 = L;
Tcond2 = true;
if d2[1] > 0 and ED2 > 0 Then{
TL_Delete(TL211);
TL_Delete(TL221);
TL_Delete(TL231);
TL_Delete(TL241);
TL211 = TL_New(D2[1],T2[1],H2[1],ED2,ET2,H2[1]);
TL221 = TL_New(D2[1],T2[1],L2[1],ED2,ET2,L2[1]);
TL231 = TL_New(D2[1],T2[1],H2[1],D2[1],T2[1],L2[1]);
TL241 = TL_New(ED2,ET2,H2[1],ED2,ET2,L2[1]);
TL_SetColor(TL211,YELLOW);
TL_SetColor(TL221,YELLOW);
TL_SetColor(TL231,YELLOW);
TL_SetColor(TL241,YELLOW);
Text_Delete(tx21);
tx21 = Text_New(ED2,ET2,H2[1],NumToStr((H2[1]-L2[1])*10000,0));
Text_SetColor(tx21,YELLOW);
}
}
if Tcond2 == true Then{
if H > H2 Then
H2 = H;
if L < L2 Then
L2 = L;
ED2 = sdate;
ET2 = stime;
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL21 = TL_New(D2,T2,H2,Sdate,stime,H2);
TL22 = TL_New(D2,T2,L2,Sdate,stime,L2);
TL23 = TL_New(D2,T2,H2,D2,T2,L2);
TL24 = TL_New(sdate,stime,H2,sdate,stime,L2);
TL_SetColor(TL21,YELLOW);
TL_SetColor(TL22,YELLOW);
TL_SetColor(TL23,YELLOW);
TL_SetColor(TL24,YELLOW);
Text_Delete(tx2);
tx2 = Text_New(sdate,stime,H2,NumToStr((H2-L2)*10000,0));
Text_SetColor(tx2,YELLOW);
}
if time == 미국종료 or (time > 미국종료 and time[1] < 미국종료) Then
Tcond3 = false;
if stime == 미국시작 or (stime > 미국시작 and stime[1] < 미국시작) Then{
D3 = sdate;
T3 = stime;
H3 = H;
L3 = L;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,BLUE);
TL_SetColor(TL321,BLUE);
TL_SetColor(TL331,BLUE);
TL_SetColor(TL341,BLUE);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr((H3[1]-L3[1])*10000,0));
Text_SetColor(tx31,BLUE);
}
}
if Tcond3 == true Then{
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,BLUE);
TL_SetColor(TL32,BLUE);
TL_SetColor(TL33,BLUE);
TL_SetColor(TL34,BLUE);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr((H3-L3)*10000,0));
Text_SetColor(tx3,blue);
}
- 1. 123q.jpg (0.14 MB)
답변 2
예스스탁 예스스탁 답변
2015-11-03 15:51:55
안녕하세요
예스스탁입니다.
아래내용 참고하시기 바랍니다.
최근 3거래일 출력되게 작성했습니다.
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(ED1[1],ET1[1],H1[1],NumToStr((H1[1]-L1[1])*10000,0));
Text_SetColor(tx1[1],RED);
#전전일
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])*10000,0));
Text_SetColor(tx1[2],RED);
}
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])*10000,0));
Text_SetColor(tx1[0],RED);
}
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])*10000,0));
Text_SetColor(tx2[1],YELLOW);
#전전일
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])*10000,0));
Text_SetColor(tx2[2],YELLOW);
}
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])*10000,0));
Text_SetColor(tx2[0],YELLOW);
}
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])*10000,0));
Text_SetColor(tx3[1],BLUE);
#전전일
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])*10000,0));
Text_SetColor(tx3[2],BLUE);
}
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])*10000,0));
Text_SetColor(tx3[0],BLUE);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 항상 만족한 수식으로 도움 주셔셔 감사합니다.
44778번의 추가 질문 입니다.
2일전의 아시아장의 박스(유로화)설정 하고자
시도 하였으나 실행이 되지 않습니다.(10:00경)
(70행에서 100행까지)
수정 부탁 드립니다.
미리 감사 드립니다.
input : 아시아시작(081000),아시아종료(152000);
input : 유럽시작(153000),유럽종료(213000);
input : 미국시작(214000),미국종료(065000);
var : D1(0),T1(0),H1(0),L1(0),Tcond1(false);
var : D2(0),T2(0),H2(0),L2(0),Tcond2(false);
var : D3(0),T3(0),H3(0),L3(0),Tcond3(false);
var : D4(0),T4(0),H4(0),L4(0),Tcond4(false);
var : D5(0),T5(0),H5(0),L5(0),Tcond5(false);
var : D6(0),T6(0),H6(0),L6(0),Tcond6(false);
var : D7(0),T7(0),H7(0),L7(0),Tcond7(false);
var : D8(0),T8(0),H8(0),L8(0),Tcond8(false);
var : D9(0),T9(0),H9(0),L9(0),Tcond9(false);
var : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : ED4(0),ET4(0),ED5(0),ET5(0),ED6(0),ET6(0);
var : ED7(0),ET7(0),ED8(0),ET8(0),ED9(0),ET9(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL1112(0),TL1212(0),TL1312(0),TL1412(0);
var : TL1113(0),TL1213(0),TL1313(0),TL1413(0);
var : TL1114(0),TL1214(0),TL1314(0),TL1414(0);
var : TL1115(0),TL1215(0),TL1315(0),TL1415(0);
var : TL1116(0),TL1216(0),TL1316(0),TL1416(0);
var : TL1117(0),TL1217(0),TL1317(0),TL1417(0);
var : TL1118(0),TL1218(0),TL1318(0),TL1418(0);
var : TL1119(0),TL1219(0),TL1319(0),TL1419(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL2112(0),TL2212(0),TL2312(0),TL2412(0);
var : TL2113(0),TL2213(0),TL2313(0),TL2413(0);
var : TL2114(0),TL2214(0),TL2314(0),TL2414(0);
var : TL2115(0),TL2215(0),TL2315(0),TL2415(0);
var : TL2116(0),TL2216(0),TL2316(0),TL2416(0);
var : TL2117(0),TL2217(0),TL2317(0),TL2417(0);
var : TL2118(0),TL2218(0),TL2318(0),TL2418(0);
var : TL2119(0),TL2219(0),TL2319(0),TL2419(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : TL3112(0),TL3212(0),TL3312(0),TL3412(0);
var : TL3113(0),TL3213(0),TL3313(0),TL3413(0);
var : TL3114(0),TL3214(0),TL3314(0),TL3414(0);
var : TL3115(0),TL3215(0),TL3315(0),TL3415(0);
var : TL3116(0),TL3216(0),TL3316(0),TL3416(0);
var : TL3117(0),TL3217(0),TL3317(0),TL3417(0);
var : TL3118(0),TL3218(0),TL3318(0),TL3418(0);
var : TL3119(0),TL3219(0),TL3319(0),TL3419(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
var : tx112(0),tx212(0),tx312(0);
var : tx113(0),tx213(0),tx313(0);
var : tx114(0),tx214(0),tx314(0);
var : tx115(0),tx215(0),tx315(0);
var : tx116(0),tx216(0),tx316(0);
var : tx117(0),tx217(0),tx317(0);
var : tx118(0),tx218(0),tx318(0);
var : tx119(0),tx219(0),tx319(0);
//아래 부분은 에러로 수정해야 할 부분 입니다.
if time == 아시아종료 or (time[1] > 아시아종료 and time[2] < 아시아종료) Then
Tcond4 = false;
if stime == 아시아시작 or (stime[1] > 아시아시작 and stime[2] < 아시아시작) Then{
D4 = sdate[1];
T4 = stime[1];
H4 = H;
L4 = L;
Tcond4 = true;
if d4[2] > 0 and ED4[2] > 0 Then{
TL_Delete(TL1112);
TL_Delete(TL1212);
TL_Delete(TL1312);
TL_Delete(TL1412);
TL1112 = TL_New(D4[2],T4[2],H4[2],ED4,ET4,H4[2]);
TL1212 = TL_New(D4[2],T4[2],L4[2],ED4,ET4,L4[2]);
TL1312 = TL_New(D4[2],T4[2],H4[2],D4[2],T4[2],L4[2]);
TL1412 = TL_New(ED4,ET4,H4[2],ED4,ET4,L4[2]);
TL_SetColor(TL1112,RED);
TL_SetColor(TL1212,RED);
TL_SetColor(TL1312,RED);
TL_SetColor(TL1412,RED);
Text_Delete(tx112);
tx112 = Text_New(ED4[2],ET4[2],H4[2],NumToStr((H4[2]-L4[2])*10000,0));
Text_SetColor(tx112,RED);
Text_SetColor(tx112,RED);
}
}
//이상은 에러 부분 입니다.
//아래부분은 정상 가동 됩니다.
if time == 아시아종료 or (time > 아시아종료 and time[1] < 아시아종료) Then
Tcond1 = false;
if stime == 아시아시작 or (stime > 아시아시작 and stime[1] < 아시아시작) Then{
D1 = sdate;
T1 = stime;
H1 = H;
L1 = L;
Tcond1 = true;
if d1[1] > 0 and ED1 > 0 Then{
TL_Delete(TL111);
TL_Delete(TL121);
TL_Delete(TL131);
TL_Delete(TL141);
TL111 = TL_New(D1[1],T1[1],H1[1],ED1,ET1,H1[1]);
TL121 = TL_New(D1[1],T1[1],L1[1],ED1,ET1,L1[1]);
TL131 = TL_New(D1[1],T1[1],H1[1],D1[1],T1[1],L1[1]);
TL141 = TL_New(ED1,ET1,H1[1],ED1,ET1,L1[1]);
TL_SetColor(TL111,RED);
TL_SetColor(TL121,RED);
TL_SetColor(TL131,RED);
TL_SetColor(TL141,RED);
Text_Delete(tx11);
tx11 = Text_New(ED1,ET1,H1[1],NumToStr((H1[1]-L1[1])*10000,0));
Text_SetColor(tx11,RED);
}
}
if Tcond1 == true Then{
if H > H1 Then
H1 = H;
if L < L1 Then
L1 = L;
ED1 = sdate;
ET1 = stime;
TL_Delete(TL11);
TL_Delete(TL12);
TL_Delete(TL13);
TL_Delete(TL14);
TL11 = TL_New(D1,T1,H1,Sdate,stime,H1);
TL12 = TL_New(D1,T1,L1,Sdate,stime,L1);
TL13 = TL_New(D1,T1,H1,D1,T1,L1);
TL14 = TL_New(sdate,stime,H1,sdate,stime,L1);
TL_SetColor(TL11,RED);
TL_SetColor(TL12,RED);
TL_SetColor(TL13,RED);
TL_SetColor(TL14,RED);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H1,NumToStr((H1-L1)*10000,0));
Text_SetColor(tx1,RED);
}
if time == 유럽종료 or (time > 유럽종료 and time[1] < 유럽종료) Then
Tcond2 = false;
if stime == 유럽시작 or (stime > 유럽시작 and stime[1] < 유럽시작) Then{
D2 = sdate;
T2 = stime;
H2 = H;
L2 = L;
Tcond2 = true;
if d2[1] > 0 and ED2 > 0 Then{
TL_Delete(TL211);
TL_Delete(TL221);
TL_Delete(TL231);
TL_Delete(TL241);
TL211 = TL_New(D2[1],T2[1],H2[1],ED2,ET2,H2[1]);
TL221 = TL_New(D2[1],T2[1],L2[1],ED2,ET2,L2[1]);
TL231 = TL_New(D2[1],T2[1],H2[1],D2[1],T2[1],L2[1]);
TL241 = TL_New(ED2,ET2,H2[1],ED2,ET2,L2[1]);
TL_SetColor(TL211,YELLOW);
TL_SetColor(TL221,YELLOW);
TL_SetColor(TL231,YELLOW);
TL_SetColor(TL241,YELLOW);
Text_Delete(tx21);
tx21 = Text_New(ED2,ET2,H2[1],NumToStr((H2[1]-L2[1])*10000,0));
Text_SetColor(tx21,YELLOW);
}
}
if Tcond2 == true Then{
if H > H2 Then
H2 = H;
if L < L2 Then
L2 = L;
ED2 = sdate;
ET2 = stime;
TL_Delete(TL21);
TL_Delete(TL22);
TL_Delete(TL23);
TL_Delete(TL24);
TL21 = TL_New(D2,T2,H2,Sdate,stime,H2);
TL22 = TL_New(D2,T2,L2,Sdate,stime,L2);
TL23 = TL_New(D2,T2,H2,D2,T2,L2);
TL24 = TL_New(sdate,stime,H2,sdate,stime,L2);
TL_SetColor(TL21,YELLOW);
TL_SetColor(TL22,YELLOW);
TL_SetColor(TL23,YELLOW);
TL_SetColor(TL24,YELLOW);
Text_Delete(tx2);
tx2 = Text_New(sdate,stime,H2,NumToStr((H2-L2)*10000,0));
Text_SetColor(tx2,YELLOW);
}
if time == 미국종료 or (time > 미국종료 and time[1] < 미국종료) Then
Tcond3 = false;
if stime == 미국시작 or (stime > 미국시작 and stime[1] < 미국시작) Then{
D3 = sdate;
T3 = stime;
H3 = H;
L3 = L;
Tcond3 = true;
if d3[1] > 0 and ED3 > 0 Then{
TL_Delete(TL311);
TL_Delete(TL321);
TL_Delete(TL331);
TL_Delete(TL341);
TL311 = TL_New(D3[1],T3[1],H3[1],ED3,ET3,H3[1]);
TL321 = TL_New(D3[1],T3[1],L3[1],ED3,ET3,L3[1]);
TL331 = TL_New(D3[1],T3[1],H3[1],D3[1],T3[1],L3[1]);
TL341 = TL_New(ED3,ET3,H3[1],ED3,ET3,L3[1]);
TL_SetColor(TL311,BLUE);
TL_SetColor(TL321,BLUE);
TL_SetColor(TL331,BLUE);
TL_SetColor(TL341,BLUE);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr((H3[1]-L3[1])*10000,0));
Text_SetColor(tx31,BLUE);
}
}
if Tcond3 == true Then{
if H > H3 Then
H3 = H;
if L < L3 Then
L3 = L;
ED3 = sdate;
ET3 = stime;
TL_Delete(TL31);
TL_Delete(TL32);
TL_Delete(TL33);
TL_Delete(TL34);
TL31 = TL_New(D3,T3,H3,Sdate,stime,H3);
TL32 = TL_New(D3,T3,L3,Sdate,stime,L3);
TL33 = TL_New(D3,T3,H3,D3,T3,L3);
TL34 = TL_New(sdate,stime,H3,sdate,stime,L3);
TL_SetColor(TL31,BLUE);
TL_SetColor(TL32,BLUE);
TL_SetColor(TL33,BLUE);
TL_SetColor(TL34,BLUE);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr((H3-L3)*10000,0));
Text_SetColor(tx3,blue);
}
yes
2015-11-03 17:11:53
yes 님에 의해 삭제된 답변입니다.