Kicsit átalakitottam a vizjel megjelenitést a monitoron minden fontos adatot H, L, C, Time, jól láthatóvá tesz több méteres távolságból is lehetővétéve sok egyébb cselekményt pl mosogatás, főzés:-) Paraméterezhető a mérete, szine, helyzete, illetve be vagy kikapcsolás lehetősége.

U = StrFormat(" %g ", C) ; Ebben a sorban kikell cserelni a "C" -t H vagy L-re az idő kiirásához " TimeNum()" -ra.

Itt a karácsony hagy adjak valamit én is az ünnep alkalmából:-) Kellemes ünnepeket mindenkinek.

http://www.postimage.org/image.php?v=Ts1fIsEi

SECTION_BEGIN("Záró");

U = StrFormat(" %g ", C) ;

GfxSetOverlayMode(1);sp = Param( "Záróméret", 4, 0, 64);

GfxSelectFont("Tahoma", Status("pxheight")/sp );//betu meret a kisseb szam nagyobbat eredmenyez

sp1 = Param( "Center", 6, 0, 100 , 0.1);

GfxSetTextAlign( sp1 );// center alignment

GfxSetTextColor( ParamColor( "Color", colorBlue ));

GfxSetBkMode(1); // transparent Param("varAMA",0.1,0,2,0.01);

sp2 = Param( "Lefele", 10, 0, 100 , 0.1);sp3 = Param( "Oldalra", 1.3, 0, 10 , 0.1);

Pl = ParamToggle("Záró","Nem|Igen",1); //kapcsoló

if (Pl ==1) //miket jelenitsen meg

{

GfxTextOut( U , Status("pxwidth")/sp3, Status("pxheight")/sp2);//oldalra, le

}

_SECTION_END();

igen, az áttűnés és az üti egymást, nem tudom, hogy hogyan lehetne ezt kikerülni... de nem is olyan fontos nekem ez.

Igen úgy megy. Ha ráhúzom a színezőt (sárga áttűnés) akkor már nem látszik...

Valóban nem értem, mert amit betettem az megy pár gépen, a második amit betettek de azt is feltettem két gépre és megy.

Szerintem egy egyszerű sima price chartra próbáld feltenni, minden egyéb nélkül.

Nem megy anélkül se. Most látom, hogy mtelekom meg csak novembertől van. Ez érdekes, mert a többi hiánytalanul van a kezdetektől...

Nekem ettől (Price Interpretation) elszáll az egész.

Amint kivettem megy és rá tudom rakni a Vízjelet.

Ezt már nem értem. Miér nem látszik, na mindegy....

Leszedtem belőle a (szövegből) a színeket.

"_SECTION_BEGIN("Price");

SetChartOptions(0,chartShowArrows|chartShowDates);

_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));

Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )

{

ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));

}

_SECTION_END();

_SECTION_BEGIN("MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 5, 2, 200, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("Mid MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 20, 2, 300, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("Long MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 50, 2, 400, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("BBands");

P = ParamField("Price field",-1);

Periods = Param("Periods", 20, 2, 100, 1 );

Width = Param("Width", 2, 0, 10, 0.05 );

Color = ParamColor("Color", colorLightGrey );

Style = ParamStyle("Style") | styleNoRescale;

Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );

Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );

_SECTION_END();

_SECTION_BEGIN("Price Interpretation");

movshort = ParamField("Short Time MA", 8 );

movmed = ParamField("Mid Time MA", 9 );

movlong = ParamField("Long Time MA", 10 );

btop = ParamField("BBTop", 11 );

bbot = ParamField("BBBottom", 12 );

if( Status("action") == actionCommentary )

{

width = btop - bbot;

lslop = LinRegSlope( C, 30 ) + 100;

lslo = LLV( lslop, 90 );

lshi = HHV( lslop, 90 );

lswidth = lshi - lslo;

trend = 100*( lslop - lslo )/lswidth;

mawidth = MA( width, 100 );

relwidth = 100*(width - mawidth)/mawidth;

_N( tname = Name()+"("+FullName()+")" );

printf("Price and moving averages:\n");

printf( tname + " has closed " + WriteIf( C > movshort, "above" , "below" ) + " its Short time moving average. ");

printf("\nShort time moving average is currently " + WriteIf( movshort > movmed, "above", "below") + " mid-time, AND " + WriteIf( movshort > movlong, "above", "below" ) + " long time moving averages.");

printf("\nThe relationship between price and moving averages is: "+

WriteIf( C > movshort AND movshort > movmed, "bullish",

WriteIf( C movlong , "bullish",

WriteIf( movshort < movmed AND movmed 30 AND trend < 70, "Although prices have broken the upper band and a upside breakout is possible, the most likely scenario for "+tname+" is to continue within current trading range.", "" ) ), "" ) +

WriteIf( C 0, "wider" , "narrower" ) +

" than normal.");

printf("\n");

printf(

WriteIf( abs( relwidth ) 0, colorLime, colorRed ));

//GfxSetTextColor( ColorRGB( 0, 0, 0 ) );

GfxSetBkMode(1); // transparent

GfxTextOut( U , Status("pxwidth")/2, Status("pxheight")/12);

_SECTION_END();

"

És nem látszik.

Pedig beillesztésnél meg van a vége is...

Nem megy ezzel se.

Ime a teljes:

_SECTION_BEGIN("Price");

SetChartOptions(0,chartShowArrows|chartShowDates);

_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));

Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )

{

ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));

}

_SECTION_END();

_SECTION_BEGIN("MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 5, 2, 200, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("Mid MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 20, 2, 300, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("Long MA");

P = ParamField("Price field",-1);

Periods = Param("Periods", 50, 2, 400, 1 );

Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );

_SECTION_END();

_SECTION_BEGIN("BBands");

P = ParamField("Price field",-1);

Periods = Param("Periods", 20, 2, 100, 1 );

Width = Param("Width", 2, 0, 10, 0.05 );

Color = ParamColor("Color", colorLightGrey );

Style = ParamStyle("Style") | styleNoRescale;

Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );

Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );

_SECTION_END();

_SECTION_BEGIN("Price Interpretation");

movshort = ParamField("Short Time MA", 8 );

movmed = ParamField("Mid Time MA", 9 );

movlong = ParamField("Long Time MA", 10 );

btop = ParamField("BBTop", 11 );

bbot = ParamField("BBBottom", 12 );

if( Status("action") == actionCommentary )

{

width = btop - bbot;

lslop = LinRegSlope( C, 30 ) + 100;

lslo = LLV( lslop, 90 );

lshi = HHV( lslop, 90 );

lswidth = lshi - lslo;

trend = 100*( lslop - lslo )/lswidth;

mawidth = MA( width, 100 );

relwidth = 100*(width - mawidth)/mawidth;

_N( tname = Name()+"("+FullName()+")" );

printf("Price and moving averages:\n");

printf( tname + " has closed " + WriteIf( C > movshort, "above" , "below" ) + " its Short time moving average. ");

printf("\nShort time moving average is currently " + WriteIf( movshort > movmed, "above", "below") + " mid-time, AND " + WriteIf( movshort > movlong, "above", "below" ) + " long time moving averages.");

printf("\nThe relationship between price and moving averages is: "+

WriteIf( C > movshort AND movshort > movmed, "bullish",

WriteIf( C movlong , "bullish",

WriteIf( movshort < movmed AND movmed 30 AND trend < 70, "Although prices have broken the upper band and a upside breakout is possible, the most likely scenario for "+tname+" is to continue within current trading range.", "" ) ), "" ) +

WriteIf( C 0, "wider" , "narrower" ) +

" than normal.");

printf("\n");

printf(

WriteIf( abs( relwidth ) 0, colorLime, colorRed ));

//GfxSetTextColor( ColorRGB( 0, 0, 0 ) );

GfxSetBkMode(1); // transparent

GfxTextOut( U , Status("pxwidth")/2, Status("pxheight")/12);

_SECTION_END();

kösz, ez egy jó ötletet adott.

vedd ki a színezett hátteret, akkor látszani fog, vagy definiált át a színezést. Ez eddig a legtöbb verzióban ment.

_SECTION_BEGIN("Vízjel");

U = StrFormat("Ár: %g D:%.2f (%.2f%%)", C, SelectedValue (C-(Ref( C, -1 ))), SelectedValue( ROC( C, 1 )));

GfxSetOverlayMode(1);

GfxSelectFont("Tahoma", Status("pxheight")/20 );

GfxSetTextAlign( 6 );// center alignment;

GfxSetTextColor( dynamic_color = IIf(SelectedValue (C-(Ref( C, -1 )))> 0, colorLime, colorRed ));

//GfxSetTextColor( ColorRGB( 0, 0, 0 ) );

GfxSetBkMode(1); // transparent

GfxTextOut( U , Status("pxwidth")/2, Status("pxheight")/12);

_SECTION_END();

Próbáld ki!

Menni megy de nem igazán ajánlott ha nem akarsz "you are using illegal/cracked version" üzenetet kapni.

A biztos módszer egy virtuális gépen a 4,90-est futtatni és onnan átmásolni a letöltött adatokat.

Sziasztok egy kérdés!

Windows 7 alatt megy az Amibroker 5.00 online-exportálás ???

GfxSetBkMode(1); // transparent ezt nyugodtan rakd vissza csak a hátteret állítja.

Innentől viszont fogalmam sincs miért nem akar megjelenni nálad ha ráadásul a charton ott van.

Véletlenül nem használod a pattern explorer-t mert annak a chartján nekem sem jelenik meg csak a sima ami chartokon.

Átállítottam és átírtam az általad megadottra. Meg kitöröltem a "transparent"-et.

Semmi...

_SECTION_BEGIN("vízjel");

U = StrFormat("Ár %g ", C);

GfxSetOverlayMode(1);

GfxSelectFont("Tahoma", Status("pxheight")/16 );

GfxSetTextAlign( 6 );// center alignment

GfxSetTextColor( ColorRGB( 155, 155, 155 ) );

GfxSetBkMode(1);

GfxTextOut( U , Status("pxwidth")/2, Status("pxheight")/12);

_SECTION_END();

Próbáld átállítani a színét nekem is alig volt látható a def szürke háttér előtt, ha meg transzparens akkor soha nem is fog látszani mivel átlátszóként jelenik meg.

Jobb gomb a charton, edit formula majd ezt a sort szerkeszd a neked megfelelő színre.

GfxSetTextColor( ColorRGB( 155, 155, 155 ) );

Köszi ez lejött.

5.0, szinezett háttér. Sajnos ez sem látszik....

http://data.hu/get/1993809/Vizjel.afl

Én ezt kódot használom.