AMBI SPIA NAZIONALI

Codice:

Sub Main()
  ColoreTesto 2
  Scrivi "AMBI SPIA DELLA NZ A FAVORE DI BARI"
  Scrivi "METODO E LIST BY Marco"
  ColoreTesto 0
  Dim poste(4)
  Dim ruota(1)
  Dim quartina(4)
  poste(2) = 1
  poste(3) = .7
  poste(4) = .3
  clp = 9
  ini = EstrazioneFin - 4500
  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 = 2 And b = 23 Or a = 23 And b = 2 Then
              quartina(1) = Fuori90(Estratto(es,1,5) + Estratto(es,8,5) + 3)
              quartina(2) = Fuori90(Cadenza(Estratto(es,9,4) + Decina(Estratto(es,9,4)) + Estratto(es,7,2) + 65))
              quartina(3) = Fuori90(Estratto(es,6,2) + Estratto(es,10,2) + 1)
              quartina(4) = Fuori90(Decina(Estratto(es,10,5)) + Estratto(es,4,5) + 3)
              ok = 1
            End If
            If a = 70 And b = 86 Or a = 86 And b = 70 Then
              quartina(1) = Fuori90(Vert(Estratto(es,8,4)) + Estratto(es,9,2) + 26)
              quartina(2) = Fuori90(Estratto(es,6,2) + Estratto(es,7,2) + 1)
              quartina(3) = Fuori90(Figura(Estratto(es,7,2)) + Estratto(es,6,2) + 2)
              quartina(4) = Fuori90(Estratto(es,5,1) + Estratto(es,3,1) + 5)
              ok = 1
            End If
            If a = 52 And b = 53 Or a = 53 And b = 52 Then
              quartina(1) = Fuori90(Diametrale(Estratto(es,6,3)) + Estratto(es,4,3) + 3)
              quartina(2) = Fuori90(Cadenza(Estratto(es,12,3)) + Estratto(es,12,1) + 1)
              quartina(3) = Fuori90(Cadenza(Estratto(es,7,1)) + Estratto(es,9,1) + 47)
              quartina(4) = Fuori90(Figura(Estratto(es,12,1)) + Estratto(es,12,4) + 1)
              ok = 1
            End If
            If a = 10 And b = 8 Or a = 8 And b = 10 Then
              quartina(1) = Fuori90(Estratto(es,8,5) + Estratto(es,8,5) + 14)
              quartina(2) = Fuori90(Cadenza(Estratto(es,7,3)) + Estratto(es,5,3) + 13)
              quartina(3) = Fuori90(ComplAdX(Estratto(es,3,4)) + Estratto(es,8,3) + 75)
              quartina(4) = Fuori90(Decina(Estratto(es,2,5)) + Estratto(es,3,2) + 5)
              ok = 1
            End If
            If a = 18 And b = 59 Or a = 59 And b = 18 Then
              quartina(1) = Fuori90(Diametrale(Estratto(es,5,4)) + Estratto(es,3,5) + 50)
              quartina(2) = Fuori90(Figura(Estratto(es,4,1)) + Estratto(es,7,4) + 1)
              quartina(3) = Fuori90(ComplAdX(Estratto(es,9,3)) + Estratto(es,3,5) + 4)
              quartina(4) = Fuori90(Estratto(es,10,5) + Estratto(es,3,5) + 31)
              ok = 1
            End If
            If a = 36 And b = 16 Or a = 16 And b = 36 Then
              quartina(1) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,7,4) + 47)
              quartina(2) = Fuori90(Cadenza(Estratto(es,6,2) + Decina(Estratto(es,6,2)) + Estratto(es,1,2) + 1))
              quartina(3) = Fuori90(Estratto(es,6,2) + Estratto(es,3,3) + 19)
              quartina(4) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,4,2) + 70)
              ok = 1
            End If
            If a = 1 And b = 48 Or a = 48 And b = 1 Then
              quartina(1) = Fuori90(Decina(Estratto(es,3,2)) + Estratto(es,5,3) + 4)
              quartina(2) = Fuori90(Cadenza(Estratto(es,10,4) + Decina(Estratto(es,10,4)) + Estratto(es,8,2)) + 39)
              quartina(3) = Fuori90(Estratto(es,4,3) + Estratto(es,1,5) + 23)
              quartina(4) = Fuori90(Decina(Estratto(es,9,5)) + Estratto(es,4,1) + 1)
              ok = 1
            End If
            If a = 21 And b = 62 Or a = 62 And b = 21 Then
              quartina(1) = Fuori90(Vert(Estratto(es,6,1)) + Estratto(es,2,3) + 27)
              quartina(2) = Fuori90(ComplAdX(Estratto(es,10,5)) + Estratto(es,2,2) + 1)
              quartina(3) = Fuori90(DiametraleD(Estratto(es,5,2)) + Estratto(es,3,1) + 14)
              quartina(4) = Fuori90(Decina(Estratto(es,2,1)) + Estratto(es,10,3) + 44)
              ok = 1
            End If
            If a = 5 And b = 49 Or a = 49 And b = 5 Then
              quartina(1) = Fuori90(Decina(Estratto(es,9,4)) + Estratto(es,10,4) + 43)
              quartina(2) = Fuori90(Cadenza(Estratto(es,6,4) + Decina(Estratto(es,6,4)) + Estratto(es,2,5)) + 5)
              quartina(3) = Fuori90(Figura(Estratto(es,8,5)) + Estratto(es,6,1) + 6)
              quartina(4) = Fuori90(Cadenza(Estratto(es,5,2)) + Estratto(es,10,4) + 56)
              ok = 1
            End If
            If a = 26 And b = 61 Or a = 61 And b = 26 Then
              quartina(1) = Fuori90(Diametrale(Estratto(es,5,5)) + Estratto(es,2,4) + 1)
              quartina(2) = Fuori90(Cadenza(Estratto(es,4,5)) + Estratto(es,2,2) + 1)
              quartina(3) = Fuori90(Cadenza(Estratto(es,7,5)) + Estratto(es,4,1) + 1)
              quartina(4) = Fuori90(DiametraleD(Estratto(es,2,3)) + Estratto(es,12,2) + 2)
              ok = 1
            End If
   
            If a = 20 And b = 3 Or a = 3 And b = 20 Then
              quartina(1) = Fuori90(Cadenza(Estratto(es,6,4)) + Estratto(es,5,2) + 67)
              quartina(2) = Fuori90(DiametraleD(Estratto(es,12,4)) + Estratto(es,8,2) + 3)
              quartina(3) = Fuori90(DiametraleD(Estratto(es,4,4)) + Estratto(es,4,4) + 16)
              quartina(4) = Fuori90(Decina(Estratto(es,8,1)) + Estratto(es,9,3) + 73)
              ok = 1
            End If
            If a = 13 And b = 65 Or a = 65 And b = 13 Then
              quartina(1) = Fuori90(Decina(Estratto(es,4,2)) + Estratto(es,10,3) + 55)
              quartina(2) = Fuori90(Estratto(es,8,2) + Estratto(es,9,3) + 40)
              quartina(3) = Fuori90(Vert(Estratto(es,2,4)) + Estratto(es,6,2) + 7)
              quartina(4) = Fuori90(Decina(Estratto(es,1,4)) + Estratto(es,10,5) + 43)
              ok = 1
            End If
            If a = 32 And b = 63 Or a = 63 And b = 32 Then
              quartina(1) = Fuori90(Diametrale(Estratto(es,6,2)) + Estratto(es,3,3) + 66)
              quartina(2) = Fuori90(ComplAdX(Estratto(es,3,5)) + Estratto(es,5,2) + 35)
              quartina(3) = Fuori90(Figura(Estratto(es,2,4)) + Estratto(es,1,1) + 5)
              quartina(4) = Fuori90(ComplAdX(Estratto(es,1,3)) + Estratto(es,6,2) + 1)
              ok = 1
            End If
            If ok = 1 Then
              co = co + 1
              ColoreTesto 1
              Scrivi String(80,"*") & " Caso n°" & co,1
              Scrivi DataEstrazione(es) & "  NZ ambo spia  " & a & " - " & b,1
              Scrivi String(80,"*"),1
              ColoreTesto 0
              ruota(1) = 1
              ImpostaGiocata 1,quartina,ruota,poste,clp
              Gioca es,1
            End If
        Next
      Next
  Next
  ScriviResoconto
