Metodo 1° estrazione del mese

[PORTAFORTUNA]

Evvai.. stasera al primo colpo doppia ambata e ambo secco a Napoli 40-85

 

[donnabonita]

Evvai.. stasera al primo colpo doppia ambata e ambo secco a Napoli 40-85

Bravo l avevo anche scritto ma non pensavo uscissero insieme

 

[spike]

complimenti

 

[McRob]

BRAVISSIMO!
​

 

[Croupier]

reso vuoto

 

[PORTAFORTUNA]

Buongiorno visto che questo metodo continua a funzionare metto le ambate di aprile
Bari Napoli 14-59

 

[PORTAFORTUNA]

Stasera ambata 59 a Bari,chiusa

 

[PORTAFORTUNA]

Ambate di maggio 45-90

 

[donnabonita]

Ciao Portafortuna ti seguo sempre, questo mese sono forti queste due Ambate. Grazie

 

[PORTAFORTUNA]

Buongiorno porto su, siamo al sesto colpo

 

[PORTAFORTUNA]

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

 

[donnabonita]

Ambate di maggio 45-90

Grazieeee preso Ambo con l ambata scorsa 14-45

 

[Sheena1]

Portafortuna buongiorno mi chiedevo le ambate su Na 45 90 di cui 45 sortito... Ora il 9% resta in gioco?

 

[PORTAFORTUNA]

Portafortuna buongiorno mi chiedevo le ambate su Na 45 90 di cui 45 sortito... Ora il 9% resta in gioco?

Buongiorno sheena io gioco 6-90 su Bari e quartina 6-14-43-90..

 

[PORTAFORTUNA]

Buon pomeriggio porto su, ambo secco 6-90 terzina 6-14-90

 

[BaffoBlù]

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...

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

 

[PORTAFORTUNA]

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...

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

 

[BaffoBlù]

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

come non detto...

 

[PORTAFORTUNA]

Stasera uscito soltanto il 90,chiusa

 

[PORTAFORTUNA]

Ambate di giugno 24 e 69