Novità

Aiuto e chiarimento Raddoppio giocate

Sakti

Advanced Member
Per cortesia, mi potreste spiegare perchè lo script mi raddoppia le giocate?
Se spiegate anche il perchè con una correzione vi ringrazio in anticipo...
Sub Main()
Dim nu(10),ruote(12),poste(5)
poste(2)= 1
poste(3) = 1
fin = EstrazioneFin
ini = fin - 52
For es = ini To fin
For r1 = 1 To 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = 1 To 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
ds1 = Distanza(n1,n3)
ds2 = Distanza(n2,n4)
If ds1 = 45 And ds2 = 45 Then
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo distanza < " & Format2(ds1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo distanza < " & Format2(ds2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = 11
k = 11
co = 0
nu(1) = 18
nu(2) = 26
nu(3) = 45
nu(4) = 90
ImpostaGiocata 1,nu,ruote,poste,k
Gioca es,1
co = co + 1
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub
 
Ultima modifica:
Grazie mille Joe, grande come sempre, è un po di tempo che non scrivo più e oltretutto non ero gran che neppure prima, ma come risolvo?
E Tu Salvo non ridere.....🤗
 
Ciao, r2 deve essere mantenuto maggiore di r1,

per non raccogliere nuovamente i casi già trovati.

For r1 = 1 to 10

E poi

For r2 = r1 + 1 to 12

If r2 = 11 then r2 = 12

:)
 
Ciao Sakti che per caso puoi mettere lo script corretto" con un grappino" 🤣 lo trovo interessante, grazie.
 
Per il Carissimo Alien, perdona il ritardo, ma sono appena rientrato e solo ora leggo la Tua richiesta.... non è solo interessante, ma si presta ad usi diversi.....:rolleyes:
Sub Main()
Dim nu(10),ruote(12),poste(5)
poste(2)= 1
poste(3) = 1
fin = EstrazioneFin
ini = fin - 52
For es = ini To fin
For r1 = 1 To 10
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
For r2 = r1 + 1 To 12
If r2 = 11 then r2 = 12
n3 = Estratto(es,r2,p1)
n4 = Estratto(es,r2,p2)
ds1 = Distanza(n1,n3)
ds2 = Distanza(n2,n4)
If ds1 = 45 And ds2 = 45 Then
casi = casi + 1
ColoreTesto 1:Scrivi String(87,152)
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" > ambo distanza < " & Format2(ds1) & " >" & Format2(n1) & "." & Format2(n2) & " >"
Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" > ambo distanza < " & Format2(ds2) & " >" & Format2(n3) & "." & Format2(n4) & " >"
ColoreTesto 1:Scrivi String(70,152) & " caso n° " &(casi)
ruote(1) = r1:ruote(2) = r2:ruote(3) = 11
k = 11
co = 0
nu(1) = 18
nu(2) = 26
nu(3) = 45
nu(4) = 90
ImpostaGiocata 1,nu,ruote,poste,k
Gioca es,1
co = co + 1
End If
Next:Next:Next
Next:Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16
Indietro
Alto