Aggiustatina

antonio65 · 4 Aprile 2017

Buonasera, chiederei un piccolo aiuto...un aggiustatina allo script ....per la funzione For Nu = 1 To 90 mi da lo stesso numero per i 5 estratti...da premettere che non sono esperto..grazie per chi si presta!!!

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto

es = 7694
nru1 = BA_
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
For nu = 27 To 27
co = co + 1
clp = 1' < - - - Colpi di gioco

ini = 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)

DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

nu1 = Fuori90(Abs(MEN1 - 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 "=================================================================="
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
End If
Next

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

claudio8 · 7 Aprile 2017

Prova a chiarirti come definire il numero estrazione, di rilevamento numeri "es = 7694" che definisce queste righe:
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)
e numero estrazione di rilevamento primamese "If IndiceMensile(ES)".

antonio65 · 7 Aprile 2017

Ciao, io non sono esperto di script...la ricerca parte da li 7694 cioè dal 2007

claudio8 · 7 Aprile 2017

Spero di essere riuscito a capire bene quale fosse l'obbiettivo del tuo script.
Confronta i 2 costrutti e cerca di carpirne la differenza.

Codice:

Sub Main
    Dim numeri1(10),numeri2(10),numeri3(10)
    Dim ruote(12),ruotee(10)
    Dim poste(3),postee(3)
    Dim posta(2)
    posta(2) = 1 ' < - - - posta per estratto
    'es = 7694
    nru1 = BA_
    p = 1
    p2 = 2
    p3 = 3
    p4 = 4
    p5 = 5
    For nu = 1 To 2
        clp = 1' < - - - Colpi di gioco
        ini = 9000'EstrazioneFin - est
        fin = EstrazioneFin
        co = 0
        For es = ini To fin
            If IndiceMensile(es) = 1 Then
                Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
                co = co + 1
                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)
                DNA1 =(a01 + a02)*4
                DNA2 =(a01 + a03)*4
                DNA3 =(a01 + a04)*4
                DNA4 =(a01 + a05)*4
                DNA5 =(a02 + a03)*4
                DNA6 =(a02 + a04)*4
                DNA7 =(a02 + a05)*4
                DNA8 =(a03 + a04)*4
                DNA9 =(a03 + a05)*4
                DNA10 =(a04 + a05)*4
                MEN1 = nu*4
                MEN2 = nu*4
                MEN3 = nu*4
                MEN4 = nu*4
                MEN5 = nu*4
                nu1 = Fuori90(Abs(MEN1 - 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 " Caso n°" & Format2(co) & " numeri estrazione " & Format2(a01) & " " & Format2(a02) & " " & Format2(a03) & " " & Format2(a04) & " " & Format2(a05)
                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
            End If
        Next
        ScriviResoconto
        ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x Randhouse",1
        Scrivi String(47,32) & "List. RANDHOUSE",1
        ColoreTesto 0
    Next
End Sub

antonio65 · 7 Aprile 2017

Ciao va bene, molto meglio...solo che i resoconti sommano gli ambi.Mi spiego: finchè faccio un For nu=1 to 2 o magari fino a For nu=1 to 10
va bene cosi come è stato variato...ma quando uso For Nu=1 To 90 mi viene difficile capire quanti casi positivi da un singolo For Nu....

avio · 8 Aprile 2017

ciao

vedi se ti va bene

Sub Main
Dim k(10,90),e1(2),nu1(5)
'es = 7694
For ru1 = 1 To 10
For nu = 1 To 90
ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
co = co + 1
a01 = Estratto(es,ru1,1)
a02 = Estratto(es,ru1,2)
a03 = Estratto(es,ru1,3)
a04 = Estratto(es,ru1,4)
a05 = Estratto(es,ru1,5)
DNA1 =(a01 + a02)*4
DNA2 =(a01 + a03)*4
DNA3 =(a01 + a04)*4
DNA4 =(a01 + a05)*4
DNA5 =(a02 + a03)*4
DNA6 =(a02 + a04)*4
DNA7 =(a02 + a05)*4
DNA8 =(a03 + a04)*4
DNA9 =(a03 + a05)*4
DNA10 =(a04 + a05)*4
MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4
nu1(1) = Fuori90(Abs(MEN1 - DNA1)/4)
nu1(2) = Fuori90(Abs(MEN2 - DNA2)/4)
nu1(3) = Fuori90(Abs(MEN3 - DNA3)/4)
nu1(4) = Fuori90(Abs(MEN4 - DNA4)/4)
nu1(5) = Fuori90(Abs(MEN5 - DNA5)/4)
' Scrivi " Caso n°" & Format2(co) & " numeri estrazione " & Format2(a01) & " " & Format2(a02) & " " & Format2(a03) & " " & Format2(a04) & " " & Format2(a05)
EliminaRipetuti nu1
'Scrivi nu1(1)& " " & nu1(2) & " " & nu1(3) & " " & nu1(4) & " " & nu1(5) & " " & es
'Scrivi "============================================= ==== ================="
' Scrivi "DNA4 Ruota-" & SiglaRuota(nru1) & "---" & Format2(DNA4),1
' Scrivi "CHEF5 Ruota-" & SiglaRuota(nru1) & "---" & Format2(CHEF5),1
est = es + 1
fine = es + 1
For si = est To fine
For v1 = 1 To 4
For v2 = v1 + 1 To 5
e1(1) = Estratto(si,ru1,v1)
e1(2) = Estratto(si,ru1,v2)
ed = 0
For t = 1 To 5
For tt = 1 To 2
If nu1(t) = e1(tt) Then ed = ed + 1
Next
Next
If ed > 1 Then k(ru1,nu) = k(ru1,nu) + 1':Scrivi NomeRuota(ru1) & " " & e1(1) & " " & e1(2) & " " & DNA4 & " " & es
Next'v2
Next'v1
Next'si
End If
Next
Next
'Scrivi
Next'ru1
Scrivi
Scrivi " ESTRAZIONI CONTROLLATE " & co
Scrivi
For p1 = 1 To 10
For p2 = 1 To 90
If k(p1,p2) > 6 Then Scrivi NomeRuota(p1) & " AMBI " & k(p1,p2) & " < NUMERO nu DA 1 To 90 > " & p2
Next
Scrivi
Next
End Sub

antonio65 · 8 Aprile 2017

Ciao Avio grazie per l'intervento...possiamo dire che va quasi bene cosi in un clik ho una tabella..però se puoi devi fare una variante:
analizzando la prima del mese su ruota di bari; scegliendo Bari AMBI 13 < NUMERO nu DA 1 To 90 > 27
vuol dire che il 27 è presente nei 5 numeri ...per avere maggiori casi positivi dovresti dire allo script
di mettere for nu 1 to 90 differenti...può capitare che le migliori sorti ci siano 2 o 3 numeri uguali...se aggiungi o correggi quello che ti ho citato...possiamo dire che è finito...ho notato che manca la ruota Nazionale...grazie Antonio!!!

avio · 8 Aprile 2017

ciao

il 27 si riferisce a questo

MEN1 = nu*4
MEN2 = nu*4
MEN3 = nu*4
MEN4 = nu*4
MEN5 = nu*4

non hai numeri di controllo per ambi

antonio65 · 8 Aprile 2017

Si, esatto a questo...devi trovare i migliori ....questi numeri generano gli ambi...

antonio65 · 8 Aprile 2017

Se tu metti dei numeri a caso come ho fatto io sotto vedi che ti da gli ambi..quindi ricapitolando: dovresti trovare il più alto For nu 1 to 90
e poi con il maggiore caso scegliere gli ambi:..mi spiego esempio il più sortito sulla ruota di bari sarebbe il for nu 1 to 90 il 34 su 124 20 volte(mi riferisco come estratto...da li si cercano gli abbinamenti....
MEN1 = 27*4
MEN2 = 35*4
MEN3 = 49*4
MEN4 = 7*4
MEN5 = 45*4

antonio65 · 8 Aprile 2017

Scusami Avio, nel tuo script non da risultati inserendo i numeri li devi inserire nel primo script che ho postato io...
MEN1 = 27*4
MEN2 = 35*4
MEN3 = 49*4
MEN4 = 7*4
MEN5 = 45*4

avio · 8 Aprile 2017

antonio65;n2057830 ha scritto:
Se tu metti dei numeri a caso come ho fatto io sotto vedi che ti da gli ambi..quindi ricapitolando: dovresti trovare il più alto For nu 1 to 90
e poi con il maggiore caso scegliere gli ambi:..mi spiego esempio il più sortito sulla ruota di bari sarebbe il for nu 1 to 90 il 34 su 124 20 volte(mi riferisco come estratto...da li si cercano gli abbinamenti....
MEN1 = 27*4
MEN2 = 35*4
MEN3 = 49*4
MEN4 = 7*4
MEN5 = 45*4

Mi dispiace non riesco a seguirti
come hai messo te MEN1=27*4 MEN2=35 *4 ecc ci vogliono 5 for to next non uno solo

antonio65 · 8 Aprile 2017

Scusa se insisto...siccome ho provato manualmente ed è un lavoraccio...la ricerca avviene cosi come l ho scritta sulla prima del mese sulla ruota di bari ...da 13 ambi.....ti ho allegato anche uno script che devi provare per renderti conto e capire meglio....ho utilizzato anche dei
for nu 1 to 179 poi ti spiego il perchè...osserva il resoconto e capirai...
MEN1 = 27*4
MEN2 = 27*4
MEN3 = 27*4
MEN4 = 27*4
MEN5 = 27*4

Scrivi String(47,32) & "List. RANDHOUSE",1
ColoreTesto 0
Sub Main
Dim numeri1(10),numeri2(10),numeri3(10)

Dim ruote(12),ruotee(10)
Dim poste(3),postee(3)
Dim posta(2)
posta(2) = 1 ' < - - - posta per estratto

r = 1
clp = 1' < - - - Colpi di gioco

ini = 7694'EstrazioneFin - est
fin = EstrazioneFin
For n = ini To fin
If IndiceMensile

= 1 Then
Messaggio DataEstrazione(n,1) & " List.RANDHOUSE " ' < - - - - Numero estrazioni
'SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,2) + EstrattoDL(n - 1,11) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,20))
'SOMMA_ESTRATTI =(EstrattoDL(n - 1,1) + EstrattoDL(n - 1,3) + EstrattoDL(n - 1,12) + EstrattoDL(n - 1,18) + EstrattoDL(n - 1,19))
'EXTRACT1 =(EstrattoDL(n - 1,4) + EstrattoDL(n - 1,10) + EstrattoDL(n - 1,18) + EstrattoDL(n - 1,19) + EstrattoDL(n - 1,20))

MEN1 = 84*4
MEN2 = 176*4
MEN3 = 55*4
MEN4 = 84*4
MEN5 = 117*4

DNA1 =(Estratto(n,1,1) +(Estratto(n,1,2)))*4
DNA2 =(Estratto(n,5,1) +(Estratto(n,5,2)))*4
DNA3 =(Estratto(n,4,1) +(Estratto(n,4,2)))*4
DNA4 =(Estratto(n,8,1) +(Estratto(n,8,2)))*4
DNA5 =(Estratto(n,10,1) +(Estratto(n,10,2)))*4
DNA6 =(Estratto(n,1,2) +(Estratto(n,1,4)))*4
DNA7 =(Estratto(n,1,2) +(Estratto(n,1,5)))*4
DNA8 =(Estratto(n,1,3) +(Estratto(n,1,4)))*4
DNA9 =(Estratto(n,1,3) +(Estratto(n,1,5)))*4
DNA10 =(Estratto(n,1,4) +(Estratto(n,1,5)))*4

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

Scrivi "=================================================================="
Scrivi "DNA1 Ruota-" & SiglaRuota(r) & "---" & Format2(DNA1),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 n
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

antonio65 · 8 Aprile 2017

Io non sono esperto di script...capisco appena l'essenziale...se occorrono 5 for nu va bene...non saprei l'importante che porta il risultato richiesto....prova lo script che ti ho allegato...il risultato del resoconto non è niente male...l ho fatto io punto per punto

avio · 8 Aprile 2017

DNA1 =(Estratto(n,1,1) +(Estratto(n,1,2)))*4
DNA2 =(Estratto(n,5,1) +(Estratto(n,5,2)))*4---il primo estratto e il secondo di milano
DNA3 =(Estratto(n,4,1) +(Estratto(n,4,2)))*4--- il primo estratto e il secondo di genova
DNA4 =(Estratto(n,8,1) +(Estratto(n,8,2)))*4--- il primo estratto e il secondo di roma
DNA5 =(Estratto(n,10,1) +(Estratto(n,10,2)))*4---il primo estratto e il secondo di venezia
DNA6 =(Estratto(n,1,2) +(Estratto(n,1,4)))*4
DNA7 =(Estratto(n,1,2) +(Estratto(n,1,5)))*4
DNA8 =(Estratto(n,1,3) +(Estratto(n,1,4)))*4
DNA9 =(Estratto(n,1,3) +(Estratto(n,1,5)))*4
DNA10 =(Estratto(n,1,4) +(Estratto(n,1,5)))*4

e cosi ?

antonio65 · 8 Aprile 2017

Cosi l ho fatto se ad esempio il miglior risultato di bari o di altra ruota li accoppiavo...per avere più possibilità...ma la base è quella che mi hai mandato...

antonio65 · 17 Aprile 2017

Ciao Avio come stai? spero bene...volevo chiederti se qualora fosse possibile inserire la ruota Nazionale...e se possibile un For nu diverso per ogni estratto..ti ringrazio in anticipo....io ci provo ma non ci riesco...devo imparare tanto ancora....

Cerca

Cerca

Aggiustatina

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

claudio8

Premium Member

antonio65

Super Member >PLATINUM<

avio

Senior Member

antonio65

Super Member >PLATINUM<

avio

Senior Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

avio

Senior Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

avio

Senior Member

antonio65

Super Member >PLATINUM<

antonio65

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi