Chiedo Script mio metodo 3 5ine su ruota

[fillotto]

Più delle parole un esempio:
1)Si prenda un'estrazione qualsiasi dove vi siano 3 numeri uguali.
estrazione del 1/9/2020 il 1° di FI 56
.........................il 5° di GE 56
.........................il 2° di RO 56
Ipotiziamo di giocare su BARI per ricavare le 3 cinquine agiremo così:
estrazione del 3/9/20 BA 19 2 16 36 56 ora ricaviamo le 5 differenze tra
il 56 e la predetta cinquina e avremo
53 36 50 70 90
come abbiamo ottenuto quest'ultima cinquina?
56+53= 19 ;56+36= 02 ;56+50= 16 ;56+70= 36 ;56+90= 56
Ora abbiamo visto che sia il 1° di FI(56) sia il 5° di GE(56) che il 2° di RO(56)
dell'estr. precedente a cui aggiungendo 53 36 50 70 90 otterremo sempre la stessa
cinquina di cui all'estr. del 3/9/20 BA 19 2 16 36 56 . Fin qui il noto, come giocare?
Semplice, estraz. del 3/9/20 1° di FI(66) 5° di GE(15) 2° di RO(57) questa volta non
avremo, aggiungendo 53 36 50 70 90 una sola cinquina, ma tre cinquine da giocare
su BA per l'estr del 5/9/20 nella fattispecie 29 12 26 46 66 68 51 65 85 15 e
20 03 17 37 57 Ma a BA l'estr del 5/9/20 abbiamo 5 50 39 64 15 prendendo il solo 15
sulla seconda cinquina.Non ci perdiamo d'animo ora prendiamo estraz. del 5/9/20 il
1° di FI(1) il 5° di GE(58) e il 2° di RO(26) per l'estr del 8/9/20 nella fattispecie avremo si puo fare
da giocare 54 37 51 71 01 21 04 18 38 58 79 62 76 06 26 su BA nell'estr del 8/9/20
abbiamo 13 06 24 58 38 . Questa volta abbiamo preso l'ambo 38 58 nella secona cinquina.
Ovviamente non è sempre così ma mi piacerebbe che questo procedimento venisse realizzato
con uno script. La stessa operazione ma con num diversi si può fare per ciascuna delle 11 ruote
e con excel anche se un po laborioso i risultati sembrano confortanti.

 

[fillotto]

Ecco cosa sarebbe successo se avessimo giocato con lo stesso metodo ruota per ruota
RUOTA Cinquina adattatrice esito x ambo
BA 53 36 50 70 90 alla 2^
CA 26 60 31 81 19 alla 1^
FI 10 89 29 78 69 alla 6^
GE 25 32 64 41 49 alla 1^
MI 64 68 76 80 02 alla 4^
NA 62 14 81 05 85 in attesa
PA 28 33 23 15 90 alla 14^
RO 72 01 15 61 39 alla 5^
TO 02 87 56 50 64 in attesa
VE 13 11 28 88 75 alla 7^
NZ 40 36 32 14 73 alla 2^

 

[salvo50]

Ciao a Tutti.

Ne ho fatti 2 nel primo la ruota di gioco la puoi scegliere, il secondo è per tutte le ruote

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,R1
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6,P7
   Dim Sp,AA,BB,CC,A,B,C,R4,R2,R3,E3
   Dim Penta1(5),Penta2(5),Penta3(5)
   Dim Diff1(5),Ruo(1),Posta(3),D(5)
   Posta(2) = 1
   'Posta(3) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9815)
   Clp = InputBox("Inserisci i colpi di gioco ?",,15)
   R4 = CInt(InputBox(" Inserisci numero ruota 1...10 NAZ 12",,1))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " TRE CINQUINE SU RUOTA 1 - di FILLOTTO - SCRIPT Salvo50" & Space(14),1,,4,,3,,1
   For Es = Ini To FIn - 1
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            For R3 = R2 + 1 To 12
               If R3 = 11 Then R3 = 12
               For P1 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  AA = Estratto(Es + 1,R1,P1)
                  For P2 = 1 To 5
                     B = Estratto(Es,R2,P2)
                     BB = Estratto(Es + 1,R2,P2)
                     For P3 = 1 To 5
                        C = Estratto(Es,R3,P3)
                        CC = Estratto(Es + 1,R3,P3)
                        If A = B And B = C Then
                           If A <> AA And A <> BB And A <> CC Then
                              For P4 = 1 To 5
                                 D(P4) = Estratto(Es + 1,R4,P4)
                                 Diff1(P4) = Fuori90((D(P4) + 90) - A)
                                 Penta1(P4) = Fuori90(Diff1(P4) + AA)
                                 Penta2(P4) = Fuori90(Diff1(P4) + BB)
                                 Penta3(P4) = Fuori90(Diff1(P4) + CC)
                              Next
                              Caso = Caso + 1
                              Casi = Casi + 1
                              ColoreTesto 1
                              Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                              ColoreTesto 2
                              Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                              ColoreTesto 0
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & " ",1,0
                              For P5 = 1 To 5
                                 E1 = Estratto(Es,R1,P5)
                                 If E1 = A Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & Sp,1,0
                                 ColoreTesto 0
                              Next
                              Scrivi "   Estrazione successiva " & SiglaRuota(R1) & Sp & StringaEstratti(Es + 1,R1),1
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & " ",1,0
                              For P6 = 1 To 5
                                 E2 = Estratto(Es,R2,P6)
                                 If E2 = B Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & Sp,1,0
                                 ColoreTesto 0
                              Next
                              Scrivi "   Estrazione successiva " & SiglaRuota(R2) & Sp & StringaEstratti(Es + 1,R2),1
                              '
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R3) & " ",1,0
                              For P7 = 1 To 5
                                 E3 = Estratto(Es,R3,P7)
                                 If E3 = C Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E3) & Sp,1,0
                                 ColoreTesto 0
                              Next
                              Scrivi "   Estrazione successiva " & SiglaRuota(R3) & Sp & StringaEstratti(Es + 1,R3),1
                              Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                              Scrivi "  " & SiglaRuota(R4) & Sp & StringaEstratti(Es + 1,R4),1
                              Scrivi Space(13) & " Estratti di " & SiglaRuota(R4) & " Meno     " & Format2(A) & Sp,1,0
                              Scrivi Format2(A) & Sp & Format2(A) & Sp & Format2(A) & Sp & Format2(A),1
                              Scrivi Space(24) & "Risultato" & Space(5) & StringaNumeri(Diff1," ",True),1,,,1
                              Scrivi
                              Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1,0
                              Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1,0
                              Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1
                              Scrivi Space(14) & Format2(AA) & Sp & Format2(AA) & Sp & Format2(AA) & Sp & Format2(AA) & Sp,1,0
                              Scrivi Format2(AA) & Space(15) & Format2(BB) & Sp & Format2(BB) & Sp & Format2(BB) & Sp,1,0
                              Scrivi Format2(BB) & Sp & Format2(BB) & Space(15) & Format2(CC) & Sp & Format2(CC) & Sp,1,0
                              Scrivi Format2(CC) & Sp & Format2(CC) & Sp & Format2(CC),1
                              Scrivi "Cinquina 1 -> " & StringaNumeri(Penta1," ",True),1,0
                              Scrivi " Cinquina 2 -> " & StringaNumeri(Penta2," ",True),1,0
                              Scrivi " Cinquina 3 -> " & StringaNumeri(Penta3," ",True),1
                              Scrivi
                              Ruo(1) = R4
                              ImpostaGiocata 1,Penta1,Ruo,Posta,Clp,,1
                              ImpostaGiocata 2,Penta2,Ruo,Posta,Clp,,1
                              ImpostaGiocata 3,Penta3,Ruo,Posta,Clp,,1
                              Gioca Es
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

