Novità

Per chi vule aiutarmi

joi_lotto

Super Member >PLATINUM<
Buona giornata a tutti, ho verificato un metodo negli ultimi 2 mesi con carta e penna ma vorrei verificare un periodo più lungo. Chiedo se qualcuno può correggere questo script che gentilmente mi ha fatto (disronno). Vi spiego: ricercare un ambo simmetrico su una ruota e cercare la chiusura della terzina, su un'altra ruota. Trovata la chiusura si sommano i 3 estratti (fuori 90) prima ambata, per la seconda trovare il diametrale. Fatto questo, abbiamo la figura dell'ambata a cui abbiniamo x ambo i radicali della figura trovata.
Esempio: MI 15 21 45 1 10 ambo 15-45 manca il 75 che troviamo a NA 75 1 2 3 4--ora sommare 15+45+75=135-90=45 1a ambata diametrale 90 per cui ambate 45- 90 = Figura 9, ora non essendoci radicali del 9 abbiniamo la CADENZA 9 sulle ruote MI-NA. Se avessimo avuto 16-61 ambate, Figura 7 abb.ti (7-70-77-79).
NON HA IMPORTANZA L’ISOTOPIA.
Spero di essere stato chiaro.
Grazie.
joi_lotto.

Sub Main()
ColoreTesto 1
Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
ColoreTesto 0
Dim nu(2),nu2(9)
Dim ruote(2)
Dim posta(1),poste(2)
posta(1) = 1
poste(2) = 1
fin = EstrazioneFin
ini = 8600
For es = ini To fin
Messaggio es
AvanzamentoElab ini,fin,es
For r1 = 1 To 11
If r1 = 11 Then r1 = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
ds1 = Distanza(n1,n2)
For r2 = 1 To 11
If r2 = 11 Then r2 = 12
If r1 <> r2 Then
For p3 = 1 To 5
n3 = Estratto(es,r2,p3)
ds2 = Distanza(n3,n1)
ds3 = Distanza(n3,n2)
If ds1 = 30 And ds2 = 30 And ds3 = 30 And(p1 = p3 Or p2 = p3)Then
casi = casi + 1
Scrivi String(75,"=") & " caso n° " &(casi),1
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) & _
" > isotopo < " & Format2(ds2) & " > " & Format2(n3)
Scrivi String(65,"-")
ruote(1) = r1
ruote(2) = r2
k = 12
co = 0
d1 = Fuori90(n1 + n2 + n3)
d2 = Diametrale(d1)
nu(1) = d1
nu(2) = d2
co = co + 1
ImpostaGiocata co,nu,ruote,posta,k
c1 = Radicale(Figura(d1))
c2 = Vert(c1)
c3 =(11*c1)
c4 = Vert(c3)
ok = 0
If Figura(d1) = 1 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 2 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 3 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 4 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 5 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 6 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 7 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 8 Then nu2(1) = c1:nu2(2) = c2:nu2(3) = c3:nu2(4) = c4:nu2(5) = 00:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:ok = 1
If Figura(d1) = 9 Then nu2(1) = 09:nu2(2) = 19:nu2(3) = 29:nu2(4) = 39:nu2(5) = 49:nu2(6) = 59:nu2(7) = 69:nu2(8) = 79:nu2(9) = 89:ok = 1
If ok = 1 Then
co = co + 1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es,True,,1
End If
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
Scrivi
ColoreTesto 0
End Sub
 
