Help Me per chi vuole...

[Sakti]

Qualche volontario riuscirebbe a fare uno script sul seguente metodo??
Cercare tra il primo ed il quinto estratto , di una ruota qualsiasi, dell'ultima estrazione mensile, da mettere in gioco
sulla stessa ruota per tutto il mese successivo. Se non ce ne sono giocabili passo con la ricerca alla prima del mese o successive.
metteremo in gioco 5/6 numeri, eliminando dalla ricerca i numeri con il 9 i gemelli ed i numeretti.
Esempio: 29/01/22 Milano 14-15-24-77-45 useremo 14 - 45 e metteremo in gioco 14 - 15 - 41 - 45 - 51 - 54
Ambo 54 - 15 settimo colpo
Ricordo che sono a ruota secca.
Grazie in anticipo

 

[Mike58]

Ciao toon, strano che non riesci in questa procedura script.
Comunque incuriosito eccotene una mia bozza.
Purtroppo le risultanze sono tante in gioco ed il resoconto risulta negativo.
A te la scelta..

Ciao

Sub Main
   Dim Nu(2),aN(5),aNumGioco(6),Ru(1),posta(3)
   posta(2) = 1.5
   posta(3) = .5
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Metoto toon",1,,,1,3,,1
   For es = Ini To fin
      If IsUltimaDelMese(es) Then
         For r = 1 To 10
            For p = 1 To 5
               aN(p) = Estratto(es,r,p)
            Next
            If aN(1) <> Gemello(aN(1)) And aN(5) <> Gemello(aN(5)) Then
               If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                  If aN(1) > 9 And aN(5) > 9 Then
                     k = k + 1
                     Nu(1) = aN(1)
                     Nu(2) = aN(5)
                     Ru(1) = r
                     '--------- Numeri in Gioco ----------------
                     aNumGioco(1) = Nu(1)
                     aNumGioco(2) = Nu(2)
                     aNumGioco(3) = Vert(Nu(1))
                     aNumGioco(4) = Vert(Nu(2))
                     aNumGioco(5) = aN(2)
                     aNumGioco(6) = Vert(aN(2))
                     '------------------------------------------
                     Call VerificaEsitoTurbo(aNumGioco,Ru,es + 1,2,13,,esito,clp,estr,id)
                     '------------------------------------------------------------------------
                     ImpostaGiocata 1,aNumGioco,Ru,posta,13,2
                     Gioca es,,,,,False
                     Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu) & _
                     vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1) & _
                     vbTab & "Clp " & clp & vbTab & estr & vbTab & GetInfoEstrazione(id)
                  End If
               End If
            End If
         Next
         k = 0
         Scrivi
      End If
   Next
   ColoreTesto(1)
   ScriviResoconto
   ColoreTesto(0)
End Sub

Controllare sempre possibili errore.

 

[Sakti]

Intanto un grande Grazie, sempre disponibile e gentile, poi Come ho sempre detto, io son un discreto modificatore di script, ma la memoria per il linguaggi, non mi aiuta, quindi in certe cose non riesco proprio..
Grazie di nuovo.. accetta una birra virtuale..

 

[Sakti]

Ho notato che non sempre vengono presi in esame i numeri che hanno la cifra centrale uguale, cioè
per esempio: 12-25 / 38-81 / 27-75 / 31-18 ecc. cioè l'unità del primo e la decina del quinto devono essere uguali,
altrimenti la giocata non è valida per il metodo..
So che rompo, ma...Grazie

 

[Mike58]

Ciao tonn, lo sai che il metodo in questione è stato descritto malissimo e solo l'esempio ha permesso di realizzarlo.
Intanto ecco con l'ultima condizione vera , i casi si riducono, mentre se la condizione è False , abilita la condizione false e remma la condizione vera.

ecco lo script

