X maxma62 aiutino script

[Roby]

Ciao Max
Ogni tanto ti vengo a disturbare
Questo semplice listato mi scrive i 5 estratti di Bari nella sequenza di come sono stati estratti, giusto?
Se io volessi che me li metta in ordine dal piu piccolo al piu grande
come devo fare? poi ancora, se il valore del numero è tra 0/30 scritti in rosso se tra 31/60 in blu se tra 61/90 in nero
mi puoi aiutare?
Ti ringrazio anticipatamente

Sub main()
Fin = 8004 ' EstrazioneFin
For es=8000 To Fin 


a1=Estratto(es,1,1):b1=Estratto(es,1,2):c1=Estratto(es,1,3):d1=Estratto(es,1,4):e1=Estratto(es,1,5)
 Messaggio e
ColoreTesto 0 : Scrivi DataEstrazione(es)&"."&format2(a1)&"."&format2(b1)&"."&format2(c1)&"."&format2(d1)&"."&format2(e1)
Next 

Scrivi 	

End Sub

 

[maxma62]

Ciao, per mettere una serie di numeri in ordine cresc/descr basta metterli dentro a un vettore " n(5) "
Per i numeri colorati piu' sono (almeno io so farlo così) e piu' if/then da aggiungere. Alla fine viene fuori uno scrip lungo, comunque guarda se va bene:

Sub main()
Dim n(5)
Fin = 8004 ' EstrazioneFin
For es=8000 To Fin 

r1=12
n(1)=Estratto(es,r1,1)
n(2)=Estratto(es,r1,2)
n(3)=Estratto(es,r1,3)
n(4)=Estratto(es,r1,4)
n(5)=Estratto(es,r1,5)

'se nessuno dei 2 = come ordine di estrazione
OrdinaMatrice n    'in ordine cresc
'OrdinaMatrice n,-1 'in ordine decrec

Messaggio es

Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - ",0,0

If (n(1))<31 Then 
ColoreTesto 2:Scrivi Format2 (n(1)),1,0
Else
If (n(1))>30 And (n(1))<60 Then 
ColoreTesto 1:Scrivi Format2 (n(1)),1,0
Else
If (n(1))>59  Then 
ColoreTesto 0:Scrivi Format2 (n(1)),1,0
End If:End If:end If
ColoreTesto 0:Scrivi ".",0,0

If (n(2))<31 Then 
ColoreTesto 2:Scrivi Format2 (n(2)),1,0
Else
If (n(2))>30 And (n(2))<60 Then 
ColoreTesto 1:Scrivi Format2 (n(2)),1,0
Else
If (n(2))>59  Then 
ColoreTesto 0:Scrivi Format2 (n(2)),1,0
End If:End If:end If
ColoreTesto 0:Scrivi ".",0,0

If (n(3))<31 Then 
ColoreTesto 2:Scrivi Format2 (n(3)),1,0
Else
If (n(3))>30 And (n(3))<60 Then 
ColoreTesto 1:Scrivi Format2 (n(3)),1,0
Else
If (n(3))>59  Then 
ColoreTesto 0:Scrivi Format2 (n(3)),1,0
End If:End If:end If
ColoreTesto 0:Scrivi ".",0,0

If (n(4))<31 Then 
ColoreTesto 2:Scrivi Format2 (n(4)),1,0
Else
If (n(4))>30 And (n(4))<60 Then 
ColoreTesto 1:Scrivi Format2 (n(4)),1,0
Else
If (n(4))>59  Then 
ColoreTesto 0:Scrivi Format2 (n(4)),1,0
End If:End If:end If
ColoreTesto 0:Scrivi ".",0,0

If (n(5))<31 Then 
ColoreTesto 2:Scrivi Format2 (n(5)),1,0
Else
If (n(5))>30 And (n(5))<60 Then 
ColoreTesto 1:Scrivi Format2 (n(5)),1,0
Else
If (n(5))>59  Then 
ColoreTesto 0:Scrivi Format2 (n(5)),1,0
End If:End If:end If
ColoreTesto 0

ColoreTesto 0:Scrivi " ] "

Scrivi String(40,"-")
Next 
Scrivi 
End Sub

max

 

[Baffowilly]

Grazie mille Max
era proprio l'esempio che mi serviva per imparare anche questa funzione