LOTTO MATEMATICO & STATISTICO
Vuoi reagire a questo messaggio? Crea un account in pochi click o accedi per continuare.

previsioni e metodi Lotto

Cerca
 
 

Risultati per:
 

Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti attivi
» N° Spia 50 R.Sp. GE R.Gio. TO
AMBI CON I NUMERETTI SULLA NZ EmptyLun 6 Mag - 20:43:10 Da Imaging

» Ultima del Mese BARI
AMBI CON I NUMERETTI SULLA NZ EmptyGio 2 Mag - 20:36:20 Da DjNomade

» N°Spia 50 R.S. Genova R.G. Torino
AMBI CON I NUMERETTI SULLA NZ EmptyMer 24 Apr - 23:12:26 Da Imaging

» il forum si è trasferito
AMBI CON I NUMERETTI SULLA NZ EmptyMer 24 Apr - 21:43:17 Da Marco

» il forum si è trasferito
AMBI CON I NUMERETTI SULLA NZ EmptyMer 24 Apr - 21:42:25 Da Marco

» il forum si è trasferito
AMBI CON I NUMERETTI SULLA NZ EmptyMer 24 Apr - 21:41:36 Da Marco

» N°Spia 50 R.S. Genova R.G. Torino
AMBI CON I NUMERETTI SULLA NZ EmptyVen 19 Apr - 19:18:07 Da Imaging

» Ho aperto un nuovo sito
AMBI CON I NUMERETTI SULLA NZ EmptyMar 9 Apr - 15:43:08 Da Lory

» Spia 77 in 3° posiz a tutte o Naz. Gioco Bari 4 colpi
AMBI CON I NUMERETTI SULLA NZ EmptyMar 2 Apr - 20:57:27 Da DjNomade


AMBI CON I NUMERETTI SULLA NZ

LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO

Andare in basso

AMBI CON I NUMERETTI SULLA NZ Empty AMBI CON I NUMERETTI SULLA NZ

Messaggio Da Marco Gio 26 Dic - 21:11:02

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
Marco
Marco
amministratore

Messaggi : 843
Data d'iscrizione : 26.12.13

https://lottomatematico.forumattivo.it

Torna in alto Andare in basso

Torna in alto

- Argomenti simili

LOTTO MATEMATICO & STATISTICO :: PREVISIONI LOTTO :: SPAZIOMETRIA :: METODI :: LISTATI :: SCRIPT METODI LOTTO

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