Indicateur - LunMarMerJeuVen

Bonjour,

Je partage un indicateur bien pratique pour le travail des cartes. Il décompose le graphique en mois/semaine/jour/tranches horaires.

Très pratique pour étudier
Très pratique pour imprimer

Aperçu

LunMarMerJeuVen.png (54.47 Kio) Vu 415 fois

LunMarMerJeuVen_Vars_Applied.png (10.73 Kio) Vu 415 fois

Indicateur

Code : #

// LunMarMerJeuVen | indicator
// 10.04.2024
// cafeiine2023
// Sharing ProRealTime knowledge

// --- settings ProRealTime
//myXshift=10 // ajuster en X (pour DayFlag)
//myYShift=10// ajuster en Y (pour DayFlag)
//TimeFlag=0|1 // Décomposition des horaires
//DayFlag=0|1  // Lund, Mardi, ...
//MonthFlag=0|1 // Barre Verticale si nouveau mois
//WeekFlag=0|1 // Barre Verticale si nouvelle semaine
// --- end of settings ProRealTime

// -----------------------------------------------------------------------------
// comments
// -----------------------------------------------------------------------------

// -----------------------------------------------------------------------------
// settings
// -----------------------------------------------------------------------------

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


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

cTrue = 1
cFalse = 0

// enum ------------------------------------------------------------------------

eDimanche=0
eLundi=1
eMardi=2
eMercredi=3
eJeudi=4
eVendredi=5
eSamedi=6

eAvgSimple=0 // normal  // mma10 = Average[10, eAvgSimple]
eAvgExp=1    // exponentielle
eAvgPond=2   // ponderee
eAvgWilder=3
eAvgTri=4
eAvgMoinsCarre=5
eAvgSerieTemps=6
eAvgHull=7


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

// *****************************************************************************
// Time
// *****************************************************************************

IF TimeFlag = cTrue Then
IF Time < 090000 Then
BACKGROUNDCOLOR ("grey")
ELSIF Time > 090000 And Time < 110000 Then
BACKGROUNDCOLOR ("lightblue")
ELSIF Time >= 110000 And Time < 153000 Then
BACKGROUNDCOLOR ("darkcyan")
ELSIF Time >= 153000 And Time <= 173000 Then
BACKGROUNDCOLOR ("lightblue")
ELSIF Time > 173000 And Time < 220000 Then
BACKGROUNDCOLOR ("darkcyan")
ELSE
BACKGROUNDCOLOR ("grey")
ENDIF
EndIf

// *****************************************************************************
// NewDay
// *****************************************************************************

IF DAYOFWEEK <> DAYOFWEEK[1] AND DayFlag = cTrue THEN

DRAWVLINE (barindex) COLOURED ("red") STYLE(LINE,3)
IF DAYOFWEEK = eLundi THEN
DRAWTEXT("LUN", barindex+myXshift, - myYShift,SansSerif,Bold,20) ANCHOR(TOP, INDEX, YSHIFT) COLOURED("red")
ENDIF
IF DAYOFWEEK = eMardi THEN
DRAWTEXT("MAR", barindex+myXshift, - myYShift,SansSerif,Bold,20) ANCHOR(TOP, INDEX, YSHIFT) COLOURED("red")
ENDIF
IF DAYOFWEEK = eMercredi THEN
DRAWTEXT("MER", barindex+myXshift, - myYShift,SansSerif,Bold,20) ANCHOR(TOP, INDEX, YSHIFT) COLOURED("red")
ENDIF
IF DAYOFWEEK = eJeudi THEN
DRAWTEXT("JEU", barindex+myXshift, - myYShift,SansSerif,Bold,20) ANCHOR(TOP, INDEX, YSHIFT) COLOURED("red")
ENDIF
IF DAYOFWEEK = eVendredi THEN
DRAWTEXT("VEN", barindex+myXshift, - myYShift,SansSerif,Bold,20) ANCHOR(TOP, INDEX, YSHIFT) COLOURED("red")
ENDIF

ENDIF

// *****************************************************************************
// NewMONTH
// *****************************************************************************

IF MONTH <> MONTH[1] AND MonthFlag = cTrue THEN
DRAWVLINE (barindex) COLOURED ("red") STYLE(LINE,3)
ENDIF

// *****************************************************************************
// NewWeek
// *****************************************************************************

IF OpenDayOfWeek<>OpenDayOfWeek[1] AND DAYOFWEEK = eLundi  AND WeekFlag = cTrue THEN
DRAWVLINE (barindex) COLOURED ("blue") STYLE(LINE,3)
ENDIF

// *****************************************************************************
// Annexes
// *****************************************************************************

// https://www.andlil.com/forum/indicateur-lunmarmerjeuven-t61881.html

RETURN

LunMarMerJeuVen_Vars.png (15.44 Kio) Vu 415 fois

Merci pour le partage.

Merci Floco !

Merci caféiine

Merci top

merci Caféine

Cafeiine
Très Utile Pour Le Travail Des Cartes