Skrypty i narzedzia napisane przez uzytkownikow forum
- Tomasz-20021
- Główny Moderator
- Posty: 1707
- Rejestracja: czwartek 09 sty 2014, 10:42
Skrypty i narzedzia napisane przez uzytkownikow forum
Witam - prosze tu wrzucac rozne skrypty i inne udogodnienia znalezione gdzies na forum. W watku Szwajcara pojawily sie skrypty do stawiania drabinek jednak z czasem ich odnalezienie jest nie lada wyzwaniem.
"Panie Edison, dlaczego nie rezygnuje pan po 5000 porażek?”, Edison: „Młody człowieku, nie rozumie pan, to nie porażka. Znalazłem tylko 5000 sposobów, które nie działają. Dzięki czemu jestem o 5000 prób bliżej rozwiązania”.
- akhh
- Moderator Forum
- Posty: 4448
- Rejestracja: czwartek 07 cze 2012, 08:46
- skype: ComparicFX
- Lat na Forex: 12
- Rodzaj rachunku: Rachunek rzeczywisty
- Lokalizacja: Kielce
- Kontakt:
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
Dobry pomysł. Jarek też troszkę tego napisał ;)
- Tomasz-20021
- Główny Moderator
- Posty: 1707
- Rejestracja: czwartek 09 sty 2014, 10:42
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
tak wiadzialem wlasnie - juz mialem przenosic rowniez skrypty Jarka ale patrze a one juz tam sa :D
"Panie Edison, dlaczego nie rezygnuje pan po 5000 porażek?”, Edison: „Młody człowieku, nie rozumie pan, to nie porażka. Znalazłem tylko 5000 sposobów, które nie działają. Dzięki czemu jestem o 5000 prób bliżej rozwiązania”.
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
Najlepiej będzie podlinkowywać tutaj tematy/posty i zrobić taką bazę - spis wskaźników. Jeśli ktoś ma na to czas, to myślę, że społeczność forumowa będzie wdzięczna.
- Tomasz-20021
- Główny Moderator
- Posty: 1707
- Rejestracja: czwartek 09 sty 2014, 10:42
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
mozna to robic "przy okazji". Jesli ktos cos gdzies wypatrzy fajnego to ciach kopiuj wklej i bedzie na przyszlosc jak znalazl.
"Panie Edison, dlaczego nie rezygnuje pan po 5000 porażek?”, Edison: „Młody człowieku, nie rozumie pan, to nie porażka. Znalazłem tylko 5000 sposobów, które nie działają. Dzięki czemu jestem o 5000 prób bliżej rozwiązania”.
- GoldWolf
- Stały Bywalec
- Posty: 219
- Rejestracja: wtorek 15 gru 2015, 20:48
- Lat na Forex: 5
- Rodzaj rachunku: Rachunek rzeczywisty
- Lokalizacja: Bielsko-Biała
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
Cel przeglądanie wszystkich dostępnych instrumentów przez brokera w jednym oknie.
Wersja XTB EA (broker dodaje znaczek plus "+" przy nazwie instrument na których można handlować):
Dla nie kopiących przy nazwach brokerach
Zmienna ListaInstrumentow - przyjmuje wartość true i wtedy pokazuje wszystkie walory dostępne w zakładce instrumenty (prawdopodobnie przy domyślnie zainstalowanej platformie są to wszystkie instrumenty).
Gdy ListaInstrumentow jest false pokazuje ukryte instrumenty - ja wybrałem sobie tylko kilka instrumentów dlatego używam opcji false gdy chcę zobaczyć resztę .
Teraz już nie muszę korzystać z innych rozwiązań.
Wersja XTB EA (broker dodaje znaczek plus "+" przy nazwie instrument na których można handlować):
Kod: Zaznacz cały
//+------------------------------------------------------------------+
//| PrzegladWalorow.mq4 |
//| Copyright 2016, MetaQuotes Software Corp. |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, MetaQuotes Software Corp."
#property link "http://forum.comparic.pl/viewtopic.php?f=41&t=3224&p=63991#p63991"
#property version "1.00"
#property strict
#property description "Skrypt ułatwiający przeglądania wszystkich walorów dostępnych u brokera"
#property description "Gdy ListaInstrumentow = true - pokazuje zaznaczone instrumenty"
#property description "Gdy ListaInstrumentow = false - pokazuje instrumenty ukryte"
#property description "Nawigacja za pomoca klaiwszy 1 i 2"
extern bool ListaInstrumentow = false; //Symbole zaznaczone, czy ukryte
short indeks_pozycji = 0;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
//---
}
//+------------------------------------------------------------------+
//| ChartEvent function |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
const long &lparam,
const double &dparam,
const string &sparam)
{
//---
if(lparam == 50){ // 50 to klawisz "2"
for(;indeks_pozycji >= 0;){
indeks_pozycji++;
if(indeks_pozycji > SymbolsTotal(ListaInstrumentow))
indeks_pozycji = 0;
if(StringFind(SymbolName(indeks_pozycji, ListaInstrumentow),"+",0) > 0){
ChartSetSymbolPeriod(0, SymbolName(indeks_pozycji, ListaInstrumentow), PERIOD_W1);
break;
}else
Print("Nie pokazano walortu - :", SymbolName(indeks_pozycji, ListaInstrumentow));
}
}
if(lparam == 49){ // 49 to klawisz "1"
for(;indeks_pozycji > -2;){
indeks_pozycji--;
if(indeks_pozycji < 0)
indeks_pozycji = (short) SymbolsTotal(ListaInstrumentow);
if(StringFind(SymbolName(indeks_pozycji, ListaInstrumentow),"+",0) > 0){
ChartSetSymbolPeriod(0, SymbolName(indeks_pozycji, ListaInstrumentow), PERIOD_W1);
break;
}else
Print("Nie pokazano walortu - :", SymbolName(indeks_pozycji, ListaInstrumentow));
}
}
//Print("indeks_pozycji - ", indeks_pozycji, " (short) SymbolsTotal(ListaInstrumentow) - ", (short) SymbolsTotal(ListaInstrumentow));
}
//+------------------------------------------------------------------+
Kod: Zaznacz cały
//+------------------------------------------------------------------+
//| PrzegladWalorow.mq4 |
//| Copyright 2016, MetaQuotes Software Corp. |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, MetaQuotes Software Corp."
#property link "http://forum.comparic.pl/viewtopic.php?f=41&t=3224&p=63991#p63991"
#property version "1.00"
#property strict
#property description "Skrypt ułatwiający przeglądania wszystkich walorów dostępnych u brokera"
#property description "Gdy ListaInstrumentow = true - pokazuje zaznaczone instrumenty"
#property description "Gdy ListaInstrumentow = false - pokazuje instrumenty ukryte"
#property description "Nawigacja za pomoca klaiwszy 1 i 2"
extern bool ListaInstrumentow = false; //Symbole zaznaczone, czy ukryte
short indeks_pozycji = 0;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
//---
}
//+------------------------------------------------------------------+
//| ChartEvent function |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
const long &lparam,
const double &dparam,
const string &sparam)
{
//---
if(lparam == 50){ // 50 to klawisz "2"
indeks_pozycji++;
if(indeks_pozycji > SymbolsTotal(ListaInstrumentow))
indeks_pozycji = 0;
ChartSetSymbolPeriod(0, SymbolName(indeks_pozycji, ListaInstrumentow), PERIOD_W1);
}
if(lparam == 49){ // 49 to klawisz "1"
indeks_pozycji--;
if(indeks_pozycji < 0)
indeks_pozycji = (short) SymbolsTotal(ListaInstrumentow);
ChartSetSymbolPeriod(0, SymbolName(indeks_pozycji, ListaInstrumentow), PERIOD_W1);
}
//Print("indeks_pozycji - ", indeks_pozycji, " (short) SymbolsTotal(ListaInstrumentow) - ", (short) SymbolsTotal(ListaInstrumentow));
}
//+------------------------------------------------------------------+
Gdy ListaInstrumentow jest false pokazuje ukryte instrumenty - ja wybrałem sobie tylko kilka instrumentów dlatego używam opcji false gdy chcę zobaczyć resztę .
Teraz już nie muszę korzystać z innych rozwiązań.
Nie masz wymaganych uprawnień, aby zobaczyć pliki załączone do tego posta.
- GoldWolf
- Stały Bywalec
- Posty: 219
- Rejestracja: wtorek 15 gru 2015, 20:48
- Lat na Forex: 5
- Rodzaj rachunku: Rachunek rzeczywisty
- Lokalizacja: Bielsko-Biała
Re: Skrypty i narzedzia napisane przez uzytkownikow forum
Prezentuje skrypt wspomagający do EA PrzygotujKarme powstałych dla strategii Pies na trend - http://forum.comparic.pl/viewtopic.php?f=27&t=4697
Skrypt przygotowuje pliki niezbędne do działania EA ze wspomnianej wyżej strategii. Automatycznie tworzy pliki Kierunek i SL_Sys, oraz ew. je nadpisuje.
Kod: Zaznacz cały
//+------------------------------------------------------------------+
//| PrzygotujKarme.mq4 |
//| Copyright 2016,MetaQuotesSoftwareCorp. - GoldWolf - comparic.pl |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016,MetaQuotesSoftwareCorp. - GoldWolf - comparic.pl"
#property link "http://forum.comparic.pl/viewtopic.php?f=27&t=4697"
#property version "1.00"
#property strict
#property description "Skrypt przygotowany jest do pracy z EA utworzonymi dla strategi Pies na trend"
#property description "Więcej informacji znajdziecie na stronach forum - comparic.pl lub kilkając powyższy linik"
#property script_show_inputs
enum Opcje{
Gora = 1, //Wzrost
Dol = 9, //Spadek
};
input Opcje Kierunek = Dol; //Jaki jest trend?
extern double SL_Systemowy = 0.0; //Podaj SL Systemowy
string NazwaPliku,walor;
int handle;
//+------------------------------------------------------------------+
//| Script program start function |
//+------------------------------------------------------------------+
void OnStart()
{
//---
UtworzyPliki();
}
//+------------------------------------------------------------------+
int UtworzyPliki(){
walor = Symbol();
short semafor = 0;
NazwaPliku = walor+"Kierunek.txt";
if(FileIsExist(NazwaPliku)){
if(MessageBox("Plik "+NazwaPliku+" istnieje! Nadpisać?", "WykrytoPlik", MB_YESNOCANCEL) == 6)
semafor = 1;
else
return 1;
}else
semafor = 1;
if(semafor == 1){
handle=FileOpen(NazwaPliku, FILE_WRITE|FILE_TXT|FILE_READ);
if(handle!=INVALID_HANDLE){
FileSeek(handle, 0, SEEK_SET);
FileWrite(handle,(string)Kierunek);
FileClose(handle);
}else Print("Operation FileOpen failed, error ",GetLastError());
handle = NULL;
semafor = 0;
}
if(SL_Systemowy > 0){
NazwaPliku = walor+"SL_Sys.txt";
if(FileIsExist(NazwaPliku)){
if(MessageBox("Plik "+NazwaPliku+" istnieje! Nadpisać?", "WykrytoPlik", MB_YESNOCANCEL) == 6)
semafor = 1;
else
return 2;
}else
semafor = 1;
if(semafor == 1){
handle=FileOpen(NazwaPliku, FILE_WRITE|FILE_TXT|FILE_READ);
if(handle!=INVALID_HANDLE){
FileSeek(handle, 0, SEEK_SET);
FileWrite(handle,(string)SL_Systemowy);
FileClose(handle);
}else Print("Operation FileOpen failed, error ",GetLastError());
handle = NULL;
NazwaPliku = NULL;
}
}
return 0;
}
shzz
Hey, great blog, but I don’t understand how to add your site in my rss reader. Can you Help me please? Airco Limburg
shzz
I have been searching to find a comfort or effective procedure to complete this process and I think this is the most suitable way to do it effectively. Zonnepanelen Mook en Middelaar
shzz
I am really enjoying reading your well written articles. It looks like you spend a lot of effort and time on your blog. I have bookmarked it and I am looking forward to reading new articles. Keep up the good work. Zonnepanelen Eijsden-Margraten
shzz
This is really very nice post you shared, i like the post, thanks for sharing.. Airco Alken
shzz
This post is good enough to make somebody understand this amazing thing, and I’m sure everyone will appreciate this interesting things. Zonnepanelen Bergen
shzz
What a really awesome post this is. Truly, one of the best posts I've ever witnessed to see in my whole life. Wow, just keep it up. Airco Balen
shzz
it's really cool blog. Linking is very useful thing.you have really helped Zonnepanelen Brunssum
shzz
I have been searching to find a comfort or effective procedure to complete this process and I think this is the most suitable way to do it effectively. Airco Beringen
shzz
Your content is nothing short of brilliant in many ways. I think this is engaging and eye-opening material. Thank you so much for caring about your content and your readers. Zonnepanelen Echt-Susteren
shzz
Such a very useful article. Very interesting to read this article.I would like to thank you for the efforts you had made for writing this awesome article. Airco Bilzen
shzz
Very useful post. This is my first time i visit here. I found so many interesting stuff in your blog especially its discussion. Really its great article. Keep it up. Zonnepanelen Gennep
shzz
Such a very useful article. Very interesting to read this article.I would like to thank you for the efforts you had made for writing this awesome article. Airco Borgloon
Kto jest online
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 3 gości