Inserimento Seriefreq per completamento script

[antonio65]

Buonasera chiederei un aiuto per gli esperti di script per completamento...
Non so inserire la funzione SerieFreq della funzione For nu 1 To 90...Motivo perchè se voi provate ad eseguire lo script
capirete subito che la chiamata DNA=nu*4 da lo stesso x entrambi i 5 numeri...Grazie Antonio!!!

Sub Main
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Dim numeri1(10),numeri2(10),numeri3(10)
Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(1) = 1 ' < - - - posta per estratto
'es = 9200'7694
nru1 = NZ_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
clp = 1' < - - - Colpi di gioco
ini = 7694'7694'EstrazioneFin - est
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni

a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)

MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4


For nu = 1 To 10
co = co + 1

DNA1 = nu*4
DNA2 = nu*4
DNA3 = nu*4
DNA4 = nu*4
DNA5 = nu*4
'bisogna capire il Valore che deve ricavare
' se vuoi la frequenza trasformali in Numeri vettori e usa il codice SerieFreq
' poi li filtri in base ad un valore.
'--------------------------------------------

nu1 = Fuori90(Abs(MEN3 - DNA1)/4)
nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
nu5 = Fuori90(Abs(MEN5 - DNA5)/4)
'---------------------------------------------------------------

Scrivi Format2(co) & " - " & Format2(nu1) & " " & Format2(nu2) & " " & Format2(nu3) & " " & Format2(nu4) & " " & Format2(nu5)
Scrivi "MEN = " & Men1 & " " & Men2 & " " & Men3 & " " & Men4 & " " & Men5
Scrivi "DNA = " & DNA1 & " " & DNA2 & " " & DNA3 & " " & DNA4 & " " & DNA5

If ScriptInterrotto Then Exit For
Scrivi "============================================= ==== ================="
Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
ruote(2) = 1
'ruote(3) = 2
'ruote(4) = 3
'ruote(5) = 4
'ruote(6) = 5
'ruote(7) = 6
'ruote(8) = 7
'ruote(9) = 8
'ruote(10) = 9
'ruote(11) = 10
'ruote(12) = 12

numeri1(1) = nu1
numeri1(2) = nu2
numeri1(3) = nu3
numeri1(4) = nu4
numeri1(5) = nu5
ImpostaGiocata 1,numeri1,ruote,posta,clp

Gioca es
Next
co = 0
End If
Next
ScriviResoconto
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
End Sub