Separatore di sessione

• 08/02/2022 at 3:09 PM #198354
  Edisone

  Salve,è possibile modificare il codice affinchè il separatore di sessione Weekly compaia solo quando è selezionato il time frame Weekly e viceversa il Mensile solo quando è selezionato il time frame Mensile ?

  Grazie

  Separatore di sessione

  Mese = 1 Settimana = 1 IF OpenDayOfWeek = 1 and Settimana THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1) ENDIF RETURN

  1 2 3 4 5 6 7 8 9

  Mese = 1 Settimana = 1 IF OpenDayOfWeek = 1 and Settimana THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1) ENDIF RETURN

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  08/02/2022 at 3:41 PM #198359
  robertogozzi

  Eccolo:

  TF = GetTimeFrame IF TF = 2592000 THEN Mese = 1 Settimana = 0 ELSIF TF = 604800 THEN Settimana = 1 Mese = 0 ENDIF IF OpenDayOfWeek = 1 and Settimana THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  TF = GetTimeFrame IF TF = 2592000 THEN    Mese      = 1    Settimana = 0 ELSIF TF = 604800 THEN    Settimana = 1    Mese      = 0 ENDIF IF OpenDayOfWeek = 1 and Settimana THEN    DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN    DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1) ENDIF RETURN

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  08/03/2022 at 4:29 PM #198433
  Edisone

  GRAZIE gentilissimo,

  in aggiunta è possibile avere lo sfondo colorato alternato, es. un mese sfondo colorato l’altro mese senza colore ?

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  08/03/2022 at 5:20 PM #198434
  robertogozzi

  Eccolo:

  ONCE t = 0 r = 152 g = 251 b = 152 t = abs(t - 1) TF = GetTimeFrame IF TF = 2592000 THEN Mese = 1 Settimana = 0 ELSIF TF = 604800 THEN Settimana = 1 Mese = 0 ENDIF IF t THEN backgroundcolor(r,g,b,85) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

  ONCE t = 0 r = 152 g = 251 b = 152 t = abs(t - 1) TF = GetTimeFrame    IF TF = 2592000 THEN       Mese      = 1       Settimana = 0    ELSIF TF = 604800 THEN       Settimana = 1       Mese      = 0    ENDIF    IF t THEN       backgroundcolor(r,g,b,85)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato)    ELSE       backgroundcolor(255,255,255,255)    ENDIF    IF OpenDayOfWeek = 1 and Settimana THEN       DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1)    ENDIF    IF OpenMonth <> OpenMonth[1] and Mese THEN       DRAWVLINE(barindex)coloured(210,210,210,255) style(Line,1)    ENDIF RETURN

  I colori R,G,B principali puoi trovarli a questo link http://cloford.com/resources/colours/500col.htm.

  1 user thanked author for this post.

  druby

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  08/03/2022 at 5:36 PM #198437
  Edisone

  Scusami ma mi sono sbagliato, avrei bisogno che il separatore di sessione Weekly compaia solo quando è selezionato il time frame DAILY e viceversa il Mensile solo quando è selezionato il time frame WEEKLY.

  Scusami ancora e grazie nuovamente.

   

   

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  08/03/2022 at 9:11 PM #198444
  druby

  Modifica al codice di roberto. Questo potrebbe farlo!

  r = 50 g = 50 b = 50 TF = GetTimeFrame IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 ENDIF IF (openMonth mod 2) and (Mese or Settimana)THEN backgroundcolor(r,g,b,10) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  r = 50 g = 50 b = 50 TF = GetTimeFrame IF TF = 86400 THEN // 1day Mese      = 0 Settimana = 1 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese      = 1 ENDIF IF (openMonth mod 2) and (Mese or Settimana)THEN backgroundcolor(r,g,b,10)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF   IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  2 users thanked author for this post.

  Edisone, robertogozzi

  

  druby

  Participant

  Topics: 1

  Replies: 354

  Been thanked: 268 times
  08/29/2022 at 4:40 PM #199834
  Edisone

  Grazie, è possibile impostare anche nel grafico Daily una settimana di un colore e la sucessiva di un’ altro ?

  Grazie ancora

   

   

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  08/29/2022 at 5:13 PM #199839
  robertogozzi

  Ecco fatto:

  ONCE Flip = 1 Flip = abs(Flip - 1) r = 50 g = 50 b = 50 rw = 50 gw = 50 bw = 50 tw = 20 TF = GetTimeFrame IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 ENDIF IF (openMonth mod 2) and (Mese or Settimana)THEN backgroundcolor(r,g,b,20) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF TF = 604800 THEN IF Flip THEN rw = 255 gw = 255 bw = 255 tw = 255 backgroundcolor(255,255,255,255) ENDIF backgroundcolor(rw,gw,bw,tw) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

  ONCE Flip = 1 Flip = abs(Flip - 1) r = 50 g = 50 b = 50 rw = 50 gw = 50 bw = 50 tw = 20 TF = GetTimeFrame IF TF = 86400 THEN // 1day Mese      = 0 Settimana = 1 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese      = 1 ENDIF IF (openMonth mod 2) and (Mese or Settimana)THEN backgroundcolor(r,g,b,20)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF TF = 604800 THEN IF Flip THEN rw = 255 gw = 255 bw = 255 tw = 255 backgroundcolor(255,255,255,255) ENDIF backgroundcolor(rw,gw,bw,tw) ENDIF RETURN

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  08/29/2022 at 6:51 PM #199842
  Edisone

  Grazie Roberto scusami ma non mi funziona,

  ricapitolo:

  Time frame Daily = settimane alterne: es. questa settimana da lunedi a venerdi sfondo bianco, la settimana precedente da lunedi a venerdi sfondo azzurro e cosi via.

  Time frame Weekly= mesi alterni: es. le settimane di questo mese sfondo bianco, le settimane del mese precedente sfondo azzurro e cosi via.

  Grazie

   

   

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  08/30/2022 at 11:00 AM #199877
  robertogozzi

  Eccolo:

  ONCE Flip = 0 ONCE TF = GetTimeFrame IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(50,50,50,30) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) ELSE backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  ONCE Flip = 0 ONCE TF = GetTimeFrame IF TF = 86400 THEN // 1day    Mese      = 0    Settimana = 1 ELSIF TF = 604800 THEN // 1week    Settimana = 0    Mese      = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN    Flip = abs(Flip - 1) ENDIF IF Flip THEN    backgroundcolor(50,50,50,30)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) ELSE    backgroundcolor(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana THEN // Settimana week    DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese THEN // Mese month    DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 user thanked author for this post.

  Edisone

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  09/12/2022 at 11:32 AM #200611
  Edisone

  Buongiorno se possibile avrei una richiesta di modifica del codice che allego. Solo nel TF Mese avrei la necessità di disegnare delle linee verticali ogni trimestre solo dell’ultimo anno (corrente).

  Grazie

  Saluti

  Separatore M-W-T

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 Anno = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 Anno = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese = 0 Anno = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno)THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese      = 0 Settimana = 1 Anno = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese      = 1 Anno = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese      = 0 Anno = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno)THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  09/13/2022 at 6:46 PM #200735
  robertogozzi

  Eccolo:

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 Anno = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 Anno = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese = 0 Anno = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno) THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese AND Anno = 0 and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenMonth <> OpenMonth[1] and Anno AND LineeVerticali=1 AND ((OpenMonth MOD 3) = 1) THEN // Trimestre DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese      = 0 Settimana = 1 Anno      = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese      = 1 Anno      = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese      = 0 Anno      = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno) THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese AND Anno = 0 and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenMonth <> OpenMonth[1] and Anno AND LineeVerticali=1 AND ((OpenMonth MOD 3) = 1) THEN // Trimestre DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF   IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 user thanked author for this post.

  Edisone

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  01/20/2023 at 10:10 AM #207743
  Edisone

  Buongiorno,

  è possibile avere il separatore di sessione solo esclusivamente nel TF 30 minuti ?

  Esempio giornata di oggi sfondo trasparente, giornata di ieri sfondo colorato.

  Grazie mille

   

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  01/20/2023 at 11:20 AM #207751
  Edisone

  Edisone wrote:

  Buongiorno,

  è possibile aggiungere al codice anche la possibilità di avre il  separatore di sessione anche nel TF 30 minuti ?

  Come per gli altri time frame giornata di oggi sfondo trasparente, giornata di ieri sfondo colorato.

  Grazie mille

   

  

  Edisone

  Participant

  Topics: 44

  Replies: 73

  Been thanked: 2 times
  01/28/2023 at 4:43 PM #208578
  robertogozzi

  Eccolo:

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese = 0 Settimana = 1 Anno = 0 Min30 = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese = 1 Anno = 0 Min30 = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese = 0 Anno = 1 Min30 = 0 ELSIF TF = 1800 THEN //30 minuti Settimana = 0 Mese = 0 Anno = 0 Min30 = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno) THEN Flip = abs(Flip - 1) ENDIF IF TF = 1800 AND (OpenDay <> OpenDay[1]) THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255) //valore trasparenza tra 0 e 255 (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese AND Anno = 0 and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenMonth <> OpenMonth[1] and Anno AND LineeVerticali=1 AND ((OpenMonth MOD 3) = 1) THEN // Trimestre DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF TF <= 1800 AND (OpenMinute MOD 30 = 0) THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

  ONCE Flip = 0 ONCE TF = GetTimeFrame LineeVerticali=1 IF TF = 86400 THEN // 1day Mese      = 0 Settimana = 1 Anno      = 0 Min30     = 0 ELSIF TF = 604800 THEN // 1week Settimana = 0 Mese      = 1 Anno      = 0 Min30     = 0 ELSIF TF = 2592000 THEN // 1mese Settimana = 0 Mese      = 0 Anno      = 1 Min30     = 0 ELSIF TF = 1800 THEN   //30 minuti Settimana = 0 Mese      = 0 Anno      = 0 Min30     = 1 ENDIF IF ((openMonth <> OpenMonth[1]) and Mese) or ((OpenDayOfWeek < OpenDayOfWeek[1])and Settimana)THEN Flip = abs(Flip - 1) ENDIF IF ((OpenYear <> OpenYear[1]) and Anno) THEN Flip = abs(Flip - 1) ENDIF IF TF = 1800 AND (OpenDay <> OpenDay[1]) THEN Flip = abs(Flip - 1) ENDIF IF Flip THEN backgroundcolor(255,255,255,255)    //valore trasparenza tra 0 e 255   (85 è abbastanza sfumato) (50,50,50,30) ELSE backgroundcolor(50,50,50,15)//(255,255,255,255) ENDIF IF OpenDayOfWeek = 1 and Settimana and LineeVerticali=1 THEN // Settimana week DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,1) ENDIF IF OpenMonth <> OpenMonth[1] and Mese AND Anno = 0 and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenMonth <> OpenMonth[1] and Anno AND LineeVerticali=1 AND ((OpenMonth MOD 3) = 1) THEN // Trimestre DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF OpenYear <> OpenYear[1] and Anno and LineeVerticali=1 THEN // Mese month DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF IF TF <= 1800 AND (OpenMinute MOD 30 = 0) THEN DRAWVLINE(barindex)coloured(210,210,210,255) style(DottedLine,2) ENDIF RETURN

   

  1 user thanked author for this post.

  Edisone

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
• Author
  Posts