Per chi vule aiutarmi

joi_lotto · 25 Luglio 2013

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

k = 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

k = 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

k = 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

k = 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

k = 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

k = 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

k = 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

k = 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

k = 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

Roby · 25 Luglio 2013

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

joi_lotto · 25 Luglio 2013

Grazie infinite Blackmore, ma la lunghetta deve contenere le 2 ambate e NON ISOTOPO (se Vuoi correggerlo)!.

Grazie ancora.

joi_lotto.

Roby · 25 Luglio 2013

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

Roby · 25 Luglio 2013

... Non mi riferisco all'operato di disaronno, ma alle varie modifiche fatte

joi_lotto · 25 Luglio 2013

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.

Cerca

Cerca

Per chi vule aiutarmi

joi_lotto

Super Member >PLATINUM<

Roby

Guest

joi_lotto

Super Member >PLATINUM<

Roby

Guest

Roby

Guest

joi_lotto

Super Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi