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
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto