Novità

Richiesta script per studio metodo per terno

A

antoR

Senior Member
Salve, mi ritrovo a chiedere uno script per testare un metodo trovato in una discussione sul web. Discussione avviata da Sersam, su " Non solo lotto" Ho cercato di implementarlo da me, ma avendo poche conoscenza di script ho dovuto desistere. Grazie a chi raccoglie questa mia richiesta: Ecco spiegato il metodo

In 2-3-4-5 estrazioni consecutive dobbiamo trovare 2 ambi uniti (su tutte le ruote )con distanza uguale e con un numero in comune,per esempio: NA 35-81=90+35=125-81=DIST 44-----BA 81-37=DIST 44
ambi uniti Distanza uguale 44 Numero in comune 81
17-08-1991 roma ambo unito 85-48=37 distanza
24-08-1991 bari ambo unito 32-85=32-90=122-85=37 distanza
Distanza uguale 37 Numero in comune 85
Questi 2 ambi uniti sono formati da 3 numeri:32-48-85
32=figura 5 (3+2=5) 5x9 fisso=45-----32-45=122-45= 77 distanza figurale.
48=figura 3 (4+8=12 supera 9 12-9=3) 3x9 fisso=27-----48-27= 21 distanza figurale.
85=figura 4 (8+5=13 supera 9 13-9=4) 4x9 fisso=36-----85-36= 49 distanza figurale.
Così facendo abbiamo ottenuto 3 numeri 21-49-77 da giocare per terno secco su tutte per un ciclo di estrazione
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Salve, mi ritrovo a chiedere uno script per testare un metodo trovato in una discussione sul web. Discussione avviata da Sersam, su " Non solo lotto" Ho cercato di implementarlo da me, ma avendo poche conoscenza di script ho dovuto desistere. Grazie a chi raccoglie questa mia richiesta: Ecco spiegato il metodo

In 2-3-4-5 estrazioni consecutive dobbiamo trovare 2 ambi uniti (su tutte le ruote )con distanza uguale e con un numero in comune,per esempio: NA 35-81=90+35=125-81=DIST 44-----BA 81-37=DIST 44
ambi uniti Distanza uguale 44 Numero in comune 81
17-08-1991 roma ambo unito 85-48=37 distanza
24-08-1991 bari ambo unito 32-85=32-90=122-85=37 distanza
Distanza uguale 37 Numero in comune 85
Questi 2 ambi uniti sono formati da 3 numeri:32-48-85
32=figura 5 (3+2=5) 5x9 fisso=45-----32-45=122-45= 77 distanza figurale.
48=figura 3 (4+8=12 supera 9 12-9=3) 3x9 fisso=27-----48-27= 21 distanza figurale.
85=figura 4 (8+5=13 supera 9 13-9=4) 4x9 fisso=36-----85-36= 49 distanza figurale.
Così facendo abbiamo ottenuto 3 numeri 21-49-77 da giocare per terno secco su tutte per un ciclo di estrazione
Clicca per espandere...

Ciao a Tutti e Buona Pasqua.