Codice:
Sub Main()
    ColoreTesto 1
    Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
    ColoreTesto 0
    Dim nu(2),nu2(10)
    Dim ruote(2)
    Dim posta(1),poste(2)
    posta(1) = 1
    poste(2) = 1
    fin = EstrazioneFin
    ini = 8650
    For es = ini To fin
    Messaggio es
        AvanzamentoElab ini,fin,es
        For r1 = 1 To 11
            If r1 = 11 Then r1 = 12
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    ds1 = Distanza(n1,n2)
                    For r2 = 1 To 11
                        If r2 = 11 Then r2 = 12
                        If r1 <> r2 Then
                            For p3 = 1 To 5
                                n3 = Estratto(es,r2,p3)
                                ds2 = Distanza(n3,n1)
                                ds3 = Distanza(n3,n2)
                                If ds1 = 30 And ds2 = 30 And ds3 = 30 And(p1 = p3 Or p2 = p3)Then
                                    casi = casi + 1
                                    Scrivi String(75,"=") & " caso n° " &(casi),1
                                    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) & _
                                    " >    isotopo    < " & Format2(ds2) & " > " & Format2(n3)
                                    Scrivi String(65,"-")
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    k = 9
                                    co = 0
                                    d1 = Fuori90(n1 + n2 + n3)
                                    d2 = Diametrale(d1)
                                    nu(1) = d1
                                    nu(2) = d2
                                    co = co + 1
                                    ImpostaGiocata co,nu,ruote,posta,k
                                    c1 = Radicale(Figura(d1))
                                    c2 = Vert(c1)
                                    c3 =(11*c1)
                                    c4 = Vert(c3)
                                    ok = 0
                                    If Figura(d1) = 1 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                                If Figura(d1) = 2 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                            If Figura(d1) = 3 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                        If Figura(d1) = 4 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                    If Figura(d1) = 5 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                If Figura(d1) = 6 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
            If Figura(d1) = 7 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
        If Figura(d1) = 8 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
    If Figura(d1) = 9 Then nu2(1) = nu(1):nu2(2) = 09:nu2(3) = 19:nu2(4) = 29:nu2(5) = 39:nu2(6) = 49:nu2(7) = 59:nu2(8) = 69:nu2(9) = 79:nu2(10) = 89:ok = 1
If ok = 1 Then
    co = co + 1
    ImpostaGiocata co,nu2,ruote,poste,k
    Gioca es,True,,1
End If
End If
Next
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
Scrivi
ColoreTesto 0
End Sub
 
Grazie infinite Blackmore, ma la lunghetta deve contenere le 2 ambate e NON ISOTOPO (se Vuoi correggerlo)!.

Grazie ancora.

joi_lotto.
 
Ultima modifica:
Questo script è incasinato parecchio, non ci metto più le mani...

Codice:
=========================================================================== caso n° 8
martedì, feb 26 2013 < NA 45.22.52.90.14 > ambo distanza < 30 > 22.52 >
martedì, feb 26 2013 < MI 09.73.14.82.15 >  NON  isotopo < 30 > 82
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08657 [ 25 - 26/02/2013]
G 0001 Numeri in gioco : 66.21 su MI NA per Estratto
V N. [66.21                         ] [MI]     [.. 21 .. .. ..] C.   5 Estratto   08662 [ 30 - 09/03/2013] [47.21.23.20.39]
V N. [66.21                         ] [NA]     [.. 66 .. .. ..] C.   5 Estratto   08662 [ 30 - 09/03/2013] [39.66.60.37.69]
V N. [66.21                         ] [MI]     [.. .. .. .. 21] C.   9 Estratto   08666 [ 34 - 19/03/2013] [43.28.87.82.21]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 03.30.33.39.66 su MI NA per Ambo
V N. [03.30.33.39.66                ] [NA]     [39 66 .. .. ..] C.   5 Ambo       08662 [ 30 - 09/03/2013] [39.66.60.37.69]
V N. [03.30.33.39.66                ] [NA]     [.. .. 30 .. 33] C.   7 Ambo       08664 [ 32 - 14/03/2013] [48.37.30.72.33]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 03.21.30.33.39 su MI NA per Ambo
V N. [03.21.30.33.39                ] [MI]     [.. 21 .. .. 39] C.   5 Ambo       08662 [ 30 - 09/03/2013] [47.21.23.20.39]
V N. [03.21.30.33.39                ] [NA]     [.. .. 30 .. 33] C.   7 Ambo       08664 [ 32 - 14/03/2013] [48.37.30.72.33]
Interrotta per raggiunta durata

