X chi vuole

Marco-elle · 7 Gennaio 2024

Questo metodo l'ho riesumato dopo molto....molto tempo e,
con piacere ho notato che senza applicare nessun incremento sulla posta,
è ancora in positivo dopo 20 anni.Si tratta di mettere in gioco 2 ambate
alla dalla 2° del mese determinate e semplici x recupero.Gli algoritmi
sono vincolati dalla cadenza del 1° estratto di BA.Scusate la bassezza del mio
listato ma....le previsioni riesce a calcolarle ugualmente.

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "2 AMBATE DETERMINATE SU BARI ALLA 1° DEL MESE "
   Scrivi "CON VINCOLO CADENZIALE DEL 1° ESTRATTO "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(10)
   Dim ruota(10)
   Dim n1(2)
   poste(6) = 1
   poste(7) = 1
   poste(1) = 1
   clp = 12
   ini = EstrazioneFin - 3000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,1,1)
      ok = 0
      If Cadenza(a) = 1 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(Estratto(es,8,3) + Estratto(es,9,2) + 22)
         n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,10,4) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 2 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(Estratto(es,5,4) + Estratto(es,8,4) + 26)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 3 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(Estratto(es,5,2) + Estratto(es,7,5) + 73)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 4 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(90 +(Estratto(es,12,5)) - Estratto(es,4,1) + 74)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 5 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(Estratto(es,10,5) + Estratto(es,12,5) + 10)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,3) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 6 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,10,1) + 12)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 7 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(90 +(Estratto(es,6,3)) + Estratto(es,7,5) + 27)
         n1(2) = Fuori90(Estratto(es,1,2) + Estratto(es,5,4) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 8 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(Estratto(es,2,4) + Estratto(es,3,4) + 5)
         n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,3,3) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) = 9 And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(90 +(Estratto(es,4,4)) + Estratto(es,6,5) + 1)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,9,3) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If Cadenza(a) + Decina(a) = Decina(a) And IndiceMensile(es) = 1 Then
         n1(1) = Fuori90(90 +(Estratto(es,8,5)) - Estratto(es,9,1) + 46)
         n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
         ruota(1) = 1
         ok = 1
      End If
      If OK = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & "    " & a & "  -  cadenza" & - Cadenza(a) & c,1
         Scrivi String(80,"°"),1
         ColoreTesto 0
         ImpostaGiocata 1,n1,ruota,poste,clp
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

kira · 9 Gennaio 2024

e x ki NN capisce na beata "mazza" di listati ???' quali sono le ambate? e pos. se possibile

Marco-elle · 9 Gennaio 2024

kira ha scritto:
e x ki NN capisce na beata "mazza" di listati ???' quali sono le ambate? e pos. se possibile

Ciao Kira,
Per questo mese sono le stesse
Che ha anche Alisia nel suo post
BA 7-28
Probabile uscita del 28

kira · 9 Gennaio 2024

GRAZIEEE ...ma mi sebrava ci fosse la pos.

albert · 9 Gennaio 2024

Ciao kira si 1°e 2° posizione

Marco-elle · 21 Gennaio 2024

E anche questo mese...ha pagato l'ambata,proprio
col 28 che consigliavo

rosablu · 21 Gennaio 2024

Grazie Marco per aver postato l'ambata.
Vinto..

rosablu

Marco-elle · 23 Gennaio 2024

A distanza di 1 colpo....esce anche il 7....peccato!
poteva essere un bel ambozzo secco!....Intanto il metodo
che viene considerato come una puttanata colossale per molti
qui dentro,continua a dare esiti

rosablu · 24 Gennaio 2024

Marco-elle ha scritto:
A distanza di 1 colpo....esce anche il 7....peccato!
poteva essere un bel ambozzo secco!....Intanto il metodo
che viene considerato come una puttanata colossale per molti
qui dentro,continua a dare esiti

Che rabbia, sempre giocato nn sono riuscita ad andare a giocare, ieri
mi ha fregato.
rosablu

farfalla2 · 25 Gennaio 2024

Sub Main()
ColoreTesto 2
Scrivi "2 AMBATE DETERMINATE SU BARI ALLA 1° DEL MESE "
Scrivi "CON VINCOLO CADENZIALE DEL 1° ESTRATTO "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(10)
Dim ruota(10)
Dim n1(2)
poste(6) = 1
poste(7) = 1
poste(1) = 1
clp = 12
ini = EstrazioneFin - 100
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
a = Estratto(es,1,1)
ok = 0

n1(1) = Fuori90(Estratto(es,8,3) + Estratto(es,9,2) + 22)
n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,10,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,5,4) + Estratto(es,8,4) + 26)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,5,2) + Estratto(es,7,5) + 73)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,12,5)) - Estratto(es,4,1) + 74)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,10,5) + Estratto(es,12,5) + 10)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,10,1) + 12)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,6,3)) + Estratto(es,7,5) + 27)
n1(2) = Fuori90(Estratto(es,1,2) + Estratto(es,5,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,2,4) + Estratto(es,3,4) + 5)
n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,3,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,4,4)) + Estratto(es,6,5) + 1)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,9,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,8,5)) - Estratto(es,9,1) + 46)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
ruota(1) = 1
ok = 1

