Laatste koerslijn

Stel hier uw vragen over TA-script, of help anderen met het oplossen van hun probleem
Plaats reactie
Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Laatste koerslijn

Bericht door Bakstenen »

Eric,
ik had eerder nog een vraag gesteld,heb deze maar even hierheen gekopieerd,dit was de vraag.

is het mogelijk dat je in de grafiek een streepje met de huidige koers komt,en die ook meeloopt?zie bijlage.
renko7.JPG

Eric
Berichten: 3180
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Range Bars, Renko Bars

Bericht door Eric »

Dat lijkt me niet iets speciaal voor een Renko chart dus heb er maar een aparte indicator van gemaakt.

Code: Selecteer alles

{- Filename: Laatste koerslijn -}

var
  AColor: TColor;
begin
{ Parameters }
  AColor := CreateParameterColor('Kleur', clSilver);

  Indicator.NewBand := false;
  
  if BarCount > 0 then
  begin
    with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
    begin
      Color := AColor;
      ExtendRight := true;
      Width := 1;
    end;
    with CreateText(0, Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
    begin
      Color := AColor;
      HorzPosition := hpLeft;
      VertPosition := vpTop;
      X1Pct := 100;
    end;
  end;
end.
---
Eric

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Range Bars, Renko Bars

Bericht door Bakstenen »

helemaal goud,zeggen we hier in het Westland,toppie weer.

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Range Bars, Renko Bars

Bericht door Bakstenen »

Eric,
zet de vraag maar hier neer, omdat de indicator er ook staat, ben nog steeds blij met deze indicator, alleen soms zit die in de weg als er ook een Fibo staat, zie bijlagen, als ik de grafiek naar links haal, blijft de koerslijn/koers staan, en soms zie je dan het Fibo getal niet, is ook weer niet zo,n groot probleem, maar kan je de koerslijn/laatste koers vast zetten? dan haal ik de grafiek naar links en kan ik de Fibo wel zien.
laatste.JPG
laatste1.JPG
laatste1.JPG (32.73 KiB) 637 keer bekeken
laatste2.JPG
laatste2.JPG (36.07 KiB) 637 keer bekeken

Eric
Berichten: 3180
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Range Bars, Renko Bars

Bericht door Eric »

Zoiets?

Code: Selecteer alles

{- Filename: Laatste koerslijn -}

var
  AColor: TColor;
begin
{ Parameters }
  AColor := CreateParameterColor('Kleur', clSilver);

  Indicator.NewBand := false;
  
  if BarCount > 0 then
  begin
    with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
    begin
      Color := AColor;
      ExtendRight := true;
      Width := 1;
    end;
    with CreateText(BarPosition[BarCount-1], Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
    begin
      Color := AColor;
      HorzPosition := hpLeft;
      VertPosition := vpTop;
//      X1Pct := 100;
    end;
  end;
end.
---
Eric

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Hallo Eric, is al beter, maar wat ik bedoelde is dat de koers zoals in het bijgaande plaatje komt, is dat mogelijk?
Knipsel.JPG

Eric
Berichten: 3180
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Laatste koerslijn

Bericht door Eric »

Natuurlijk kan dat, maar dan valt de tekst wel weg als de bars tot helemaal rechts in beeld staan.

Code: Selecteer alles

{- Filename: Laatste koerslijn -}

var
  AColor: TColor;
begin
{ Parameters }
  AColor := CreateParameterColor('Kleur', clSilver);

  Indicator.NewBand := false;
  
  if BarCount > 0 then
  begin
    with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
    begin
      Color := AColor;
      ExtendRight := true;
      Width := 1;
    end;
    with CreateText(BarPosition[BarCount-1], Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
    begin
      Color := AColor;
      HorzPosition := hpRight;
      VertPosition := vpTop;
//      X1Pct := 100;
    end;
  end;
end.
---
Eric

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Helemaal toppie, ik begrijp wat je bedoeld, maar ik zet dan de inhoud van de grafiek iets naar links, zie voorbeeld.
laatste3.JPG

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Zal Bakstenen niet zijn, als die toch weer een vraag heeft hierover, Eric, kan de koers een paar tikken naar rechts opschuiven,als ik de Dax opzet in dagboxen, dan staat de 1 in de box, zie plaatje.
Knipsel.JPG

Eric
Berichten: 3180
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Laatste koerslijn

Bericht door Eric »

Natuurlijk.

Code: Selecteer alles

{- Filename: Laatste koerslijn -}

var
  AColor: TColor;
begin
{ Parameters }
  AColor := CreateParameterColor('Kleur', clSilver);

  Indicator.NewBand := false;
  
  if BarCount > 0 then
  begin
    with CreateTrendline(BarPosition[BarCount-1], Close[BarCount-1], BarPosition[BarCount-1]+BarInterval, Close[BarCount-1]) do
    begin
      Color := AColor;
      ExtendRight := true;
      Width := 1;
    end;
    with CreateText(BarPosition[BarCount-1]+BarInterval, Close[BarCount-1], FormatFloat('0.00', Close[BarCount-1])) do
    begin
      Color := AColor;
      HorzPosition := hpRight;
      VertPosition := vpTop;
//      X1Pct := 100;
    end;
  end;
end.
---
Eric

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Zo dat is snel bedankt weer

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Eric,
Vraag niet hoe het kan,ik krijg het voor elkaar, de indicator van hierboven werkte goed, tot vanavond, heb deze al weer opnieuw gekopieerd en in WS binnen gehaald, maar resultaat blijft hetzelfde.
Wat doe ik verkeerd?
Knipsel.JPG

Eric
Berichten: 3180
Lid geworden op: za sep 10, 2005 2:41 am
Locatie: Den Haag

Re: Laatste koerslijn

Bericht door Eric »

Als je wat meer inzoomde dan kreeg je dat idd. Ik heb hierboven in de laatste code weer een aanpassing gedaan.

---
Eric

Bakstenen
Berichten: 579
Lid geworden op: zo jul 19, 2015 7:51 pm

Re: Laatste koerslijn

Bericht door Bakstenen »

Toppie weer, bedankt

Plaats reactie