La speranza è l'ultima a morire... no perditempo

[Alien.]

allora ammetto di non essere staot particolarmente coinvolto in questo thread in quanto non riesco a capire se ci siano delel idee chiare oppure no , però leggendo uno dei post di dbr ho dato una mia implementazione di quanto ho capito.


In pratica Dbr diceva che si deve ricercare la presenza dsegli elementi di una decina nelle estrazioni immediatamente precedenti precedenti a quella di gioco e che nelle estrazioni prima di queste invece non dovevano essere usciti numeri della decina in questione.

Quindi individuata una situazione simile giocare inumeri della decina tranne quelli che eano usciti come spia.

Sommariamente il seguente script fa questo e devo dire che facendo delel prove sporadiche mi sono spesso imbattuto in situazioni dove l'esito di gioco finisce in guadagno.
Lo script non crea nessuna tabella , verifica solo le giocate alle condizioni su descritte con la possibilità di cambiare i parametri.
Prendetela come complementare alle vostre elucubrazioni.

Option Explicit
Sub Main
   Dim nSorte,nQEstrSpia,nMinPresSpia,nQMinEstrSenzaEsitiPrimaDiSpia,nMaxPresInEstrSenzaEsito
   Dim nPresSpia,nPresPrecSpia
   Dim aNum,aBNum,aNumSpia,aNumPrecSpia,aNumInGioco,nRuota,idEstr,nColpi,aRuote
   Dim aRetElementi
   Dim nGioc,idForm
   Dim sFileFormazione
   ReDim aRuote(1)
   '======================================================================================
   sFileFormazione = "decine"
   nRuota = FI_
   nColpi = 5
   nSorte = 2
   nQEstrSpia = 3 ' Quantita estrazioni spia precedenti a quella analizzata
   nMinPresSpia = 2 ' quantita di presenze minime nelle estrazioni spia
   nQMinEstrSenzaEsitiPrimaDiSpia = 15 ' quantita di estrazioni precedenti a quelle spia nelle quali si ricerca la non presenza dei numeri in gioco
   nMaxPresInEstrSenzaEsito = 0 ' quantita massima di presenze dentro il range delle estrazioni precedenti alle estrazioni spia
   '======================================================================================
  
  
  
   ReDim aPoste(10)
   aPoste(nSorte) = 1
   aRuote(1) = nRuota
   Call GetElementiFormazione(sFileFormazione,aRetElementi)
   Scrivi sFileFormazione & " items : " & UBound(aRetElementi)
   For idEstr = EstrazioneIni To EstrazioneFin
      nGioc =0
      For idForm = 1 To UBound(aRetElementi)
         Call AlimentaABNumLunghetta(aRetElementi,idForm,aBNum)
         nPresSpia = GetQuantitaPresenzeSpia((idEstr - nQEstrSpia) + 1,idEstr,nRuota,aBNum,aNumSpia)
         nPresPrecSpia = GetQuantitaPresenzeSpia((idEstr - nQMinEstrSenzaEsitiPrimaDiSpia) + 1,(idEstr - nQEstrSpia),nRuota,aBNum,aNumPrecSpia)
         If nPresSpia >= nMinPresSpia Then
            If nPresPrecSpia <= nMaxPresInEstrSenzaEsito Then
               Call GetArrayNumInGioco(aBNum,aNumSpia,aNumInGioco)
               nGioc = nGioc + 1
               Call ImpostaGiocata(nGioc,aNumInGioco,aRuote,aPoste,nColpi,nSorte)
             
            End If
         End If
      Next
      If nGioc  >0 Then   Gioca idEstr
      Call AvanzamentoElab(EstrazioneIni ,EstrazioneFin ,idEstr)
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Sub AlimentaABNumLunghetta(aElementi,idForm,aBNum)
   Dim k
   ReDim aBNum(90)
   For k = 1 To UBound(aElementi,2)
      aBNum(aElementi(idForm,k)) = True
   Next
