Hell75
Nuovo forumer
Ma la colpa non è di office, è di come non riesco a far prendere i dati a vt...
Poi office 2007 è orrendo con quei menù...
.........
Riprendendo il post di ENDER ho apportato una lieve miglioria sull'uscita.
Codice:
Var:Massimi_Crescenti,Massimi_Decrescenti,Minimi_Crescenti,Minimi_Decrescenti,Volume_Crescente,Volume_Crescente50,Volume_Decrescente,Volume_Decrescente50,precval;
Massimi_Crescenti=BarSince(H>H[1])>=4; // 4 massimi crescenti
Massimi_Decrescenti=BarSince(H<H[1])>=4; // 4 massimi decrescenti
Minimi_Decrescenti=BarSince(L<L[1])>=4; // 4 minimi decrescenti
Minimi_Crescenti=BarSince(L>L[1])>=4; // 4 minimi crescenti
Volume_Crescente50=BarSince(V>V[1]*2)>=1; // Volume maggiore del doppio del precedente
Volume_Crescente=BarSince(V>V[1])>=1; // Volume crescente
Volume_Decrescente=BarSince(V<V[1])>=1; // Volume decrescente
Volume_Decrescente50=BarSince(V<V[1]*2)>=1;// Volume mimore del doppio del precedente
IF Massimi_Crescenti AND Volume_Crescente50 THEN
IF positionshort THEN
exitshort(nextbar,atopen);
ENDIF;
enterlong(nextbar,atopen);
ENDIF;
IF Minimi_Decrescenti AND Volume_Crescente50 THEN
IF positionlong THEN
exitlong(nextbar,atopen);
ENDIF;
entershort(nextbar,atopen);
ENDIF;
if Massimi_Decrescenti and Minimi_Decrescenti and Volume_Decrescente50 then exitlong(bar,atclose); endif;
if Minimi_Crescenti and Massimi_Crescenti and Volume_Decrescente50 then exitshort(bar,atclose); endif;
{******************************************************************************
Chiusura di tutte le posizioni a fine giornata
******************************************************************************* }
IF T>1730 THEN
IF positionlong THEN
exitlong(nextbar,atopen);
ENDIF;
IF positionshort THEN
exitshort(nextbar,atopen);
ENDIF;
ENDIF;
{******************************************************************************
Modulo di scrittura su file
*******************************************************************************}
//{
If precval<1 AND positiondir=1 THEN
FileWriteDateHour("C:\VTrader\ts\formule\_DOC\ENDER85\provaINOUT-ENDER85.txt", false);
FileWriteStringVal2("C:\VTrader\ts\formule\_DOC\ENDER85\provaINOUT-ENDER85.txt", " - compro a ", O, " punti " ,true);
ENDIF;
If precval>-1 AND positiondir=-1 THEN
FileWriteDateHour("C:\VTrader\ts\formule\_DOC\ENDER85\provaINOUT-ENDER85.txt", false);
FileWriteStringVal2("C:\VTrader\ts\formule\_DOC\ENDER85\provaINOUT-ENDER85.txt", " - vendo a ", O, " punti " ,true);
ENDIF;
precval=positiondir;
//}