Artan

Hisse Fiyat Fark% Saat
GUNDG 99,00 10 18:10
LYDYE 16.477,50 10 18:10
BVSAN 134,20 10 18:10
ATSYH 71,50 10 18:10
INTEM 291,50 10 18:10
Artan Hisseler

Azalan

Hisse Fiyat Fark% Saat
HEDEF 87,30 -10 18:10
GRTHO 512,00 -9.94 18:10
ESEN 11,87 -9.94 18:10
DESPC 56,95 -6.64 18:10
YAYLA 32,60 -6.48 18:10
Azalan Hisseler

İşlem

Hisse Hacim Saat
AKBNK 25.705.427.996,65 18:10
THYAO 25.126.837.234,00 18:10
ISCTR 19.159.886.780,88 18:10
YKBNK 15.041.630.827,90 18:10
GARAN 14.530.506.819,80 18:10
Tüm Hisseler
Arama sonucu : 4974 madde; 1 - 8 arası.

Konu: İDEAL veri terminalinde /Sistem/İndikatör/Robot

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. 22-12-2023, 19:10 #1
    berlys
    berlys is offline Yeni Üye
    Duhul
    Jul 2019
    Gönderi
    116
    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 ;
    Alıntı yaparak yanıtla Alıntı yaparak yanıtla
  2. 23-12-2023, 19:33 #2
    Avatarı
    bymehmet
    bymehmet is offline Yeni Üye
    Duhul
    Feb 2017
    Gönderi
    73
    Alıntı Originally Posted by berlys Yazıyı Oku
    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 ;

    1- C# dilinde değişkenler rakamla başlayamaz. 1A1 gibi bir değişken tanımlanamaz bunları düzeltin harf ile başlasınlar. A11 olabilir.
    2- Casting için değeri değil cast türünü paranteze alın. int(a1) yerine (int)a1 gibi yazmanız gerekiyor.
    3- F1 F2 ve F3 tanımlanmamış.
    Bunları düzeltirseniz kodunuz muhtemelen çalışır.
    Alıntı yaparak yanıtla Alıntı yaparak yanıtla
  3. 23-12-2023, 20:27 #3
    berlys
    berlys is offline Yeni Üye
    Duhul
    Jul 2019
    Gönderi
    116
    Alıntı Originally Posted by bymehmet Yazıyı Oku
    1- C# dilinde değişkenler rakamla başlayamaz. 1A1 gibi bir değişken tanımlanamaz bunları düzeltin harf ile başlasınlar. A11 olabilir.
    2- Casting için değeri değil cast türünü paranteze alın. int(a1) yerine (int)a1 gibi yazmanız gerekiyor.
    3- F1 F2 ve F3 tanımlanmamış.
    Bunları düzeltirseniz kodunuz muhtemelen çalışır.
    Cevabınız için teşekkür ederim.
    Alıntı yaparak yanıtla Alıntı yaparak yanıtla
  4. 23-12-2023, 20:33 #4
    berlys
    berlys is offline Yeni Üye
    Duhul
    Jul 2019
    Gönderi
    116
    oldu galiba ,belki kullanmak isteyen olur.

    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 TA1 = Sistem.Liste(0);
    var TA2 = Sistem.Liste(0);
    var TA3 = Sistem.Liste(0);
    var TF1 = Sistem.Liste(0);
    var TF2 = Sistem.Liste(0);
    var TF3 = Sistem.Liste(0);
    var A1 = Sistem.Liste(0);
    var A2 = Sistem.Liste(0);
    var A3 = Sistem.Liste(0);
    var F1 = Sistem.Liste(0);
    var F2 = Sistem.Liste(0);
    var F3 = Sistem.Liste(0);


    for (int i = 1 ; i < Sistem.BarSayisi; i++)
    {
    TA1[i] = (H1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
    TA2[i] = (H1st[i]+atr[i]*0.8f)/0.025f+0.50f;
    TA3[i] =(H1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
    TF1[i] = (L1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
    TF2[i] = (L1st[i]-atr[i]*0.8f)/0.025f+0.50f;
    TF3[i] = (L1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
    A1[i] =(int)TA1[i]*0.025f;//(int)a1
    A2[i] =(int)TA2[i]*0.025f;
    A3[i] =(int)TA3[i]*0.025f;
    F1[i] =(int)TF1[i]*0.025f;
    F2[i] =(int)TF2[i]*0.025f;
    F3[i] =(int)TF3[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 ;
    Alıntı yaparak yanıtla Alıntı yaparak yanıtla
  5. 03-03-2024, 02:57 #5
    hsynymk
    hsynymk is offline Yeni Üye
    Duhul
    Nov 2020
    Gönderi
    8
    Alıntı Originally Posted by berlys Yazıyı Oku
    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 ;
    Kod:
    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 _A1 = Sistem.Liste(0);
var _A2 = Sistem.Liste(0);
var _A3 = Sistem.Liste(0);
var _F1 = Sistem.Liste(0);
var _F2 = Sistem.Liste(0);
var _F3 = Sistem.Liste(0);
var A1 = Sistem.Liste(0); var A2 = Sistem.Liste(0); var A3 = Sistem.Liste(0);
var F1 = Sistem.Liste(0); var F2 = Sistem.Liste(0); var F3 = Sistem.Liste(0);




for (int i = 1 ; i < Sistem.BarSayisi; i++)
{
_A1[i] = (H1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
_A2[i] = (H1st[i]+atr[i]*0.8f)/0.025f+0.50f;
_A3[i] = (H1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
_F1[i] = (L1st[i]+2*atr[i]*0.8f)/0.025f+0.50f;
_F2[i] = (L1st[i]-atr[i]*0.8f)/0.025f+0.50f;
_F3[i] = (L1st[i]-2*atr[i]*0.8f)/0.025f+0.50f;
A1[i] = _A1[i]*0.025f;
A2[i] = _A2[i]*0.025f;
A3[i] = _A3[i]*0.025f;
F1[i] = _F1[i]*0.025f;
F2[i] = _F2[i]*0.025f;
F3[i] = _F3[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 ;
    Alıntı yaparak yanıtla Alıntı yaparak yanıtla
« Önceki Konu | Sonraki Konu »

Yer İmleri

Yer İmleri

Gönderi Kuralları

  • Yeni konu açamazsınız
  • Konulara cevap yazamazsınız
  • Yazılara ek gönderemezsiniz
  • Yazılarınızı değiştiremezsiniz
  •  

Forum Rules

hisse.net kurulduğundan beri Türkiye'nin en büyük ve ücretsiz borsa sitesi olmuştur ve olmaya devam edecektir.

İLETİŞİM
HIZLI ERİŞİM