Indicateur PRT pour afficher tous les niveaux symboliques

Merci.

Merci infiniment Ozmizrak ! Installé en 2 secondes et fonctionnel

Capture.PNG (55.97 Kio) Vu 1176 fois

Un grand merci pour ce partage

Super, beaucoup

up-1.jpg (10.9 Kio) Vu 1067 fois

Bonjour,

Je propose une variante de code pour afficher les points symboliques.

Capture d’écran 2023-07-25 194249.png (24.98 Kio) Vu 1063 fois

Capture d’écran 2023-07-25 195237.png (27.28 Kio) Vu 1063 fois

Code : #

// NivSymb V0 | indicator
// 09.07.2023
// cafeiine2023
// Sharing ProRealTime knowledge

// --- settings ProRealTime
// active1000=1
// active750=1
// active500=1
// active250=1
// active100=1
// active50=1
// --- end of settings ProRealTime

// -----------------------------------------------------------------------------
// Comments
// -----------------------------------------------------------------------------

// 50
// 100
// 250
// 500
// 750
// 1000

// -----------------------------------------------------------------------------
// Constants / Enum
// -----------------------------------------------------------------------------

// Constants -------------------------------------------------------------------

cTrue = 1
cFalse = 0


// -----------------------------------------------------------------------------
// Main
// -----------------------------------------------------------------------------

//unset( $ArrayNiv )

IF intradaybarindex=0 THEN

// 1000,250,500,750
symb=1000
base=floor(DOpen(0)/symb)
FOR i = -3 TO 3 DO
// 1000
niv=base*symb+i*symb
IF NOT ISSET($ArrayNiv[niv]) AND active1000 = cTrue THEN
DRAWHLINE(niv) COLOURED ("red") STYLE(DOTTEDLINE,2)
$ArrayNiv[niv]=1
ENDIF
// 250
niv=base*symb+i*symb+250
IF NOT ISSET($ArrayNiv[niv]) AND active250 = cTrue THEN
DRAWHLINE(niv) COLOURED ("orange") STYLE(DOTTEDLINE,1)
$ArrayNiv[niv]=1
ENDIF
// 500
niv=base*symb+i*symb+500
IF NOT ISSET($ArrayNiv[niv]) AND active500 = cTrue THEN
DRAWHLINE(niv)COLOURED ("orange") STYLE(DOTTEDLINE,1)
$ArrayNiv[niv]=1
ENDIF
// 750
niv=base*symb+i*symb+750
IF NOT ISSET($ArrayNiv[niv]) AND active750 = cTrue THEN
DRAWHLINE(niv) COLOURED ("orange") STYLE(DOTTEDLINE,1)
$ArrayNiv[niv]=1
ENDIF
NEXT

// 100,50
symb=100
base=floor(DOpen(0)/symb)
FOR i = -7 TO 7 DO
// 100
niv=base*symb+i*symb
IF NOT ISSET($ArrayNiv[niv]) AND active100 = cTrue THEN
DRAWHLINE(niv) COLOURED ("grey") STYLE(DOTTEDLINE,1)
$ArrayNiv[niv]=1
ENDIF
// 50
niv=base*symb+i*symb+50
IF NOT ISSET($ArrayNiv[niv]) AND active50 = cTrue THEN
DRAWHLINE(niv) COLOURED ("grey") STYLE(DOTTEDLINE,1)
$ArrayNiv[niv]=1
ENDIF
NEXT

ENDIF

RETURN

// -----------------------------------------------------------------------------
// Annexes
// -----------------------------------------------------------------------------

// https://www.andlil.com/forum/indicateur-prt-pour-afficher-tous-les-niveaux-symboliques-t39441-30.html

Points clés :
- dessine les droites qu'une seule fois (performant)
- sélection des niveaux en paramètre (0=non ou 1=oui)
- forme de code inspirée de prorealcode

Caféine

merci énormément, je l'utilise il marche super bien cafeine

up-1.jpg (10.9 Kio) Vu 1018 fois

Merci pour ton code, ca m'a bien aidé pour customiser mes graphiques.

J'ai préféré utiliser les chiffres RGB pour avoir des couleurs qui me correspondaient mieux.

Avec plaisir !

Merci Caféine
Adopté aussi. Avec les mêmes modifs qu'eZa pour ma part
Classe aussi d'avoir cité le lien Andlil dans ton code

Qui souhaite aider une quiche en programmation ......

J'ai voulu regarder ce que donner l'indic de Caféine mais il me demande de définir les variables activ100, etc ..... ?

Regarde le 2eme screenshots pour voir les variables à déclarer. Ils sont en entête. Un par niveaux.

OK check merci

C'est vraiment un super taf bravo

Je vais le tester sur une seule fenêtre sinon ca va devenir trop lourd sur les graphes

Cgz tu as réussi ?

Oui

Pour ceux qui souhaitent faire leur sauce en terme de couleur, je vous partage une page très intéressante avec :
- une photo des noms des couleurs disponibles
- une photo des noms + leurs code RGB.
Cette page fait partie de mes favoris en développement sous prorealtime.

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