Novità

2 AMBATE DETERMINATE SU BARI

Marco-elle

Marco-elle

Banned
Metodo che ricava 2 ambate da giocare in 1° e 2° posizione su BA alla 1° del mese x 12 colpi
Alla 1° del mese
se il 1° di BA è in cadenza 1
3° di RO + 2° di TO + 1
4° di BA + 4 di VE + 1

se il 1° di BA è in cadenza 2
4° di MI + 4° di RO + 26
1° di BA + 2° di CA +1

se il 1° di BA è in cadenza 3
2° di MI + 3° di PA + 73
1° di BA + 4 di PA + 1

se il 1° estratto di BA è in cadenza 4
5° di NZ - 1° di GE + 74
1° di BA + 5° di BA + 1

se il 1° estratto di BA è in cadenza 5
5° di VE + 5° di NZ + 10
1 di BA + 3° di PA + 1

se il 1° estratto di BA è in cadenza 6
5° di PA - 1° di VE + 12
1 di BA + 4° di PA + 1

se il 1° di BA è in cadenza 7
3° di NA + 5° di PA + 27
2° di BA + 4° di MI + 1

se il 1° di BA è in cadenza 8
4° di CA + 4° di FI + 5
4° di BA + 3° di FI + 1

se il 1° di BA è in cadenza 9
4° di GE + 5° di NA + 1
1° di BA + 3° di TO + 1

se il 1° estratto di BA è uno zerato
5° di RO - 1° di TO + 46
1° di BA + 4° di BA + 1
 
Codice: 
Sub Main()
   ColoreTesto 2
   Scrivi "2 AMBATE DETERMINATE SU BARIO 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 - 2000
   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
 
Ciao Marco controlla che l'output sia corretto.

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 - 2000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,1,1)
      'ok = 0
      If IndiceMensile(es) = 1 Then   ' condizione prioritaria
         If Cadenza(a) = 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  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  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 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  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  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 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  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  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) = 0  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
      End If
   Next
   ScriviResoconto
End Sub
 
claudio8 ha scritto:
Ciao Marco controlla che l'output sia corretto.

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 - 2000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,1,1)
      'ok = 0
      If IndiceMensile(es) = 1 Then   ' condizione prioritaria
         If Cadenza(a) = 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  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  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 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  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  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 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  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  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) = 0  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
      End If
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Ciao Claudio,
illuminami perchè in questo periodo non ci sono con la testa
 
claudio8 ha scritto:
Ciao Marco controlla che l'output sia corretto.

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 - 2000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      a = Estratto(es,1,1)
      'ok = 0
      If IndiceMensile(es) = 1 Then   ' condizione prioritaria
         If Cadenza(a) = 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  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  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 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  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  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 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  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  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) = 0  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
      End If
   Next
   ScriviResoconto
End Sub
Clicca per espandere...
Vedo ora la tua esamina ma mi sembra che l'output sia invariato
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto