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
    sabato 30 agosto 2025
    Bari
    85
    39
    37
    73
    79
    Cagliari
    73
    35
    51
    59
    10
    Firenze
    49
    44
    08
    68
    61
    Genova
    55
    05
    44
    42
    62
    Milano
    54
    79
    11
    78
    70
    Napoli
    23
    71
    09
    14
    49
    Palermo
    88
    07
    28
    30
    26
    Roma
    31
    84
    35
    48
    85
    Torino
    39
    48
    87
    16
    27
    Venezia
    56
    35
    87
    17
    73
    Nazionale
    53
    02
    90
    72
    66
    Estrazione Simbolotto
    Nazionale
    24
    15
    10
    03
    07
Indietro
Alto