Novità

Vecchi metodi e vecchi script by BaffoBlù

Previsione mensile 2
Nessun incremento di posta,è il giocatore a effettuarla
in base alle proprie tasche...


Codice:
Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         ok = 0
         If IndiceMensile(es) = 1 And Cadenza(a) = 1 Then
            n(1) = 22
            n(2) = 23
            n(3) = 28
            n(4) = 56
            n(5) = 66
            ruota(1) = 2
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
            n(1) = 2
            n(2) = 8
            n(3) = 75
            n(4) = 81
            n(5) = 82
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
            n(1) = 5
            n(2) = 11
            n(3) = 50
            n(4) = 56
            n(5) = 59
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
            n(1) = 16
            n(2) = 32
            n(3) = 36
            n(4) = 81
            n(5) = 85
            ruota(1) = 3
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
            n(1) = 5
            n(2) = 10
            n(3) = 13
            n(4) = 19
            n(5) = 21
            ruota(1) = 2
            ruota(2) = 9
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
            n(1) = 21
            n(2) = 42
            n(3) = 62
            n(4) = 68
            n(5) = 70
            ruota(1) = 1
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
            n(1) = 3
            n(2) = 8
            n(3) = 20
            n(4) = 35
            n(5) = 64
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
            n(1) = 4
            n(2) = 19
            n(3) = 31
            n(4) = 34
            n(5) = 49
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
            n(1) = 9
            n(2) = 17
            n(3) = 23
            n(4) = 78
        
          
            ruota(1) = 7
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
            n(1) = 1
            n(2) = 5
            n(3) = 13
            n(4) = 27
            n(5) = 89
          
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If

         ImpostaGiocata 1,n,ruota,posta,clp
         If ok = 1 Then
            co = co + 1
            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   cadenza : " & " [ " & Cadenza(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub
 
Qui ho inserito un incremento sulla posta (che è strettamente personale)
con stop al primo esito utile

Codice:
Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA CADENZA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5),Importo(2,15)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         Importo(2,1) = 1
         Importo(2,2) = 1.3
         Importo(2,3) = 1.6
         Importo(2,4) = 1.9
         Importo(2,5) = 2.3
         Importo(2,6) = 2.7
         Importo(2,7) = 3.1
         Importo(2,8) = 3.5
         Importo(2,9) = 4
         Importo(2,10) = 4.5
         Importo(2,11) = 5
         Importo(2,12) = 6
         Importo(2,13) = 7
         Importo(2,14) = 8
         Importo(2,15) = 10
         ok = 0
         If IndiceMensile(es) = 1 And Cadenza(a) = 1 Then
            n(1) = 22
            n(2) = 23
            n(3) = 28
            n(4) = 56
            n(5) = 66
            ruota(1) = 2
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 2 Then
            n(1) = 2
            n(2) = 8
            n(3) = 75
            n(4) = 81
            n(5) = 82
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 3 Then
            n(1) = 5
            n(2) = 11
            n(3) = 50
            n(4) = 56
            n(5) = 59
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 4 Then
            n(1) = 16
            n(2) = 32
            n(3) = 36
            n(4) = 81
            n(5) = 85
            ruota(1) = 3
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 5 Then
            n(1) = 5
            n(2) = 10
            n(3) = 13
            n(4) = 19
            n(5) = 21
            ruota(1) = 2
            ruota(2) = 9
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 6 Then
            n(1) = 21
            n(2) = 42
            n(3) = 62
            n(4) = 68
            n(5) = 70
            ruota(1) = 1
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 7 Then
            n(1) = 3
            n(2) = 8
            n(3) = 20
            n(4) = 35
            n(5) = 64
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 8 Then
            n(1) = 4
            n(2) = 19
            n(3) = 31
            n(4) = 34
            n(5) = 49
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 9 Then
            n(1) = 9
            n(2) = 17
            n(3) = 23
            n(4) = 78
            ruota(1) = 7
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Cadenza(a) = 0 Then
            n(1) = 1
            n(2) = 5
            n(3) = 13
            n(4) = 27
            n(5) = 89
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If
    
         If ok = 1 Then
            co = co + 1
            ImpostaGiocata 1,n,ruota,posta,clp,2
         ImpostaProgressione 1,Importo

            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   cadenza : " & " [ " & Cadenza(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Previsione Mensile 3....

Codice:
Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA DECINA E/O NUMERETTO DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(4),ruota(10),n(5),Importo(2,15)
   posta(2) = 1
   posta(3) = 1
   posta(4) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         Importo(2,1) = 1
         Importo(2,2) = 1.3
         Importo(2,3) = 1.6
         Importo(2,4) = 1.9
         Importo(2,5) = 2.3
         Importo(2,6) = 2.7
         Importo(2,7) = 3.1
         Importo(2,8) = 3.5
         Importo(2,9) = 4
         Importo(2,10) = 4.5
         Importo(2,11) = 5
         Importo(2,12) = 6
         Importo(2,13) = 7
         Importo(2,14) = 8
         Importo(2,15) = 10
         ok = 0
         If IndiceMensile(es) = 1 And Decina(a) = 1 Then
            n(1) = 4
            n(2) = 11
            n(3) = 23
            n(4) = 42
            n(5) = 63
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 2 Then
            n(1) = 6
            n(2) = 30
            n(3) = 38
            n(4) = 44
            n(5) = 87
            ruota(1) = 3
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 3 Then
            n(1) = 9
            n(2) = 50
            n(3) = 63
            n(4) = 65
            n(5) = 73
            ruota(1) = 2
            ruota(2) = 3
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 4 Then
            n(1) = 33
            n(2) = 43
            n(3) = 46
            n(4) = 50
            n(5) = 83
            ruota(1) = 1
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 5 Then
            n(1) = 43
            n(2) = 47
            n(3) = 54
            n(4) = 62
            n(5) = 72
            ruota(1) = 4
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 6 Then
            n(1) = 7
            n(2) = 37
            n(3) = 53
            n(4) = 54
            n(5) = 57
            ruota(1) = 2
            ruota(2) = 10
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 7 Then
            n(1) = 9
            n(2) = 24
            n(3) = 49
            n(4) = 54
            n(5) = 63
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Decina(a) = 8 Then
            n(1) = 10
            n(2) = 13
            n(3) = 33
            n(4) = 63
            n(5) = 90
            ruota(1) = 3
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And a < 10 Then
            n(1) = 10
            n(2) = 26
            n(3) = 28
            n(4) = 42
            n(5) = 48
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If

           
         If ok = 1 Then
            co = co + 1
            ImpostaGiocata 1,n,ruota,posta,clp
         ImpostaProgressione 1,Importo

            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   decina : " & " [ " & Decina(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub
 
vi vedo tutti dormienti (forse è solo impressione...)

su, su, eccovi il caffè

ma che dico?


eccovi l'AmmazzaCaffè !


Le 2 immagini vi chiariranno tutto

(bisogna avere ì premi aggiornati...per gustarselo...)


Giocando con queste poste:

posta(2) = 3
posta(3) = 2
poste(3) = 2
poste(4) = 1




Vedi l'allegato 2285254

Vedi l'allegato 2285255





Se si gioca imperterriti continuando per tutti i 9 colpi
per ambo o terno / per terno o quaterna
senza alcuna progressione...(questo è il bello...)

Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata


| Ambo su ruota : 442
| Terno su ruota : 53
| Quaterna su ruota : 4
---------------------------------------------------
Spesa : 81.252,00 €
Vincita : 151.774,09 €
Guadagno : 70.522,09 €

-------------------------------------------------
*********************************


Se invece ci si ferma al primo esito raggiunto
per ambo o terno / per terno o quaterna
senza alcuna progressione...

Ripeto, senza alcuna progressione e
senza nessuna interruzione di giocata

| Ambo su ruota : 407
| Terno su ruota : 51
| Quaterna su ruota : 4
--------------------------------------------------
| Spesa : 73.866,00 €
| Vincita : 149.029,10 €
| Guadagno : 75.163,10 €

--------------------------------------------------



lo script contiene un mix di superalcoolici
gli astemi stiano alla larga...




Codice:
Option Explicit
Sub Main()
   Dim ruote(1),n1(5),n2(5),n3(5),n4(5)
   Dim c1(5),c2(5),c3(5),s1(6),s2(6)
   Dim posta(10),poste(10)
   Dim a,b,x,x1,P1,P2
   Dim ww,fin,Ini,es,r,casi,co
   Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12
   posta(2) = 3
   posta(3) = 2
   poste(3) = 2
   poste(4) = 1
   ww = 9
   ruote(1) = r
   Ini = 1
   fin = EstrazioneFin
   co = 0
   ResetTimer
   For es = Ini To fin
      Messaggio "Hai solo il tempo di un caffè, Preparo l'AmmazzaCaffé [" &(es) & "]  " & DataEstrazione(es)
      Call AvanzamentoElab(Ini,fin,es)
      For r = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               a = Estratto(es,r,P1)
               b = Estratto(es,r,P2)
               If(a = 15 And b = 76) Or(a = 76 And b = 15) Then
                  x = a + b
                  x1 = Fuori90(a + b)
                  z1 = DiametraleD(x1)
                  z2 = Fuori90(z1 + x1)
                  z3 = ComplAdX(x1)
                  z4 = DiametraleD(z3)
                  z5 = Fuori90(z1 + z2)
                  z6 = Fuori90(z5 * 2)
                  z7 = Differenza(z4,z1)
                  z8 = Fuori90(z7 + x1)
                  z9 = Fuori90(z2 * z2)
                  z10 = Fuori90(z9 + z1)
                  z11 = ComplAdX(z10)
                  z12 = Differenza(z7,z11)
                  n1(1) = x1
                  n1(2) = z1
                  n1(3) = z10
                  n1(4) = z8
                  n1(5) = z4
                  n2(1) = x1
                  n2(2) = z1
                  n2(3) = z2
                  n2(4) = z6
                  n2(5) = z12
                  n3(1) = x1
                  n3(2) = z2
                  n3(3) = z6
                  n3(4) = z7
                  n3(5) = z4
                  n4(1) = x1
                  n4(2) = z10
                  n4(3) = z12
                  n4(4) = z7
                  n4(5) = z3
                  c1(1) = x1
                  c1(2) = z6
                  c1(3) = z10
                  c1(4) = z7
                  c1(5) = z4
                  c2(1) = z6
                  c2(2) = z10
                  c2(3) = z7
                  c2(4) = z8
                  c2(5) = z3
                  c3(1) = z2
                  c3(2) = z10
                  c3(3) = z8
                  c3(4) = z4
                  c3(5) = z3
                  s1(1) = x1
                  s1(2) = z2
                  s1(3) = z12
                  s1(4) = z10
                  s1(5) = z8
                  s1(6) = z3
                  s2(1) = z2
                  s2(2) = z12
                  s2(3) = z7
                  s2(4) = z8
                  s2(5) = z4
                  s2(6) = z3
                  ruote(1) = r
                  co = co + 1
                  casi = casi + 1
                  Scrivi String(120,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " ] ",1,,,1,2
                  Scrivi "Ambo Spia Blù :  " & Format2(a) & "." & Format2(b) & "  in " & P1 & "° e in " & P2 & "° Posizione ",1,,,,2
                  Scrivi "Somma  : " & Format2(a) & "+" & Format2(b) & " = " & Format2(x) & " - " & " 90 " & " = " & Format2(x1),,,,7,2
                  Scrivi "CHIAVE MAGICA di BaffoBlù :  [" & Format2(x1) & "] ",1,,1,4,2
                  Scrivi "-----------------------------------------------------------------"
                  ImpostaGiocata 1,c1,ruote,posta,ww',2 ' Togli remmature se vuoi fermarti al primo esito raggiunto...
                  ImpostaGiocata 2,c2,ruote,posta,ww',2
                  ImpostaGiocata 3,c3,ruote,posta,ww',2
                  ImpostaGiocata 4,s1,ruote,posta,ww',2
                  ImpostaGiocata 5,s2,ruote,posta,ww',2
                  ImpostaGiocata 6,n1,ruote,poste,ww',3
                  ImpostaGiocata 7,n2,ruote,poste,ww',3
                  ImpostaGiocata 8,n3,ruote,poste,ww',3
                  ImpostaGiocata 9,n4,ruote,poste,ww',3
                  Gioca es,1,,1
               End If
               If ScriptInterrotto Then Exit For
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante("  * * * L'AmmazzaCaffé *** Idea e Script by BaffoBlù ***  "),1,3,0
   ScriviResoconto,True
   Scrivi " Tempo elaborazione " & TempoTrascorso
End Sub
Mi vorrei 'mbriacare 😂 😂
 
Previsione mensile......

Codice:
Option Explicit
Sub Main()
   ColoreTesto 2
   Scrivi " PREVISIONE MENSILE VINCOLATA ALLA FIGURA DEL 1° ESTRATTO DELLA NZ "
   Scrivi " USCITO ALLA 1° ESTRAZIONE DEL MESE "
   Scrivi " METODO STATISTICO  BY Marco"
   ColoreTesto 0
   Dim Ini,fin,ok,co,r,a,clp,es,posta(3),ruota(10),n(5)
   posta(2) = 1
   posta(3) = 1
   clp = 15
   Ini = EstrazioneIni + 7430
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      For r = 12 To 12
         a = Estratto(es,r,1)
         Messaggio es
         Call AvanzamentoElab(Ini,fin,es)
         ok = 0
         If IndiceMensile(es) = 1 And Figura(a) = 1 Then
            n(1) = 9
            n(2) = 11
            n(3) = 25
            n(4) = 41
            n(5) = 56
            ruota(1) = 2
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 2 Then
            n(1) = 3
            n(2) = 31
            n(3) = 36
            n(4) = 65
            n(5) = 80
            ruota(1) = 4
            ruota(2) = 8
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 3 Then
            n(1) = 8
            n(2) = 15
            n(3) = 54
            n(4) = 75
            n(5) = 82
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 4 Then
            n(1) = 2
            n(2) = 20
            n(3) = 59
            n(4) = 67
            n(5) = 81
            ruota(1) = 3
            ruota(2) = 6
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 5 Then
            n(1) = 11
            n(2) = 27
            n(3) = 68
            n(4) = 70
            n(5) = 82
            ruota(1) = 1
            ruota(2) = 5
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 6 Then
            n(1) = 3
            n(2) = 6
            n(3) = 23
            n(4) = 60
            n(5) = 89
            ruota(1) = 2
            ruota(2) = 4
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 7 Then
            n(1) = 8
            n(2) = 20
            n(3) = 45
            n(4) = 46
            n(5) = 52
            ruota(1) = 1
            ruota(2) = 7
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 8 Then
            n(1) = 10
            n(2) = 14
            n(3) = 17
            n(4) = 19
            n(5) = 51
            ruota(1) = 1
            ruota(2) = 2
            ok = 1
         End If
         If IndiceMensile(es) = 1 And Figura(a) = 9 Then
            n(1) = 2
            n(2) = 13
            n(3) = 16
            n(4) = 40
            n(5) = 71
            ruota(1) = 2
            ruota(2) = 8
            ok = 1
         End If
         ImpostaGiocata 1,n,ruota,posta,clp
         If ok = 1 Then
            co = co + 1
            ColoreTesto 1
            Scrivi String(110,"*") & " Caso n°" & co,1
            Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
            Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & _
            " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
            ColoreTesto 0
            Gioca es,1
         End If
      Next
   Next
   ScriviResoconto
End Sub
mi.png
 
*****************************************************+



ll.png





*********************************************

Codice:
Option Explicit
Sub Main()
   Dim b1(2),b2(2),b3(2),b4(2),b5(2),b6(2),b7(2),b8(2),b9(2),b10(2),b11(2)
   Dim b12(2),b13(2),b14(2),b15(2),b16(2),b17(2),b18(2),b19(2),b20(2),b21(2),b22(2)
   Dim b23(2),b24(2),b25(2)
   Dim es,ini,fin,a,b,c,d,e,f,r,k,co,ok
   Dim poste(10)
   Dim ruota(12)
   poste(2) = 2
   k = 22
   ini = 4121' Inizio 1950
   fin = EstrazioneFin
   co = 0
   ResetTimer
   For es = ini To fin
      For r = 1 To 1
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(ini,fin,es)
         ruota(1) = r
         ok = 0
         a = Estratto(es - 1,r,5)
         b = Estratto(es,r,5)
         c = Decina(a)
         d = Decina(b)
         e =(c * 10)
         f =(e + d)
         If Cadenza(a) = Cadenza(b) Then
            If Cadenza(a) = 8 Or Cadenza(b) = 8 Then
               If a <> b Then
                  ok = 1
                  If ok = 1 Then
                     b1(1) = 49
                     b1(2) = 09
                     b2(1) = 35
                     b2(2) = 47
                     b3(1) = 13
                     b3(2) = 89
                     b4(1) = 34
                     b4(2) = 65
                     b5(1) = 21
                     b5(2) = 47
                     b6(1) = 30
                     b6(2) = 51
                     b7(1) = 28
                     b7(2) = 75
                     b8(1) = 38
                     b8(2) = 57
                     b9(1) = 54
                     b9(2) = 82
                     b10(1) = 10
                     b10(2) = 29
                     b11(1) = 04
                     b11(2) = 34
                     b12(1) = 35
                     b12(2) = 49
                     b13(1) = 20
                     b13(2) = 34
                     b14(1) = 28
                     b14(2) = 61
                     b15(1) = 26
                     b15(2) = 75
                     b16(1) = 45
                     b16(2) = 79
                     b17(1) = 28
                     b17(2) = 46
                     b18(1) = 47
                     b18(2) = 59
                     b19(1) = 01
                     b19(2) = 68
                     b20(1) = 28
                     b20(2) = 87
                     b21(1) = 37
                     b21(2) = 81
                     b22(1) = 79
                     b22(2) = 87
                     b23(1) = 34
                     b23(2) = 72
                     b24(1) = 37
                     b24(2) = 45
                     b25(1) = 39
                     b25(2) = 48
                     ruota(1) = r
                     co = co + 1
                     Scrivi String(100,"°") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es - 1) & " * " & SiglaRuota(r) & " 5° Estratto : " & Format2(a),1
                     Scrivi DataEstrazione(es) & " * " & SiglaRuota(r) & " 5° Estratto : " & Format2(b),1
                     Scrivi String(70,"°"),1
                     ImpostaGiocata 1,b1,ruota,poste,k',2,,1 ' se togliete tutte le remmature,
                     ImpostaGiocata 2,b2,ruota,poste,k',2,,2 ' ci si ferma al Primo Esito raggiunto...
                     ImpostaGiocata 3,b3,ruota,poste,k',2,,3
                     ImpostaGiocata 4,b4,ruota,poste,k',2,,4
                     ImpostaGiocata 5,b5,ruota,poste,k',2,,5
                     ImpostaGiocata 6,b6,ruota,poste,k',2,,6
                     ImpostaGiocata 7,b7,ruota,poste,k',2,,7
                     ImpostaGiocata 8,b8,ruota,poste,k',2,,8
                     ImpostaGiocata 9,b9,ruota,poste,k',2,,9
                     ImpostaGiocata 10,b10,ruota,poste',k,2,,10
                     ImpostaGiocata 11,b11,ruota,poste',k,2,,11
                     ImpostaGiocata 12,b12,ruota,poste',k,2,,12
                     ImpostaGiocata 13,b13,ruota,poste',k,2,,13
                     ImpostaGiocata 14,b14,ruota,poste',k,2,,14
                     ImpostaGiocata 15,b15,ruota,poste',k,2,,15
                     ImpostaGiocata 16,b16,ruota,poste',k,2,,16
                     ImpostaGiocata 17,b17,ruota,poste',k,2,,17
                     ImpostaGiocata 18,b18,ruota,poste',k,2,,18
                     ImpostaGiocata 19,b19,ruota,poste',k,2,,19
                     ImpostaGiocata 20,b20,ruota,poste',k,2,,20
                     ImpostaGiocata 21,b21,ruota,poste',k,2,,21
                     ImpostaGiocata 22,b22,ruota,poste',k,2,,22
                     ImpostaGiocata 23,b23,ruota,poste',k,2,,23
                     ImpostaGiocata 24,b24,ruota,poste',k,2,,24
                     ImpostaGiocata 25,b25,ruota,poste',k,2,,25
                     Gioca es,1,,1
                  End If
               End If
            End If
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto
End Sub
 
Listato che analizza gli ambi somma 90 sulla NZ
in base al mese di uscita,estrapola una previsione
statistica su ruote congeniali.
Buona lettura.....

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBI SOMMA 90 SULLA NZ USCITI IN BASE AL MESE"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "RICERCA EPOCALE E LIST BY Marco"
   ColoreTesto 0
   Dim poste(3)
   Dim ruota(10)
   Dim a5(5)
   poste(2) = 1
   poste(3) = 1
   clp = 12
   ini = EstrazioneFin - 3000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 12 To 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If Mese(es) = 1 Then
                  If a + b = 90 Then
                     a5(1) = 41
                     a5(2) = 43
                     a5(3) = 51
                     a5(4) = 61
                     a5(5) = 77
                     ruota(1) = 2
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If Mese(es) = 2 Then
                  If a + b = 90 Then
                     a5(1) = 1
                     a5(2) = 4
                     a5(3) = 7
                     a5(4) = 46
                     a5(5) = 76
                     ruota(1) = 1
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If Mese(es) = 3 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 9
                     a5(3) = 16
                     a5(4) = 38
                     a5(5) = 57
                     ruota(1) = 3
                     ruota(2) = 4
                     ok = 1
                  End If
               End If
               If Mese(es) = 4 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 23
                     a5(3) = 44
                     a5(4) = 52
                     a5(5) = 77
                     ruota(1) = 1
                     ruota(2) = 6
                     ok = 1
                  End If
               End If
               If Mese(es) = 5 Then
                  If a + b = 90 Then
                     a5(1) = 8
                     a5(2) = 15
                     a5(3) = 38
                     a5(4) = 50
                     a5(5) = 72
                     ruota(1) = 1
                     ruota(2) = 10
                     ok = 1
                  End If
               End If
               If Mese(es) = 6 Then
                  If a + b = 90 Then
                     a5(1) = 16
                     a5(2) = 49
                     a5(3) = 52
                     a5(4) = 59
                     a5(5) = 61
                     ruota(1) = 1
                     ruota(2) = 7
                     ok = 1
                  End If
               End If
               If Mese(es) = 7 Then
                  If a + b = 90 Then
                     a5(1) = 4
                     a5(2) = 6
                     a5(3) = 16
                     a5(4) = 19
                     a5(5) = 79
                     ruota(1) = 2
                     ruota(2) = 8
                     ok = 1
                  End If
               End If
               If Mese(es) = 8 Then
                  If a + b = 90 Then
                     a5(1) = 13
                     a5(2) = 18
                     a5(3) = 27
                     a5(4) = 76
                     a5(5) = 90
                     ruota(1) = 3
                     ruota(2) = 7
                     ok = 1
                  End If
               End If
               If Mese(es) = 9 Then
                  If a + b = 90 Then
                     a5(1) = 9
                     a5(2) = 27
                     a5(3) = 32
                     a5(4) = 46
                     a5(5) = 56
                     ruota(1) = 7
                     ruota(2) = 10
                     ok = 1
                  End If
               End If
               If Mese(es) = 10 Then
                  If a + b = 90 Then
                     a5(1) = 25
                     a5(2) = 65
                     a5(3) = 76
                     a5(4) = 76
                     a5(5) = 83
                     ruota(1) = 1
                     ruota(2) = 6
                     ok = 1
                  End If
               End If
               If Mese(es) = 11 Then
                  If a + b = 90 Then
                     a5(1) = 13
                     a5(2) = 16
                     a5(3) = 17
                     a5(4) = 47
                     a5(5) = 69
                     ruota(1) = 1
                     ruota(2) = 3
                     ok = 1
                  End If
               End If
               If Mese(es) = 12 Then
                  If a + b = 90 Then
                     a5(1) = 10
                     a5(2) = 18
                     a5(3) = 34
                     a5(4) = 40
                     a5(5) = 84
                     ruota(1) = 1
                     ruota(2) = 9
                     ok = 1
                  End If
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(110,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
                  Scrivi DataEstrazione(es) & "   ambo somma 90 sortito sula NZ    " & a & " - " & b,1
                  Scrivi String(110,"°"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a5,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
Ciao Marco e tutti,

come puoi vedere, le tue ricerche sulla Nazionale, anche quelle più "datate", continuano ad essere oggetto della mia attenzione e non credo soltanto della mia.
So bene che le previsioni che il tuo script mette in gioco (numeri e scelta delle "ruote congeniali" sono frutto di una tua ricerca statistica.
Ciò nonostante ho voluto fare qualche ricerca anch'io, pur lasciando inalterati i numeri da mettere in gioco e le ruote da te selezionate.
Ebbene, questi sono i risultati e le considerazioni:

sembra funzionare anche ricercando l'ambo di somma 90 in altre ruote (non tutte con gli stessi risultati)
e vista la presenza di qualche sporadica quaterna potrebbe avere un senso giocare .90 sul terno e .10 sulla quaterna.
Le ruote da preferire per la condizione sono dalla più conveniente a scendere:

MI = Perc. Rendimento: 58,358 %
NZ = Perc. Rendimento: 52,847 %
NA = Perc. Rendimento: 38,359 %
VE = Perc. Rendimento: 37,403 %

Si tratta quindi di ulteriori possibilità di gioco, anche se, lo ribadisco, tu avresti probabilmente posto in gioco numeri diversi, magari anche su ruote differenti. Ma, alla fine della fiera, il metodo sembra funzionare ugualmente e con risultati tutt'altro che trascurabili.

Buona domenica e grazie.

Oberdan
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 20 febbraio 2025
    Bari
    40
    17
    10
    33
    32
    Cagliari
    07
    10
    01
    52
    17
    Firenze
    60
    80
    86
    48
    19
    Genova
    05
    60
    61
    52
    41
    Milano
    59
    30
    58
    78
    34
    Napoli
    62
    54
    33
    29
    31
    Palermo
    46
    37
    19
    05
    67
    Roma
    59
    51
    05
    47
    74
    Torino
    74
    32
    52
    21
    18
    Venezia
    26
    75
    54
    15
    19
    Nazionale
    51
    43
    48
    40
    59
    Estrazione Simbolotto
    Cagliari
    44
    15
    12
    31
    33
Indietro
Alto