=========================================================================== caso n° 9
giovedì, feb 28 2013 < NA 05.55.03.63.81 > ambo distanza < 30 > 03.63 >
giovedì, feb 28 2013 < MI 23.33.86.26.11 >  NON  isotopo < 30 > 33
-----------------------------------------------------------------
Estrazione generatrice del pronostico 08658 [ 26 - 28/02/2013]
G 0001 Numeri in gioco : 09.54 su MI NA per Estratto
V N. [09.54                         ] [MI]     [09 .. .. .. ..] C.   2 Estratto   08660 [ 28 - 05/03/2013] [09.20.42.32.59]
V N. [09.54                         ] [NA]     [.. .. 54 .. ..] C.   5 Estratto   08663 [ 31 - 12/03/2013] [60.79.54.29.16]
V N. [09.54                         ] [MI]     [.. .. .. 09 ..] C.   6 Estratto   08664 [ 32 - 14/03/2013] [17.25.06.09.62]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 09.19.29.39.49.59.69.79.89 su MI NA per Ambo
V N. [09.19.29.39.49.59.69.79.89    ] [MI]     [.. 79 59 .. ..] C.   1 Ambo       08659 [ 27 - 02/03/2013] [30.79.59.17.32]
V N. [09.19.29.39.49.59.69.79.89    ] [MI]     [09 .. .. .. 59] C.   2 Ambo       08660 [ 28 - 05/03/2013] [09.20.42.32.59]
V N. [09.19.29.39.49.59.69.79.89    ] [NA]     [39 .. .. .. 69] C.   4 Ambo       08662 [ 30 - 09/03/2013] [39.66.60.37.69]
V N. [09.19.29.39.49.59.69.79.89    ] [NA]     [.. 79 .. 29 ..] C.   5 Ambo       08663 [ 31 - 12/03/2013] [60.79.54.29.16]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 09.19.29.39.49.54.59.69.79.89 su MI NA per Ambo
V N. [09.19.29.39.49.54.59.69.79.89 ] [MI]     [.. 79 59 .. ..] C.   1 Ambo       08659 [ 27 - 02/03/2013] [30.79.59.17.32]
V N. [09.19.29.39.49.54.59.69.79.89 ] [MI]     [09 .. .. .. 59] C.   2 Ambo       08660 [ 28 - 05/03/2013] [09.20.42.32.59]
V N. [09.19.29.39.49.54.59.69.79.89 ] [NA]     [39 .. .. .. 69] C.   4 Ambo       08662 [ 30 - 09/03/2013] [39.66.60.37.69]
V N. [09.19.29.39.49.54.59.69.79.89 ] [NA]     [.. 79 54 29 ..] C.   5 Terno      08663 [ 31 - 12/03/2013] [60.79.54.29.16]
Interrotta per raggiunta durata


Codice:
Sub Main()
    ColoreTesto 1
    Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
    ColoreTesto 0
    Dim nu(2),nu2(10),nu3(10)
    Dim ruote(2)
    Dim posta(1),poste(2)
    posta(1) = 1
    poste(2) = 1
    fin = EstrazioneFin
    ini = 8650
    For es = ini To fin
    Messaggio es
        AvanzamentoElab ini,fin,es
        For r1 = 1 To 11
            If r1 = 11 Then r1 = 12
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    ds1 = Distanza(n1,n2)
                    For r2 = 1 To 11
                        If r2 = 11 Then r2 = 12
                        If r1 <> r2 Then
                            For p3 = 1 To 5
                                n3 = Estratto(es,r2,p3)
                                ds2 = Distanza(n3,n1)
                                ds3 = Distanza(n3,n2)
                                If ds1 = 30 And ds2 = 30 And ds3 = 30 And(p3 <> p1 And p3 <> p2)Then
                                    casi = casi + 1
                                    Scrivi String(75,"=") & " caso n° " &(casi),1
                                    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) & _
                                    " >  NON  isotopo < " & Format2(ds2) & " > " & Format2(n3)
                                    Scrivi String(65,"-")
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    k = 9
                                    co = 0
                                    d1 = Fuori90(n1 + n2 + n3)
                                    d2 = Diametrale(d1)
                                    nu(1) = d1
                                    nu(2) = d2
                                    co = co + 1
									
                                   ImpostaGiocata 1,nu,ruote,posta,k
                                    c1 = Radicale(Figura(d1))
                                    c2 = Vert(c1)
                                    c3 =(11*c1)
                                    c4 = Vert(c3)

                                    ok = 0
                                    If Figura(d1) = 1 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                                If Figura(d1) = 2 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                            If Figura(d1) = 3 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                        If Figura(d1) = 4 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                    If Figura(d1) = 5 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
                If Figura(d1) = 6 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
            If Figura(d1) = 7 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
        If Figura(d1) = 8 Then nu2(1) = d1:nu2(2)=c1:nu2(3) = c2:nu2(4) = c3:nu2(5) = c4:nu2(6) = 00:nu2(7) = 00:nu2(8) = 00:nu2(9) = 00:nu2(10) = 00:ok = 1
    If Figura(d1) = 9 Then nu2(1) = nu(1):nu2(2) = 09:nu2(3) = 19:nu2(4) = 29:nu2(5) = 39:nu2(6) = 49:nu2(7) = 59:nu2(8) = 69:nu2(9) = 79:nu2(10) = 89:ok = 1
EliminaRipetuti nu2 
ImpostaGiocata 2,nu2,ruote,poste,k   
If ok = 1 Then
ok =0
                                   If Figura(d2) = 1 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
                                If Figura(d2) = 2 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
                            If Figura(d2) = 3 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
                        If Figura(d2) = 4 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
                    If Figura(d2) = 5 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
                If Figura(d2) = 6 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
            If Figura(d2) = 7 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
        If Figura(d2) = 8 Then nu3(1) = d2:nu3(2)=c1:nu3(3) = c2:nu3(4) = c3:nu3(5) = c4:nu3(6) = 00:nu3(7) = 00:nu3(8) = 00:nu3(9) = 00:nu3(10) = 00:ok = 1
    If Figura(d2) = 9 Then nu3(1) = d2:nu3(2)=9:nu3(3) = 19:nu3(4) = 29:nu3(5) = 39:nu3(6) = 49:nu3(7) = 59:nu3(8) = 69:nu3(9) = 79:nu3(10) = 89:ok = 1
If ok = 1 Then
    co = co + 1
 
	EliminaRipetuti nu3
    ImpostaGiocata 3,nu3,ruote,poste,k
    Gioca es,True,,1
End If
End If
End If 
Next
End If
Next
Next
Next
Next
If ScriptInterrotto Then Exit For 
Next
ScriviResoconto
ColoreTesto 1
Scrivi String(27,32) & "Per Pigi e Ib63 di joi_lotto -http://forum.lottoced.com/f8/per-pigi-e-ib63-106117/ - "
Scrivi
ColoreTesto 0
End Sub
 
... Non mi riferisco all'operato di disaronno, ma alle varie modifiche fatte
 
Ciao disaronno, non scusarti, anzi sono io a doverlo fare per non avere avuto pazienza.
Un grande GRAZIE a te e a Blackmore.

Grazie ancora.

joi_lotto.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 01 luglio 2025
    Bari
    71
    66
    48
    42
    76
    Cagliari
    84
    70
    23
    69
    43
    Firenze
    50
    21
    30
    11
    69
    Genova
    89
    41
    50
    80
    67
    Milano
    41
    59
    67
    03
    60
    Napoli
    87
    63
    51
    42
    07
    Palermo
    56
    87
    76
    27
    09
    Roma
    41
    26
    50
    22
    77
    Torino
    36
    83
    80
    65
    05
    Venezia
    45
    77
    76
    81
    71
    Nazionale
    72
    06
    03
    08
    07
    Estrazione Simbolotto
    Nazionale
    34
    27
    08
    12
    17
Indietro
Alto