Codice: 
'Salve, mi ritrovo a chiedere uno script per testare un metodo trovato In una discussione sul web.
'Discussione avviata da Sersam, su " XXX XXXX XXXXX" Ho cercato di implementarlo da Me, ma avendo
'poche conoscenza di script ho dovuto desistere. Grazie a chi raccoglie questa mia richiesta:
'Ecco spiegato il metodo
'In 2-3-4-5 estrazioni consecutive dobbiamo trovare 2 ambi uniti (su tutte le ruote )con Distanza uguale
'e con un numero In comune,per esempio: NA 35-81=90+35=125-81=DIST 44-----BA 81-37=DIST 44
'ambi uniti Distanza uguale 44 Numero In comune 81
'
'17-08-1991 roma ambo unito 85-48=37 Distanza
'24-08-1991 bari ambo unito 32-85=32-90=122-85=37 Distanza
'Distanza uguale 37 Numero In comune 85
'Questi 2 ambi uniti sono formati da 3 numeri:32-48-85
'32=Figura 5 (3+2=5) 5x9 fisso=45-----32-45=122-45= 77 Distanza figurale.
'48=Figura 3 (4+8=12 supera 9 12-9=3) 3x9 fisso=27-----48-27= 21 Distanza figurale.
'85=Figura 4 (8+5=13 supera 9 13-9=4) 4x9 fisso=36-----85-36= 49 Distanza figurale.
'Così facendo abbiamo ottenuto 3 numeri 21-49-77 da giocare per terno secco su tutte per un ciclo di estrazione
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,E2,X,K,G
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
   Dim N1,N2,N3,FN1,FN2,FN3,Pr1,Pr2,Pr3,Amb
   Dim Ruo(1),Poste(3),Num(3),DAB,DCD
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))'6293 esempio nelle spiegazioni
   Clp1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca del risultato?",,13))
   X = CInt(InputBox("INSERISCI IL NUMERO CHE VA MOLTIPLICATO PER LA FIGURA DELL'ESTRATTO",,9))
   If X > 0 Then
      Amb = CInt(InputBox("SE VUOI LA RICERCA ANCHE DELL'AMBO METTI  1  ALTRIMENTI UN ALTRO NUMERO",,0))
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "CHIESTO DA ANTOR - AMBI UNITI CON DISTANZA CICLOMETRICA - SCRIPT Salvo50",1,,4,,3,,1
      If Amb = 1 Then Poste(2) = 1
      Poste(3) = 1
      For Es = Ini To FIn
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         For R1 = 1 To 10
            For P1 = 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P1 + 1)
               K = 0
               For K = 1 To 5
                  For R2 = 1 To 10
                     If R1 <> R2 Then
                        For P2 = 1 To 4
                           C = Estratto(Es + K,R2,P2)
                           D = Estratto(Es + K,R2,P2 + 1)
                           If A And C > 0 Then
                              If A = C Xor A = D Xor B = C Xor B = D Then
                                 G = G + 1
                                 DAB = Distanza(A,B) : DCD = Distanza(C,D)
                                 If DAB = DCD Then
                                    If A = C Xor B = C Then N1 = A : N2 = B : N3 = D
                                    If A = D Xor B = D Then N1 = A : N2 = B : N3 = C
                                    FN1 = Figura(N1) : FN2 = Figura(N2) : FN3 = Figura(N3)
                                    Pr1 = Fuori90(FN1 * X) : Num(1) = Fuori90(90 +(N1 - Pr1))
                                    Pr2 = Fuori90(FN2 * X) : Num(2) = Fuori90(90 +(N2 - Pr2))
                                    Pr3 = Fuori90(FN3 * X) : Num(3) = Fuori90(90 +(N3 - Pr3))
                                    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 P3 = 1 To 5
                                       E1 = Estratto(Es,R1,P3)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "<-- Evidenziati Distanza " & Format2(DAB),1
                                    Scrivi(" Estrazione n." & Format2(Es + K) & " del " & DataEstrazione(Es + K)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P4 = 1 To 5
                                       E2 = Estratto(Es + K,R2,P4)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "<-- Evidenziati Distanza " & Format2(DCD),1
                                    Scrivi
                                    Scrivi Space(29) & "Calcoli col Fuori90",1,,,2
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN1) & " = " & Format2(Pr1),1,0
                                    Scrivi "  -->  Estratto " & Format2(N1) & " - " & Format2(Pr1) & " = 1° Pronostico " & Format2(Num(1)),1
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN2) & " = " & Format2(Pr2),1,0
                                    Scrivi "  -->  Estratto " & Format2(N2) & " - " & Format2(Pr2) & " = 2° Pronostico " & Format2(Num(2)),1
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN3) & " = " & Format2(Pr3),1,0
                                    Scrivi "  -->  Estratto " & Format2(N3) & " - " & Format2(Pr3) & " = 3° Pronostico " & Format2(Num(3)),1
                                    Ruo(1) = TU_
                                    EliminaRipetuti Num
                                    ImpostaGiocata 1,Num,Ruo,Poste,Clp1
                                    Gioca Es + K,,,1
                                 End If
                              End If
                           End If
                           If G > 0 Then Exit For
                        Next
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If X = 0 Then Scrivi " A QUESTA DOMANDA NON E' PERMESSO INSERIRE ZERO",1,,,2,4
End Sub
 
Ultima modifica:
A

antoR

Senior Member
Ciao Salvo grazie per lo script, ma controllandolo c'è un errore, solo quando la sottrazione avviene tra un numero piccolo e un numero grande il piccolo si addiziona a 90 e poi si sottrae al più grande, questo per avere la distanza. esempio
Estrazione n.9502 del 21.07.2018 FI 55 01 43 50 65 55 01 <-- Evidenziati Distanza 36 qui essendo 55 più grande di 1 la distanza è 54 se fosse stato l'inverso cioè 01 55 allora si somma 1 a 90 e si sottrae 55 e verrebbe 36....
Estrazione n.9506 del 31.07.2018 VE 37 01 62 63 70 37 01 <-- Evidenziati Distanza 36
Comunque ti ringrazio tantissimo se puoi aggiustarlo...e nel contempo ti auguro BUONA PASQUA A TE E FAMIGLIA.....Antonio
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Ciao Salvo grazie per lo script, ma controllandolo c'è un errore, solo quando la sottrazione avviene tra un numero piccolo e un numero grande il piccolo si addiziona a 90 e poi si sottrae al più grande, questo per avere la distanza. esempio
Estrazione n.9502 del 21.07.2018 FI 55 01 43 50 65 55 01 <-- Evidenziati Distanza 36 qui essendo 55 più grande di 1 la distanza è 54 se fosse stato l'inverso cioè 01 55 allora si somma 1 a 90 e si sottrae 55 e verrebbe 36....
Estrazione n.9506 del 31.07.2018 VE 37 01 62 63 70 37 01 <-- Evidenziati Distanza 36
Comunque ti ringrazio tantissimo se puoi aggiustarlo...e nel contempo ti auguro BUONA PASQUA A TE E FAMIGLIA.....Antonio
Clicca per espandere...
Ciao a Tutti e Buona Pasqua
Ciao AntoR
L'equivoco nasce dal fatto che hai usato la parola Distanza e dal fatto che nei tuoi esempi le distanze calcolate sono tutte (per puro caso) inferiori a 46, in Spaziometria di LuigiB che saluto, per Distanza senza nessun altra dicitura si intende Distanza Ciclometrica, comunque questa la chiamerò Distanza Matematica, perchè non può essere neanche Differenza perche con differenza si intende il numero maggiore meno il minore, di script "corretto" ne metto un altro, cambiando i titoli il primo quello già postato lo chiamerò, Ambi Uniti con Distanza Ciclometrica ed il secondo Ambi Uniti con Distanza Matematica, così chi ha tempo e voglia può fare un confronto.

C'è un altro particolare, me ne sono accorto adesso, io ho fatto in modo che quando tra 2 estratti la distanza matematica la trovo in un'altra ruota, per quella ruota e quella estrazione non cerco altre distanze matematiche, passo a un'altra ruota, domanda: lo lascio cosi oppure deve trovarle tutte quelle che incontra nelle 5 estrazioni dopo?

