Novità

Metodo 1° estrazione del mese

Buon pomeriggio mancano 3 colpi, sinceramente non gioco le ambate per cui propongo 2 soli ambi secchi con il 90,37-90 e 6-90, terzina 6-37-90
 
Ultima modifica:
Portafortuna buongiorno mi chiedevo le ambate su Na 45 90 di cui 45 sortito... Ora il 9% resta in gioco?
 
Oggi per la prima volta posto un metodo
Alla prima estrazione del mese sommare al 2° di Napoli i fissi 3 e 48, le 2 ambate andranno giocate su Bari e Napoli per 9/10 colpi
Se qualcuno può migliorare il metodo per trovare abbinamenti ne sarei grato
Se non disturba troppo avrei fatto uno script per l'ambata.

Ho lasciato il MultiEsito attivo nei colpi previsti (12) per osservarli tutti.

Dall'output potete (con pazienza) osservare quali numeri si accoppiano più frequentemente con le ambate...


Codice:
Option Explicit
Sub Main()
   Dim es,Ini,Fin,r1,r2,Tm,Clp,co,ok,a,b,c
   Dim ruote(10)
   Dim posta(10)
   Dim n(2)
   posta(1) = 1
   r1 = 6
   r2 = 1
   ruote(1) = r1
   ruote(2) = r2
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      For r1 = 6 To 6
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         If IndiceMensile(es) = 1 Then
            ruote(1) = r1
            ruote(2) = r2
            a = Estratto(es,r1,2)
            b = Fuori90(a + 3)
            c = Fuori90(a + 48)
            n(1) = b
            n(2) = c
            ok = 1
            If ok = 1 Then
               ruote(1) = r1
               ruote(2) = r2
               co = co + 1
               Scrivi String(100,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** 2°Estratto : " & Format2(a) & " ( + Fissi 03 e 48 ) : Ambate a " & SiglaRuota(r1) & " / " & SiglaRuota(r2) & " : " & Format2(b) & " - " & Format2(c),1
               Scrivi String(100,"°"),1
               ImpostaGiocata 1,n,ruote,posta,Clp
               Gioca es,1,,1
            End If
            If ScriptInterrotto Then Exit For
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Da Metodo sul Forum, Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
 
Se non disturba troppo avrei fatto uno script per l'ambata.

Ho lasciato il MultiEsito attivo nei colpi previsti (12) per osservarli tutti.

Dall'output potete (con pazienza) osservare quali numeri si accoppiano più frequentemente con le ambate...


Codice:
Option Explicit
Sub Main()
   Dim es,Ini,Fin,r1,r2,Tm,Clp,co,ok,a,b,c
   Dim ruote(10)
   Dim posta(10)
   Dim n(2)
   posta(1) = 1
   r1 = 6
   r2 = 1
   ruote(1) = r1
   ruote(2) = r2
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"12"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      For r1 = 6 To 6
         Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
         Call AvanzamentoElab(Ini,Fin,es)
         If IndiceMensile(es) = 1 Then
            ruote(1) = r1
            ruote(2) = r2
            a = Estratto(es,r1,2)
            b = Fuori90(a + 3)
            c = Fuori90(a + 48)
            n(1) = b
            n(2) = c
            ok = 1
            If ok = 1 Then
               ruote(1) = r1
               ruote(2) = r2
               co = co + 1
               Scrivi String(100,"°") & " Caso n°" & co,1
               Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** 2°Estratto : " & Format2(a) & " ( + Fissi 03 e 48 ) : Ambate a " & SiglaRuota(r1) & " / " & SiglaRuota(r2) & " : " & Format2(b) & " - " & Format2(c),1
               Scrivi String(100,"°"),1
               ImpostaGiocata 1,n,ruote,posta,Clp
               Gioca es,1,,1
            End If
            If ScriptInterrotto Then Exit For
         End If
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Da Metodo sul Forum, Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
Buon pomeriggio baffo, figurati sei il benvenuto per gentilezza e bravura, questo mese purtroppo stanno tardando.. speriamo bene.ti confesso che sono totalmente ignorante sugli script
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 17 ottobre 2025
    Bari
    43
    65
    36
    52
    54
    Cagliari
    63
    89
    22
    85
    45
    Firenze
    59
    17
    66
    88
    78
    Genova
    75
    67
    42
    78
    77
    Milano
    12
    21
    87
    66
    31
    Napoli
    38
    75
    61
    68
    76
    Palermo
    42
    90
    20
    33
    71
    Roma
    57
    13
    80
    84
    79
    Torino
    59
    54
    84
    48
    26
    Venezia
    77
    05
    14
    28
    20
    Nazionale
    05
    04
    10
    43
    68
    Estrazione Simbolotto
    42
    38
    16
    25
    34
Indietro
Alto