Novità

X chi vuole

Marco-elle

Banned
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
 
e x ki NN capisce na beata "mazza" di listati ???' quali sono le ambate? e pos. se possibile :sneaky:
 
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......
 
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
 
Anche qui, il 7....28...uscito ieri sera a Roma col 78
Quasi quasi ritento a Bari...
Super Marco
 
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
 

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