Script, Ambi Uniti Con Distanza Matematica

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,E2,X,K,G
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
   Dim N1,N2,N3,FN1,FN2,FN3,Pr1,Pr2,Pr3,Amb
   Dim Ruo(1),Poste(3),Num(3),DAB,DCD,RicCont
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9600))'6293 esempio nelle spiegazioni
   Clp1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca del risultato?",,13))
   X = CInt(InputBox("INSERISCI IL NUMERO CHE VA MOLTIPLICATO PER LA FIGURA DELL'ESTRATTO",,9))
   If X > 0 Then
      RicCont = CInt(InputBox("SE NELLA RICERCA VUOI FERMARTI AL PRIMO ESITO METTI  1  ALTRIMENTI UN ALTRO NUMERO",,2))
      Amb = CInt(InputBox("SE VUOI LA RICERCA ANCHE DELL'AMBO METTI  1  ALTRIMENTI UN ALTRO NUMERO",,1))
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "CHIESTO DA ANTOR - AMBI UNITI CON DISTANZA MATEMATICA - SCRIPT Salvo50",1,,4,,3,,1
      If Amb = 1 Then Poste(2) = 1
      Poste(3) = 1
      For Es = Ini To FIn
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         For R1 = 1 To 10
            For P1 = 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P1 + 1)
               K = 0
               For K = 1 To 5
                  For R2 = 1 To 10
                     If R1 <> R2 Then
                        For P2 = 1 To 4
                           C = Estratto(Es + K,R2,P2)
                           D = Estratto(Es + K,R2,P2 + 1)
                           If A And C > 0 Then
                              If A = C Xor A = D Xor B = C Xor B = D Then
                                 If RicCont =  1 Then G = G + 1'------------------------------------
                                 DAB = Fuori90(90 +(A - B)) : DCD = Fuori90(90 +(C - D))
                                 If DAB = DCD Then
                                    If A = C Xor B = C Then N1 = A : N2 = B : N3 = D
                                    If A = D Xor B = D Then N1 = A : N2 = B : N3 = C
                                    FN1 = Figura(N1) : FN2 = Figura(N2) : FN3 = Figura(N3)
                                    Pr1 = Fuori90(FN1 * X) : Num(1) = Fuori90(90 +(N1 - Pr1))
                                    Pr2 = Fuori90(FN2 * X) : Num(2) = Fuori90(90 +(N2 - Pr2))
                                    Pr3 = Fuori90(FN3 * X) : Num(3) = Fuori90(90 +(N3 - Pr3))
                                    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 P3 = 1 To 5
                                       E1 = Estratto(Es,R1,P3)
                                       If E1 = A Or E1 = B Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E1) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "<-- Evidenziati Con Distanza Matematica " & Format2(DAB),1
                                    Scrivi(" Estrazione n." & Format2(Es + K) & " del " & DataEstrazione(Es + K)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P4 = 1 To 5
                                       E2 = Estratto(Es + K,R2,P4)
                                       If E2 = C Or E2 = D Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi "<-- Evidenziati Con Distanza Matematica " & Format2(DCD),1
                                    Scrivi
                                    Scrivi Space(29) & "Calcoli col Fuori90",1,,,2
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN1) & " = " & Format2(Pr1),1,0
                                    Scrivi "  -->  Estratto " & Format2(N1) & " - " & Format2(Pr1) & " = 1° Pronostico " & Format2(Num(1)),1
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN2) & " = " & Format2(Pr2),1,0
                                    Scrivi "  -->  Estratto " & Format2(N2) & " - " & Format2(Pr2) & " = 2° Pronostico " & Format2(Num(2)),1
                                    Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN3) & " = " & Format2(Pr3),1,0
                                    Scrivi "  -->  Estratto " & Format2(N3) & " - " & Format2(Pr3) & " = 3° Pronostico " & Format2(Num(3)),1
                                    Ruo(1) = TU_
                                    EliminaRipetuti Num
                                    ImpostaGiocata 1,Num,Ruo,Poste,Clp1
                                    Gioca Es + K,,,1
                                 End If
                              End If
                           End If
                           If G > 0 Then Exit For
                        Next
                     End If
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If X = 0 Then Scrivi " A QUESTA DOMANDA NON E' PERMESSO INSERIRE ZERO",1,,,2,4
End Sub
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Il secondo script è da riprendere, ho inserito un altro inputbox, ho messo la possibilità di scegliere se nella ricerca fermarsi al primo esito oppure no, praticamente se alla quarta domanda si inserisce il numero 1, nella ricerca della stessa distanza matematica dopo il primo riscontro passa ad un altra ruota, invece se si inserisce un qualsiasi altro numero, anche dopo il primo riscontro continua la ricerca, quindi logicamente nel secondo caso ci saranno più riscontri
 
A

antoR

Senior Member
Buongiorno, Salvo ho una richiesta da fare, nel tuo tempo libero e se puoi. Ho notato che lo script non ricerca nella stessa data di estrazione gli ambi in esame, ne a estrazione diverse nella stessa ruota, esempio:
gen 5 2019 NA - 22.37.90.56.15
gen 5 2019 VE - 32.07.56.44.69

gen 3 2019 MI - 19.09.66.07.56
gen 8 2019 MI - 13.59.56.15.21

E poi volevo chiederti se si può aggiungere anche la NAZIONALE come ruota di ricerca. Essendo una ricerca su tutti gli esiti mi interessa avere quanti più dati possibili nel mese in esame, per poi usarli per la ricerca della previsione. Questa è solo una parte di un metodo che sto mettendo a punto, sto sviluppando tutto a mano e se i risultati saranno positivi posterò tutto il metodo per poi vedere se sarà possibile uno script...Per ora ti ringrazio
Antonio
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Buongiorno, Salvo ho una richiesta da fare, nel tuo tempo libero e se puoi. Ho notato che lo script non ricerca nella stessa data di estrazione gli ambi in esame, ne a estrazione diverse nella stessa ruota, esempio:
gen 5 2019 NA - 22.37.90.56.15
gen 5 2019 VE - 32.07.56.44.69

