
Originally Posted by
berlys
Sayın Saraylının ORB kodunu ideale çevirmeye çalıştım ama çok hata var, düzeltmeye yardım eder misiniz?
//H1st:=ValueWhen(1,Hour()*100+Minute()=940,HHV(H,6) );
//L1st:=ValueWhen(1,Hour()*100+Minute()=940,LLV(L,6) );
//1A1:=(H1st+ 2*ATR(13)*0.8)/0.025+0.50;1A2:=(H1st+ ATR(13)*0.8)/0.025+0.50;
//1A3:=(H1st- 2*ATR(13)*0.8)/0.025+0.50;1F1:=(L1st+2*ATR(13)*0.8)/0.025+0.50;
//1F2:=(L1st-ATR(13)*0.8)/0.025+0.50;1F3:=(L1st-2*ATR(13)*0.8)/0.025+0.50;
//A1:=Int(1A1)*0.025;A2:=Int(1A2)*0.025;A3:=Int(1A3) *0.025;
//F1:=Int(1F1)*0.025;F2:=Int(1F2)*0.025;F3:=Int(1F3) *0.025;A1;A2;A3;F1;F2;F3
var V = Sistem.GrafikVerileri;
var HHV = Sistem.HHV(6, "Yuksek");
var LLV = Sistem.LLV(6, "Dusuk");
var H1st = Sistem.Liste(0);
var L1st = Sistem.Liste(0);
for (int i = 1 ; i < Sistem.BarSayisi; i++)
{
if (V[i].Date.Hour == 09 && V[i].Date.Minute ==10)
{
H1st[i] = HHV[i];
L1st[i] = LLV[i];
}
else
{
H1st[i] = H1st[i-1];
L1st[i] = L1st[i-1];
}
}
var atr=Sistem.AverageTrueRange(13);
var 1A1 = Sistem.Liste(0);
var 1A2 = Sistem.Liste(0);
var 1A3 = Sistem.Liste(0);
var 1F1 = Sistem.Liste(0);
var 1F2 = Sistem.Liste(0);
var 1F3 = Sistem.Liste(0);
var A1 = Sistem.Liste(0);
var A2 = Sistem.Liste(0);
var A3 = Sistem.Liste(0);
for (int i = 1 ; i < Sistem.BarSayisi; i++)
{
1A1[i] = (H1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
1A2[i] = (H1st[i]+atr[i]*0.8f)/0.025f+0.50f;
1A3[i] =(H1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
1F1[i] = (L1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
1F2[i] = (L1st[i]-atr[i]*0.8f)/0.025f+0.50f;
1F3[i] = (L1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
A1[i] =int(1A1[i])*0.025f;
A2[i] =int(1A2[i])*0.025f;
A3[i] =int(1A3[i])*0.025f;
F1[i] =int(1F1[i])*0.025f;
F2[i] =int(1F2[i])*0.025f;
F3[i] =int(1F3[i])*0.025f;
}
Sistem.Cizgiler[0].Deger = A1 ;
Sistem.Cizgiler[1].Deger = A2 ;
Sistem.Cizgiler[2].Deger = A3 ;
Sistem.Cizgiler[3].Deger = F1 ;
Sistem.Cizgiler[4].Deger = F2 ;
Sistem.Cizgiler[5].Deger = F3 ;
Yer İmleri