End Sub
Function GetQuantitaPresenzeSpia(Inizio,Fine,Ruota,aBNum,aRetNum)
   Dim k,j,t,aNum
   ReDim ab(90)
   ReDim aRetNum(0)
   For k = Inizio To Fine
      Call GetArrayNumeriRuota(k,Ruota,aNum)
      For j = 1 To 5
         If aBNum(aNum(j)) Then
            ab(aNum(j)) = True
            t = t + 1
         End If
      Next
   Next
   Call ArrayBNumToArrayNum(ab,aRetNum)
   GetQuantitaPresenzeSpia = t
End Function
Sub GetArrayNumInGioco(aBNum,aNumSpia,aNumInGioco)
   Dim k,i
   Dim aBNumSpia
   ReDim aNumInGioco(90)
   Call ArrayNumToArrayBNum(aNumSpia,aBNumSpia)
   For k = 1 To 90
      If aBNum(k) Then
         If Not aBNumSpia(k) Then
            i = i + 1
            aNumInGioco(i) = k
         End If
      End If
   Next
   ReDim Preserve aNumInGioco(i)
End Sub

SCUSA MI DA ERRORE QUA:
To 5
If aBNum(aNum(j)) Then

 

[dbr]

Ciao x LuigiB.o chi può

nel post #136 a riguardo dello script le decine
risultano essere cabalistiche e non nuturali è possibile
correggere? Grazie.

 

[claudio8]

Ciao x LuigiB.o chi può

nel post #136 a riguardo dello script le decine
risultano essere cabalistiche e non nuturali è possibile
correggere? Grazie.

Controlla se hai nelle'elenco delle formazioni le decine naturali ALTRIMENTI CREA la formazione,
qui sotto il link di specifica fatto da Ramco passo passo
https://forum.lottoced.com/threads/cortesia.2201857/post-2368781
lo script legge in quella directory la composizione di quanto deve analizzare (decine, decinenaturali, AMBI ,cadenze ecc.)
Nello script
questa riga > sFileFormazione = "decine" va sostituita con sFileFormazione = "decinenaturali"

 

[dbr]

Scusate se rompo !!!
dopo aver fatto le modifiche suggerite da "claudio8" che ringrazio
questo è il risultato. dove sbaglio ??????

 

[claudio8]

metti lo screensht della finestra formazioni e della area script della modifica.

 

[שוע]

A colpo fà capolino un 24 ...

vediamo i prossimi Buona serata...

La ripetizione del 24 è un buon segno ...

vediamo i prossimi Buona serata...

 

[dbr]

metti lo screensht della finestra formazioni e della area script della modifica.

Problema risolto.
In formazioni avevo nominato
Decine Naturali, mentre nello script
avevo corretto con decinenaturali
Ancora grazie per l'aiuto.

 

[dbr]