If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & a & " - cadenza" & - Cadenza(a) & c,1
Scrivi String(80,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub

CIAO MARCO....HO PROVATO A MODIFICARE IL TUO METODO INSERENDO TUTTE LE ESTRAZIONI...OTTIENE VERAMENTE DEGLI OTTIMI RISULTATI.............SEMPRE GRAZIE E BRAVISSIMOOOOOOOOO......

Marco-elle · 25 Gennaio 2024

farfalla2 ha scritto:
Sub Main()
ColoreTesto 2
Scrivi "2 AMBATE DETERMINATE SU BARI ALLA 1° DEL MESE "
Scrivi "CON VINCOLO CADENZIALE DEL 1° ESTRATTO "
Scrivi "METODO E LIST BY Marco"
ColoreTesto 0
Dim poste(10)
Dim ruota(10)
Dim n1(2)
poste(6) = 1
poste(7) = 1
poste(1) = 1
clp = 12
ini = EstrazioneFin - 100
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
Call AvanzamentoElab(Ini,Fin,es)
a = Estratto(es,1,1)
ok = 0

n1(1) = Fuori90(Estratto(es,8,3) + Estratto(es,9,2) + 22)
n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,10,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,5,4) + Estratto(es,8,4) + 26)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,5,2) + Estratto(es,7,5) + 73)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,12,5)) - Estratto(es,4,1) + 74)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,5) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,10,5) + Estratto(es,12,5) + 10)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,7,5)) - Estratto(es,10,1) + 12)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,7,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,6,3)) + Estratto(es,7,5) + 27)
n1(2) = Fuori90(Estratto(es,1,2) + Estratto(es,5,4) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(Estratto(es,2,4) + Estratto(es,3,4) + 5)
n1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,3,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,4,4)) + Estratto(es,6,5) + 1)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,9,3) + 1)
ruota(1) = 1
ok = 1

n1(1) = Fuori90(90 +(Estratto(es,8,5)) - Estratto(es,9,1) + 46)
n1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,1,4) + 1)
ruota(1) = 1
ok = 1

