Indicateur PRT pour afficher tous les niveaux symboliques

Bonjour Ozmizrak,
Merci pour l'idée et merci pour la réalisation et le partage du code
Un cadeau de Noël appréciable et qui est apprécié

Merci ! Je l'ai adapté en fonction du thème de mes graphiques sur la première version et cela me convient parfaitement.

Merci Oz

Merci

Merci c'est sympa !

Merci Ozmizrak je m'en sert c'est vraiment pratique.

Par contre j'ai vu qu'il traçais toutes les lignes 50 et 100.
Pour éviter ça tu peux ecrire :

Code : #

X50 = (ROUND(close / 50) * 50)
X50 = X50 - (10 * 50)
For I = 1 To 20
X50 =  X50 + 50
ok50 = X50 MOD 100 <> 0 and X50 MOD 250 <> 0
If ok50 Then
DrawHLine (X50) Coloured(VertR,VertG,VertB) STYLE(LINE,3)
DRAWTEXT("                    #X50#",barindex,X50-0,SansSerif,Bold,21) Coloured(VertR,VertG,VertB)
EndIf
Next

//------------------------------------Tous Les 100 Quelque Soit Le Marché-----------------
X100 = (ROUND(close / 100) * 100)
X100 = X100 - (10 * 100)
For I = 1 To 20
X100 = X100 + 100
ok100 = X100 MOD 500 <> 0
If ok100 Then
DrawHLine (X100) Coloured(BleuR,BleuG,BleuB) STYLE(LINE,3)
DRAWTEXT("                    #X100#",barindex,X100-0,SansSerif,Bold,21) Coloured(BleuR,BleuG,BleuB)
EndIf
Next

C'est juste une suggestion. Je me dis que ça dois être un peu plus rapide quand ça dois recalculer.

Bien vu pat95162
Tu as oublié les 1000

Je t'en pris
Du coup je te partage tout le code.
Je ne comprenais pas pourquoi ça mettait du temps quand je changeais d'instrument. Et plus j'avais d'unités sur mon graphique plus ça mettait du temps.
J'ai trouvé en fait il faut mettre DEFPARAM CALCULATEONLASTBARS. Sinon il fait le calcul à chaque barre.
Puis j'avais tout mis dans une boucle for mais en fait ça c'était pas necessaire du coup mais voila ça me donne ça

Code : #

DEFPARAM DRAWONLASTBARONLY = TRUE
DEFPARAM CALCULATEONLASTBARS = 10

ONCE clotur = DClose(1)
//Violet
VioletR=128
VioletG=0
VioletB=255
//Orange
OrangeR=255
OrangeG=128
OrangeB=0
//Noir
NoirR=0
NoirG=0
NoirB=0
//Bleu
BleuR=0
BleuG=168
BleuB=255
//Vert
VertR=128
VertG=255
VertB=0
//Jaune
JauneR=128
JauneG=255
JauneB=0

If clotur < 2000  Then
//------------------------------------Tous Les 25 Pour Les Marchés < 2000 --------------
X25 = (ROUND(clotur / 25) * 25)
X25 = X25 - (10 * 25)
For I = 1 To 20
X25 =  X25 + 25
DrawHLine (X25) Coloured(JauneR,JauneG,JauneB) STYLE(DOTTEDLINE,1)
DRAWTEXT("                    #X25#",barindex,X25-0,SansSerif,Bold,21) Coloured(JauneR,JauneG,JauneB)
Next
EndIf

//------------------------------------Tous Les 50 Quelque Soit Le Marché-----------------
X50 = (ROUND(clotur / 50) * 50) - (5 * 50)
//------------------------------------Tous Les 100 Quelque Soit Le Marché-----------------
X100 = (ROUND(clotur / 100) * 100) - (5 * 100)
//------------------------------------Tous Les 250 Quelque Soit Le Marché-----------------
X250 = (ROUND(clotur / 250) * 250) - (4 * 250)
//------------------------------------Tous Les 500 Quelque Soit Le Marché-----------------
X500 = (ROUND(clotur / 500) * 500) - (3 * 500)
//------------------------------------Tous Les 1000 Quelque Soit Le Marché-----------------
X1000 = (ROUND(clotur / 1000) * 1000) - (2 * 1000)


