AMBI ZERATI DI BARI

[marinello]

Codice: Seleziona tutto

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