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
    giovedì 25 settembre 2025
    Bari
    42
    73
    89
    50
    21
    Cagliari
    12
    03
    90
    07
    45
    Firenze
    10
    72
    39
    44
    75
    Genova
    71
    79
    59
    48
    89
    Milano
    24
    68
    77
    69
    20
    Napoli
    02
    64
    82
    55
    84
    Palermo
    60
    87
    51
    83
    22
    Roma
    81
    58
    43
    73
    01
    Torino
    52
    13
    05
    68
    32
    Venezia
    15
    22
    38
    86
    13
    Nazionale
    13
    62
    03
    22
    31
    Estrazione Simbolotto
    Palermo
    28
    17
    32
    21
    15
Indietro
Alto