For I = 1 To 10
X50 =  X50 + 50
ok50 = X50 MOD 100 <> 0 and X50 MOD 250 <> 0
X100 = X100 + 100
ok100 = X100 MOD 500 <> 0
X250 = X250 + 250
ok250 = X250 MOD 500 <> 0
X500 = X500 + 500
ok500 = X500 MOD 1000 <> 0
X1000 = X1000 + 1000
If ok50 Then
DrawHLine (X50) Coloured(VertR,VertG,VertB) STYLE(LINE,3)
DRAWTEXT("                    #X50#",barindex,X50+2,SansSerif,Bold,21) Coloured(VertR,VertG,VertB)
EndIf
If ok100 Then
DrawHLine (X100) Coloured(BleuR,BleuG,BleuB) STYLE(LINE,3)
DRAWTEXT("                    #X100#",barindex,X100+2,SansSerif,Bold,21) Coloured(BleuR,BleuG,BleuB)
EndIf
If ok250 and I <= 8 Then
DrawHLine (X250) Coloured(OrangeR,OrangeG,OrangeB) STYLE(LINE,5)
DRAWTEXT("                    #X250#",barindex,X250+2,SansSerif,Bold,24) Coloured(OrangeR,OrangeG,OrangeB)
EndIf
If ok500 and I <= 5 Then
DrawHLine (X500) Coloured(VioletR,VioletG,VioletB) STYLE(LINE,5)
DRAWTEXT("                    #X500#",barindex,X500+2,SansSerif,Bold,24) Coloured(VioletR,VioletG,VioletB)
EndIf
If I <= 3 Then
DrawHLine (X1000) Coloured(NoirR,NoirG,NoirB) STYLE(LINE,5)
DRAWTEXT("                    #X1000#",barindex,X1000+2,SansSerif,Bold,24) Coloured(NoirR,NoirG,NoirB)
EndIf
Next

Return

Merci beaucoup ça fonctionne très bien!

Pour faire simple


y=6

x=(Round((Close-y/2*100)/100))*100
For i= 1 to y
x = x +100
DRAWHLINE(x) COLOURED(117, 0, 158)
Next
RETURN

Il suffit de changer la valeur y selon le nombre de lignes souhaitées

Bonne soirée tout le monde

Je le refais, j'ai oublié un petit morceau

DEFPARAM CALCULATEONLASTBARS = 1

y=6

x=(Round((Close-y/2*100)/100))*100
For i= 1 to y
x = x +100
DRAWHLINE(x) COLOURED(117, 0, 158)
Next
RETURN

Bonjour Bab

Merci pour le partage.

J'ai testé ton code, il fonctionne mais je pense qu'il manque aussi les zones 250 et 750 car les 500 et 1000 sont déjà repris par ton code.

Pour ces 4 zones il faudrait pouvoir les différencier avec un trait un peu plus épais.

Pandino_cz, on ne peut malheureusement pas changer l'épaisseur de la ligne

edit : Je viens de vérifier sur la V11 et il semblerait que l'on peut maintenant
en stylant la ligne STYLE(LINE,2)

Hello Thierry,

Avec "STYLE" tu peux modifier l'épaisseur de la ligne. Si on parle bien de la même chose.

https://www.prorealcode.com/documentation/style/

Si vous ne parliez pas de ça, désolé de mon intervention
A+

nico1119 Oui c'est bien cela ! Je viens de m'en rendre compte !

Merci à toi

Pas de doute, c'est NOEL !!!

ça m'énervait tellement de pas pouvoir assigner une épaisseur...

De rien Thierry!

Bon, on ne peut pas passer l'épaisseur en variable...

Jamais content !

Merci Thierry 29
Je vais donc garder le code de Pat95162