If OK = 1 Then
co = co + 1
ColoreTesto 1
Scrivi String(80,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " " & a & " - cadenza" & - Cadenza(a) & c,1
Scrivi String(80,"°"),1
ColoreTesto 0
ImpostaGiocata 1,n1,ruota,poste,clp
Gioca es,1
End If
Next
ScriviResoconto
End Sub

CIAO MARCO....HO PROVATO A MODIFICARE IL TUO METODO INSERENDO TUTTE LE ESTRAZIONI...OTTIENE VERAMENTE DEGLI OTTIMI RISULTATI.............SEMPRE GRAZIE E BRAVISSIMOOOOOOOOO......

Ciao Farfalla,
il metodo ottiene buoni risultati perchè vengono usati i migliori algoritmi
in base all'uscita della condizione,ottimo per un gioco speculativo e per
abbinamenti ai propri numeri

Marco-elle · 3 Febbraio 2024

E anche questo mese....va a segno!....2° colpo ambata 20

Maryte · 3 Marzo 2024

Anche qui, il 7....28...uscito ieri sera a Roma col 78
Quasi quasi ritento a Bari...
Super Marco

Marco-elle · 16 Marzo 2024

Questo listato è stato inserito anche nel Thread di Baffo Blu
esamina l'estratto 1 sulla NZ in base al mese di uscita e....
calcola una previsione su BA
Per quelli che non hanno Spaziometria,c'è una previsione
in corso BA 84-74-14-59

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi " Spia 1 sortito nel mese determinato"
   Scrivi "Gioca previsione su BARI"
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(4)
   Dim ruota(1)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 4000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
   For p = 1 To 5
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,12,p)
      ok = 0
      If a = 1 And Mese(es) = 1 Then
         a1(1) = Fuori90(Estratto(es,7,5) + Estratto(es,8,5) + 15)
         a1(2) = Fuori90(Estratto(es,8,3) + Estratto(es,12,1) + 7)
         a1(3) = Fuori90(90 +(Estratto(es,7,2)) - Estratto(es,9,1) + 3)
         ok = 1
      End If
      If a = 1 And Mese(es) = 2 Then
         a1(1) = Fuori90(Estratto(es,6,1) + Estratto(es,7,4) + 19)
         a1(2) = Fuori90(Estratto(es,2,4) * Estratto(es,5,5) + 60)
         a1(3) = Fuori90(Estratto(es,6,5) + Estratto(es,10,1) + 51)
         a1(4) = Fuori90(Estratto(es,2,5) + Estratto(es,9,4) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 3 Then
         a1(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,1) + 73)
         a1(2) = Fuori90(90 +(Estratto(es,3,3)) - Estratto(es,10,3) + 11)
         a1(3) = Fuori90(Estratto(es,4,2) + Estratto(es,12,2) + 76)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,1,3) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 4 Then
         a1(1) = Fuori90(Estratto(es,3,4) + Estratto(es,10,1) + 2)
         a1(2) = Fuori90(Estratto(es,4,5) + Estratto(es,12,4) + 51)
         a1(3) = Fuori90(Estratto(es,5,4) + Estratto(es,6,2) + 3)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,4,2) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 5 Then
         a1(1) = Fuori90(Estratto(es,6,2) + Estratto(es,12,5) + 34)
         a1(2) = Fuori90(Estratto(es,1,1) + Estratto(es,2,1) + 3)
         a1(3) = Fuori90(Estratto(es,5,3) + Estratto(es,8,4) + 9)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,12,5) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 6 Then
         a1(1) = Fuori90(Estratto(es,6,2) + Estratto(es,7,3) + 48)
         a1(2) = Fuori90(Estratto(es,2,5) + Estratto(es,5,5) + 16)
         a1(3) = Fuori90(Estratto(es,1,4) + Estratto(es,2,4) + 27)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,7,2) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 7 Then
         a1(1) = Fuori90(Estratto(es,2,1) + Estratto(es,10,5) + 1)
         a1(2) = Fuori90(90 +(Estratto(es,2,3)) - Estratto(es,12,1) + 82)
         a1(3) = Fuori90(Estratto(es,9,2) + Estratto(es,9,4) + 6)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,4,3) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 8 Then
         a1(1) = Fuori90(Estratto(es,7,4) + Estratto(es,12,3) + 1)
         a1(2) = Fuori90(Estratto(es,10,3) * Estratto(es,12,3) + 31)
         a1(3) = Fuori90(Estratto(es,3,2) + Estratto(es,6,3) + 4)
         a1(4) = Fuori90(Estratto(es,1,1) + Estratto(es,9,1) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 9 Then
         a1(1) = Fuori90(Estratto(es,7,5) + Estratto(es,9,4) + 6)
         a1(2) = Fuori90(Estratto(es,1,2) + Estratto(es,9,5) + 8)
         a1(3) = Fuori90(90 +(Estratto(es,10,5)) - Estratto(es,1,4) + 41)
         ok = 1
      End If
      If a = 1 And Mese(es) = 10 Then
         a1(1) = Fuori90(Estratto(es,1,4) + Estratto(es,2,5) + 1)
         a1(2) = Fuori90(Estratto(es,10,5) + Estratto(es,12,2) + 12)
         a1(3) = Fuori90(90 +(Estratto(es,8,3)) - Estratto(es,6,1) + 29)
         ok = 1
      End If
      If a = 1 And Mese(es) = 11 Then
         a1(1) = Fuori90(Estratto(es,6,5) + Estratto(es,12,5) + 84)
         a1(2) = Fuori90(Estratto(es,9,5) + Estratto(es,12,1) + 42)
         a1(3) = Fuori90(90 +(Estratto(es,10,1)) - Estratto(es,3,2) + 36)
         a1(4) = Fuori90(Estratto(es,2,3) + Estratto(es,7,1) + 1)
         ok = 1
      End If
      If a = 1 And Mese(es) = 12 Then
         a1(1) = Fuori90(90 +(Estratto(es,8,4)) - Estratto(es,12,1) + 30)
         a1(2) = Fuori90(Estratto(es,10,3) * Estratto(es,12,3) + 87)
         a1(3) = Fuori90(90 +(Estratto(es,4,1)) - Estratto(es,10,4) + 21)
         a1(4) = Fuori90(Estratto(es,2,1) + Estratto(es,4,5) + 4)
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"*") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " spia " & a  & " nel mese " & Mese(es),1
         Scrivi String(80,"*"),1
         ColoreTesto 0
         ruota(1) = 1
         ImpostaGiocata 1,a1,ruota,poste,clp
         Gioca es,1
      End If
   Next
   Next
   ScriviResoconto
End Sub

Cerca

Cerca

X chi vuole

Marco-elle

Advanced Member >PLATINUM PLUS<

kira

Premium Member

Marco-elle

Advanced Member >PLATINUM PLUS<

kira

Premium Member

albert

Advanced Member >PLATINUM<

Marco-elle

Advanced Member >PLATINUM PLUS<

rosablu

Advanced Member >PLATINUM PLUS<

Marco-elle

Advanced Member >PLATINUM PLUS<

rosablu

Advanced Member >PLATINUM PLUS<

farfalla2

Member

Marco-elle

Advanced Member >PLATINUM PLUS<

Marco-elle

Advanced Member >PLATINUM PLUS<

Maryte

Advanced Member >GOLD<

Marco-elle

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi