Cerca
 
 

Risultati per:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Da Ambo Distanza 27 a Bari
Oggi alle 6:50 pm Da DjNomade

» Ultima del Mese BARI
Gio Ago 09, 2018 7:08 pm Da DjNomade

» Da Ambo spia 09-90 a tutte
Mar Ago 07, 2018 7:28 pm Da DjNomade

» Shhhhhhhhh!!!!!!!
Gio Mar 29, 2018 2:00 pm Da spike5

» Ambo isotopo (chiusa)
Gio Mar 15, 2018 7:35 pm Da Blackmore

» Vediamo se mi ripago le ferie
Mer Feb 28, 2018 9:32 am Da vinci

» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Palermo-Torino (chiusa)
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5


AMBI CON I NUMERETTI SULLA NZ

Andare in basso

AMBI CON I NUMERETTI SULLA NZ

Messaggio Da Marco il Gio Dic 26, 2013 8:11 pm

Codice:
Sub Main()
  ColoreTesto 2
  Scrivi "AMBI SPIA DEI NUMERETTI SORTITI SULLA NZ  "
  Scrivi "GIOCA 1 TERNO SU BA-VE x 9 colpi "
  Scrivi "METODO E LIST BY Marco"
  Dim ruota(2)
  Dim posta(1)
  Dim poste(4)
  Dim terzina1(10)
  poste(2) = 1
  poste(3) = 1
  clp = 9
  ini = EstrazioneFin - 1400
  fin = EstrazioneFin
  co = 0
  For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For p1 = 1 To 4
        For p2 = p1 + 1 To 5
            a = Estratto(es,12,p1)
            b = Estratto(es,12,p2)
            ok = 0
            If a = 1 And b = 2 Or a = 2 And b = 1 Then
              terzina1(1) = Fuori90(Decina(Estratto(es,10,2)) + Estratto(es,5,3) + 5)
              terzina1(2) = Fuori90(Decina(Estratto(es,6,3)) + Estratto(es,10,2) + 24)
              terzina1(3) = Fuori90(ComplAdX(Estratto(es,4,3)) + Estratto(es,6,3) + 52)
              ok = 1
            End If
            If a = 1 And b = 3 Or a = 3 And b = 1 Then
              terzina1(1) = Fuori90(Vert(Estratto(es,10,4)) + Estratto(es,5,4) + 1)
              terzina1(2) = Fuori90(Estratto(es,3,5) + Estratto(es,12,3) + 1)
              terzina1(3) = Fuori90(ComplAdX(Estratto(es,6,2)) + Estratto(es,4,5) + 1)
              ok = 1
            End If
            If a = 1 And b = 5 Or a = 5 And b = 1 Then
              terzina1(1) = Fuori90(Cadenza(Estratto(es,7,3)) + Estratto(es,2,3) + 33)
              terzina1(2) = Fuori90(Vert(Estratto(es,12,2)) + Estratto(es,4,4) + 19)
              terzina1(3) = Fuori90(ComplAdX(Estratto(es,3,4)) + Estratto(es,8,3) + 2)
              ok = 1
            End If
            If a = 1 And b = 6 Or a = 6 And b = 1 Then
              terzina1(1) = Fuori90(Estratto(es,5,5) + Estratto(es,7,1) + 1)
              terzina1(2) = Fuori90(ComplAdX(Estratto(es,10,1)) + Estratto(es,9,5) + 2)
              terzina1(3) = Fuori90(Estratto(es,1,5) + Estratto(es,6,1) + 1)
              ok = 1
            End If
            If a = 1 And b = 9 Or a = 9 And b = 1 Then
              terzina1(1) = Fuori90(Diametrale(Estratto(es,12,2)) + Estratto(es,6,4) + 84)
              terzina1(2) = Fuori90(Estratto(es,8,4) + Estratto(es,6,5) + 1)
              terzina1(3) = Fuori90(Decina(Estratto(es,1,3)) + Cadenza(Estratto(es,1,3)) + Estratto(es,4,1) + 2)
              ok = 1
End If
              If a = 2 And b = 3 Or a = 3 And b = 2 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,8,5)) + Cadenza(Estratto(es,8,5)) + Estratto(es,8,5) + 11)
                  terzina1(2) = Fuori90(Estratto(es,7,2) + Estratto(es,4,4) + 8)
                  terzina1(3) = Fuori90(Estratto(es,8,2) + Estratto(es,9,1) + 2)
                  ok = 1
              End If
              If a = 2 And b = 5 Or a = 5 And b = 2 Then
                  terzina1(1) = Fuori90(Figura(Estratto(es,7,3)) + Estratto(es,1,2) + 5)
                  terzina1(2) = Fuori90(Cadenza(Estratto(es,9,2)) + Estratto(es,7,5) + 4)
                  terzina1(3) = Fuori90(Figura(Estratto(es,8,3)) + 1)
                  ok = 1
              End If
              If a = 2 And b = 6 Or a = 6 And b = 2 Then
                  terzina1(1) = Fuori90(Estratto(es,5,5) + Estratto(es,4,4) + 19)
                  terzina1(2) = Fuori90(Diametrale(Estratto(es,1,4)) + Estratto(es,3,2) + 43)
                  terzina1(3) = Fuori90(ComplAdX(Estratto(es,1,1)) + Estratto(es,2,1) + 45)
                  ok = 1
              End If
              If a = 2 And b = 7 Or a = 7 And b = 2 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,12,4)) + Estratto(es,5,5) + 30)
                  terzina1(2) = Fuori90(Diametrale(Estratto(es,10,5)) + Estratto(es,5,4) + 2)
                  terzina1(3) = Fuori90(Vert(Estratto(es,6,2)) + Estratto(es,7,3) + 3)
                  ok = 1
              End If
              If a = 2 And b = 8 Or a = 8 And b = 2 Then
                  terzina1(1) = Fuori90(Diametrale(Estratto(es,9,3)) + Estratto(es,6,1) + 9)
                  terzina1(2) = Fuori90(Vert(Estratto(es,7,5)) + Estratto(es,8,5) + 1)
                  terzina1(3) = Fuori90(Decina(Estratto(es,4,2)) + Estratto(es,5,2) + 47)
                  ok = 1
              End If
              If a = 2 And b = 9 Or a = 9 And b = 2 Then
                  terzina1(1) = Fuori90(Diametrale(Estratto(es,8,5)) + Estratto(es,4,1) + 4)
                  terzina1(2) = Fuori90(Figura(Estratto(es,7,1)) + Estratto(es,2,2) + 1)
                  terzina1(3) = Fuori90(Decina(Estratto(es,10,2)) + Cadenza(Estratto(es,10,2)) + Estratto(es,4,3) + 6)
                  ok = 1
              End If
              If a = 3 And b = 4 Or a = 4 And b = 3 Then
                  terzina1(1) = Fuori90(ComplAdX(Estratto(es,7,4)) + Estratto(es,8,4) + 4)
                  terzina1(2) = Fuori90(Cadenza(Estratto(es,6,3)) + Estratto(es,2,1) + 78)
                  terzina1(3) = Fuori90(ComplAdX(Estratto(es,9,5)) + Estratto(es,4,4) + 36)
                  ok = 1
              End If
              If a = 3 And b = 6 Or a = 6 And b = 3 Then
                  terzina1(1) = Fuori90(ComplAdX(Estratto(es,2,4)) + Estratto(es,4,2) + 1)
                  terzina1(2) = Fuori90(Estratto(es,1,4) + Estratto(es,4,3) + 1)
                  terzina1(3) = Fuori90(ComplAdX(Estratto(es,2,2)) + Estratto(es,4,4) + 4)
                  ok = 1
              End If
              If a = 3 And b = 8 Or a = 8 And b = 3 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,9,1)) + Cadenza(Estratto(es,9,1)) + Estratto(es,10,5) + 1)
                  terzina1(2) = Fuori90(Estratto(es,2,4) + Estratto(es,4,5) + 3)
                  terzina1(3) = Fuori90(ComplAdX(Estratto(es,12,2)) + Estratto(es,5,1) + 1)
                  ok = 1
              End If
              If a = 3 And b = 9 Or a = 9 And b = 3 Then
                  terzina1(1) = Fuori90(ComplAdX(Estratto(es,9,2)) + Estratto(es,3,1) + 44)
                  terzina1(2) = Fuori90(ComplAdX(Estratto(es,1,4)) + Estratto(es,5,2) + 2)
                  terzina1(3) = Fuori90(Figura(Estratto(es,6,1)) + Estratto(es,8,4) + 14)
                  ok = 1
              End If
              If a = 4 And b = 5 Or a = 5 And b = 4 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,2,4)) + Cadenza(Estratto(es,2,4)) + Estratto(es,10,2) + 6)
                  terzina1(2) = Fuori90(Figura(Estratto(es,12,2)) + Estratto(es,6,5) + 1)
                  terzina1(3) = Fuori90(Estratto(es,3,3) + 1)
                  ok = 1
              End If
              If a = 4 And b = 6 Or a = 6 And b = 4 Then
                  terzina1(1) = Fuori90(DiametraleD(Estratto(es,6,2)) + Estratto(es,5,1) + 12)
                  terzina1(2) = Fuori90(ComplAdX(Estratto(es,2,1)) + Estratto(es,4,2) + 2)
                  terzina1(3) = Fuori90(Estratto(es,5,3) + Estratto(es,7,5) + 5)
                  ok = 1
              End If
              If a = 4 And b = 7 Or a = 7 And b = 4 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,3,5)) + Estratto(es,8,5) + 27)
                  terzina1(2) = Fuori90(Estratto(es,7,3) + Estratto(es,7,3) + 8)
                  terzina1(3) = Fuori90(Figura(Estratto(es,8,2)) + Estratto(es,1,3) + 18)
                  ok = 1
              End If
              If a = 4 And b = 8 Or a = 8 And b = 4 Then
                  terzina1(1) = Fuori90(Diametrale(Estratto(es,12,2)) + Estratto(es,9,1) + 86)
                  terzina1(2) = Fuori90(Cadenza(Estratto(es,10,2)) + Estratto(es,7,2) + 10)
                  terzina1(3) = Fuori90(Vert(Estratto(es,6,5)) + Estratto(es,1,2) + 74)
                  ok = 1
              End If
              If a = 4 And b = 9 Or a = 9 And b = 4 Then
                  terzina1(1) = Fuori90(Estratto(es,4,2) + Estratto(es,1,3) + 42)
                  terzina1(2) = Fuori90(ComplAdX(Estratto(es,6,5)) + Estratto(es,4,2) + 1)
                  terzina1(3) = Fuori90(Decina(Estratto(es,12,4)) + Cadenza(Estratto(es,12,4)) + Estratto(es,2,3) + 2)
                  ok = 1
              End If
              If a = 5 And b = 6 Or a = 6 And b = 5 Then
                  terzina1(1) = Fuori90(DiametraleD(Estratto(es,6,5)) + Estratto(es,12,5) + 12)
                  terzina1(2) = Fuori90(Cadenza(Estratto(es,4,4)) + Estratto(es,10,3) + 1)
                  terzina1(3) = Fuori90(Diametrale(Estratto(es,10,5)) + Estratto(es,2,3) + 3)
                  ok = 1
              End If
              If a = 5 And b = 8 Or a = 8 And b = 5 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,10,5)) + Cadenza(Estratto(es,10,5)) + Estratto(es,1,4) + 2)
                  terzina1(2) = Fuori90(Decina(Estratto(es,3,5)) + Cadenza(Estratto(es,3,5)) + Estratto(es,7,1) + 1)
                  terzina1(3) = Fuori90(Estratto(es,12,2) + Estratto(es,6,4) + 1)
                  ok = 1
              End If
              If a = 5 And b = 9 Or a = 9 And b = 5 Then
                  terzina1(1) = Fuori90(Decina(Estratto(es,4,2)) + Estratto(es,5,3) + 54)
                  terzina1(2) = Fuori90(ComplAdX(Estratto(es,6,4)) + Estratto(es,9,5) + 63)
                  terzina1(3) = Fuori90(Cadenza(Estratto(es,7,5)) + Estratto(es,6,5) + 86)
                  ok = 1
              End If
              If a = 6 And b = 7 Or a = 7 And b = 6 Then
                  terzina1(1) = Fuori90(Figura(Estratto(es,7,1)) + Estratto(es,3,3) + 29)
                  terzina1(2) = Fuori90(Figura(Estratto(es,9,4)) + Estratto(es,3,2) + 1)
                  terzina1(3) = Fuori90(Estratto(es,5,2) + Estratto(es,10,5) + 9)
                  ok = 1
              End If
              If a = 7 And b = 8 Or a = 8 And b = 7 Then
                  terzina1(1) = Fuori90(ComplAdX(Estratto(es,8,5)) + Estratto(es,9,3) + 1)
                  terzina1(2) = Fuori90(Decina(Estratto(es,2,2)) + Cadenza(Estratto(es,2,2)) + Estratto(es,6,4) + 1)
                  terzina1(3) = Fuori90(Estratto(es,2,1) + Estratto(es,3,1) + 1)
                  ok = 1
              End If
              If a = 7 And b = 9 Or a = 9 And b = 7 Then
                  terzina1(1) = Fuori90(Cadenza(Estratto(es,3,1)) + Estratto(es,9,2) + 1)
                  terzina1(2) = Fuori90(Figura(Estratto(es,2,4)) + Estratto(es,9,4) + 10)
                  terzina1(3) = Fuori90(ComplAdX(Estratto(es,5,5)) + Estratto(es,12,4) + 2)
                  ok = 1
              End If
              If a = 8 And b = 9 Or a = 9 And b = 8 Then
                  terzina1(1) = Fuori90(Vert(Estratto(es,1,5)) + Estratto(es,1,5) + 60)
                  terzina1(2) = Fuori90(Cadenza(Estratto(es,1,3)) + Estratto(es,7,5) + 2)
                  terzina1(3) = Fuori90(Diametrale(Estratto(es,1,5)) + Estratto(es,9,3) + 10)
                  ok = 1
              End If
               

              If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"@") & " Caso n°" & co,1
                  ColoreTesto 0
                  ColoreTesto 2
                  Scrivi DataEstrazione(es) & " NZ ---> ambo di numeretti " & a & " - " & b,1
                  ColoreTesto 0
                  ColoreTesto 1
                  Scrivi String(80,"@"),1
                  ColoreTesto 0
                  ruota(1) = 1
                  ruota(2) = 10
                  ImpostaGiocata 1,terzina1,ruota,poste,clp
                  Gioca es,1
              End If
            Next
        Next
      Next
      ColoreTesto 2
      ScriviResoconto
      ColoreTesto 0
End Sub
avatar
Marco
amministratore

Messaggi : 814
Data d'iscrizione : 26.12.13

Visualizza il profilo http://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum