Il mio post è indirizzato a MAURO -EMME non a te.Ciao Claudio,
La tua replica non fa una piega e condivido,ammetto che in un mio intervento........
Sciau belo e mi raccomado!.....fammi vincere con i tuoi studi
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Le mie solite idee
- Creatore Discussione Marco-elle
- Data di inizio
Marco-elle
Banned
Si ma nel tuo Tread in un mio intervento,posso esser stato fraintesoIl mio post è indirizzato a MAURO -EMME non a te.
e non è così
Marco, non ti preoccupare dell'altro tread.
Lascia che sia MAURO-EMME a rispondere senza che ci siano sovrapposizioni di post e scusami se uso il tuo tread, ma determinate affermazioni fatte dal sig. Emme sono, ripeto, a dir poco SGRADEVOLI e vanno correte con tanto di scuse almeno a Luigi.
Claudio
MANCIN072
Advanced Member >PLATINUM<
Grazie per il tuo script. Ho preso l 81 a Bari in estratti semplice. Peccato per 81.61, ambo secco non giocato. Grazie ancora per l alta percentuale di positivi dei tuoi script.
Marco-elle
Banned
Questa l'avevo pure consigliata e ammetto che questa volta l'ho persa x dimenticanza
e giocata fino a giovedi
argomento chiuso
Marco-elle
Banned
Tra le altre cose,vista la convergenza con ER GRAFITTARO....per come gioco io,
avrei beccato il terno secco a 3 numeri,,,,ma sono vicino al treno giusto
Stay tuned!
GiusepPino19
Junior Member
BUONGIORNO A TUTTI
un doveroso complimento al Sig Marco perche tramite il suo script
" Metodo ricavato alla 5° del mese
con riferimento alla cadenza del 5° estratto della NZ metodo statistico "
ho centrato dopo poche estrazioni del 30/10 L' Ambo a Ruota BA 81.61
Grazie per impegno e la condivisione dei suoi studi
Un cordiale saluto GiusepPino
un doveroso complimento al Sig Marco perche tramite il suo script
" Metodo ricavato alla 5° del mese
con riferimento alla cadenza del 5° estratto della NZ metodo statistico "
ho centrato dopo poche estrazioni del 30/10 L' Ambo a Ruota BA 81.61
Grazie per impegno e la condivisione dei suoi studi
Un cordiale saluto GiusepPino
Marco-elle
Banned
Grazie x la fiducia e complimenti!
Io da pirla,come spiegato sopra,me sono dimenticato
e il bello che le mie ricerche convergevano tutte e mi
sono fottuto il terno secco
Alberto Anderlini
Super member
buona sera nell'ultima previsione, la prevsine su bari è 41-87-32-41-14 visto che il 41 si ripete con cosa si sostituisce? con il 90 o un diametrale della quanantina? grazie
Marco-elle
Banned
Ciao Alberto,
nella versione qui sotto ho inserito la funzione elimina ripetuti che.....
molte volte accade di avere un numero uguale dato da 2 algoritmi,
In genere i software in questi casi,sceglie la soluzione del +1
vedi te il da farsi
Codice:
Sub Main()
ColoreTesto 2 :Scrivi "DIVENTIAMO TUTTI RICCHI"
Scrivi "GIOCA 1 CINQUINA SU BARI"
Scrivi "METODO BY MARCO"
ColoreTesto 0
Dim n(5)
Dim ruota(1)
Dim pt5(5)
pt5(2) = 1
pt5(3) = 1
pt5(4) = 1
pt5(5) = 1
clp = 10
co = 0
ini = 9500
For es = ini To EstrazioneFin
Messaggio(es)
For r = 12 To 12
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
ok = 0
If a < 10 And b < 10 And c < 10 Then
n(1) = Fuori90(Decina(Estratto(es,2,1)) + Cadenza(Estratto(es,2,1)) + Estratto(es,12,3) + 2)
n(2) = Fuori90((Decina(Estratto(es,2,2)) + Estratto(es,3,1) + 10))
n(3) = Fuori90((Decina(Estratto(es,8,1)) + Estratto(es,3,2) + 4))
n(4) = Fuori90((DiametraleD(Estratto(es,12,3)) + Estratto(es,10,5) + 65))
n(5) = Fuori90(Estratto(es,3,2) + Estratto(es,7,4) + 12)
ok = 1
End If
If Decina(a) = 1 And Decina(b) = 1 And Decina(c) = 1 Then
n(1) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,4,2) + 31))
n(2) = Fuori90((Figura(Estratto(es,2,2)) + Estratto(es,4,5) + 24))
n(3) = Fuori90((Vert(Estratto(es,12,3)) + Estratto(es,8,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,6,5)) + Estratto(es,10,3) + 4))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,4,2) + 1)
ok = 1
End If
If Decina(a) = 2 And Decina(b) = 2 And Decina(c) = 2 Then
n(1) = Fuori90((Cadenza(Estratto(es,5,2)) + Estratto(es,12,1) + 37))
n(2) = Fuori90((Cadenza(Estratto(es,9,4)) + Estratto(es,9,4) + 52))
n(3) = Fuori90((Diametrale(Estratto(es,3,2)) + Estratto(es,6,1) + 4))
n(4) = Fuori90((ComplAdX(Estratto(es,4,1)) + Estratto(es,10,2) + 14))
n(5) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 3)
ok = 1
End If
If Decina(a) = 3 And Decina(b) = 3 And Decina(c) = 3 Then
n(1) = Fuori90(Estratto(es,1,3) + Estratto(es,7,1) + 1)
n(2) = Fuori90(Estratto(es,1,4) + Estratto(es,1,5) + 1)
n(3) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
n(4) = Fuori90(Estratto(es,1,3) + Estratto(es,1,3) + 1)
n(5) = Fuori90(Estratto(es,3,4) + Estratto(es,7,1) + 1)
ok = 1
End If
If Decina(a) = 4 And Decina(b) = 4 And Decina(c) = 4 Then
n(1) = Fuori90((Vert(Estratto(es,6,4)) + Estratto(es,2,3) + 14))
n(2) = Fuori90((Diametrale(Estratto(es,5,2)) + Estratto(es,6,3) + 1))
n(3) = Fuori90((Figura(Estratto(es,12,4)) + Estratto(es,1,2) + 63))
n(4) = Fuori90((Decina(Estratto(es,12,3)) + Estratto(es,5,3) + 1))
n(5) = Fuori90(Decina(Estratto(es,5,4)) + Cadenza(Estratto(es,5,4)) + Estratto(es,10,4) + 39)
ok = 1
End If
If Decina(a) = 5 And Decina(b) = 5 And Decina(c) = 5 Then
n(1) = Fuori90((Diametrale(Estratto(es,3,4)) + Estratto(es,8,4) + 55))
n(2) = Fuori90((Figura(Estratto(es,5,1)) + Estratto(es,6,4) + 7))
n(3) = Fuori90((ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 1))
n(4) = Fuori90((Diametrale(Estratto(es,5,1)) + Estratto(es,5,2) + 25))
n(5) = Fuori90((Diametrale(Estratto(es,8,1)) + Estratto(es,12,2) + 1))
ok = 1
End If
If Decina(a) = 6 And Decina(b) = 6 And Decina(c) = 6 Then
n(1) = Fuori90((Decina(Estratto(es,2,1)) + Estratto(es,3,2) + 25))
n(2) = Fuori90((Decina(Estratto(es,5,2)) + Estratto(es,4,1) + 5))
n(3) = Fuori90((DiametraleD(Estratto(es,10,3)) + Estratto(es,9,1) + 1))
n(4) = Fuori90((Figura(Estratto(es,5,5)) + Estratto(es,6,3) + 6))
n(5) = Fuori90(Estratto(es,4,5) + Estratto(es,6,3) + 86)
ok = 1
End If
If Decina(a) = 7 And Decina(b) = 7 And Decina(c) = 7 Then
n(1) = Fuori90((Figura(Estratto(es,3,4)) + Estratto(es,10,2) + 67))
n(2) = Fuori90((Figura(Estratto(es,12,1)) + Estratto(es,8,2) + 13))
n(3) = Fuori90((Figura(Estratto(es,9,1)) + Estratto(es,2,4) + 26))
n(4) = Fuori90(Estratto(es,7,1) + Estratto(es,1,4) + 6)
n(5) = Fuori90(Estratto(es,10,4) + Estratto(es,3,5) + 1)
ok = 1
End If
If Decina(a) = 8 And Decina(b) = 8 And Decina(c) = 8 Then
n(1) = Fuori90((Figura(Estratto(es,10,4)) + Estratto(es,3,1) + 76))
n(2) = Fuori90((DiametraleD(Estratto(es,8,5)) + Estratto(es,4,2) + 1))
n(3) = Fuori90(Decina(Estratto(es,2,1)) + 13)
n(4) = Fuori90(Vert(Estratto(es,10,2)) + 33)
n(5) = Fuori90((Diametrale(Estratto(es,4,2)) + Estratto(es,8,3) + 1))
ok = 1
End If
If ok = 1 Then
ColoreTesto 2
Scrivi String(110,"*") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b & " " & c,1
Scrivi
ruota(1) = 1
EliminaRipetuti n
ImpostaGiocata 1,n,ruota,pt5,clp
Gioca es,1
End If
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
End SubAlberto Anderlini
Super member
grazie
Alberto Anderlini
Super member
ho questo listato ma vorrei modificarlo puoi fare qualcosa ? grazie in anticipo
dal programma per ottobre si è ottenuto
Estrazione generatrice del pronostico 09985 [118 - 02/10/2021]
G 0001 Numeri in gioco : 29.47 su MI per Estratto
In corso per altre 1 estrazioni
G 0002 Numeri in gioco : 29.47.26 su TT per Ambo,Terno
In corso per altre 1 estrazioni
G 0003 Numeri in gioco : 29.47.62 su TT per Ambo,Terno
In corso per altre 1 estrazioni
vorrei aggiungere altri 3 terni. per comodità userò:
G 0002 = A=29 B=47 C=26
G 0003 = A1=29 B1=47 C1=62
ad A andrebbe + o -3 della terzina simmetrica = A2
ad A andrebbe + o -6 della terzina simmetrica = A3
ad B andrebbe + o - 5 del numero simmetrico = B2
ad C1 andrebbe + o - 1 rimanendo nella stessa decina = C2
ad B numero diametrale in decina = D1
ad B +-3 terzina simmetrica = D2
la composizione dei terni sarebbe oltre a quelli del programma anche:
1TERNO : A2-B2-C2
2 TERNO : A3-B2-C2
3 TERNO : A-C2-B2
4 TERNO : B-D1-D2
Sub Main()
Dim Ambate(5),Terno(3),Terni(3),Quartina(4),Ruotadigioco(2),Ruotedigioco(2),Posta(1),Poste(4)
Ruotadigioco(1) = 5
Ruotedigioco(1) = 11
Posta(1) = 1
Poste(2) = 6
Poste(3) = 3
'Poste(4) = 1
For Es = EstrazioneFin - 100 To EstrazioneFin
If IndiceMensile(es) = 1 Then 'Prima del Mese
K = K + 1 : Scrivi String(105,"=") & " " & K,1
Ambate(1) = Fuori90(Estratto(Es,5,1) + 8)
Ambate(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(1) = Fuori90(Estratto(Es,5,1) + 8)
Terno(2) = Fuori90(Estratto(Es,5,2) + 1)
Terno(3) = Fuori90(Estratto(Es,5,3) + 13)
Terni(1) = Fuori90(Estratto(Es,5,1) + 8)
Terni(2) = Fuori90(Estratto(Es,5,2) + 1)
Terni(3) = Vert(Fuori90(Estratto(Es,5,3) + 13))
Quartina(1) = Fuori90(Estratto(Es,5,1) + 8)
Quartina(2) = Fuori90(Estratto(Es,5,2) + 1)
Quartina(3) = Fuori90(Estratto(Es,5,3) + 13)
Quartina(4) = Vert(Fuori90(Estratto(Es,5,3) + 13))
ImpostaGiocata 1,Ambate,Ruotadigioco,Posta,12
ImpostaGiocata 2,Terno,Ruotedigioco,Poste,12,2,,1
ImpostaGiocata 3,Terni,Ruotedigioco,Poste,12,2,,1
'ImpostaGiocata 4,Quartina,Ruotedigioco,Poste,12,2
Gioca Es,1
End If
Next
ScriviResoconto
End Sub
GRAZIE a chi può modificare il programma
Marco-elle
Banned
Non volermene ma....ho un periodo movimentato e non ho voglia
di cimentarmi, ma vedrai che Toon o qualcun altro ti farà la modifica da te richiesta
di cimentarmi, ma vedrai che Toon o qualcun altro ti farà la modifica da te richiesta
Alberto Anderlini
Super member
grazie ugualmente buona serata
Marco-elle
Banned
Ha pagato a colpo 2 previsioni su 3
Complimenti !!
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 06 ottobre 2026Bari5020350604Cagliari2256178974Firenze4441610802Genova5590744252Milano0380843387Napoli2730508087Palermo6131404842Roma7958445251Torino4605403952Venezia3922682127Nazionale5484430612Estrazione Simbolotto
3645214312