gen 3 2019 MI - 19.09.66.07.56
gen 8 2019 MI - 13.59.56.15.21

E poi volevo chiederti se si può aggiungere anche la NAZIONALE come ruota di ricerca. Essendo una ricerca su tutti gli esiti mi interessa avere quanti più dati possibili nel mese in esame, per poi usarli per la ricerca della previsione. Questa è solo una parte di un metodo che sto mettendo a punto, sto sviluppando tutto a mano e se i risultati saranno positivi posterò tutto il metodo per poi vedere se sarà possibile uno script...Per ora ti ringrazio
Antonio
Clicca per espandere...

Ciao AntoR, penso si possa fare, appena posso lo faccio.

 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Scripr
Ambi Uniti Con Distanza Matematica
con le nuove richieste


Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,E2,X,K,G
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B,C,D
   Dim N1,N2,N3,FN1,FN2,FN3,Pr1,Pr2,Pr3,Amb
   Dim Ruo(2),Poste(3),Num(3),DAB,DCD,RicCont
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9756))'6293 esempio nelle spiegazioni
   Clp1 = CInt(InputBox("Per quanti colpi vuoi fare la ricerca del risultato?",,13))
   X = CInt(InputBox("INSERISCI IL NUMERO CHE VA MOLTIPLICATO PER LA FIGURA DELL'ESTRATTO",,9))
   If X > 0 Then
      RicCont = CInt(InputBox("SE NELLA RICERCA VUOI FERMARTI AL PRIMO ESITO METTI  1  ALTRIMENTI UN ALTRO NUMERO",,2))
      Amb = CInt(InputBox("SE VUOI LA RICERCA ANCHE DELL'AMBO METTI  1  ALTRIMENTI UN ALTRO NUMERO",,1))
      Call ScegliRange(Ini,FIn,Ini,FIn)
      Scrivi Space(12) & "CHIESTO DA ANTOR - AMBI UNITI CON DISTANZA MATEMATICA - SCRIPT Salvo50",1,,4,,3,,1
      Scrivi Space(12) & "AGGIUNTO CALCOLI TRA RUOTE UGUALI, ESTRAZIONE INIZIALE E NAZIONALE    ",1,,4,,3,,1
      If Amb = 1 Then Poste(2) = 1
      Poste(3) = 1
      For Es = Ini To FIn
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         For R1 = 1 To 12
            If R1 = 11 Then R1 = 12
            For P1 = 1 To 4
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P1 + 1)
               K = 0
               For K = 1 To 5
                  For R2 = 1 To 12
                     If R2 = 11 Then R2 = 12
                     For P2 = 1 To 4
                        C = Estratto(Es + K,R2,P2)
                        D = Estratto(Es + K,R2,P2 + 1)
                        If A And C > 0 Then
                           If A = C Xor A = D Xor B = C Xor B = D Then
                              If RicCont = 1 Then G = G + 1'------------------------------------
                              DAB = Fuori90(90 +(A - B)) : DCD = Fuori90(90 +(C - D))
                              If DAB = DCD Then
                                 If A = C Xor B = C Then N1 = A : N2 = B : N3 = D
                                 If A = D Xor B = D Then N1 = A : N2 = B : N3 = C
                                 FN1 = Figura(N1) : FN2 = Figura(N2) : FN3 = Figura(N3)
                                 Pr1 = Fuori90(FN1 * X) : Num(1) = Fuori90(90 +(N1 - Pr1))
                                 Pr2 = Fuori90(FN2 * X) : Num(2) = Fuori90(90 +(N2 - Pr2))
                                 Pr3 = Fuori90(FN3 * X) : Num(3) = Fuori90(90 +(N3 - Pr3))
                                 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 P3 = 1 To 5
                                    E1 = Estratto(Es,R1,P3)
                                    If E1 = A Or E1 = B Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "<-- Evidenziati Con Distanza Matematica " & Format2(DAB),1
                                 Scrivi(" Estrazione n." & Format2(Es + K) & " del " & DataEstrazione(Es + K)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                 For P4 = 1 To 5
                                    E2 = Estratto(Es + K,R2,P4)
                                    If E2 = C Or E2 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi "<-- Evidenziati Con Distanza Matematica " & Format2(DCD),1
                                 Scrivi
                                 Scrivi Space(29) & "Calcoli col Fuori90",1,,,2
                                 Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN1) & " = " & Format2(Pr1),1,0
                                 Scrivi "  -->  Estratto " & Format2(N1) & " - " & Format2(Pr1) & " = 1° Pronostico " & Format2(Num(1)),1
                                 Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN2) & " = " & Format2(Pr2),1,0
                                 Scrivi "  -->  Estratto " & Format2(N2) & " - " & Format2(Pr2) & " = 2° Pronostico " & Format2(Num(2)),1
                                 Scrivi " Fisso " & Format2(X) & " * Figura Estratto " & Format2(FN3) & " = " & Format2(Pr3),1,0
                                 Scrivi "  -->  Estratto " & Format2(N3) & " - " & Format2(Pr3) & " = 3° Pronostico " & Format2(Num(3)),1
                                 Ruo(1) = TU_
                                 Ruo(2) = NZ_
                                 EliminaRipetuti Num
                                 ImpostaGiocata 1,Num,Ruo,Poste,Clp1
                                 Gioca Es + K,,,1
                              End If
                           End If
                        End If
                        If G > 0 Then Exit For
                     Next
                  Next
               Next
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
   If X = 0 Then Scrivi " A QUESTA DOMANDA NON E' PERMESSO INSERIRE ZERO",1,,,2,4
End Sub
 
Ultima modifica:
A

antoR

Senior Member
Ciao Salvo, scusami se ti importuno ma credo che ci sia un errore nello script
Estrazione 9572 caso 0001
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Sono ripetute due volte
Estrazione 9572 caso 0002
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
ed è sempre la stessa ruota nella stessa estrazione e ho notato anche che la nazionale non viene menzionata.
Saluti Antonio
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Ciao Salvo, scusami se ti importuno ma credo che ci sia un errore nello script
Estrazione 9572 caso 0001
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Sono ripetute due volte
Estrazione 9572 caso 0002
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
Estrazione n.9572 del 02.01.2019 FI 53 73 03 08 25 <-- Evidenziati Con Distanza Matematica 70
ed è sempre la stessa ruota nella stessa estrazione e ho notato anche che la nazionale non viene menzionata.
Saluti Antonio
Clicca per espandere...

1) La Nazionale c'è, la sigla è NZ

2) Quando faccio i calcoli nella stessa ruota ne vengono sempre 2 uguali,
soluzioni: lasciarlo con i doppioni o eliminare i calcoli con la stessa ruota
purtroppo io non so fare di meglio.

comunque chiedo aiuto agli esperti se possono darmi qualche suggerimento
normalmente per fare il controllo su 2 ruote distinte faccio così

For R1 = 1 To 9
For R2 = R1 + 1 To 10
-----------------------------
Per fare il controllo anche con ruote uguali faccio così
For R1 = 1 To 10
For R2 = 1 To 10
è logicamente vengono i doppioni, esiste qualche altro modo per
fare il controllo nella stessa ruota e contemporaneamente anche su altre ruote
senza i doppioni?

Grazie
 
A

antoR