Ciao Forum
Eccomi ancora qui a rompere ...
Ho fatto una ricerca con lo script di LuigiB (#136)
impostando come ruota TT (tutte) mi da questo errore,
è possibile sistemarlo o è lo script che non e programmato allo scopo?.

Grazie Renzo

 

[LuigiB]

con questa modifica si puo mettere sia Tutte che eventualmente ruote insieme a discrezione

Option Explicit
Sub Main
   Dim nSorte,nQEstrSpia,nMinPresSpia,nQMinEstrSenzaEsitiPrimaDiSpia,nMaxPresInEstrSenzaEsito,nInizio,nFine,nGiocateTot,nFormazioniTot
   Dim nPresSpia,nPresPrecSpia
   Dim aNum,aBNum,aNumSpia,aNumPrecSpia,aNumInGioco,idEstr,nColpi,aRuote
   Dim aRetElementi
   Dim nGioc,idForm
   Dim sFileFormazione
   '======================================================================================
   sFileFormazione = "decine"
   ' se si vuole fare una ruota sola
   ReDim aRuote(1)
   aRuote(1) = BA_ ' TT_
   ' se si vogliono fare ruote insieme per esempio 2 ruote
   ' ReDim aRuote(2)
   ' aRuote(1) = ba_
   ' aRuote(2) = ca_
   nColpi = 5
   nSorte = 2
   nQEstrSpia = 3
   nMinPresSpia = 2
   nQMinEstrSenzaEsitiPrimaDiSpia = 15
   nMaxPresInEstrSenzaEsito = 0
   '======================================================================================
   If MsgBox("Ricercare una nuova giocata ?",vbQuestion + vbYesNo) = vbYes Then
      nInizio = EstrazioneFin
      nFine = EstrazioneFin
   Else
      nInizio = EstrazioneIni
      nFine = EstrazioneFin
   End If
   ReDim aPoste(10)
   aPoste(nSorte) = 1
   Call GetElementiFormazione(sFileFormazione,aRetElementi)
   ' Call GeneraColonneCasuali(aRetElementi,10000,10)
   nFormazioniTot = UBound(aRetElementi)
   Scrivi sFileFormazione & " items : " & nFormazioniTot
   For idEstr = nInizio To nFine
      nGioc = 0
      For idForm = 1 To nFormazioniTot
         Call AlimentaABNumLunghetta(aRetElementi,idForm,aBNum)
         nPresSpia = GetQuantitaPresenzeSpia((idEstr - nQEstrSpia) + 1,idEstr,aRuote,aBNum,aNumSpia)
         nPresPrecSpia = GetQuantitaPresenzeSpia((idEstr - nQMinEstrSenzaEsitiPrimaDiSpia) + 1,(idEstr - nQEstrSpia),aRuote,aBNum,aNumPrecSpia)
         If nPresSpia >= nMinPresSpia Then
            If nPresPrecSpia <= nMaxPresInEstrSenzaEsito Then
               nGiocateTot = nGiocateTot + 1
               Call GetArrayNumInGioco(aBNum,aNumSpia,aNumInGioco)
               nGioc = nGioc + 1
               Call ImpostaGiocata(nGioc,aNumInGioco,aRuote,aPoste,nColpi,nSorte)
            End If
         End If
      Next
      If nGioc > 0 Then Gioca idEstr
      Call Messaggio(idEstr)
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For
   Next
   If nGiocateTot > 0 Then
      ScriviResoconto
   Else
      Scrivi "Non ci sono casi da giocare"
   End If
End Sub
Sub AlimentaABNumLunghetta(aElementi,idForm,aBNum)
   Dim k
   ReDim aBNum(90)
   For k = 1 To UBound(aElementi,2)
      aBNum(aElementi(idForm,k)) = True
   Next
End Sub
Function GetQuantitaPresenzeSpia(Inizio,Fine,Ruota,aBNum,aRetNum)
   Dim k,j,t,aNum,r,rr
   ReDim ab(90)
   ReDim aRetNum(0)
   For k = Inizio To Fine
      For r = 1 To UBound(Ruota)
         If Ruota(r) = TT_ Then
            For rr = 1 To 10
               Call GetArrayNumeriRuota(k,rr,aNum)
               For j = 1 To 5
                  If aBNum(aNum(j)) Then
                     ab(aNum(j)) = True
                     t = t + 1
                  End If
               Next
            Next
         Else
            Call GetArrayNumeriRuota(k,Ruota(r),aNum)
            For j = 1 To 5
               If aBNum(aNum(j)) Then
                  ab(aNum(j)) = True
                  t = t + 1
               End If
            Next
         End If
      Next
   Next
   Call ArrayBNumToArrayNum(ab,aRetNum)
   GetQuantitaPresenzeSpia = t
End Function
Sub GetArrayNumInGioco(aBNum,aNumSpia,aNumInGioco)
   Dim k,i
   Dim aBNumSpia
   ReDim aNumInGioco(90)
   Call ArrayNumToArrayBNum(aNumSpia,aBNumSpia)
   For k = 1 To 90
      If aBNum(k) Then
         If Not aBNumSpia(k) Then
            i = i + 1
            aNumInGioco(i) = k
         End If
      End If
   Next
   ReDim Preserve aNumInGioco(i)
End Sub
Sub GeneraColonneCasuali(aRetElementi,nQuantita,nClasse)
   Dim k,j,aNum
   ReDim aRetElementi(nQuantita,nClasse)
   For k = 1 To nQuantita
      Call GetColonnaCasuale(nClasse,aNum)
      For j = 1 To nClasse
         aRetElementi(k,j) = aNum(j)
      Next
   Next
End Sub

 

[i legend]

È sempre bello leggere i tuoi script questa è la cosa più affascinante del gioco del lotto.

 

[Alien.]

Perdonami Luigi ma mi da errore qua se gli dico NO ma se gli dico si mi da solo la verifica vincita perdita ecc senza nessun dato,come risolvo ,grazie..
.
If aBNum(aNum(j)) Then



End If
Next
Next
Else
Call GetArrayNumeriRuota(k,Ruota(r),aNum)
For j = 1 To 5
If aBNum(aNum(j)) Then
ab(aNum(j)) = True
t = t + 1
End If
Next
End If
Next
Next

 

[LuigiB]

non devi partire dall'estrazione 1 , probabile sia quello il problema.

 

[Alien.]

Grazie Luigi.
Mi dice ricerca nuova giocata si o no se gli dico si :

decine items : 9
Non ci sono casi da giocare

se dico no:

ricerca nuova giocata gli dico no mi da l'errore sopra ed non mi chiede null'altro. ne estrazioni ne altro.help

 

[שוע]

Secondo colpo la 1-10 entra velocemente...

con ambo 1-3...

Quinto colpo 1//4 ...

Buona serata...

 

[Ciccio09]

E allora,
Questo arcano é stato scoperto?
o é finito tutto a tarallucci e vino?

 

[.Lucio.]

mi sà che il segmento è partito per la direttrice......in ogni dove ...
mentre i furbetti che pensano di avere l'oro dai pensieri di pazzaglia..dopo un pò ritorneranno all'ovile mazziati duramente dalle "vincite" di Pazzaglia

 

[pippopippo]

Riprendendo il titolo del post direi : Chi di speranza campa, disperato muore.

 

[Ciccio09]

mi sà che il segmento è partito per la direttrice......in ogni dove ...
mentre i furbetti che pensano di avere l'oro dai pensieri di pazzaglia..dopo un pò ritorneranno all'ovile mazziati duramente dalle "vincite" di Pazzaglia

Lucio, Oh Lucio,

Tu,invece,sei partito per la tangente, senza peraltro essere interpellato.
Adesso è chiaro chi è il perditempo.
Tu continua a sdoganare nei vari forum il tuo metodo,sicuramente qualcuno ti dirà bravo,a seguire i ritardatari tra la 34° e 37° estrazione......sicuramente avrai più fortuna di Pazzaglia.
A proposito, è la seconda volta che ti permetti di fare illazioni su furbetti vari.....fattelo dire, hai proprio preso la tangente!!!!!
siccome mi ritengo un signore, credimi,
mi sto sforzando di risponderti educatamente,però non abusare della pazienza altrui.
Un saluto

 

[Ciccio09]

Per Claudio8

Ho scritto ieri quel post in modo ironico,per vedere a che punto erano gli studi su questo benedetto arcano, che detto per inciso,a me personalmente non interessa,perchè convinto che non vi sia alcun arcano,è solo un modo come un altro per leggere quella tabella.
Come ho già scritto,lo ripeto per chi non l'avesse compreso (leggi perditempo) ho richiesto per chi fosse capace, di fare uno script che ricalcasse quella tabella,senza pretese.( Ho pure spiegato i motivi per cui non posso permettermi programmi professionali,quindi ,i furbetti si trovano da altre parti).
Ripeto,se la cosa è possibile bene,altrimenti grazie lo stesso a tutti.
Un saluto

 

[claudio8]

Riprendendo il titolo del post direi : Chi di speranza campa, disperato muore.

Grande sportivo