Sub Main
   Dim Nu(2),aN(5),aNumGioco(6),Ru(1),posta(3)
   posta(2) = 1.5
   posta(3) = .5
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Metodo toon",1,,,1,3,,1
   For es = Ini To fin
      If IsUltimaDelMese(es) Then
         For r = 1 To 10
            For p = 1 To 5
               aN(p) = Estratto(es,r,p)
            Next
            If aN(1) <> Gemello(aN(1)) And aN(5) <> Gemello(aN(5)) Then
               If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                  If aN(1) > 9 And aN(5) > 9 Then
                     If Cadenza(aN(1)) = Decina(aN(5)) Then ' condizione vera
                        ' If Cadenza(aN(1)) <> Decina(aN(5)) Then ' condizione falsa
                        k = k + 1
                        Nu(1) = aN(1)
                        Nu(2) = aN(5)
                        Ru(1) = r
                        '--------- Numeri in Gioco ----------------
                        aNumGioco(1) = Nu(1)
                        aNumGioco(2) = Nu(2)
                        aNumGioco(3) = Vert(Nu(1))
                        aNumGioco(4) = Vert(Nu(2))
                        aNumGioco(5) = aN(2)
                        aNumGioco(6) = Vert(aN(2))
                        '------------------------------------------
                        Call VerificaEsitoTurbo(aNumGioco,Ru,es + 1,2,13,,esito,clp,estr,id)
                        '------------------------------------------------------------------------
                        ImpostaGiocata 1,aNumGioco,Ru,posta,13,2
                        Gioca es,,,,,False
                        Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu) & _
                        vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1) & _
                        vbTab & "Clp " & clp & vbTab & estr & vbTab & GetInfoEstrazione(id)
                     End If
                  End If
               End If
            End If
         Next
         k = 0
         Scrivi String(165,"=")
      End If
   Next
   ColoreTesto(1)
   ScriviResoconto
   ColoreTesto(0)
End Sub

 

[joe]

Ciao Mike.

Concordo con TUTTO quanto hai scritto.

Voglio esprimere i miei complimenti

per la ottima soluzione "tabella risultati e rendiconto economico".

Sempre tecnicamente ...

If aN(1) <> Gemello(aN(1)) And aN(5) <> Gemello(aN(5)) Then

Non è sempre = VERO ?

Rimanendo nel vero è facilmente correggibile

Ma fa crollare il rapporto giocate/vincite

Questo a livello sperimentale è strano!

 

[Sakti]

Mi spiego meglio:
il metodo prevede di utilizzare il primo e il quinto numero che abbiano, il primo, la cadenza uguale alla decina del quinto,
praticamente i due numeri accoppiati dovranno avere la cifra centrale uguale, di una qual che sia ruota all'ultima estrazione mensile e se non la si trova cercarla nelle estrazioni successive. Poi verranno messi in gioco i numeri che si formano con le 3
cifre risultanti, cioè ad esempio: se troveremo 28-83, metteremo in gioco 28-82-23-32-83-38.Per tutto il mese sulla ruota di rilevamento. Altro esempio: 46-67, in gioco 46-64-47-74-67-76, i numeri di base essendo appena estratti ,rischiando, si possono escludere. Praticamente si mettono in gioco i numeri che si formano con le 3 cifre. Come precedentemente detto eliminando i gemelli e quelli con il numero 9.
Spero, anche con gli esempi, di essere stato esaustivo, altrimenti ripiateme..
Grazie per la grande pazienza..Birretta..o aperitivo

 

[joe]

Ciao Toon ... si ... ma questa "seconda" spiegazione è tutt'altra cosa.

Se confronti le descrizioni fatte nel messaggio #1 e #7 le differenze sono evidenti.

Che poi utilizzando 3 cifre a coppie si creino parecchi "Vertibili" e/o "Gemelli" è nella forza delle cose.

 

[Sakti]

Non capisco perchè... I calcoli mi paiono esatti, ma .... esemplifico:
29.04.2021 RO 28.86 Numeri in Gioco su Ruota : 28.86.82.68.89.88 Clp 7 RO .. .. 89 88 .. [09925] [ 58] 15.05.2021
dovrebbero esserci 26- 62..
[09931] [ 64] 29.05.2021 VE 85.53 Numeri in Gioco su Ruota : 85.53.58.35.10.01 Clp 13
dovrebbero esserci 83-38..
[09944] [ 77] 29.06.2021 PA 25.55 Numeri in Gioco su Ruota : 25.55.52.59.41.14 Clp 13
non dovrebbe esserci c'è un gemello 55
[09971] [104] 31.08.2021 TO 47.73 Numeri in Gioco su Ruota : 47.73.74.37.32.23 Clp 13
dovrebbero esserci 43-34
[09984] [117] 30.09.2021 VE 33.37 Numeri in Gioco su Ruota : 33.37.39.73.60.06 Clp 13
non dovrebbe esserci c'è un gemello 33
[10062] [ 39] 31.03.2022 GE 68.87 Numeri in Gioco su Ruota : 68.87.86.78.80.08 Clp 13
dovrebbero esserci 67-76
Gli ultimi 2 numeri da mettere in gioco su tutti i risultati sono sbagliati.. E io rompo... lo so

 

[Sakti]

Per gli ultimi 2 numeri ho risolto
aNumGioco(5) = Fuori90(Decina(Nu(1)) & (Cadenza(Nu(2))))
aNumGioco(6) = Fuori90(Vert(aNumGioco(5)))
sostituendo il calcolo, ma non so come fare per eliminare i gemelli..

 

[Mike58]

Toon, oggi ho avuto poco tempo, e non ho neanche letto la tua nuova specifica circa il metodo.
Se hai risolto il calcolo dei numeri in gioco, Bene !!!
Per eliminare i gemelli possibili calcolati basta il comando - If ANumGioco(1) <> gemello(anumGioco(1)) Or aNumGioco(2) <> gemello(aNumGioco(2)) Or Etc.. then fino a q.ta 6 della matrice
Se il dato non è corretto prova con And.
Oppure fai in ciclo di 6 dei numeri in gioco e li definisci diversi da gemello(aNumGioco(x)).
Visto che sei un buon modificatore dovresti riuscire.

Io In questi giorni ho poco tempo ed i miei interventi potrebbero essere sporadici.

Ciao

 

[Mike58]

Rivisto qualche calcolo vedi se può andar bene.
Se avessi spiegato dall'inizio tutte le condizioni e specifiche si sarebbe evitato malintesi nel capirci.

prova

Sub Main
   Dim Nu(2),aN(5),aNumGioco(6),Ru(1),posta(3)
   posta(2) = 1.5
   posta(3) = .5
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Metodo toon",1,,,1,3,,1
   For es = Ini To fin
      If IsUltimaDelMese(es) Then
         For r = 1 To 10
            For p = 1 To 5
               aN(p) = Estratto(es,r,p)
            Next
            If aN(1) <> Gemello(aN(1)) And aN(5) <> Gemello(aN(5)) Then
               If Cadenza(aN(1)) <> 9 And Cadenza(aN(5)) <> 9 Then
                  If aN(1) > 9 And aN(5) > 9 Then
                     If Cadenza(aN(1)) = Decina(aN(5)) Then ' condizione vera
                        ' If Cadenza(aN(1)) <> Decina(aN(5)) Then ' condizione falsa
                        k = k + 1
                        Nu(1) = aN(1)
                        Nu(2) = aN(5)
                        Ru(1) = r
                        '--------- Numeri in Gioco ----------------
                        aNumGioco(1) = Nu(1)
                        aNumGioco(2) = Nu(2)
                        aNumGioco(3) = Vert(Nu(1))
                        aNumGioco(4) = Vert(Nu(2))
                        aNumGioco(5) = Decina(Nu(1))&Cadenza(Nu(2))
                        aNumGioco(6) = Vert(aNumGioco(5))
                        '------------------------------------------
                        For x = 1 To 6
                        If aNumGioco(x) <> Gemello(aNumGioco(x)) Then
                        End If
                        Next
                        Call VerificaEsitoTurbo(aNumGioco,Ru,es + 1,2,13,,esito,clp,estr,id)
                        '------------------------------------------------------------------------
                        ImpostaGiocata 1,aNumGioco,Ru,posta,13,2
                        Gioca es,,,,,False
                        Scrivi k & vbTab & GetInfoEstrazione(es) & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(Nu) & _
                        vbTab & "Numeri in Gioco su Ruota : " & StringaNumeri(aNumGioco,,1) & _
                        vbTab & "Clp " & clp & vbTab & estr & vbTab & GetInfoEstrazione(id)
                    
                     End If
                    
                  End If
               End If
            End If
         Next
         k = 0
         Scrivi String(165,"=")
      End If
   Next
   ColoreTesto(1)
   ScriviResoconto
   ColoreTesto(0)
End Sub

 

[Mike58]

Grazie Joe anche per il tuo intervento esplicativo.
Ciao

 

[Sakti]

grazie mille per la tua disponibilità e per la preziosa dritta, mo ci provo, grazie, sei sempre molto gentile...

 

[joe]

Non capisco perché ... I calcoli mi paiono esatti, ma ... non so come fare per eliminare i gemelli..

Quello che scrivi al messaggio #10 non tiene in debito conto quanto ti ho scritto al messaggio #6:

If aN(1) <> Gemello(aN(1)) And aN(5) <> Gemello(aN(5)) Then

