Novità

Per chi vule aiutarmi

joi_lotto

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.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto