Novità

AMBI ZERATI SU BARI

Marco-elle

Banned
Queste ricerche sono i miei cavalli di battaglia.Il listato è datato e aggiornato ultimamente,
La penultima previsione è proprio quella che ho seguito e purtroppo ha fallito,demoralizzato non l'ho più guardato e proprio ora l'ho fatto girare e mi sono accorto
che l'ultima condizione ha fatto centro.Se vi fa piacere farlo girare ogni tanto e magari
usarlo per le vostre convergenze lo iserisco qui sotto:)

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBO ZERATO SORTITO SU BA "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 3500
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 1
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a = 10 And b = 20 Or a = 2 And b = 10 Then
                  a1(1) = 3
                  a1(2) = 14
                  a1(3) = 47
                  a1(4) = 85
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 10 And b = 30 Or a = 30 And b = 10 Then
                  a1(1) = 5
                  a1(2) = 11
                  a1(3) = 68
                  a1(4) = 82
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 10 And b = 40 Or a = 40 And b = 10 Then
                  a1(1) = 6
                  a1(2) = 8
                  a1(3) = 42
                  a1(4) = 54
                  ruota(1) = 1
                  ruota(2) = 8
               End If
               If a = 10 And b = 50 Or a = 50 And b = 10 Then
                  a1(1) = 12
                  a1(2) = 22
                  a1(3) = 28
                  a1(4) = 55
                  ruota(1) = 1
                  ruota(2) = 10
                  ok = 1
               End If
               If a = 10 And b = 60 Or a = 60 And b = 10 Then
                  a1(1) = 6
                  a1(2) = 12
                  a1(3) = 23
                  a1(4) = 39
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 10 And b = 70 Or a = 70 And b = 10 Then
                  a1(1) = 9
                  a1(2) = 32
                  a1(3) = 56
                  a1(4) = 77
                  ruota(1) = 1
                  ruota(2) = 10
                  ok = 1
               End If
               If a = 10 And b = 80 Or a = 80 And b = 10 Then
                  a1(1) = 2
                  a1(2) = 9
                  a1(3) = 16
                  a1(4) = 40
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 10 And b = 90 Or a = 90 And b = 10 Then
                  a1(1) = 11
                  a1(2) = 12
                  a1(3) = 50
                  a1(4) = 87
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 20 And b = 30 Or a = 30 And b = 20 Then
                  a1(1) = 1
                  a1(2) = 4
                  a1(3) = 12
                  a1(4) = 34
                  ruota(1) = 1
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 20 And b = 40 Or a = 40 And b = 20 Then
                  a1(1) = 2
                  a1(2) = 6
                  a1(3) = 20
                  'a1(4) = 77
                  ruota(1) = 3
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 20 And b = 50 Or a = 50 And b = 20 Then
                  a1(1) = 4
                  a1(2) = 26
                  a1(3) = 35
                  a1(4) = 42
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 20 And b = 60 Or a = 60 And b = 20 Then
                  a1(1) = 6
                  a1(2) = 17
                  a1(3) = 30
                  'a1(4) = 52
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 20 And b = 70 Or a = 70 And b = 20 Then
                  a1(1) = 14
                  a1(2) = 54
                  a1(3) = 79
                  a1(4) = 90
                  ruota(1) = 2
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 20 And b = 80 Or a = 80 And b = 20 Then
                  a1(1) = 5
                  a1(2) = 20
                  a1(3) = 47
                  a1(4) = 63
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 20 And b = 90 Or a = 20 And b = 90 Then
                  a1(1) = 4
                  a1(2) = 14
                  a1(3) = 33
                  a1(4) = 46
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 30 And b = 40 Or a = 40 And b = 30 Then
                  a1(1) = 1
                  a1(2) = 8
                  a1(3) = 27
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 30 And b = 50 Or a = 50 And b = 30 Then
                  a1(1) = 1
                  a1(2) = 19
                  a1(3) = 37
                  a1(4) = 39
                  ruota(1) = 1
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 30 And b = 60 Or a = 60 And b = 30 Then
                  a1(1) = 10
                  a1(2) = 38
                  a1(3) = 72
                  a1(4) = 90
                  ruota(1) = 2
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 30 And b = 70 Or a = 70 And b = 30 Then
                  a1(1) = 4
                  a1(2) = 19
                  a1(3) = 30
                  a1(4) = 62
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 30 And b = 80 Or a = 80 And b = 30 Then
                  a1(1) = 1
                  a1(2) = 10
                  a1(3) = 46
                  a1(4) = 58
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
                  If a = 30 And b = 90 Or a = 30 And b = 90 Then
                     a1(1) = 8
                     a1(2) = 5
                     a1(3) = 58
                     a1(4) = 62
                     ruota(1) = 1
                     ruota(2) = 2
                     ok = 1
                  End If
               End If
               If a = 40 And b = 50 Or a = 50 And b = 40 Then
                  a1(1) = 12
                  a1(2) = 13
                  a1(3) = 34
                  a1(4) = 37
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 40 And b = 60 Or a = 60 And b = 40 Then
                  a1(1) = 2
                  a1(2) = 7
                  a1(3) = 32
                  a1(4) = 49
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 40 And b = 70 Or a = 70 And b = 40 Then
                  a1(1) = 1
                  a1(2) = 4
                  a1(3) = 61
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 40 And b = 80 Or a = 80 And b = 40 Then
                  a1(1) = 7
                  a1(2) = 13
                  a1(3) = 24
                  a1(4) = 81
                  ruota(1) = 1
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 40 And b = 90 Or a = 90 And b = 40 Then
                  a1(1) = 30
                  a1(2) = 35
                  a1(3) = 57
                  a1(4) = 61
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 50 And b = 60 Or a = 60 And b = 50 Then
                  a1(1) = 2
                  a1(2) = 10
                  a1(3) = 14
                  a1(4) = 15
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 50 And b = 70 Or a = 70 And b = 50 Then
                  a1(1) = 1
                  a1(2) = 10
                  a1(3) = 24
                  a1(4) = 61
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 50 And b = 80 Or a = 80 And b = 50 Then
                  a1(1) = 20
                  a1(2) = 22
                  a1(3) = 26
                  a1(4) = 40
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 50 And b = 90 Or a = 90 And b = 50 Then
                  a1(1) = 18
                  a1(2) = 24
                  a1(3) = 53
                  a1(4) = 59
                  ruota(1) = 2
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 60 And b = 70 Or a = 70 And b = 60 Then
                  a1(1) = 3
                  a1(2) = 12
                  a1(3) = 34
                  a1(4) = 90
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 60 And b = 80 Or a = 80 And b = 60 Then
                  a1(1) = 34
                  a1(2) = 39
                  a1(3) = 40
                  'a1(4) = 47
                  ruota(1) = 9
                  ruota(2) = 10
                  ok = 1
               End If
               If a = 60 And b = 90 Or a = 90 And b = 60 Then
                  a1(1) = 5
                  a1(2) = 31
                  a1(3) = 43
                  a1(4) = 84
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 70 And b = 80 Or a = 80 And b = 70 Then
                  a1(1) = 1
                  a1(2) = 2
                  a1(3) = 24
                  a1(4) = 27
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 70 And b = 90 Or a = 90 And b = 70 Then
                  a1(1) = 1
                  a1(2) = 14
                  a1(3) = 53
                  a1(4) = 66
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 90 And b = 80 Or a = 80 And b = 90 Then
                  a1(1) = 1
                  a1(2) = 30
                  a1(3) = 61
                  a1(4) = 81
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & "   ambo zerato spia sortito su BARI    " & a & " - " & b,1
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a1,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 ottobre 2025
    Bari
    89
    74
    27
    47
    37
    Cagliari
    78
    13
    22
    83
    44
    Firenze
    56
    79
    68
    59
    75
    Genova
    74
    40
    71
    57
    18
    Milano
    88
    11
    33
    07
    84
    Napoli
    53
    25
    49
    83
    85
    Palermo
    49
    25
    85
    20
    11
    Roma
    14
    50
    75
    10
    13
    Torino
    43
    67
    36
    72
    73
    Venezia
    88
    55
    26
    59
    37
    Nazionale
    15
    49
    18
    21
    20
    Estrazione Simbolotto
    18
    24
    21
    32
    33
Indietro
Alto