Non è sempre = VERO ?

Che doveva leggersi con logica negativa: VERO che i gemelli non vengono MAI tolti ?

Poi, poco per volta e correzione dopo correzione ... forse ci si arriva!

 

[joe]

Dunque va specificato se il "si escludono i gemelli"

è da intendersi come subito (ovvero se già presenti)

oppure quelli ottenuti come residuo di una "coppia di vertibili"

(privati della cadenza del primo e della decina del secondo),

oppure i gemelli che eventualmente fossero presenti tra gli altri numeri,

oppure ancora "più soluzioni" differenti tra le varie possibili.

Dunque sono 3 o più interpretazioni diverse. Tutte lecite.

Avendo escluso NON eliminare qualche gemello.

Riguardo alla linea che ho già posto in evidenza nel messaggio precedente.

Una esclusione dei gemelli tra le prime descritte potrebbe essere:

If NOT Gemello(aN(1)) And NOT Gemello(aN(5)) Then

che è più o meno equivalente alle nuove modifiche fatte da Mike

che con un ciclo For-Next ha escluso ANCHE quelli presenti come 3°/4°/5° estratto.

 

[Sakti]

Grandissimo Joe, con la Tua formula funziona correttamente, avevo provato con quelle suggerite da Mike, ma non avevano cambiato gli ouput. Ho cambiato anche :
If(aN(1)) <> Vert(aN(5)) Then
per eliminare i Vertibili, apportando piccole modifiche per migliorare il guadagno, alla fine rimetterò lo script ottimizzato..
Anche i risultati cambiano, Grazie mille..

 

[joe]

Ti ringrazio,

e ti assicuro che Mike è altrettanto capace.

Per molti versi anche di più.

Al netto delle, specificità, che si trasformano nelle differenze per quali è impossibile discernere una maggiore abilità.

Oltre a quanto s'è accennato e stai valutando, nei tuoi scritti precedenti, c'è un ulteriore punto nodale.

Lo riassumo brevemente.

Se escludi i Gemelli perché presenti tra gli estratti o perchè si formano con una coppia di vertibili trovati idonei,

... escludendoli con la condizione che hai appena aggiunto ...

si ha come "effetto collaterale" che non si genera il pronostico all'ultima del mese ed all'estrazione succcessiva.

Oppure, più limitatamente, in alternativa, si genera un pronostico che non dovrebbe esserci.

In questa situazione non si attua e non si considera una delle principali condizioni da te descritte.

Ergo andrebbe implementata nell'algoritmo.

 

[joe]

Nell'equivalente dell "ultimo anno", si possono contare una ventina di estrazioni.

per le quali si deve decidere se escluderle perché contengono un gemello, considerarle, sostituirle.

Anche se le istruzioni erano ... sostiuirle.

Tra queste solo 3 conterrebbero una seconda delle condizioni specificate.

Sono queste, con evidenza di quando descritto:

1 31.08.2021 BA 22.57.32.43.79
2 31.08.2021 NA 44.04.76.32.77
3 30.09.2021 MI 18.51.86.73.22
4 30.09.2021 NA 77.90.25.35.74 <--
5 30.09.2021 RO 66.50.15.02.73
6 30.09.2021 VE 33.60.19.58.37 <--
7 30.10.2021 MI 41.63.61.29.66
8 30.10.2021 TO 52.41.29.86.33
9 30.10.2021 VE 58.71.64.86.22
10 30.11.2021 FI 48.65.07.74.44
11 30.12.2021 GE 88.04.60.25.43
12 30.12.2021 TO 69.66.70.56.88
13 29.01.2022 BA 88.23.54.28.86 <--
14 29.01.2022 NA 66.68.17.54.87
15 29.01.2022 RO 66.63.40.87.19
16 29.01.2022 VE 01.34.25.50.44
17 31.03.2022 VE 11.75.35.54.73
18 30.04.2022 NA 65.85.62.35.66
19 30.06.2022 FI 55.76.30.68.84
20 30.06.2022 GE 66.79.26.88.25

 

[Sakti]

Non mi permetterei mai di giudicare il lavoro di Mike, veramente un luminare del forum per la capacità di risolvere script molto complessi, ed oltretutto persona molto gentile e disponibile.
Questi casi , secondo il mio metodo, vanno eliminati e la ricerca andrebbe effettuata nelle successive estrazioni, sino al raggiungimento di una condizione favorevole.