Novità

Aggiustatina

antonio65

Super Member >PLATINUM<
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
 
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)".
 
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
 
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....
 
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
 
Ultima modifica:
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!!!
 
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
 
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
 
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
 
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
 
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(n) = 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
 
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;)
 
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 ?
 
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...
 
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....
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 07 agosto 2025
    Bari
    22
    21
    64
    60
    55
    Cagliari
    24
    82
    80
    52
    27
    Firenze
    85
    68
    06
    58
    33
    Genova
    72
    86
    50
    80
    22
    Milano
    79
    87
    02
    38
    89
    Napoli
    84
    60
    64
    16
    32
    Palermo
    02
    38
    01
    58
    67
    Roma
    42
    28
    65
    69
    70
    Torino
    76
    68
    39
    11
    44
    Venezia
    13
    07
    81
    01
    53
    Nazionale
    76
    43
    32
    11
    19
    Estrazione Simbolotto
    Nazionale
    09
    02
    28
    34
    15
Indietro
Alto