Sistem Karþýlaþtýrma 2

[erhanacikgoz1]

ben manuel iþlem yapýyorum
siztemle robot iþlem yapanlar bu hafta kar yazmalarý gerekirdi , kar yazamadýysaslar yeni sistem yazmaya devam etmeliler
iyi kar yazanlar sistemlerine sahip çýksýn

basit ce yazýlmýþ 15-20 sisteme baktým bu haftayý nasýl geçirmiþler diye 1 ve 5 dk lýklarda kar yazan yok adeta

iyidi bu haftada anlýmýzýn akýyla býtýrdýk 2018 i bitirdik ya dahada býrsey cýkmaz bu grafiklerden bu yýl.

[erhanacikgoz1]

elinde hazýrda uyumsuzluklarý gösteren bir algorýtmasý olan varmý tarama seklýnde degýl.

viop için mantýk uyduramadým nasýl birþey yazýlabýlýrle ilgili hazýr olan varsa onun uzerýnden gýdeyým.

[oralet]

Arkadaþlar forumda daha önce paylaþýlan günlük belirtilen miktardan fazla emir gönderen robotu, belli bir süre durdurun robot kod örneði paylaþýlmýþtý yanlýþ hatýrlamýyorsam

Arþivine alan varsa burada tekrar paylaþabilirmi?

Bugün Þans eseri robotu 14. al-satý yaparken yakaladým

Robotu sanala alýp ne oluyor falan derken longta kalmýþým sonra verdiler piyasaya

kar edeceðimiz günde zarar yazdýk neyseki zarar fazla degil

[Bear_Bull]

Arkadaþlar forumda daha önce paylaþýlan günlük belirtilen miktardan fazla emir gönderen robotu, belli bir süre durdurun robot kod örneði paylaþýlmýþtý yanlýþ hatýrlamýyorsam

Arþivine alan varsa burada tekrar paylaþabilirmi?

Bugün Þans eseri robotu 14. al-satý yaparken yakaladým

Robotu sanala alýp ne oluyor falan derken longta kalmýþým sonra verdiler piyasaya

kar edeceðimiz günde zarar yazdýk neyseki zarar fazla degil

var LotSize = 1.0;
var Periyot = "5";
var KullanilanSistem = "SistemAdi";
var DefaLimiti = 3;


// VIOP - Canlý Barda Emir Gönderim Kalýbý
var MySistem = Sistem.SistemGetir(KullanilanSistem, "VIP'VIP-X030", Periyot);
if (MySistem != null)
{
    var V = MySistem.GrafikVerileri;
    var Saat = V[V.Count - 1].Date;
    if (Sistem.SaatAraligi("09:30", "18:14") && V[V.Count - 1].Date.Day == DateTime.Now.Day)
    {
        var DefaAnahtar = Sistem.Name + " , " + "Defa" + " , " + Saat.ToString("yyyyMMddHHmm");
        var DefaSayisi = Sistem.SayiTablosunuOku(DefaAnahtar);
        if (DefaSayisi < DefaLimiti)
        {
            var EmirSembol = Sistem.AktifViopKontrat;
            var Pozisyon = Sistem.PozisyonKontrolOku(Sistem.Name + " , " + EmirSembol);
            var SonYon = "";
            for (int i = 0; i < MySistem.Yon.Count; i++)
            {
                if (MySistem.Yon[i] != "")
                    SonYon = MySistem.Yon[i];
            }

            // Emir Miktarýný Hesapla
            var Miktar = 0.0;
            if (SonYon == "F" && Pozisyon != 0)  // Flata Geç
                Miktar = -Pozisyon;
            else if (SonYon == "A" && Pozisyon != LotSize)  // Al
                Miktar = LotSize - Pozisyon;
            else if (SonYon == "S" && Pozisyon != -LotSize)  // Sat
                Miktar = -LotSize - Pozisyon;

            // Emir Gönder
            if (Miktar != 0)
            {
                Sistem.PozisyonKontrolGuncelle(Sistem.Name + " , " + EmirSembol, Miktar + Pozisyon);
                Sistem.EmirSembol = Sistem.AktifViopKontrat;
                Sistem.EmirIslem = Miktar > 0 ? "ALIS" : "SATIS";
                Sistem.EmirMiktari = Math.Abs(Miktar);
                Sistem.EmirSuresi = "GUN";
                Sistem.EmirTipi = "KPY";
                Sistem.EmirFiyatTipi = "PYS";
                Sistem.EmirGonder();
                DefaSayisi++;
                Sistem.SayiTablosunuGuncelle(DefaAnahtar, DefaSayisi);
            }
        }
    }
} 

[kenten]

olaðandýþýlýk yüzünden (çok fazla emir mesela ) sistemi durduracaksýnýz son pozisyonu açýk býrakmak yerine sýfýrlamak daha mantýklý.

[alekss]

sayýn ideal yetkilileri

grafik verisi indir seçeneðinde
imkbh seçeneðini seçtiðimiz zaman bütün hisse senetlerinin grafik verisini indirmeye çalýþýyor
piyasada öyle gereksiz senetler varki hiç bir zaman grafik verisine ihtiyacýmýz olmaz

acaba o bolümede u30 senetler veya u100 senetleri gibi seçenekler konulabilirmi ?

[oralet]

olaðandýþýlýk yüzünden (çok fazla emir mesela ) sistemi durduracaksýnýz son pozisyonu açýk býrakmak yerine sýfýrlamak daha mantýklý.

Bearbull abinin verdiði örnekte düzeltmesini yapabilir misiniz hocam , yada baþka bir örnek paylaþabilir misiniz ?



C5-Mobile cihazýmdan Tapatalk kullanýlarak gönderildi

[Bear_Bull]

sayýn ideal yetkilileri

grafik verisi indir seçeneðinde
imkbh seçeneðini seçtiðimiz zaman bütün hisse senetlerinin grafik verisini indirmeye çalýþýyor
piyasada öyle gereksiz senetler varki hiç bir zaman grafik verisine ihtiyacýmýz olmaz

acaba o bolümede u30 senetler veya u100 senetleri gibi seçenekler konulabilirmi ?

sorgu bölümünden ister kendi istediðiniz (kaydettiðiniz liste varsa) hazýr listeleri tamamlatabilirsiniz.

var Sembol = Sistem.Sembol;
var yuzeysel = Sistem.YuzeyselVeriOku(Sembol);     
Sistem.SorguBaslik[0] = "SON";
Sistem.SorguBaslik[1] = "5 dk";
Sistem.SorguBaslik[2] = "60 dk";
Sistem.SorguBaslik[3] = "Gün";
Sistem.SorguBaslik[4] = "1 DK";
var son = Sistem.SonFiyat(Sembol); 
if ( son > 0 ) {
Sistem.GrafikVerisiIndir(Sembol, "1" );
Sistem.GrafikVerisiIndir(Sembol, "5" );
Sistem.GrafikVerisiIndir(Sembol, "60" );
Sistem.GrafikVerisiIndir(Sembol, "G" );
Sistem.SorguAciklama = "Data Tamamlandý " + Sembol ;
Sistem.SorguDeger[0] = son;
Sistem.SorguDeger[1] = son;
Sistem.SorguDeger[2] = son;
Sistem.SorguDeger[3] = son;
Sistem.SorguDeger[4] = son; 
Sistem.SorguOndalik[0] = 5;
Sistem.SorguOndalik[1] = 5;
Sistem.SorguOndalik[2] = 5;
Sistem.SorguOndalik[3] = 5;
Sistem.SorguOndalik[4] = 5; 
}
else
{
Sistem.SorguAciklama =  "*** Data YOK ***";
Sistem.SorguDeger[0] = son;
}

Sistem.SorguEkle();