Script

[ananda]

Salve. Qualcuno saprebbe aiutarmi a fare uno script che prenda i 5 estratti di un'estrazione , ad esempio di FI e li metta in ordine crescente? Poi, una volta ordinati mi permetta di moltiplicarli ognuno per un numero diverso.

Grazie

 

[GioRyuKen72]

Salve. Qualcuno saprebbe aiutarmi a fare uno script che prenda i 5 estratti di un'estrazione , ad esempio di FI e li metta in ordine crescente? Poi, una volta ordinati mi permetta di moltiplicarli ognuno per un numero diverso.

Grazie

Ciao Ananda, avevo letto male e ho preparato lo script..

La funzione che devi usare è OrdinaMatrice ed è da mettere dopo che hai ricavato i 5 estratti

per esempio gli estratti li nomini da nn(1) a nn(5)
OrdinaMatrice nn, 1
[dove 1 sta per ordine crescente mentre -1 descrescente]

Per la moltiplicazione io ho fatto 5 diversi inputBox al lancio dello script

Saluti, Gio.

 

[ananda]

Ciao Ananda, avevo letto male e ho preparato lo script..

La funzione che devi usare è OrdinaMatrice ed è da mettere dopo che hai ricavato i 5 estratti

per esempio gli estratti li nomini da nn(1) a nn(5)
OrdinaMatrice nn, 1
[dove 1 sta per ordine crescente mentre -1 descrescente]

Per la moltiplicazione io ho fatto 5 diversi inputBox al lancio dello script

Saluti, Gio.

Grazie Gio. Ci provo...

 

[Cinzia27]

Ciao, Ananda.
Guarda se va bene.

Option Explicit
Sub Main
Dim r,n(5),es,p,w1,w2,w3,w4,w5
w1=45
w2=60
w3=4
w4=7
w5=9
  For es =EstrazioneFin-5 To  EstrazioneFin
 
   Scrivi
 Scrivi  FormatSpace(es,5,1)
  For r=1 To 11
  If r=11 Then r=12
  For p=1 To 5
  n(p)=Estratto(es,r,p)
  Next
  OrdinaMatrice n,1
  Scrivi SiglaRuota(r)
 
  Scrivi n(1)&" "&Fuori90(n(1)*w1)
  Scrivi n(2)&" "&Fuori90(n(2)*w2)
  Scrivi n(3)&" "&Fuori90(n(3)*w3)
  Scrivi n(4)&" "&Fuori90(n(4)*w4)
  Scrivi n(5)&" "&Fuori90(n(5)*w5)
 
    Scrivi String(10,"-")
    Next
    Next
End Sub

 

[ananda]

Ciao, Ananda.
Guarda se va bene.

Option Explicit
Sub Main
Dim r,n(5),es,p,w1,w2,w3,w4,w5
w1=45
w2=60
w3=4
w4=7
w5=9
  For es =EstrazioneFin-5 To  EstrazioneFin
 
   Scrivi
 Scrivi  FormatSpace(es,5,1)
  For r=1 To 11
  If r=11 Then r=12
  For p=1 To 5
  n(p)=Estratto(es,r,p)
  Next
  OrdinaMatrice n,1
  Scrivi SiglaRuota(r)
 
  Scrivi n(1)&" "&Fuori90(n(1)*w1)
  Scrivi n(2)&" "&Fuori90(n(2)*w2)
  Scrivi n(3)&" "&Fuori90(n(3)*w3)
  Scrivi n(4)&" "&Fuori90(n(4)*w4)
  Scrivi n(5)&" "&Fuori90(n(5)*w5)
 
    Scrivi String(10,"-")
    Next
    Next
End Sub

Grazie mille Cinzia. Provo a modificarla.

 

[ananda]

Direi che ci siamo. L'unica cosa che non mi riesce è dirgli che voglio considerare solo la prima estrazione del mese.
Ho provato a mettere "If IndiceMensile=1 Then" ma comincia a darmi una serie di errori....qualcuno sa dirmi come fare?
Grazie

 

[i legend]

If indicemensile(idEstrazione)=1 then
Dovrebbe essere " es " nello script

Fare script è davvero bello, imparare da molta soddisfazione.
Prova ad utilizzare la guida e a studiare gli script che trovi qui in area download. Sono un buon inizio.
Poi qui, tempo permettendo, ci sono tanti amici disponibili ad aiutare.
Buona giornata.