per tutte le ruote

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2,R1
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6,P7
   Dim Sp,AA,BB,CC,A,B,C,R4,R2,R3,E3
   Dim Penta1(5),Penta2(5),Penta3(5)
   Dim Diff1(5),Ruo(1),Posta(3),D(5)
   Posta(2) = 1
   Posta(3) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9815)
   Clp = InputBox("Inserisci i colpi di gioco ?",,8)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(14) & " TRE CINQUINE SU RUOTA 2 - di FILLOTTO - SCRIPT Salvo50" & Space(14),1,,4,,3,,1
   For Es = Ini To FIn - 1
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For R2 = R1 + 1 To 10
            For R3 = R2 + 1 To 12
               If R3 = 11 Then R3 = 12
               For P1 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  AA = Estratto(Es + 1,R1,P1)
                  For P2 = 1 To 5
                     B = Estratto(Es,R2,P2)
                     BB = Estratto(Es + 1,R2,P2)
                     For P3 = 1 To 5
                        C = Estratto(Es,R3,P3)
                        CC = Estratto(Es + 1,R3,P3)
                        If A = B And B = C Then
                           If A <> AA And A <> BB And A <> CC Then
                              For R4 = 1 To 12
                                 If R4 = 11 Then R4 = 12
                                 For P4 = 1 To 5
                                    D(P4) = Estratto(Es + 1,R4,P4)
                                    Diff1(P4) = Fuori90((D(P4) + 90) - A)
                                    Penta1(P4) = Fuori90(Diff1(P4) + AA)
                                    Penta2(P4) = Fuori90(Diff1(P4) + BB)
                                    Penta3(P4) = Fuori90(Diff1(P4) + CC)
                                 Next
                                 Caso = Caso + 1
                                 Casi = Casi + 1
                                 ColoreTesto 1
                                 Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                                 ColoreTesto 2
                                 Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                                 ColoreTesto 0
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                 For P5 = 1 To 5
                                    E1 = Estratto(Es,R1,P5)
                                    If E1 = A Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & Sp,1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "   Estrazione successiva " & SiglaRuota(R1) & Sp & StringaEstratti(Es + 1,R1),1
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P6 = 1 To 5
                                    E2 = Estratto(Es,R2,P6)
                                    If E2 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & Sp,1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "   Estrazione successiva " & SiglaRuota(R2) & Sp & StringaEstratti(Es + 1,R2),1
                                 '
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R3) & " ",1,0
                                 For P7 = 1 To 5
                                    E3 = Estratto(Es,R3,P7)
                                    If E3 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E3) & Sp,1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "   Estrazione successiva " & SiglaRuota(R3) & Sp & StringaEstratti(Es + 1,R3),1
                                 Scrivi(" Estrazione n." & Format2(Es + 1) & " del " & DataEstrazione(Es + 1)),1,0
                                 Scrivi "  " & SiglaRuota(R4) & Sp & StringaEstratti(Es + 1,R4),1
                                 Scrivi Space(13) & " Estratti di " & SiglaRuota(R4) & " Meno     " & Format2(A) & Sp,1,0
                                 Scrivi Format2(A) & Sp & Format2(A) & Sp & Format2(A) & Sp & Format2(A),1
                                 Scrivi Space(24) & "Risultato" & Space(5) & StringaNumeri(Diff1," ",True),1,,,1
                                 Scrivi
                                 Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1,0
                                 Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1,0
                                 Scrivi Space(14) & StringaNumeri(Diff1," ",True) & "+",1
                                 Scrivi Space(14) & Format2(AA) & Sp & Format2(AA) & Sp & Format2(AA) & Sp & Format2(AA) & Sp,1,0
                                 Scrivi Format2(AA) & Space(15) & Format2(BB) & Sp & Format2(BB) & Sp & Format2(BB) & Sp,1,0
                                 Scrivi Format2(BB) & Sp & Format2(BB) & Space(15) & Format2(CC) & Sp & Format2(CC) & Sp,1,0
                                 Scrivi Format2(CC) & Sp & Format2(CC) & Sp & Format2(CC),1
                                 Scrivi "Cinquina 1 -> " & StringaNumeri(Penta1," ",True),1,0
                                 Scrivi " Cinquina 2 -> " & StringaNumeri(Penta2," ",True),1,0
                                 Scrivi " Cinquina 3 -> " & StringaNumeri(Penta3," ",True),1
                                 Scrivi
                                 Ruo(1) = R4
                                 ImpostaGiocata 1,Penta1,Ruo,Posta,Clp,,1
                                 ImpostaGiocata 2,Penta2,Ruo,Posta,Clp,,1
                                 ImpostaGiocata 3,Penta3,Ruo,Posta,Clp,,1
                                 Gioca Es
                              Next
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi TempoTrascorso
End Sub

 

[fillotto]

Grazie Salvo ,non male ,con l'interruzione al all'esito forse con diminuzione da 15 a 8 colpi
Per quanto riguarda tutte le ruote le limiterei alle tre interessate perchè cosi si perde molto,sempre
con l'interruzione al all'esito e la diminuzione da 15 a 8 colpi-
Proverei inoltre la variante stesse caratteristiche invece di 3 num uguali 2 numeri uguali ma nella stessa posizione.

 

[salvo50]

Ciao a Tutti.

Ciao Fillotto.

Ho ridotto i colpi di gioco a 8 anche se potevi farlo rispondendo alla seconda domanda con 8.

La modifica a 2 numeri uguali isotopi, appena posso la faccio.

 

[fillotto]

Salvo , ti ringrazio anche se quello che ho pensato io è diverso da quello che hai realizzato.
Prima cosa questa notte non avevo compreso bene perchè non mi ero accorto che a me ogni estrazione le 3 cinquine cambiano ad ogni estrazione mentre a te (scusa il tu!) restano fisse.
Questo fa si che soltanto la prima giocata coincida i miei numeri con i tuoi.
La ratio dovrebbe essere questa la cinquina adattatice (quella che nello sript chiami "Risultato"
è fissa, ma i numeri da giocare (le 3 cinquine ) cambiano ad ogni estrazione perchè i 3 numeri da addizionare sono si fissi ma solo nelle loro posisioni!!!!. Insomma quello che io auspico è che questa cinquina adattatrice verificatasi per ben tre volte addizionandola al 1° di FI(56) al il 5° di GE(56) al il 2° di RO(56) dell'estr. precedente possa ripetersi almeno parzialmente con un ambo. Infatti all'estrazione successiva alla cinquina adattatice(fissa) per ricavare le 3 cinquine da giocare useremo ill 1° di FI(1) il 5° di GE(58) e il 2° di RO(26)

 

[Zac]

Ciao Filotto
Scusa l'intrusione, probabilmente l'avrai già visto, ma lo dico lo stesso.
nell'estrazione dell'08/10/2020 si è verificato un caso che interessa il tuo metodo con l'uscita dell'88 su tre ruote anche in posizione isotopa BA.FI.NA
Buona giornata

 

[fillotto]

Ciao a Tutti.

Ciao Fillotto.

Ho ridotto i colpi di gioco a 8 anche se potevi farlo rispondendo alla seconda domanda con 8.

La modifica a 2 numeri uguali isotopi, appena posso la faccio.

si grazie Salvo fino a li ci arrivo Approfitto della segnalazione di SASA in quanto la reputo una situazione ottimale e spiego il metodo .Supponiamo che volessimo giocare su BA Strano il caso non è
riportato nello script di Salvo- La cinquina adattatrice (nel caso volessimo giocare su BA ) è
51 59 25 86 20
infatti se all 88 comune al 5° estratto delle tre ruote segnalate da SASA (BA.FI.NA) otterremo l'ultima
estraz di BA 49 57 23 84 18 - Abbiamo detto che vogliamo giocare su BA quindi prenderemo adesso il
5° di BA che adesso è il 18 ed andremo ad addizionarlo alla cinquina adattatrice suddetta ottenendo così 69 77 43 14 38 ecco ottenuta la prima cinquina.Per la seconda prendiamo il 5° estratto di FI 81 e andremo ad addizionarlo sempre alla cinquina adattatrice ottenendo 42 50 16 77 11.
Per la terza prendiamo il 5° estratto di NA 53 e andremo ad addizionarlo sempre alla cinquina adattatrice ottenendo 14 22 78 49 73.
°

 

[salvo50]

Ho riletto il tuo post iniziale ed oltre ad aggiungere gli estratti dell'estrazione successiva, ci sono anche da aggiungere le estrazioni successive, non l'avevo capito, se l'avessi capito non mi sarei neanche cimentato a fare lo script, perchè non sono in grado di farlo, quindi spero che altri scripters esaudiscano questa tua richiesta.

Avevo escluso le estrazioni con la quarta ruota uguale alle tre con estratto uguale, perchè mi dava risultati errati (mi uscivano delle cinquine al primo colpo) poi ho risolto ma ho dimenticato di rimetterla quindi gli script sono da riprendere