End Sub

ciaosalvo ha scritto:Solo per curiosità ho scaricato il software spaziometria 1.4.69 e ho incollato il suddetto script nella funzione getione script ed elabora script appena finisce di elaborare mi da sempre errore di riga e colonna.
Ho provato altri script a fare copia e incolla ma sempre con lo stesso risultato di errore.
Dove sbaglio?
Grazie

Marco ha scritto:

ciaosalvo ha scritto:Solo per curiosità ho scaricato il software spaziometria 1.4.69 e ho incollato il suddetto script nella funzione getione script ed elabora script appena finisce di elaborare mi da sempre errore di riga e colonna.
Ho provato altri script a fare copia e incolla ma sempre con lo stesso risultato di errore.
Dove sbaglio?
Grazie

Ciao Salvo,
prima di incollare lo script nel programma,ricordati di cancellare
Option Explicit
Sub Main

End Sub
che compare nella videata perchè altrimenti ti da errore.
Poi una cosa non meno importante,è quella di copiare e incollare lo script
con partenza SUB MAIN() e finale END SUB

Grazie infinite.. FUNZIONA ALLA GRANDEEE GRAZIE

Prova e fammi sapere

sax71 ha scritto:Ciao Olga,in base allo script e uscita la condizione di gioco sulla ruota di Bari.I numeri da giocare sono 05-08-18-69. Giovedi e uscito il terno su tutte (Ge) 08-18-69

sax71 ha scritto:Ciao a tutti,mi sono solo reso conto adesso che il programma aveva dato un pronostico il 14-10......e già la quarta previsione che dà e non dà nessun colpo....nemmeno un ambo in quartina per recupero spese.......adesso mi chiedo se vale la pena ancora a seguirlo o cancellarlo?

Estrazione generatrice del pronostico 08912 [123 - 14/10/2014]
G 0001 Numeri in gioco : 77.05.51.40 su BA per Ambo,Terno,Quaterna
Interrotta per raggiunta durata

Ciao Salvatore
questo script è molto vecchio e gli algoritmi ormai non fruzzicano più!
Questo inverno....se mi ammalo,lo riaggiorno per farlo funzionare un altro pochino