Viop XXXV

[oyunagelenadam]

Ne reye kadar görüyorsun bari onu da yaz..
Herşeyi kendi topigine saklayıp durma..

Harfler büyük ..C ve R yanii ..

Sevgiler

SM-N935F cihazımdan hisse.net mobile app kullanarak gönderildi.

[mert45]

Ne reye kadar görüyorsun bari onu da yaz..
Herşeyi kendi topigine saklayıp durma..

SM-N935F cihazımdan hisse.net mobile app kullanarak gönderildi.

m ve e ve r ve t küçük bu defa ..sayı büyük ama ..

[Bear_Bull]

lib.cs dosyası içinde yazılı onlar.
atarım kodunu.

sistemin en altınada oradan okutup çizdiren bir bölüm yazmak gerekiyor.
onuda atarım. gece hatırlat.

ÖM kapatmışsın buradan yazayım;

İ.. abi selamlar,

Paylaştığın sistemde, alttaki getiri vb.. hesaplayıp yazdıran kalıp harika duruyor.

Ben taş devrinden kalma kalıp kullanıyorum

Özel değilse paylaşman mümkün olur mu?

Selamlar, bol kazançlar.

SİSTEMİN EN ALTINA for döngü güzel parantezinde altına kopyalanacak

            
/////performans göster 
string syspertrh = Sistem.Parametreler[5].Split('=')[1].Trim().ToUpper()  ;   /// K/Z Göster = 01/01/2021
if ( syspertrh != "" )
                     { Sistem.GetiriHesapla( syspertrh , 0.15f ); 
                       var KarZarar = Sistem.GetiriKZ;    
//for (int i = 1; i < Sistem.BarSayisi; i++) { KarZarar[i] = KarZarar[i]/10; }              
                       Sistem.Cizgiler[6].Deger =  KarZarar;  
                       Sistem.Cizgiler[6].Stil=1; 
                       Sistem.Cizgiler[6].Panel = 2; 
                       Sistem.Cizgiler[6].Aciklama = "NET_K/Z";
                       Sistem.Cizgiler[6].ActiveBool = true;
      var isay =    Sistem.GetiriToplamIslem;

 Sistem.ZeminYazisiEkle(syspertrh  +" İşlem Adet= "+isay.ToString("0")  , 2, 250, 20, Color.White , "Tahoma", 12);

}
else {Sistem.Cizgiler[6].ActiveBool = false;  }

string cizgiler = Sistem.Parametreler[7].Split('=')[1].Trim()  ; /// İNDİKATOR GÖSTER = h
if ( cizgiler == "e" ||  cizgiler == "E" )
{
Sistem.Cizgiler[0].Deger = TOMA;                       Sistem.Cizgiler[0].ActiveBool = true;
Sistem.Cizgiler[1].Deger = EMA;                        Sistem.Cizgiler[1].ActiveBool = true;
}
else
{Sistem.Cizgiler[0].ActiveBool = false; Sistem.Cizgiler[1].ActiveBool = false; }

string Detay = Sistem.Parametreler[6].Split('=')[1].Trim().ToUpper(); // Detay = E
if ( Detay == "E"  ) 
{
Lib.GetiriCizdir(Sistem);
                       Sistem.Cizgiler[10].ActiveBool = true;                       Sistem.Cizgiler[10].Panel = 2; 
                       Sistem.Cizgiler[11].ActiveBool = true;                       Sistem.Cizgiler[11].Panel = 2; 
                       Sistem.Cizgiler[12].ActiveBool = true;                       Sistem.Cizgiler[12].Panel = 2; 

}
else
{                      Sistem.Cizgiler[6].ActiveBool = true;  Sistem.Cizgiler[6].Panel = 2;  Sistem.Cizgiler[6].Deger =  Sistem.GetiriKZ;  
                       Sistem.Cizgiler[10].ActiveBool = false;    
                       Sistem.Cizgiler[11].ActiveBool = false;    
                       Sistem.Cizgiler[12].ActiveBool = false;                         
} 

şimdi bide c:/iDeal klasörü içine Lib.Cs dosyası yazman lazım
varsa Notepad ile açıp alttakini komple kopyalarsın.

using System;
using System.Collections;
using System.Collections.Generic;
using System.Linq;
using System.Drawing;
using System.IO;

namespace ideal
{
    public class Lib
    {
        public void GetiriCizdir(dynamic Sistem)
        {
            try
            {   int teminat = 1530;  float kom = 0.0f;     float kayma = 0.150f; 
                string syspertrh = "01/01/2020"; 
                float kaykom = (kom + kayma);
                Sistem.GetiriHesapla(syspertrh , kaykom);                
                var V = Sistem.GrafikVerileri;
                var C = Sistem.GrafikFiyatOku(V, "Kapanis");
                double KarCount = 0;
                double ZararCount = 0;
                int PrevBarNo = 0;
                var PrevYon = "";            int lsay = 0; int ssay = 0; 
                for (int i = 0; i < V.Count; i++)
                {
                    if (PrevBarNo > 0)
                    {
                        if (PrevYon == "A" && (Sistem.Yon[i] == "F" || Sistem.Yon[i] == "S"))
                        {
                            if (C[i] > C[PrevBarNo]) KarCount++;
                            if (C[i] < C[PrevBarNo]) ZararCount++;     ssay++; 
                        }
                        if (PrevYon == "S" && (Sistem.Yon[i] == "F" || Sistem.Yon[i] == "A"))
                        {
                            if (C[i] < C[PrevBarNo]) KarCount++;
                            if (C[i] > C[PrevBarNo]) ZararCount++;     lsay++;
                        }
                    }

                    if (Sistem.Yon[i] != "")
                    {
                        PrevYon = Sistem.Yon[i];
                        PrevBarNo = i;
                    }

                }

                var TradeCount = KarCount + ZararCount;
                double Oran = 100 * KarCount / (KarCount + ZararCount);

                Sistem.Cizgiler[10].Deger = Sistem.GetiriKZGunSonu;
                Sistem.Cizgiler[11].Deger = Sistem.GetiriKZGun;
                Sistem.DolguEkle(10, 11, Color.FromArgb(120, 0, 255, 0), Color.FromArgb(120, 255, 0, 0));
                Sistem.Cizgiler[12].Deger = Sistem.GetiriKZAy;

                var Sure = (DateTime.Now - V[0].Date).TotalDays / 30.4;
                var gunkz = Sistem.GetiriKZGunSonu[Sistem.GetiriKZGunSonu.Count - 1] - Sistem.GetiriKZGun[Sistem.GetiriKZGun.Count - 1];

                Sistem.GradientYaziEkle(Sure.ToString("0.0") + " Ay", 2, 10, 10, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(Sistem.GetiriKZ[Sistem.GetiriKZ.Count - 1].ToString("0.00"), 2, 90, 10, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Bu Gün", 2, 10, 25, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(gunkz.ToString("0.00"), 2, 90, 25, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("İşlem Sayısı", 2, 10, 40, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle((TradeCount / 2).ToString("0"), 2, 90, 40, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Short  " + ssay.ToString("0") + "\r\n" +"İşlemSayı. " + (ssay+lsay).ToString("0") + "\r\n" +"Long   " + lsay.ToString("0")  , 2, 150, 10, Color.Red, Color.Lime, "Calibri", 10);

                Sistem.GradientYaziEkle("Ortalama", 2, 10, 55, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(((TradeCount / 2) / Sure).ToString("0"), 2, 90, 55, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Karlılık", 2, 10, 70, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(Oran.ToString("0.00"), 2, 90, 70, Color.Gold, Color.Gold, "Calibri", 10);
                
                       var KarZarar = Sistem.GetiriKZ;  
                       Sistem.Cizgiler[6].Deger =  KarZarar;  
                       Sistem.Cizgiler[6].Stil=1; 
                       Sistem.Cizgiler[6].Panel = 2; 
                       Sistem.Cizgiler[6].Aciklama = "NET_K/Z";
                       Sistem.Cizgiler[6].ActiveBool = true;                         // var isay = Sistem.GetiriToplamIslem;
                       var isay =  lsay+ssay;

//Sistem.ZeminYazisiEkle(syspertrh  +" den bu güne istatistikler ", 2, 1, 85, Color.White , "Calibri", 10); 
Sistem.ZeminYazisiEkle("Bear___"  , 2, 145, 60, Color.Red  , "Vladimir Script", 16);
Sistem.ZeminYazisiEkle("___ Bull"  , 2, 145, 60, Color.Lime    , "Vladimir Script", 16);
Sistem.ZeminYazisiEkle("Grf B.Tarih = "+ V[1].Date.ToString("dd.MM.yy - HH:mm") + "    BarSayısı = " + (Sistem.BarSayisi).ToString() , 2 , 1, 85, Color.White    , "Tahoma", 8);

Sistem.ZeminYazisiEkle("Net Kâr_Zarar 1 lot      = "+ (10*KarZarar[KarZarar .Count-1]).ToString("C0") , 2, 1, 115, KarZarar[KarZarar.Count-1] > 0 ? Color.Green : Color.Red , "Calibri", 10); 
Sistem.ZeminYazisiEkle("Teminat       =   " +  teminat.ToString("C0") + "                    Getiri  % " + (( 1000*KarZarar[KarZarar.Count-1]) / teminat ).ToString("0"), 2, 1, 100,  Color.White , "Calibri", 10);

//Sistem.ZeminYazisiEkle("işl.fiyat Kayma maliyeti= "+  kayma + " puan " + (kayma * 10).ToString("C1") + "   Toplam = " + (kayma * 10 * isay).ToString("C0")  , 2, 1, 130,  Color.Red , "Calibri", 10);
//Sistem.ZeminYazisiEkle("işl. Komisyon   maliyeti = "+  kom + " puan " + (kom * 10).ToString("C1") + "   Toplam = " + (kom * 10 * isay).ToString("C0")  , 2, 1, 145,  Color.Red , "Calibri", 10);
 
Sistem.ZeminYazisiEkle("Kayma+Kom.Tl = " +  ((kayma+kom) * 10 * isay).ToString("C0"), 2, 180, 115,  Color.Yellow , "Calibri", 10);

////////////

var MutluGun = 0;
var MutsuzGun = 0;
for (int i=1; i<Sistem.GetiriKZGun.Count; i++)
{
   if (Sistem.GetiriKZGun[i] > Sistem.GetiriKZGun[i-1])
      MutluGun++;
   if (Sistem.GetiriKZGun[i] < Sistem.GetiriKZGun[i-1])
      MutsuzGun++;
}
var NetMutlu = MutluGun-MutsuzGun;
Sistem.ZeminYazisiEkle("Karlı    Gün  = "+ MutluGun.ToString(), 2, 300, 35, Color.LightGreen,   "Tahoma", 10);
Sistem.ZeminYazisiEkle("Zararlı Gün  = " + MutsuzGun.ToString(),2, 300, 47, Color.Red, "Tahoma", 10);
Sistem.ZeminYazisiEkle("Net K/Z Gün= "  + NetMutlu.ToString(), 2, 300, 59, NetMutlu>0 ?  Color.Green : Color.Red , "Tahoma", 10);

////////////
            }
            catch (Exception ex){ Sistem.Mesaj(ex.Message); }

        }
        
           
    }        

} 

[mert45]

m ve e ve r ve t küçük bu defa ..sayı büyük ama ..

https://www.hisse.net/topluluk/showt...06#post5483906

[Dr.Trend]

ankarada yaşayanlar bilirler. 5 dk da bir vızır vızır çakarlı korumalı resmi araçlar geçerler. değerleri milyonluk.

şimdi bir de resmi dairelerden çıkan en az 600-700 binlik audi bmw mercedesler türedi. bunlar şahıs malı. resmi plaka değil.

arkadaş çok önemli üst kurullar hariç, diğer kurumlarda daire başkanları bile en fazla 15-18 bin alıyor. başkan en fazla görevlerle birlikte 25 bin alır.

bu paralar nereden geliyor?

Bu sorunun cevabı yok. Hiç bir zaman da bu sorunun cevabını alamayacağız. Bir daire başkanı yeni 5 kasa BMW ya da A6 alabiliyorsa kendi parası var der geçersin ama neredeyse tüm daire başkanları altında en az 600-700k araba ile geziyorsa o zaman…


Tapatalk kullanarak iPhone aracılığıyla gönderildi

[nosfecagri]

SİSTEMİN EN ALTINA for döngü güzel parantezinde altına kopyalanacak

            
/////performans göster 
string syspertrh = Sistem.Parametreler[5].Split('=')[1].Trim().ToUpper()  ;   /// K/Z Göster = 01/01/2021
if ( syspertrh != "" )
                     { Sistem.GetiriHesapla( syspertrh , 0.15f ); 
                       var KarZarar = Sistem.GetiriKZ;    
//for (int i = 1; i < Sistem.BarSayisi; i++) { KarZarar[i] = KarZarar[i]/10; }              
                       Sistem.Cizgiler[6].Deger =  KarZarar;  
                       Sistem.Cizgiler[6].Stil=1; 
                       Sistem.Cizgiler[6].Panel = 2; 
                       Sistem.Cizgiler[6].Aciklama = "NET_K/Z";
                       Sistem.Cizgiler[6].ActiveBool = true;
      var isay =    Sistem.GetiriToplamIslem;

 Sistem.ZeminYazisiEkle(syspertrh  +" İşlem Adet= "+isay.ToString("0")  , 2, 250, 20, Color.White , "Tahoma", 12);

}
else {Sistem.Cizgiler[6].ActiveBool = false;  }

string cizgiler = Sistem.Parametreler[7].Split('=')[1].Trim()  ; /// İNDİKATOR GÖSTER = h
if ( cizgiler == "e" ||  cizgiler == "E" )
{
Sistem.Cizgiler[0].Deger = TOMA;                       Sistem.Cizgiler[0].ActiveBool = true;
Sistem.Cizgiler[1].Deger = EMA;                        Sistem.Cizgiler[1].ActiveBool = true;
}
else
{Sistem.Cizgiler[0].ActiveBool = false; Sistem.Cizgiler[1].ActiveBool = false; }

string Detay = Sistem.Parametreler[6].Split('=')[1].Trim().ToUpper(); // Detay = E
if ( Detay == "E"  ) 
{
Lib.GetiriCizdir(Sistem);
                       Sistem.Cizgiler[10].ActiveBool = true;                       Sistem.Cizgiler[10].Panel = 2; 
                       Sistem.Cizgiler[11].ActiveBool = true;                       Sistem.Cizgiler[11].Panel = 2; 
                       Sistem.Cizgiler[12].ActiveBool = true;                       Sistem.Cizgiler[12].Panel = 2; 

}
else
{                      Sistem.Cizgiler[6].ActiveBool = true;  Sistem.Cizgiler[6].Panel = 2;  Sistem.Cizgiler[6].Deger =  Sistem.GetiriKZ;  
                       Sistem.Cizgiler[10].ActiveBool = false;    
                       Sistem.Cizgiler[11].ActiveBool = false;    
                       Sistem.Cizgiler[12].ActiveBool = false;                         
} 

şimdi bide c:/iDeal klasörü içine Lib.Cs dosyası yazman lazım
varsa Notepad ile açıp alttakini komple kopyalarsın.

using System;
using System.Collections;
using System.Collections.Generic;
using System.Linq;
using System.Drawing;
using System.IO;

namespace ideal
{
    public class Lib
    {
        public void GetiriCizdir(dynamic Sistem)
        {
            try
            {   int teminat = 1530;  float kom = 0.0f;     float kayma = 0.150f; 
                string syspertrh = "01/01/2020"; 
                float kaykom = (kom + kayma);
                Sistem.GetiriHesapla(syspertrh , kaykom);                
                var V = Sistem.GrafikVerileri;
                var C = Sistem.GrafikFiyatOku(V, "Kapanis");
                double KarCount = 0;
                double ZararCount = 0;
                int PrevBarNo = 0;
                var PrevYon = "";            int lsay = 0; int ssay = 0; 
                for (int i = 0; i < V.Count; i++)
                {
                    if (PrevBarNo > 0)
                    {
                        if (PrevYon == "A" && (Sistem.Yon[i] == "F" || Sistem.Yon[i] == "S"))
                        {
                            if (C[i] > C[PrevBarNo]) KarCount++;
                            if (C[i] < C[PrevBarNo]) ZararCount++;     ssay++; 
                        }
                        if (PrevYon == "S" && (Sistem.Yon[i] == "F" || Sistem.Yon[i] == "A"))
                        {
                            if (C[i] < C[PrevBarNo]) KarCount++;
                            if (C[i] > C[PrevBarNo]) ZararCount++;     lsay++;
                        }
                    }

                    if (Sistem.Yon[i] != "")
                    {
                        PrevYon = Sistem.Yon[i];
                        PrevBarNo = i;
                    }

                }

                var TradeCount = KarCount + ZararCount;
                double Oran = 100 * KarCount / (KarCount + ZararCount);

                Sistem.Cizgiler[10].Deger = Sistem.GetiriKZGunSonu;
                Sistem.Cizgiler[11].Deger = Sistem.GetiriKZGun;
                Sistem.DolguEkle(10, 11, Color.FromArgb(120, 0, 255, 0), Color.FromArgb(120, 255, 0, 0));
                Sistem.Cizgiler[12].Deger = Sistem.GetiriKZAy;

                var Sure = (DateTime.Now - V[0].Date).TotalDays / 30.4;
                var gunkz = Sistem.GetiriKZGunSonu[Sistem.GetiriKZGunSonu.Count - 1] - Sistem.GetiriKZGun[Sistem.GetiriKZGun.Count - 1];

                Sistem.GradientYaziEkle(Sure.ToString("0.0") + " Ay", 2, 10, 10, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(Sistem.GetiriKZ[Sistem.GetiriKZ.Count - 1].ToString("0.00"), 2, 90, 10, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Bu Gün", 2, 10, 25, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(gunkz.ToString("0.00"), 2, 90, 25, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("İşlem Sayısı", 2, 10, 40, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle((TradeCount / 2).ToString("0"), 2, 90, 40, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Short  " + ssay.ToString("0") + "\r\n" +"İşlemSayı. " + (ssay+lsay).ToString("0") + "\r\n" +"Long   " + lsay.ToString("0")  , 2, 150, 10, Color.Red, Color.Lime, "Calibri", 10);

                Sistem.GradientYaziEkle("Ortalama", 2, 10, 55, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(((TradeCount / 2) / Sure).ToString("0"), 2, 90, 55, Color.Gold, Color.Gold, "Calibri", 10);

                Sistem.GradientYaziEkle("Karlılık", 2, 10, 70, Color.Silver, Color.Silver, "Calibri", 10);
                Sistem.GradientYaziEkle(Oran.ToString("0.00"), 2, 90, 70, Color.Gold, Color.Gold, "Calibri", 10);
                
                       var KarZarar = Sistem.GetiriKZ;  
                       Sistem.Cizgiler[6].Deger =  KarZarar;  
                       Sistem.Cizgiler[6].Stil=1; 
                       Sistem.Cizgiler[6].Panel = 2; 
                       Sistem.Cizgiler[6].Aciklama = "NET_K/Z";
                       Sistem.Cizgiler[6].ActiveBool = true;                         // var isay = Sistem.GetiriToplamIslem;
                       var isay =  lsay+ssay;

//Sistem.ZeminYazisiEkle(syspertrh  +" den bu güne istatistikler ", 2, 1, 85, Color.White , "Calibri", 10); 
Sistem.ZeminYazisiEkle("Bear___"  , 2, 145, 60, Color.Red  , "Vladimir Script", 16);
Sistem.ZeminYazisiEkle("___ Bull"  , 2, 145, 60, Color.Lime    , "Vladimir Script", 16);
Sistem.ZeminYazisiEkle("Grf B.Tarih = "+ V[1].Date.ToString("dd.MM.yy - HH:mm") + "    BarSayısı = " + (Sistem.BarSayisi).ToString() , 2 , 1, 85, Color.White    , "Tahoma", 8);

Sistem.ZeminYazisiEkle("Net Kâr_Zarar 1 lot      = "+ (10*KarZarar[KarZarar .Count-1]).ToString("C0") , 2, 1, 115, KarZarar[KarZarar.Count-1] > 0 ? Color.Green : Color.Red , "Calibri", 10); 
Sistem.ZeminYazisiEkle("Teminat       =   " +  teminat.ToString("C0") + "                    Getiri  % " + (( 1000*KarZarar[KarZarar.Count-1]) / teminat ).ToString("0"), 2, 1, 100,  Color.White , "Calibri", 10);

//Sistem.ZeminYazisiEkle("işl.fiyat Kayma maliyeti= "+  kayma + " puan " + (kayma * 10).ToString("C1") + "   Toplam = " + (kayma * 10 * isay).ToString("C0")  , 2, 1, 130,  Color.Red , "Calibri", 10);
//Sistem.ZeminYazisiEkle("işl. Komisyon   maliyeti = "+  kom + " puan " + (kom * 10).ToString("C1") + "   Toplam = " + (kom * 10 * isay).ToString("C0")  , 2, 1, 145,  Color.Red , "Calibri", 10);
 
Sistem.ZeminYazisiEkle("Kayma+Kom.Tl = " +  ((kayma+kom) * 10 * isay).ToString("C0"), 2, 180, 115,  Color.Yellow , "Calibri", 10);

////////////

var MutluGun = 0;
var MutsuzGun = 0;
for (int i=1; i<Sistem.GetiriKZGun.Count; i++)
{
   if (Sistem.GetiriKZGun[i] > Sistem.GetiriKZGun[i-1])
      MutluGun++;
   if (Sistem.GetiriKZGun[i] < Sistem.GetiriKZGun[i-1])
      MutsuzGun++;
}
var NetMutlu = MutluGun-MutsuzGun;
Sistem.ZeminYazisiEkle("Karlı    Gün  = "+ MutluGun.ToString(), 2, 300, 35, Color.LightGreen,   "Tahoma", 10);
Sistem.ZeminYazisiEkle("Zararlı Gün  = " + MutsuzGun.ToString(),2, 300, 47, Color.Red, "Tahoma", 10);
Sistem.ZeminYazisiEkle("Net K/Z Gün= "  + NetMutlu.ToString(), 2, 300, 59, NetMutlu>0 ?  Color.Green : Color.Red , "Tahoma", 10);

////////////
            }
            catch (Exception ex){ Sistem.Mesaj(ex.Message); }

        }
        
           
    }        

} 

Abi sen nasıl bir kralsın... Selamlar sevgiler teşekkürler.

[Bear_Bull]

Abi Selamlar sevgiler teşekkürler.

şimdi de
grafik üstünde "S" ye basıp en altta Lib.Cs compayır et dedin mi tamamdır. kullanılabilir duruma gelecektir.
sistem içinde Parametrelerin yazılacağı yerleri farketmişsindir onlarıda yerlerine kopyalarsın.
kolay gelsin.

[ZET35]

https://youtu.be/_h-ikUFX46k

TL deki düşüşün yerçekimi kanunu kaynaklı olduğu söyleniyor...

Yerçekimi değilmiş o gök itimiymiş.