Senior Member
Ciao Salvo, ho trovato l'inghippo, è stata una tua dimenticanza For R2 = R1 + 1 To 12 hai dimenticato R1+. A meno che non cambia la data di estrazione non serve fare il controllo nella stessa ruota. e come l'avevi impostata tu faceva il controllo nella stessa ruota e nella stessa data. Con la variante da te suggerita, probabilmente trova solo le ruote diverse sia nella stessa data che in date diverse.Ho fatto dei controlli e la Nazionale non è mai menzionata in nessuna ricerca, nè dà nessun estratto nel resoconto:
.
Estrazione n.9756 del 05.03.2020 NA 85 18 90 31 75 <-- Evidenziati Con Distanza Matematica 46
Estrazione n.9758 del 10.03.2020 GE 77 31 27 16 21 <-- Evidenziati Con Distanza Matematica 46
Calcoli col Fuori90
Fisso 09 * Figura Estratto 04 = 36 --> Estratto 31 - 36 = 1° Pronostico 85
Fisso 09 * Figura Estratto 03 = 27 --> Estratto 75 - 27 = 2° Pronostico 48
Fisso 09 * Figura Estratto 05 = 45 --> Estratto 77 - 45 = 3° Pronostico 32
MI da il 48 solo su Napoli e non menziona la NZ
Estrazione n. 31del 12/03/2020
Nazionale6648505557
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Ciao Salvo, ho trovato l'inghippo, è stata una tua dimenticanza For R2 = R1 + 1 To 12 hai dimenticato R1+. A meno che non cambia la data di estrazione non serve fare il controllo nella stessa ruota. e come l'avevi impostata tu faceva il controllo nella stessa ruota e nella stessa data. Con la variante da te suggerita, probabilmente trova solo le ruote diverse sia nella stessa data che in date diverse.Ho fatto dei controlli e la Nazionale non è mai menzionata in nessuna ricerca, nè dà nessun estratto nel resoconto:
.
Estrazione n.9756 del 05.03.2020 NA 85 18 90 31 75 <-- Evidenziati Con Distanza Matematica 46
Estrazione n.9758 del 10.03.2020 GE 77 31 27 16 21 <-- Evidenziati Con Distanza Matematica 46
Calcoli col Fuori90
Fisso 09 * Figura Estratto 04 = 36 --> Estratto 31 - 36 = 1° Pronostico 85
Fisso 09 * Figura Estratto 03 = 27 --> Estratto 75 - 27 = 2° Pronostico 48
Fisso 09 * Figura Estratto 05 = 45 --> Estratto 77 - 45 = 3° Pronostico 32
MI da il 48 solo su Napoli e non menziona la NZ
Estrazione n. 31del 12/03/2020
Nazionale6648505557
Clicca per espandere...

Ciao AntoR, ho tolto i calcoli della seconda ruota nell'estrazione iniziale
A riguardo della Nazionale, hai ragione era solo nei calcoli ma non nella ricerca, perchè in tutte le ruote non c'è la nazionale, adesso l'ho inserita anche nella ricerca, fammi sapere.
 
A

antoR

Senior Member
Salvo, tutto OK....
Scusami una domanda sto cercando di capire gli script, potresti spiegarmi cosa significa quel 1,0 alla fine di alcune stringhe? esempio: oppure c'è solo 1
Scrivi " " & SiglaRuota(R1) & " ",1,0
Scrivi "<-- Evidenziati Con Distanza Figurale " & Format2(DAB),1
Grazie Antonio
 
Ultima modifica:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
antoR ha scritto:
Salvo, tutto OK....
Scusami una domanda sto cercando di capire gli script, potresti spiegarmi cosa significa quel 1,0 alla fine di alcune stringhe? esempio: oppure c'è solo 1
Scrivi " " & SiglaRuota(R1) & " ",1,0
Scrivi "<-- Evidenziati Con Distanza Figurale " & Format2(DAB),1
Grazie Antonio
Clicca per espandere...

Nella funzione Scrivi, il primo 1 gli dice allo script di far apparire la scritta in grassetto, se quando compili lo script vai a capo, mettendo lo zero al secondo posto, nel output appare tutto in una riga
ad esempio

Scrivi Space(12) & "CHIESTO DA ANTOR - AMBI UNITI CON DISTANZA MATEMATICA - SCRIPT Salvo50",1,,4,,3,,1

al primo posto l' 1 vuol dire scrivi in grassetto
al secondo posto non c'è niente perchè in questo caso non voglio che le scritte delle righe
successive me li scriva in questa riga
al terzo posto c'è un quattro che indica il colore dello sfondo della scritta
al quarto posto non c'è niente, quindi la scritta la scrive di colore nero, se ad esempio la volessi
scrivere in rosso mettevo 2
al quinto posto c'è un 3 gli indico la grossezza della scritta

questo vale solo per la funzione Scrivi

comunque per qualunque funzione se in un punto qualsiasi della riga fai spazio, appare una riga gialla sotto che ti indica ogni posto quello che vuol dire
 
T

texwiller356

Advanced Member
non esiste metodo al lotto, i numeri escono sempre in modo casuale, solo la statistica potrebbe dare, una speranzella tutto il resto non conta. ci sono terni mai usciti. I numeri non hanno memoria, ed è giusto che sia così
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto