Indicateur PRT pour afficher tous les niveaux symboliques

[kelly]

Merci.

[JPM55]

[SpicyFlow]

Merci infiniment Ozmizrak ! Installé en 2 secondes et fonctionnel

Capture.PNG (55.97 Kio) Vu 33914 fois

[Zeddicus]

Un grand merci pour ce partage

[Manideng]

Super, beaucoup

[ChristelleP]

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

[cafeiine2023]

Bonjour,

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

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

Capture d’écran 2023-07-25 195237.png (27.28 Kio) Vu 33801 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

[ChristelleP]

Caféine

[Benoist Rousseau]

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

[ChristelleP]

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

[eZa]

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.

[cafeiine2023]

Avec plaisir !

[Wu Wei]

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

[Cgz]

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 ..... ?

[cafeiine2023]

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

[Cgz]

OK check merci

[Cgz]

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

[luccho]

Cgz tu as réussi ?

[Cgz]

Oui

[cafeiine2023]

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/