예스스탁
예스스탁 답변
2020-05-13 10:01:44
안녕하세요
예스스탁입니다.
input : ASA시작(070000),ASA종료(153000),ASA굵기(0);
input : Eu시작(153000),Eu종료(223000),EU굵기1(0);
input : USA시작(223000),USA종료(060500),USA굵기2(0);
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 : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
if time == ASA종료 or (time > ASA종료 and time[1] < ASA종료) Then
Tcond1 = false;
if stime == ASA시작 or (stime > ASA시작 and stime[1] < ASA시작) 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,LMAGENTA);
TL_SetColor(TL121,LMAGENTA);
TL_SetColor(TL131,LMAGENTA);
TL_SetColor(TL141,LMAGENTA);
TL_SetSize(TL111,ASA굵기);
TL_SetSize(TL121,ASA굵기);
TL_SetSize(TL131,ASA굵기);
TL_SetSize(TL141,ASA굵기);
Text_Delete(tx11);
tx11 = Text_New(ED1,ET1,H1[1],NumToStr(H1[1]-L1[1],4));
Text_SetColor(tx11,LYELLOW);
}
}
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,LMAGENTA);
TL_SetColor(TL12,LMAGENTA);
TL_SetColor(TL13,LMAGENTA);
TL_SetColor(TL14,LMAGENTA);
TL_SetSize(TL11,ASA굵기);
TL_SetSize(TL12,ASA굵기);
TL_SetSize(TL13,ASA굵기);
TL_SetSize(TL14,ASA굵기);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H1,NumToStr(H1-L1,4));
Text_SetColor(tx1,LYELLOW);
}
if time == EU종료 or (time > EU종료 and time[1] < EU종료) Then
Tcond2 = false;
if stime == EU시작 or (stime > EU시작 and stime[1] < EU시작) 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,LMAGENTA);
TL_SetColor(TL221,LMAGENTA);
TL_SetColor(TL231,LMAGENTA);
TL_SetColor(TL241,LMAGENTA);
TL_SetSize(TL211,EU굵기1);
TL_SetSize(TL221,EU굵기1);
TL_SetSize(TL231,EU굵기1);
TL_SetSize(TL241,EU굵기1);
Text_Delete(tx21);
tx21 = Text_New(ED2,ET2,H2[1],NumToStr(H2[1]-L2[1],4));
Text_SetColor(tx21,LMAGENTA);
}
}
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,LMAGENTA);
TL_SetColor(TL22,LMAGENTA);
TL_SetColor(TL23,LMAGENTA);
TL_SetColor(TL24,LMAGENTA);
TL_SetSize(TL21,EU굵기1);
TL_SetSize(TL22,EU굵기1);
TL_SetSize(TL23,EU굵기1);
TL_SetSize(TL24,EU굵기1);
Text_Delete(tx2);
tx2 = Text_New(sdate,stime,H2,NumToStr(H2-L2,4));
Text_SetColor(tx2,LMAGENTA);
}
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) 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,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기2);
TL_SetSize(TL321,USA굵기2);
TL_SetSize(TL331,USA굵기2);
TL_SetSize(TL341,USA굵기2);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
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,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL31,USA굵기2);
TL_SetSize(TL32,USA굵기2);
TL_SetSize(TL33,USA굵기2);
TL_SetSize(TL34,USA굵기2);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
}
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> $,안녕하세요
ㅡ,아래식에서 TL_SetSize 굵기변수 조정을하면 전일에만 적용됩니다,당일에 적용되도록
도움 부탁드립니다,
input : ASA시작(070000),ASA종료(153000),ASA굵기(0);
input : Eu시작(153000),Eu종료(223000),EU굵기1(0);
input : USA시작(223000),USA종료(060500),USA굵기2(0);
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 : ED1(0),ET1(0),ED2(0),ET2(0),ED3(0),ET3(0);
var : TL11(0),TL12(0),TL13(0),TL14(0);
var : TL111(0),TL121(0),TL131(0),TL141(0);
var : TL21(0),TL22(0),TL23(0),TL24(0);
var : TL211(0),TL221(0),TL231(0),TL241(0);
var : TL31(0),TL32(0),TL33(0),TL34(0);
var : TL311(0),TL321(0),TL331(0),TL341(0);
var : tx1(0),tx2(0),tx3(0);
var : tx11(0),tx21(0),tx31(0);
if time == ASA종료 or (time > ASA종료 and time[1] < ASA종료) Then
Tcond1 = false;
if stime == ASA시작 or (stime > ASA시작 and stime[1] < ASA시작) 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,LMAGENTA);
TL_SetColor(TL121,LMAGENTA);
TL_SetColor(TL131,LMAGENTA);
TL_SetColor(TL141,LMAGENTA);
TL_SetSize(TL111,ASA굵기);
TL_SetSize(TL121,ASA굵기);
TL_SetSize(TL131,ASA굵기);
TL_SetSize(TL141,ASA굵기);
Text_Delete(tx11);
tx11 = Text_New(ED1,ET1,H1[1],NumToStr(H1[1]-L1[1],4));
Text_SetColor(tx11,LYELLOW);
}
}
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,LMAGENTA);
TL_SetColor(TL12,LMAGENTA);
TL_SetColor(TL13,LMAGENTA);
TL_SetColor(TL14,LMAGENTA);
TL_SetSize(TL111,ASA굵기);
TL_SetSize(TL121,ASA굵기);
TL_SetSize(TL131,ASA굵기);
TL_SetSize(TL141,ASA굵기);
Text_Delete(tx1);
tx1 = Text_New(sdate,stime,H1,NumToStr(H1-L1,4));
Text_SetColor(tx1,LYELLOW);
}
if time == EU종료 or (time > EU종료 and time[1] < EU종료) Then
Tcond2 = false;
if stime == EU시작 or (stime > EU시작 and stime[1] < EU시작) 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,LMAGENTA);
TL_SetColor(TL221,LMAGENTA);
TL_SetColor(TL231,LMAGENTA);
TL_SetColor(TL241,LMAGENTA);
TL_SetSize(TL211,EU굵기1);
TL_SetSize(TL221,EU굵기1);
TL_SetSize(TL231,EU굵기1);
TL_SetSize(TL241,EU굵기1);
Text_Delete(tx21);
tx21 = Text_New(ED2,ET2,H2[1],NumToStr(H2[1]-L2[1],4));
Text_SetColor(tx21,LMAGENTA);
}
}
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,LMAGENTA);
TL_SetColor(TL22,LMAGENTA);
TL_SetColor(TL23,LMAGENTA);
TL_SetColor(TL24,LMAGENTA);
TL_SetSize(TL211,EU굵기1);
TL_SetSize(TL221,EU굵기1);
TL_SetSize(TL231,EU굵기1);
TL_SetSize(TL241,EU굵기1);
Text_Delete(tx2);
tx2 = Text_New(sdate,stime,H2,NumToStr(H2-L2,4));
Text_SetColor(tx2,LMAGENTA);
}
if time == USA종료 or (time > USA종료 and time[1] < USA종료) Then
Tcond3 = false;
if stime == USA시작 or (stime > USA시작 and stime[1] < USA시작) 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,MAGENTA);
TL_SetColor(TL321,MAGENTA);
TL_SetColor(TL331,MAGENTA);
TL_SetColor(TL341,MAGENTA);
TL_SetSize(TL311,USA굵기2);
TL_SetSize(TL321,USA굵기2);
TL_SetSize(TL331,USA굵기2);
TL_SetSize(TL341,USA굵기2);
Text_Delete(tx31);
tx31 = Text_New(ED3,ET3,H3[1],NumToStr(H3[1]-L3[1],4));
Text_SetColor(tx31,MAGENTA);
}
}
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,MAGENTA);
TL_SetColor(TL32,MAGENTA);
TL_SetColor(TL33,MAGENTA);
TL_SetColor(TL34,MAGENTA);
TL_SetSize(TL311,USA굵기2);
TL_SetSize(TL321,USA굵기2);
TL_SetSize(TL331,USA굵기2);
TL_SetSize(TL341,USA굵기2);
Text_Delete(tx3);
tx3 = Text_New(sdate,stime,H3,NumToStr(H3-L3,4));
Text_SetColor(tx3,MAGENTA);
}
$$, 언제나 늘 고맙습니다.