Massimi e Minimi della notte
-
Eccolo:
DEFPARAM DrawOnLastBarOnly = TRUE ONCE rh = 193 //Red (rosso) ONCE gh = 255 //Green (verde) ONCE bh = 193 //Blue (blu') ONCE th = 4 //Transparency (trasparenza: 0=invisibile 255=massima visibilità) // ONCE rl = 255 //Red (rosso) ONCE gl = 231 //Green (verde) ONCE bl = 186 //Blue (blu') ONCE tl = th //Transparency (trasparenza: 0=invisibile 255=massima visibilità) // ONCE bf = 20 //20 barre da visualizzare nel futuro // IF (OpenTime = 000000) OR ((OpenTime > 000000) AND (OpenTime < OpenTime[1])) THEN Barra = BarIndex PHH = HH2 PLL = LL2 HH1 = high LL1 = low HH2 = high LL2 = low ENDIF IF OpenTime < 080000 THEN HH1 = max(HH1,high) LL1 = min(LL1,low) ENDIF HH2 = max(HH2,high) LL2 = min(LL2,low) DrawSegment(Barra,PHH,BarIndex+bf,PHH) coloured(0,0,255,255) style(DottedLine,2)//Punti per giorno preced. DrawSegment(Barra,PLL,BarIndex+bf,PLL) coloured(255,0,0,255) style(DottedLine,2)//Punti per giorno preced. DrawSegment(Barra,HH1,BarIndex+bf,HH1) coloured(0,0,255,255) style(Line,2) //Linea per oggi DrawSegment(Barra,LL1,BarIndex+bf,LL1) coloured(255,0,0,255) style(Line,2) //Linea per oggi FOR i = (BarIndex+bf) DOWNTO (Barra - 1) DrawRectangle(Barra,PHH,i,HH1) coloured(rh,gh,bh,th) bordercolor(0,0,0,0) DrawRectangle(Barra,PLL,i,LL1) coloured(rl,gl,bl,tl) bordercolor(0,0,0,0) NEXT RETURNHo aggiunto la variabile bf (Barre Future) per stampare un certo numero di barre nel futuro (è possibile dalla versione 11). Se non t’interessa metteci 0 invece di 20 (o di altro numero, non so quale limite ci sia).
Per cambiare i colori, qui trovi un elenco abbastanza grande con i codici RGB http://cloford.com/resources/colours/500col.htm.
robertodocc thanked this postGrazie come sempre, perfetto. Ho cambiato solo le coordinate dei rettangoli perchè le aree che intendevo erano differenti
ti allego il mio codice definitivo.
L’unica cosa che non capisco è perchè non mi disegna il minimo di ieri se metto il time frame 3 minuti, mentre funziona perfettamente con tutti gli altri.
PS: come facevo a sapere che esiste una possibilità di descrivere i bordi dei rettangoli? dove trovo la documentazione completa sui comandi e le parole di prorealcode?
PPS: ho provato a inserire il codice come vorrebbe il protocollo ma non mi compare il “insert PRT Code” nel tool di compilazione del msg. Allego qui sotto il codice
—————————————————————-
DEFPARAM DrawOnLastBarOnly = TRUE ONCE rh = 193 //Red (rosso) ONCE gh = 255 //Green (verde) ONCE bh = 193 //Blue (blu') ONCE th = 5 //Transparency (trasparenza: 0=invisibile 255=massima visibilità) // ONCE rl = 255 //Red (rosso) ONCE gl = 231 //Green (verde) ONCE bl = 186 //Blue (blu') ONCE tl = th+2 //Transparency (trasparenza: 0=invisibile 255=massima visibilità) // ONCE bf = 20 //20 barre da visualizzare nel futuro // IF (OpenTime = 000000) OR ((OpenTime > 000000) AND (OpenTime < OpenTime[1])) THEN Barra = BarIndex PHH = HH2 PLL = LL2 HH1 = high LL1 = low HH2 = high LL2 = low ENDIF IF OpenTime < 080000 THEN HH1 = max(HH1,high) LL1 = min(LL1,low) ENDIF HH2 = max(HH2,high) LL2 = min(LL2,low) //DrawSegment(Barra,PHH,BarIndex+bf,PHH) coloured(0,0,255,255) style(DottedLine,2)//Punti per giorno preced. //DrawSegment(Barra,PLL,BarIndex+bf,PLL) coloured(255,0,0,255) style(DottedLine,2)//Punti per giorno preced. //DrawSegment(Barra,HH1,BarIndex+bf,HH1) coloured(0,0,255,255) style(Line,2) //Linea per oggi //DrawSegment(Barra,LL1,BarIndex+bf,LL1) coloured(255,0,0,255) style(Line,2) //Linea per oggi DrawSegment(Barra,PHH,BarIndex,PHH) coloured(0,0,255,255)style(DottedLine,4)//MAX giorno preced. DRAWTEXT("Max IERI",Barindex-3,PHH+1,Dialog,Bold,25)coloured(0,0,255,255) DrawSegment(Barra,PLL,BarIndex,PLL) coloured(255,0,0,255) style(DottedLine,4)//MIN giorno preced. DRAWTEXT("Min IERI",Barindex-3,PLL-1,Dialog,Bold,25)coloured(255,0,0,255) DrawSegment(Barra,HH1,BarIndex,HH1) coloured(0,0,0,255) style(Dottedline,3) //max NOTTE oggi DRAWTEXT("max notte",BarIndex-3,HH1+2,Dialog,Italic,20)coloured(0,0,0,255) DrawSegment(Barra,LL1,BarIndex,LL1) coloured(0,0,0,255) style(Dottedline,3) //min NOTTE oggi DRAWTEXT("min notte",BarIndex-3,LL1-2,Dialog,Italic,20)coloured(0,0,0,255) FOR i = (BarIndex+bf) DOWNTO (Barra - 1) DrawRectangle(Barra,PHH,i,PLL) coloured(rh,gh,bh,th) bordercolor(0,0,0,0) DrawRectangle(Barra,HH1,i,LL1) coloured(rl,gl,bl,tl) bordercolor(0,0,0,0) NEXT RETURNQuesto è il timeframe 3 minuti….
- You must be logged in to reply to this topic.
Author
Summary
This topic contains 19 replies,
has 3 voices, and was last updated by
4 years, 3 months ago.
Topic Details
| Forum: | ProBuilder: Indicatori & Strumenti Personalizzati |
| Language: | Italian |
| Started: | 11/11/2021 |
| Status: | Active |
| Attachments: | 4 files |
