커뮤니티
73166 글 수정 좀 요청 드림니다.
2024-11-12 07:38:53
744
글번호 185173
* 항상 많은 도움에 고맙습니다.
* 아래 수식을 쓰면 별이 생겼다가 지워지고 합니다. (73166번 글)
* 별이 한번찍히면 안지워지고 별이 안찍히면 소리음(알림) 좀 요청 드립니다.
즉 그봉에 별조건이 한번이라도 있다면
그봉에는 별이 계속 찍히도록 요청 드립니다.
그러다가 별이 안찍이면 소리음 으로 신호좀 요청 드림니다.
## 아래글 퍼옴
Input : Period(14);
var : DMIv(0),DP(0),DM(0),TT7(0);
var : um1(0),um2(0),ud1(0),ut1(0),uv1(0),utx1(0),utx2(0);
var : dm1(0),dm2(0),dd1(0),dt1(0),dv1(0),dtx1(0),dtx2(0);
DMIv = DMI(Period);
DP = DIPlus(Period);
DM = DIMinus(Period);
if CrossUp(DP,DM) Then
{
TT7 = 1;
dm1 = 0;
dm2 = 0;
}
if CrossDown(DP,DM) Then
{
TT7 = -1;
um1 = 0;
um2 = 0;
}
if TT7 == 1 Then
{
if DMiv > dp Then
{
if DMiv-dp > dm1 Then
{
dd1 = sDate;
dt1 = sTime;
dv1 = h;
if dm1 == 0 Then
{
dtx1 = Text_New(dd1,dt1,dv1-PriceScale*10,"★");
Text_SetColor(dtx1,RgB(0,255,0) ) ;
Text_SetStyle(dtx1,2,1);
Text_SetSize(dtx1,40) ;
PlaySound("C:CyberOrOWav3Start.wav");
}
Else
{
Text_SetLocation(dtx1,dd1,dt1,dv1-PriceScale*10);
if dm1 > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(dd1[1],dt1[1],dv1[1]-PriceScale*10,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
Text_SetLocation(dtx2,dd1[1],dt1[1],dv1[1]-PriceScale*10);
}
dm2 = dm1;
}
}
dm1 = DMiv-dp;
}
Else
{
if DMiv-dp > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(sDate,sTime,H,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
Text_SetLocation(dtx2,sDate,sTime,h-PriceScale*10);
}
dm2 = DMiv-dp;
}
}
}
}
##==========================================================================
if TT7 == -1 Then
{
if DMiv > dm Then
{
if DMiv-dm > um1 Then
{
ud1 = sDate;
ut1 = sTime;
uv1 = l;
if um1 == 0 Then
{
utx1 = Text_New(ud1,ut1,uv1+PriceScale*10,"★");
Text_SetColor(utx1,RgB(255,0,255) ) ;
Text_SetStyle(utx1,2,0);
Text_SetSize(utx1,40) ;
##PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx1,ud1,ut1,uv1+PriceScale*10);
if um1 > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(ud1[1],ut1[1],uv1[1]+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,ud1[1],ut1[1],uv1[1]+PriceScale*10);
}
um2 = um1;
}
}
um1 = DMiv-dm;
}
Else
{
if DMiv-dm > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(sDate,sTime,uv1+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,sDate,sTime,l+PriceScale*10);
}
um2 = DMiv-dm;
}
}
}
}
* 매번 고맙습니다. 좋은 하루 되십시요.
답변 1
예스스탁 예스스탁 답변
2024-11-12 14:48:28
안녕하세요
예스스탁입니다.
현재수식은 값이 갱신되면
첫번째 최고/최저와 두번째 최고/최저만 표시하므로
새로운 최고/최저가 발생하면 표시를 이동하게 됩니다.
새로운 최고/최저가 발생하면 이동하지 않고 새로 그리게 하고
갱신이 없는 봉은 소리가 출력되게 수정해 드립니다.
Input : Period(14);
var : DMIv(0),DP(0),DM(0),TT7(0);
var : um1(0),um2(0),ud1(0),ut1(0),uv1(0),utx1(0),utx2(0);
var : dm1(0),dm2(0),dd1(0),dt1(0),dv1(0),dtx1(0),dtx2(0);
DMIv = DMI(Period);
DP = DIPlus(Period);
DM = DIMinus(Period);
if CrossUp(DP,DM) Then
{
TT7 = 1;
dm1 = 0;
dm2 = 0;
}
if CrossDown(DP,DM) Then
{
TT7 = -1;
um1 = 0;
um2 = 0;
}
if TT7 == 1 Then
{
if DMiv > dp Then
{
if DMiv-dp > dm1 Then
{
dd1 = sDate;
dt1 = sTime;
dv1 = h;
if dm1 == 0 Then
{
dtx1 = Text_New(dd1,dt1,dv1-PriceScale*10,"★");
Text_SetColor(dtx1,RgB(0,255,0) ) ;
Text_SetStyle(dtx1,2,1);
Text_SetSize(dtx1,40) ;
//PlaySound("C:CyberOrOWav3Start.wav");
}
Else
{
dtx1 = Text_New(dd1,dt1,dv1-PriceScale*10,"★");
Text_SetColor(dtx1,RgB(0,255,0) ) ;
Text_SetStyle(dtx1,2,1);
Text_SetSize(dtx1,40) ;
//Text_SetLocation(dtx1,dd1,dt1,dv1-PriceScale*10);
if dm1 > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(dd1[1],dt1[1],dv1[1]-PriceScale*10,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
dtx2 = Text_New(dd1[1],dt1[1],dv1[1]-PriceScale*10,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
dm2 = dm1;
}
}
dm1 = DMiv-dp;
}
Else
{
if DMiv-dp > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(sDate,sTime,H,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
dtx2 = Text_New(dd1[1],dt1[1],dv1[1]-PriceScale*10,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
}
dm2 = DMiv-dp;
}
Else
PlaySound("C:KiwoomHero4soundsound11.wav");
}
}
}
##==========================================================================
if TT7 == -1 Then
{
if DMiv > dm Then
{
if DMiv-dm > um1 Then
{
ud1 = sDate;
ut1 = sTime;
uv1 = l;
if um1 == 0 Then
{
utx1 = Text_New(ud1,ut1,uv1+PriceScale*10,"★");
Text_SetColor(utx1,RgB(255,0,255) ) ;
Text_SetStyle(utx1,2,0);
Text_SetSize(utx1,40) ;
##PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx1,ud1,ut1,uv1+PriceScale*10);
if um1 > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(ud1[1],ut1[1],uv1[1]+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,ud1[1],ut1[1],uv1[1]+PriceScale*10);
}
um2 = um1;
}
}
um1 = DMiv-dm;
}
Else
{
if DMiv-dm > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(sDate,sTime,uv1+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,sDate,sTime,l+PriceScale*10);
}
um2 = DMiv-dm;
}
Else
PlaySound("C:KiwoomHero4soundsound11.wav");
}
}
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 73166 글 수정 좀 요청 드림니다.
> * 항상 많은 도움에 고맙습니다.
* 아래 수식을 쓰면 별이 생겼다가 지워지고 합니다. (73166번 글)
* 별이 한번찍히면 안지워지고 별이 안찍히면 소리음(알림) 좀 요청 드립니다.
즉 그봉에 별조건이 한번이라도 있다면
그봉에는 별이 계속 찍히도록 요청 드립니다.
그러다가 별이 안찍이면 소리음 으로 신호좀 요청 드림니다.
## 아래글 퍼옴
Input : Period(14);
var : DMIv(0),DP(0),DM(0),TT7(0);
var : um1(0),um2(0),ud1(0),ut1(0),uv1(0),utx1(0),utx2(0);
var : dm1(0),dm2(0),dd1(0),dt1(0),dv1(0),dtx1(0),dtx2(0);
DMIv = DMI(Period);
DP = DIPlus(Period);
DM = DIMinus(Period);
if CrossUp(DP,DM) Then
{
TT7 = 1;
dm1 = 0;
dm2 = 0;
}
if CrossDown(DP,DM) Then
{
TT7 = -1;
um1 = 0;
um2 = 0;
}
if TT7 == 1 Then
{
if DMiv > dp Then
{
if DMiv-dp > dm1 Then
{
dd1 = sDate;
dt1 = sTime;
dv1 = h;
if dm1 == 0 Then
{
dtx1 = Text_New(dd1,dt1,dv1-PriceScale*10,"★");
Text_SetColor(dtx1,RgB(0,255,0) ) ;
Text_SetStyle(dtx1,2,1);
Text_SetSize(dtx1,40) ;
PlaySound("C:CyberOrOWav3Start.wav");
}
Else
{
Text_SetLocation(dtx1,dd1,dt1,dv1-PriceScale*10);
if dm1 > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(dd1[1],dt1[1],dv1[1]-PriceScale*10,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
Text_SetLocation(dtx2,dd1[1],dt1[1],dv1[1]-PriceScale*10);
}
dm2 = dm1;
}
}
dm1 = DMiv-dp;
}
Else
{
if DMiv-dp > dm2 Then
{
if dm2 == 0 Then
{
dtx2 = Text_New(sDate,sTime,H,"★");
Text_SetColor(dtx2,RgB(0,255,0) ) ;
Text_SetStyle(dtx2,2,1);
Text_SetSize(dtx2,40) ;
## PlaySound("C:KiwoomHero4soundsound11.wav");
}
Else
{
Text_SetLocation(dtx2,sDate,sTime,h-PriceScale*10);
}
dm2 = DMiv-dp;
}
}
}
}
##==========================================================================
if TT7 == -1 Then
{
if DMiv > dm Then
{
if DMiv-dm > um1 Then
{
ud1 = sDate;
ut1 = sTime;
uv1 = l;
if um1 == 0 Then
{
utx1 = Text_New(ud1,ut1,uv1+PriceScale*10,"★");
Text_SetColor(utx1,RgB(255,0,255) ) ;
Text_SetStyle(utx1,2,0);
Text_SetSize(utx1,40) ;
##PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx1,ud1,ut1,uv1+PriceScale*10);
if um1 > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(ud1[1],ut1[1],uv1[1]+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,ud1[1],ut1[1],uv1[1]+PriceScale*10);
}
um2 = um1;
}
}
um1 = DMiv-dm;
}
Else
{
if DMiv-dm > um2 Then
{
if um2 == 0 Then
{
utx2 = Text_New(sDate,sTime,uv1+PriceScale*10,"★");
Text_SetColor(utx2,RgB(255,0,255) ) ;
Text_SetStyle(utx2,2,0);
Text_SetSize(utx2,40) ;
## PlaySound("C:KiwoomHero4soundsound1.wav");
}
Else
{
Text_SetLocation(utx2,sDate,sTime,l+PriceScale*10);
}
um2 = DMiv-dm;
}
}
}
}
* 매번 고맙습니다. 좋은 하루 되십시요.
다음글