Richiesta aiuto per completare 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

[lottopassion]

Ciao Antonio occorre sapere come vuoi usare la funzione seriefreq , essa lavora con una serie numerica, un range di estrazioni e la sorte di gioco .

[antonio65]

Salve Lottopassion, grazie per avermi risposto...io non sono tanto esperto in script...la serie numerica è la funzione For nu 1 To 90 che la uso per avere le migliori previsioni( riguardo la mia tecnica) nello script si capisce benissimo...la sorte di gioco per prima cosa l'estratto che ha più casi...e per ambo l'estratto che ha più casi abbinato con le migliori frequenze(sempre con la tecnica dello script) le mie ricerche più o meno sono sempre su 100 casi però divise per indice mensile...spero di essere stato chiaro...
MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4
moltiplicare per 4 ogni ciascuno dei 5 estratti
DNA1 = nu*4
DNA2 = nu*4
DNA3 = nu*4
DNA4 = nu*4
DNA5 = nu*4
moltiplicare per 4 i migliori casi trovati con questa funzione, quindi sottrazione e poi diviso 4...
questa è la mia tecnica...