richiesta script

[arcor]

un saluto ai nostri scripter volevo chiedere se potete realizzare uno script che ad ogni estrazione sommi in verticale tutti i 10 numeri delle 10 ruote usciti in prima posizione poi quelli usciti in seconda sempre in verticale fino alla 5 posizione.otterremo così 5 numeri o somme col fuori 90.poi di queste 5 somme uscite e scaturite dai 10 numeri estratti nelle varie posizioni dovrà fare una somma totale dei 5 numeri col fuori 90.esempio somma totale(dei10 numeri usciti in prima posizione )330 fuori 90=60( somma usciti in seconda posizione 78 )(in terza 51)( in quarta 89 )(in quinta 6).sommiamo le 5 somme e avremo il totale di 60+78+51+89+6=234 fuori 90 avremo il numero 54 che mi servirà per dei controlli statistici
grazie

 

[Mike58]

Ciao Arcor controlla i risultati.

Sub Main

Dim nu(1),ru(1),T,V

ess = InputBox("Quante estrazioni analizzo",,20)

Ini = EstrazioneFin - ess

fin = EstrazioneFin

Scrivi "Somme estratti in posizioni in verticale delle 10 Ruote",1

Scrivi "Somma delle somme * Ricerca By Arcor * Script By Mike58 * ",1,,,1,,,1

Scrivi "Tutte le somme con il fuori90"

Scrivi

T = Array(T,"Contatore","Id Es ","SM 1°E","SM 2° E","SM 3° E","SM 4° E","SM 5°","Somma somme")

Call InitTabella(T,1,,2,5,"arial black")

For es = Ini To fin

k = k + 1

For r = 1 To 10

a = Estratto(es,r,1)

aa = aa + a

b = Estratto(es,r,2)

bb = bb + b

c = Estratto(es,r,3)

cc = cc + c

d = Estratto(es,r,4)

dd = dd + d

e = Estratto(es,r,5)

ee = ee + e

Next

smm = aa + bb + cc + dd + ee

V = Array(V,k,GetInfoEstrazione(es),Fuori90(aa),Fuori90(bb),Fuori90(cc),Fuori90(dd),Fuori90(ee),Fuori90(smm))

Call AddRigaTabella(V,,,2,,"arial black")

Call SetColoreCella(8,7,5)

aa = 0

bb = 0

cc = 0

dd = 0

ee = 0

Next

Call CreaTabella()

End Sub

 

[arcor]

grazie mike58 è tutto esatto.adesso testo le somme e verifico con un metodo se risponde lo inseriamo nello script.ciao