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

**3c1a** · 13-05-2020, 14:10

Originally Posted by Ali100

Teşekkür ediyorum ancak tam yazamamışım, robot bir hissede alsat yaparken aracı kurum hesabımda o hissenin önceden lotu var mı kontrol ederek o hisseleri de işin içine koyarak alsat yapacak ve alsat yaparken nakite bakacak nakit yeterli ise hisseyi alıp satacak. ayrıca kodların içine aracı kurum adı ve hesap no yazılmayacak mı?

Asagidaki ornekten yola cikarak portfoyde bulunan hisse isin icine katilabilir bostaki bakiye kontrol edilebilir. Biraz ugrastirir belki ama mumkun gorunuyor.

"ekranda bolca boş yeriniz varsa belli aralıklarla ekran görüntüsünü kendinize mail atıyorsanız
detaylarıda göstersin istiyorsanız

iDealtrade'nin yazmış olduğu örnekler {ben sadece hepsini birleştirdim}

birde LoginOL sistem yazdım

sabah ideali açıp Robota Sanal/Gerçek tıkladığımda login olmak için şifre yazmamada gerek kalmıyor.
Hesap_Tablo çalıştığında sisteme login değilsem kendisi login oluyor."

Kod:

//LoginOL


var kontrol = Sistem.SozcukTablosunuOku("FX'USDTRY" + "login"); 
if (kontrol != "BB") 
{
Sistem.PortfoyLogin("M.NO, ARACI KURUM","ŞİFRE","KULLANICIADI"); 
Sistem.SozcukTablosunuGuncelle("FX'USDTRY" + "login" , "BB"); 
}




//HESAP_TABLO


if ( Sistem.ZamanKontrolDakika("bakiyeoku") >= 1) // 1 dakikada 1 kez kontrol eder. 
{ // ZamanKontrolDakika
Sistem.ZamanKontrolGuncelle("bakiyeoku");




var ViopHesap = Sistem.ViopHesapOku();
if (ViopHesap != null)


{ // hesap Kontrol
var Renk = Color.Black;
// Pozisyonlar
var PozListP = ViopHesap.Pozisyonlar;
// Tabloya Yazdır
string Tbl_Vip_Poz = "VIOP POZISYONLAR";
var SG1 = new int[2]{170,50};
var SH1 = new int[2]{0,1};
var SB1 = new string[2]{"Sembol","Poz"};
Sistem.Tablo(Tbl_Vip_Poz, 200, 100, 260, 200, 2, 25, SG1, SH1, SB1);
Sistem.TabloTemizle(Tbl_Vip_Poz);
for (int i = 0; i < PozListP.Count; i++)
{
Renk = Color.Black;
if (PozListP[i].NetAmount > 0)
Renk = Color.Blue;
else if (PozListP[i].NetAmount < 0)
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_Poz, 0, i, PozListP[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_Poz, 1, i, PozListP[i].NetAmount.ToString("0"), Color.White, Renk);
}
///////////////////////


// Teminat
string Tbl_Vip_Tmnt = "VIOP TEMINAT";
var SG2= new int[2]{150,80};
var SH2 = new int[2]{0,2};
var SB2 = new string[2]{"Açıklama","Değer"};
Sistem.Tablo(Tbl_Vip_Tmnt, 450, 100, 250, 200, 2, 7, SG2, SH2, SB2);
Sistem.TabloTemizle(Tbl_Vip_Tmnt);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 0, "Teminat Toplamı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 0, ViopHesap.TeminatToplam.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 1, "Başlangıç Teminatı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 1, ViopHesap.TeminatBaslangic.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 2, "Sürdürme Teminatı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 2, ViopHesap.TeminatSurdurme.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 3, "Kullanılabilir Teminat", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 3, ViopHesap.TeminatKullanilabilir.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 4, "Çekilebilir Teminat", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 4, ViopHesap.TeminatCekilebilir.ToString("0.00"), Color.White, Color.Black);
////////////////////////////////




// Bekleyen Emirler
var BekleyenList = ViopHesap.BekleyenEmirler;
// Tabloya Yazdır
string Tbl_Vip_B_Emir = "VIOP BEKLEYEN";
var SG3 = new int[7]{170,45,45,45,70,45,45};
var SH3 = new int[7]{0,1,1,1,1,1,1};
var SB3 = new string[7]{"Sembol", "İşlem", "Fiyat", "Miktar", "Emir No", "Emir Tip","Fiyat Tip"};
Sistem.Tablo(Tbl_Vip_B_Emir, 200, 300, 500, 200, 7, 50, SG3, SH3, SB3);
Sistem.TabloTemizle(Tbl_Vip_B_Emir);
for (int i = 0; i < BekleyenList.Count; i++)
{
Renk = Color.Black;
if (BekleyenList[i].BuySell.Substring(0,1) == "A")
Renk = Color.Blue;
else if (BekleyenList[i].BuySell.Substring(0,1) == "S")
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 0, i, BekleyenList[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 1, i, BekleyenList[i].BuySell, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 2, i, BekleyenList[i].Price.ToString("0.000"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 3, i, BekleyenList[i].Balance.ToString("0"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 4, i, BekleyenList[i].OrderNo, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 5, i, BekleyenList[i].OrderType, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 6, i, BekleyenList[i].PriceType, Color.White, Renk);


}






///////////////////// 
// Gerçekleşen Emirler
var GerceklesenList = ViopHesap.GerceklesenEmirler;
// Tabloya Yazdır
string Tbl_Vip_G_Emir = "VIOP GERCEKLESEN";
var SG4 = new int[5]{170,50,50,50,70};
var SH4 = new int[5]{0,1,1,1,2};
var SB4 = new string[5]{"Sembol", "İşlem", "Fiyat", "Miktar", "Emir No"};
Sistem.Tablo(Tbl_Vip_G_Emir, 200, 500, 450, 200, 5, 100, SG4, SH4, SB4);
Sistem.TabloTemizle(Tbl_Vip_G_Emir);
for (int i = 0; i < GerceklesenList.Count; i++)
{


if (GerceklesenList[i].BuySell.Substring(0,1) == "A")
Renk = Color.Blue;
else if (GerceklesenList[i].BuySell.Substring(0,1) == "S")
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 0, i, GerceklesenList[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 1, i, GerceklesenList[i].BuySell, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 2, i, GerceklesenList[i].Price.ToString("0.000"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 3, i, GerceklesenList[i].Amount.ToString("0"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 4, i, GerceklesenList[i].OrderNo, Color.White, Renk);
}
}
else
{ if (ViopHesap == null) Sistem.SistemGetir("LoginOL", "FX'USDTRY", "1") ; } 


////////////
} // ZamanKontrol

**Ali100** · 13-05-2020, 15:00

Originally Posted by 3c1a

Asagidaki ornekten yola cikarak portfoyde bulunan hisse isin icine katilabilir bostaki bakiye kontrol edilebilir. Biraz ugrastirir belki ama mumkun gorunuyor.

"ekranda bolca boş yeriniz varsa belli aralıklarla ekran görüntüsünü kendinize mail atıyorsanız
detaylarıda göstersin istiyorsanız

iDealtrade'nin yazmış olduğu örnekler {ben sadece hepsini birleştirdim}

birde LoginOL sistem yazdım

sabah ideali açıp Robota Sanal/Gerçek tıkladığımda login olmak için şifre yazmamada gerek kalmıyor.
Hesap_Tablo çalıştığında sisteme login değilsem kendisi login oluyor."

Kod:

//LoginOL


var kontrol = Sistem.SozcukTablosunuOku("FX'USDTRY" + "login"); 
if (kontrol != "BB") 
{
Sistem.PortfoyLogin("M.NO, ARACI KURUM","ŞİFRE","KULLANICIADI"); 
Sistem.SozcukTablosunuGuncelle("FX'USDTRY" + "login" , "BB"); 
}




//HESAP_TABLO


if ( Sistem.ZamanKontrolDakika("bakiyeoku") >= 1) // 1 dakikada 1 kez kontrol eder. 
{ // ZamanKontrolDakika
Sistem.ZamanKontrolGuncelle("bakiyeoku");




var ViopHesap = Sistem.ViopHesapOku();
if (ViopHesap != null)


{ // hesap Kontrol
var Renk = Color.Black;
// Pozisyonlar
var PozListP = ViopHesap.Pozisyonlar;
// Tabloya Yazdır
string Tbl_Vip_Poz = "VIOP POZISYONLAR";
var SG1 = new int[2]{170,50};
var SH1 = new int[2]{0,1};
var SB1 = new string[2]{"Sembol","Poz"};
Sistem.Tablo(Tbl_Vip_Poz, 200, 100, 260, 200, 2, 25, SG1, SH1, SB1);
Sistem.TabloTemizle(Tbl_Vip_Poz);
for (int i = 0; i < PozListP.Count; i++)
{
Renk = Color.Black;
if (PozListP[i].NetAmount > 0)
Renk = Color.Blue;
else if (PozListP[i].NetAmount < 0)
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_Poz, 0, i, PozListP[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_Poz, 1, i, PozListP[i].NetAmount.ToString("0"), Color.White, Renk);
}
///////////////////////


// Teminat
string Tbl_Vip_Tmnt = "VIOP TEMINAT";
var SG2= new int[2]{150,80};
var SH2 = new int[2]{0,2};
var SB2 = new string[2]{"Açıklama","Değer"};
Sistem.Tablo(Tbl_Vip_Tmnt, 450, 100, 250, 200, 2, 7, SG2, SH2, SB2);
Sistem.TabloTemizle(Tbl_Vip_Tmnt);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 0, "Teminat Toplamı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 0, ViopHesap.TeminatToplam.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 1, "Başlangıç Teminatı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 1, ViopHesap.TeminatBaslangic.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 2, "Sürdürme Teminatı", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 2, ViopHesap.TeminatSurdurme.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 3, "Kullanılabilir Teminat", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 3, ViopHesap.TeminatKullanilabilir.ToString("0.00"), Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 0, 4, "Çekilebilir Teminat", Color.White, Color.Black);
Sistem.TabloYazdir(Tbl_Vip_Tmnt, 1, 4, ViopHesap.TeminatCekilebilir.ToString("0.00"), Color.White, Color.Black);
////////////////////////////////




// Bekleyen Emirler
var BekleyenList = ViopHesap.BekleyenEmirler;
// Tabloya Yazdır
string Tbl_Vip_B_Emir = "VIOP BEKLEYEN";
var SG3 = new int[7]{170,45,45,45,70,45,45};
var SH3 = new int[7]{0,1,1,1,1,1,1};
var SB3 = new string[7]{"Sembol", "İşlem", "Fiyat", "Miktar", "Emir No", "Emir Tip","Fiyat Tip"};
Sistem.Tablo(Tbl_Vip_B_Emir, 200, 300, 500, 200, 7, 50, SG3, SH3, SB3);
Sistem.TabloTemizle(Tbl_Vip_B_Emir);
for (int i = 0; i < BekleyenList.Count; i++)
{
Renk = Color.Black;
if (BekleyenList[i].BuySell.Substring(0,1) == "A")
Renk = Color.Blue;
else if (BekleyenList[i].BuySell.Substring(0,1) == "S")
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 0, i, BekleyenList[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 1, i, BekleyenList[i].BuySell, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 2, i, BekleyenList[i].Price.ToString("0.000"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 3, i, BekleyenList[i].Balance.ToString("0"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 4, i, BekleyenList[i].OrderNo, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 5, i, BekleyenList[i].OrderType, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_B_Emir, 6, i, BekleyenList[i].PriceType, Color.White, Renk);


}






///////////////////// 
// Gerçekleşen Emirler
var GerceklesenList = ViopHesap.GerceklesenEmirler;
// Tabloya Yazdır
string Tbl_Vip_G_Emir = "VIOP GERCEKLESEN";
var SG4 = new int[5]{170,50,50,50,70};
var SH4 = new int[5]{0,1,1,1,2};
var SB4 = new string[5]{"Sembol", "İşlem", "Fiyat", "Miktar", "Emir No"};
Sistem.Tablo(Tbl_Vip_G_Emir, 200, 500, 450, 200, 5, 100, SG4, SH4, SB4);
Sistem.TabloTemizle(Tbl_Vip_G_Emir);
for (int i = 0; i < GerceklesenList.Count; i++)
{


if (GerceklesenList[i].BuySell.Substring(0,1) == "A")
Renk = Color.Blue;
else if (GerceklesenList[i].BuySell.Substring(0,1) == "S")
Renk = Color.Red;
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 0, i, GerceklesenList[i].Symbol, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 1, i, GerceklesenList[i].BuySell, Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 2, i, GerceklesenList[i].Price.ToString("0.000"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 3, i, GerceklesenList[i].Amount.ToString("0"), Color.White, Renk);
Sistem.TabloYazdir(Tbl_Vip_G_Emir, 4, i, GerceklesenList[i].OrderNo, Color.White, Renk);
}
}
else
{ if (ViopHesap == null) Sistem.SistemGetir("LoginOL", "FX'USDTRY", "1") ; } 


////////////
} // ZamanKontrol

Üstat çok teşekkür ediyorum

**serdar8717** · 13-05-2020, 15:59

Selamlar,

İdeal programına yeni abone oldum. Kendim sistemleri kurcalamaya başladım.

İki sorum için cevap ricam olacak :

1- İstediğim al ya da sat koşulu gerçekleştiğinde sisteminin bana email göndermesini istiyorum.Email gönderimi ile ilgili örnek kod paylaşabilir misiniz?
2- Sistemi yazdığımızda alım satım komisyon oranını kodun içinde nasıl belirtebiliriz?Bu konuyla ilgili örnek kod paylaşabilir misiniz ?

**rstcskn** · 13-05-2020, 16:14

Originally Posted by sonli

Aynı şey aslında, sadece if lerle şartları koyacaksınız.. Ekranın üst ortasında çıkar yazılar.. Sadece son değere dönüktür, geçmişte çalışmaz..

PHP Code:


int i=Sistem.BarSayisi-1;
var RSI = Sistem.RSI(14);
var renk= Color.Green;
var bilgi = "ALIM";
 
 if ( RSI[i]>=50 && RSI[i]<70  ) {renk= Color.Black; bilgi = "AL";}
 else if ( RSI[i]>=30 && RSI[i]<50 ) {renk= Color.Orange; bilgi = "SİNYAL";}
 else if ( RSI[i]<30 ) {renk= Color.Red; bilgi = "SATIŞ";}

Sistem.ZeminYazisiEkle( bilgi + " RSI: " + RSI[i].ToString(),1, 600, 70, renk, "Tahoma", 14);

Sonli üstad teşekkürler. Elinize sağlık . Güzel oldu.

**BORSA_TRAD** · 13-05-2020, 16:55

Originally Posted by rstcskn

sonli üstad teşekkürler. Elinize sağlık . Güzel oldu.

merhaba ;

güzel çalışma olmuş. Teşekkürler

rsı : 49,01723 çok uzun görünüyor bunu rsı : 49 daha kısa yazılabilir mi.

Rica etsem yardımcı olurmusunuz. Ideal kod bilgim çok yok.

**sonli** · 13-05-2020, 18:28

Originally Posted by BORSA_TRAD

merhaba ;

güzel çalışma olmuş. Teşekkürler

rsı : 49,01723 çok uzun görünüyor bunu rsı : 49 daha kısa yazılabilir mi.

Rica etsem yardımcı olurmusunuz. Ideal kod bilgim çok yok.

Son satırı şöyle değiştirin:
Sistem.ZeminYazisiEkle( bilgi + " RSI: " + Math.Round(RSI[i],1).ToString(),1, 600, 70, renk, "Tahoma", 14);

**rstcskn** · 13-05-2020, 21:28

Originally Posted by sonli

Son satırı şöyle değiştirin:
Sistem.ZeminYazisiEkle( bilgi + " RSI: " + Math.Round(RSI[i],1).ToString(),1, 600, 70, renk, "Tahoma", 14);

Çok teşekkürler.

Kullanan olursa RSI den sonra köşeli parantez içinde i [i] yazılmalı.

Sistem.ZeminYazisiEkle( bilgi + " RSI: " + Math.Round(RSI [i] ,1).ToString(),1, 600, 70, renk, "Tahoma", 14);

Sonli hocam teşekkürler. İyi çalışmalar.

**sonli** · 14-05-2020, 00:49

Originally Posted by rstcskn

Çok teşekkürler.

Kullanan olursa RSI den sonra köşeli parantez içinde i [i] yazılmalı.

Sistem.ZeminYazisiEkle( bilgi + " RSI: " + Math.Round(RSI [i] ,1).ToString(),1, 600, 70, renk, "Tahoma", 14);

Sonli hocam teşekkürler. İyi çalışmalar.

Rica ederim, köşeli parantez olayı mobilden bakarsanız hisse.net uygulamasından kaynaklı genel sıkıntı, aklınızda bulunsun. PC den bakarsanız vardır zaten..

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

Seçenekler

Başlıklarda Ara

Görünüm

Yer İmleri

Yer İmleri

Gönderi Kuralları