Novità

Per GioRyuKen72

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Ciao GioRyuKen72

La tua richiesta nell'altro 3D, oltre a come fare, era se esisteva una funzione che rivelasse se in un gruppo di variabili ci sono dei numeri doppi, non lo sò se esiste questa funzione, nel tuo esempio hai esposto 3 variabili

ed io ho risposto così

If Amba2 = Amb2 Then Amb2 = Amb2 + 9
If Amba2 = Tern2 Then Tern2 = Tern2 + 9
If Amb2 = Tern2 Then Tern2 = Tern2 + 9

Voglio precisare che questa soluzione va bene se le variabili sono poche ad esempio 3, ma se sono molte di più ad esempio 10, la soluzione adottata da me non va bene perchè dovresti fare 45 IF-THEN quanti sono gli ambi che si formano con 10 numeri

Nel 3D postato da Alien TROVARE QUANTI PUNTI A FATTO

https://forum.lottoced.com/forum/lot...punti-ha-fatto

al post 3 c'è lo script postato da Pomito dove se ci sono dei numeri ripetuti li rileva e poi vede quello che ci deve fare, in questo caso vengono aumentati di 1
 
Ultima modifica:

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Grazie per il tuo aiuto Salvo, mi hai risolto il problema :)
Nell'altro thread ho cancellato i miei interventi.

Un consiglio.. se avessi ancora bisogno di qualche suggerimento, posso scrivere su questo thread o mi consigli di aprirne un altro con la nuova richiesta?

Ciao a tutti :D
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao GioRyuKen72

Usa pure questo thread, io quando ho iniziato a fare gli script, qualche anno fa, ho aperto un thread ed ho usato quasi sempre lo stesso thread per chiedere aiuti a tutti gli scripters, adesso quando non ricordo qualcosa degli aiuti che avevo chiesto, non devo cercare in tutto il forum, mi basta cercare nel 3D che avevo aperto per chiedere gli aiuti.
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Buonasera a tutti, avrei bisogno di una dritta per gli script anzi 2..

1) per fare la ricerca sull'ultima estrazione del mese, quale codice devo usare?
ho provato Ultima,UltimaMensile e UltimaDelMese senza aver successo..

Caspita l'ho trovata ora.. é :IsUltimaDelMese
scusatemi.. :(

2) è possibile far ricercare un determinato terno composto da cadenza e decina?
avrei bisogno di ricercare un terno formato da numeri misti della cadenza e/o della decina dell' 8.

Modificando uno script di Roy sono arrivato a questo:

Codice:
For r1 = 9 To 9
         If r1 <> 11 Then
            For p1 = 1 To 3
               For p2 = p1 + 1 To 4
                  For p3 = p2 + 1 To 5
                     n1 = Estratto(es,r1,p1)
                     n2 = Estratto(es,r1,p2)
                     n3 = Estratto(es,r1,p3)
If Cadenza(n1) = Cadenza(n2) And Cadenza(n2) = Cadenza(n3) And Cadenza(n1) = Cadenza(n3) And Cadenza(n3) Or Decina(n1) = Decina(n2) And Decina(n2) = Decina(n3) And Decina(n3) = Decina(n1) And Decina(n3) = 8 Then

purtoppo il risultato non è quello da me richiesto, perchè trova terni anche in altre cadenze.


Grazie per l'attenzione, non ho assolutamente urgenza..
Buona cena a tutti.
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
GioRyuKen72;n2162210 ha scritto:
Buonasera a tutti, avrei bisogno di una dritta per gli script anzi 2..

1) per fare la ricerca sull'ultima estrazione del mese, quale codice devo usare?
ho provato Ultima,UltimaMensile e UltimaDelMese senza aver successo..

Caspita l'ho trovata ora.. é :IsUltimaDelMese
scusatemi.. :(

2) è possibile far ricercare un determinato terno composto da cadenza e decina?
avrei bisogno di ricercare un terno formato da numeri misti della cadenza e/o della decina dell' 8.

Modificando uno script di Roy sono arrivato a questo:

Codice:
For r1 = 9 To 9
If r1 <> 11 Then
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
n3 = Estratto(es,r1,p3)
If Cadenza(n1) = Cadenza(n2) And Cadenza(n2) = Cadenza(n3) And Cadenza(n1) = Cadenza(n3) And Cadenza(n3) Or Decina(n1) = Decina(n2) And Decina(n2) = Decina(n3) And Decina(n3) = Decina(n1) And Decina(n3) = 8 Then

purtoppo il risultato non è quello da me richiesto, perchè trova terni anche in altre cadenze.


Grazie per l'attenzione, non ho assolutamente urgenza..
Buona cena a tutti.

Ciao, GioRyuKen72

Potresti mettere come esempio (anche fittizio) come devono essere i terni, perchè io ho capito che i tre numeri devono avere la stessa cadenza e la decina 8, ma se hanno la stessa cadenza vengono fuori 3 numeri uguali, quindi ne deduco che ho capito male, per questo ho chiesto l'esempio
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Ciao Salvo,
eccone alcuni: 18-28-83, 08-81-80, 18-28-38 o 80-83-84
l'importante è che il terno di ricerca sia formato dai 19 numeri (9 cadenza + 10 decina).
Spero di averti tolto i dubbi.
Grazie Salvo.

Gio.
 

salvo50

Advanced Member >PLATINUM PLUS<
GioRyuKen72;n2162233 ha scritto:
Ciao Salvo,
eccone alcuni: 18-28-83, 08-81-80, 18-28-38 o 80-83-84
l'importante è che il terno di ricerca sia formato dai 19 numeri (9 cadenza + 10 decina).
Spero di averti tolto i dubbi.
Grazie Salvo.

Gio.

A questo punto non ci stò capendo più niente, prima avevi detto stessa cadenza e decina 8, adesso dici (9 cadenza + 10 decina) Boh...

prova questo, fammi sapere

Codice:
Option Explicit
Sub Main
   Dim Fin,Ini,Es,R1,Caso,Casi,P1,P2,P3,Ruo
   Dim N1,N2,N3,DecN1,DecN2,DecN3,CadN1,CadN2,CadN3
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,9000)
   Ruo = CInt(InputBox(" In quale ruota vuoi giocare?",,6))
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      Caso = 0
      AvanzamentoElab Ini,Fin,Es
      For R1 = Ruo To Ruo
         For P1 = 1 To 3
            For P2 = P1 + 1 To 4
               For P3 = P2 + 1 To 5
                  N1 = Estratto(Es,R1,P1)
                  N2 = Estratto(Es,R1,P2)
                  N3 = Estratto(Es,R1,P3)
                  DecN1 = Decina(N1)
                  DecN2 = Decina(N2)
                  DecN3 = Decina(N3)
                  CadN1 = Cadenza(N1)
                  CadN2 = Cadenza(N2)
                  CadN3 = Cadenza(N3)
                  If(DecN1 = 8 And DecN2 = 8 And DecN3 = 8)Or(CadN1 = CadN2 And CadN1 = CadN3)_
                     Or(DecN1 = 8 And DecN2 = 8 And DecN3 <> 8)Or(DecN1 = 8 And DecN2 <> 8 And DecN3 = 8) _
                     Or(DecN1 <> 8 And DecN2 = 8 And DecN3 = 8) Or(CadN1 = CadN2 And DecN3 = 8) _
                     Or(CadN1 = CadN3 And DecN2 = 8) Or(CadN2 = CadN3 And DecN1 = 8) Then
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                     Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                     Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                     Scrivi
                     Scrivi Space(40) & Format2(N1) & " " & Format2(N2) & " " & Format2(N3),1,,,2
                  End If
               Next
            Next
         Next
      Next
   Next
End Sub
 
Ultima modifica:

GioRyuKen72

Advanced Member >PLATINUM PLUS<
salvo50;n2162254 ha scritto:
A questo punto non ci stò capendo più niente, prima avevi detto stessa cadenza e decina 8, adesso dici (9 cadenza + 10 decina) Boh...

prova questo, fammi sapere

Ciao Salvo, mi dispiace averti confuso le idee.. intendevo che il terno di ricerca fosse formato dalla cadenza e/o dalla decina dell'8.. il totale dei numeri è 19, ossia 9 numeri in cadenza dell'8 più 10 numeri della decina dell'8..

comunque ti ringrazio perchè mi hai dato la soluzione, modificando il tuo ultimo script

Codice:
 If(DecN1 = 8 And DecN2 = 8 And DecN3 = 8)_
                  Or(CadN1 = 8 And CadN2 = 8 And CadN3= 8) Then

Salvo, grazie per la pazienza e per l'aiuto.

Gio.
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Ciao a tutti,
avrei bisogno di vedere i numeri usciti di una estrazione al 10eLotto serale.
Come richiamo questa stringa?

Grazie Gio.
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
GioRyuKen72;n2166460 ha scritto:
Ciao a tutti,
avrei bisogno di vedere i numeri usciti di una estrazione al 10eLotto serale.
Come richiamo questa stringa?

Grazie Gio.

Ciao a tutti, letta così effettivamente non è molto chiara..

Riepilogando e facendo un esempio pratico:
Avevo letto qui nel forum che un utente, di cui non ricordo il nome (chiedo schiuma :D), aveva notato che dopo l'uscita del numero 55 in quinta posizione estrazionale su qualsiasi ruota, sortiva frequentemente il numero 10 al 10elotto serale..

La mia richiesta script di conseguenza:
è possibile avere una "classifica" dei numeri più frequenti (direi per 3 concorsi..quindi 60 numeri meno le ripetizioni) da abbinare al nr 10?

io l'ho fatto visivamente e per pochi concorsi ed ho fatto questo:
Codice:
Sub Main()
   Dim Ini,Fin,Es,Casi,r1,p1,n1,Numero,Posto
   Dim Salvo50,Num1,Num2,Num3,Num4,Num5,Num6,Num7,Num8,Num9,Num10
   Dim Decina1(10),Ruo(2),Quartina1(4)
     Fin = EstrazioneFin
   Ini = InputBox("Da qual'è estrazione vuoi iniziare?","Salvo50",9416)
   Numero = CInt(InputBox("Quale numero vuoi ricercare?",,55))
   Posto = CInt(InputBox(" In quale posizione?",,5))
   Call ScegliRange(Ini,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For r1 = 1 To 10
          'For p1 = 5 To 5
          p1= Posto
            n1 = Estratto(Es,r1,p1)
            If n1 = Numero Then
           ' If p1= Posto Then
               Num1 = 10
               Num2 = 13
               Num3 = 50
               Num4 = 55
               Num5 = 57
               Num6 = 59
               Num7 = 62
               Num8 = 72
               Num9 = 84
               Num10 = 90
               Casi = Casi + 1
               Ruo(1) = r1
               ColoreTesto 1
               Scrivi String(96,"*") & " Caso " & FormattaStringa(Casi,"0000")
               ColoreTesto 2
               Scrivi "  " & SiglaRuota(r1) & " " & StringaEstratti(Es,r1),1
               ColoreTesto 0
               Quartina1(1) = Num1
               Quartina1(2) = Num4
               Quartina1(3) = Num6
               ' Quartina1(4) = Num4
               ImpostaGiocataDL 1,Quartina1,1,6,2
               Decina1(1) = Num1
               Decina1(2) = Num2
               Decina1(3) = Num3
               Decina1(4) = Num4
               Decina1(5) = Num5
               Decina1(6) = Num6
               Decina1(7) = Num7
               Decina1(8) = Num8
               Decina1(9) = Num9
               Decina1(10) = Num10
               ImpostaGiocataDL 2,Decina1,1,6
               GiocaDL Es,,,1
            End If
            'End If
        ' Next
      Next
   Next
   ColoreTesto 0
   Scrivi String(65,"•")
   TestoInBandaPassante " ***** Listato by  GioRyuKen72, Struttura di Salvo50 ***** " ,1,3,0
   ScriviResocontoDL
End Sub

Buona Serata, Gio
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Ciao a tutti,
una domanda sugli script..
E' possibile lavorare su più estrazioni della stessa ruota?

ad esempio, giusto per farmi capire..
è possibile sommare il primo estratto prima dell'estrazione mensile e primo estratto dell'ultima mensile?

Grazie a tutti.
Buona giornata
Gio.
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
​​​​​​​Ciao, 
grazie per la risposta Salvo.. hai qualche script già pronto, in modo che io possa studiarmelo o quando ne avrò bisogno ti farò la richiesta ?
 

GioRyuKen72

Advanced Member >PLATINUM PLUS<
Ciao a tutti,
ho provato a fare uno script sulla ricerca della doppia quaterna, caso del 07/09/2019
Dalla foto di chloe, nel post "Incredibile..." di [USER][/USER], ho visto che era già successo altre 2 volte.

Una volta nell'estrazione 7305 del 17/01/2004 e l'altra nell'estrazione 7965 del 25/09/2008.

Purtroppo nel mio script riesco a trovare solo il caso dell'estrazione 7305 e non gli altri 2..

Qualcuno di voi ha tempo per dare un'occhiata (senza fretta) e correggerlo?

Grazie Infinite.

Gio.

Codice:
Sub Main
   ColoreTesto 0
   Scrivi " METODO DOPPIA QUATERNA  -------- LISTATO BY SALVO50 modificato da GIORYUKEN72",,1,3,,4
   Scrivi
   ColoreTesto 0
   Dim Fin,Ini,Es,R1,R2,Casi,P1,P2,P3,P4
   Dim N1,N2,N3,N4,N5,N6,N7,N8,cinquina1(5),Terzina1(3),Terzina2(3)
   Dim ruota(2),posteC(4),posteT(3)
   posteC(2) = 1.8 'euro sulla sorte Ambo in Cinquina
   posteC(3) = 0.5 'euro sulla sorte Terno in Cinquina
   posteC(4) = 0.2 'euro sulla sorte Quaterna in Cinquina
   posteT(2) = 1 'euro sulla sorte Ambo in Terzina
   posteT(3) = 0.5 'euro sulla sorte Terno in Terzina
   Fin = EstrazioneFin
   Ini = InputBox("Da quale estrazione vuoi inziare la ricerca?","INSERIRE IL NUMERO DELL'ESTRAZIONE",7300)
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            For P1 = 1 To 2
               For P2 = P1 + 1 To 3
                  For P3 = P2 + 1 To 4
                     For P4 = P3 + 1 To 5
                        N1 = Estratto(Es,R1,P1)
                        N2 = Estratto(Es,R1,P2)
                        N3 = Estratto(Es,R1,P3)
                        N4 = Estratto(Es,R1,P4)
                        N5 = Estratto(Es,R2,P1)
                        N6 = Estratto(Es,R2,P2)
                        N7 = Estratto(Es,R2,P3)
                        N8 = Estratto(Es,R2,P4)
                        'ok = 0
                        If N1 = N5 Or N1 = N6 Or N1 = N7 Or N1 = N8 Then
                           If N2 = N5 Or N2 = N6 Or N2 = N7 Or N2 = N8 Then
                              If N3 = N5 Or N3 = N6 Or N3 = N7 Or N3 = N8 Then
                                 If N4 = N5 Or N4 = N6 Or N4 = N7 Or N4 = N8 Then
                                    'If ok = 0 Then
                                       Casi = Casi + 1
                                       ruota(1) = R1
                                       ruota(2) = R2
                                       Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Casi,"0000"),1,,,1
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                                       Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                       Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
                                       Scrivi Space(40) & "[N1] " & Format2(N1) & "  " & "[N2] " & Format2(N2) & "  " & "[N3] " & Format2(N3) & "  " & "[N4] " & Format2(N4),1,,,2
                                       Scrivi Space(40) & "[N5] " & Format2(N5) & "  " & "[N6] " & Format2(N6) & "  " & "[N7] " & Format2(N7) & "  " & "[N8] " & Format2(N8),1,,,2
                                       ColoreTesto 0
                                       'Gioca Es,,,1
                                    'End If
                                 End If
                              End If
                           End If
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   ColoreTesto 0
   Scrivi String(65,"•")
   TestoInBandaPassante " ***** LISTATO BY SALVO50 modificato da GIORYUKEN72 ***** ",1,3,0
   ScriviResoconto
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Buona serata a tutte/i.

I vari moduli dello script lo rendono più selettivo del necessario.

Imponendo isotopia tra gli estratti ad esempio quella di N1 ed N5 in P1 ecc, ecc,

lo si conduce ad escludere alcuni dei pochi casi diversamente presenti.

:)
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Joe, GioRyuKen72

Non mi ricordo d'aver fatto questo script, DOPPIA QUATERNA.

Qualche volta è capitato pure a me di non capire perchè alcuni ambi, terni ecc... gli script li saltavano, grazie per quest'altra pillolina, a modo mio ho corretto lo script di GioRyuKen72, se hai una soluzione più "elegante" , e vuoi darci qualche altro consiglio, è ben accetto

Codice:
Sub Main
   ColoreTesto 0
   Scrivi " METODO DOPPIA QUATERNA  -------- LISTATO BY SALVO50 modificato da GIORYUKEN72",,1,3,,4
   Scrivi
   ColoreTesto 0
   Dim Fin,Ini,Es,R1,R2,Casi,P1,P2,P3,P4,P5,P6,P7,P8
   Dim N1,N2,N3,N4,N5,N6,N7,N8,cinquina1(5),Terzina1(3),Terzina2(3)
   Dim ruota(2),posteC(4),posteT(3)
   posteC(2) = 1.8 'euro sulla sorte Ambo in Cinquina
   posteC(3) = 0.5 'euro sulla sorte Terno in Cinquina
   posteC(4) = 0.2 'euro sulla sorte Quaterna in Cinquina
   posteT(2) = 1 'euro sulla sorte Ambo in Terzina
   posteT(3) = 0.5 'euro sulla sorte Terno in Terzina
   Fin = EstrazioneFin
   Ini = InputBox("Da quale estrazione vuoi inziare la ricerca?","INSERIRE IL NUMERO DELL'ESTRAZIONE",7300)
   Call ScegliRange(EstrazioneIni,Fin,Ini,EstrazioneFin)
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            For P1 = 1 To 2
               For P2 = P1 + 1 To 3
                  For P3 = P2 + 1 To 4
                     For P4 = P3 + 1 To 5
                        N1 = Estratto(Es,R1,P1)
                        N2 = Estratto(Es,R1,P2)
                        N3 = Estratto(Es,R1,P3)
                        N4 = Estratto(Es,R1,P4)
                        For P5 = 1 To 2
                           For P6 = P5 + 1 To 3
                              For P7 = P6 + 1 To 4
                                 For P8 = P7 + 1 To 5
                                    N5 = Estratto(Es,R2,P5)
                                    N6 = Estratto(Es,R2,P6)
                                    N7 = Estratto(Es,R2,P7)
                                    N8 = Estratto(Es,R2,P8)
                                    'ok = 0
                                    If N1 = N5 Or N1 = N6 Or N1 = N7 Or N1 = N8 Then
                                       If N2 = N5 Or N2 = N6 Or N2 = N7 Or N2 = N8 Then
                                          If N3 = N5 Or N3 = N6 Or N3 = N7 Or N3 = N8 Then
                                             If N4 = N5 Or N4 = N6 Or N4 = N7 Or N4 = N8 Then
                                                'If ok = 0 Then
                                                Casi = Casi + 1
                                                ruota(1) = R1
                                                ruota(2) = R2
                                                Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Casi,"0000"),1,,,1
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                                                Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                                Scrivi "  " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1
                                                Scrivi Space(40) & "[N1] " & Format2(N1) & "  " & "[N2] " & Format2(N2) & "  " & "[N3] " & Format2(N3) & "  " & "[N4] " & Format2(N4),1,,,2
                                                Scrivi Space(40) & "[N5] " & Format2(N5) & "  " & "[N6] " & Format2(N6) & "  " & "[N7] " & Format2(N7) & "  " & "[N8] " & Format2(N8),1,,,2
                                                ColoreTesto 0
                                                'Gioca Es,,,1
                                                'End If
                                             End If
                                          End If
                                       End If
                                    End If
                                 Next
                              Next
                           Next
                        Next
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   ColoreTesto 0
   Scrivi String(65,"•")
   TestoInBandaPassante " ***** LISTATO BY SALVO50 modificato da GIORYUKEN72 ***** ",1,3,0
   'ScriviResoconto
End Sub
 

i legend

Premium Member
Ciao
cicli le ruote
Utilizzi getarraynumeriruota
If puntisuarray(awstrattir1,aestrattir2)= 4 poi


Ciao
Oppure scrivi tu la funzione e se ci sono più di un numero che non coincide esci fuori
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Ilegend, Salvo & Co.

La richiesta di correzione m'ha indirizzato a quella risposta.

con quanto hai proposto si scrive veramente, pocchissimo codice,

però nel "poi" che hai scritto si sottintende che sia un pochino più difficile

recuperare i numeri di cui si compongono le quaterne.

Codice:
Option Explicit
Sub Main
'Ricerca Quaterne Ripetute By Joe V.2.0 del 11/09/2019 
  Dim Ini,Fin,Es
  Dim R,S,A,B,P,Q
  Ini = 3950 : Fin = EstrazioneFin
  For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
    For R = 1 To 10
      Call GetArrayNumeriRuota(Es,R,A)
      For S = R + 1 To 12 : If S = 11 Then S = 12
        Call GetArrayNumeriRuota(Es,S,B)
        If PuntiSuArray(A,B) = 5 Then
          Scrivi DataEstrazione(Es) & " ",True
          Scrivi SiglaRuota(R) & " " & StringaNumeri(A,".",True)
          Scrivi SiglaRuota(S) & " " & StringaNumeri(B,".",True)
          Scrivi "QT ",True,False
          For P = 1 To 5
            For Q = 1 To 5
              If A(P) = B(Q) Then Scrivi Format2(A(P)) & ".",True,False
            Next
          Next
          Scrivi
          Scrivi String(18,"-")
        End If
      Next
    Next
  Next
  Scrivi TempoTrascorso
End Sub

:) Buona serata a tutte/i.
 

salvo50

Advanced Member >PLATINUM PLUS<
joe;n2189709 ha scritto:
Ciao Ilegend, Salvo & Co.

La richiesta di correzione m'ha indirizzato a quella risposta.

con quanto hai proposto si scrive veramente, pocchissimo codice,

però nel "poi" che hai scritto si sottintende che sia un pochino più difficile

recuperare i numeri di cui si compongono le quaterne.

Codice:
Option Explicit
Sub Main
'Ricerca Quaterne Ripetute By Joe V.2.0 del 11/09/2019
Dim Ini,Fin,Es
Dim R,S,A,B,P,Q
Ini = 3950 : Fin = EstrazioneFin
For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
For R = 1 To 10
Call GetArrayNumeriRuota(Es,R,A)
For S = R + 1 To 12 : If S = 11 Then S = 12
Call GetArrayNumeriRuota(Es,S,B)
If PuntiSuArray(A,B) = 5 Then
Scrivi DataEstrazione(Es) & " ",True
Scrivi SiglaRuota(R) & " " & StringaNumeri(A,".",True)
Scrivi SiglaRuota(S) & " " & StringaNumeri(B,".",True)
Scrivi "QT ",True,False
For P = 1 To 5
For Q = 1 To 5
If A(P) = B(Q) Then Scrivi Format2(A(P)) & ".",True,False
Next
Next
Scrivi
Scrivi String(18,"-")
End If
Next
Next
Next
Scrivi TempoTrascorso
End Sub

:) Buona serata a tutte/i.

Grazie Joe, Ilegend
 
Ultima modifica:

GioRyuKen72

Advanced Member >PLATINUM PLUS<
joe;n2189669 ha scritto:
Buona serata a tutte/i.

I vari moduli dello script lo rendono più selettivo del necessario.

Imponendo isotopia tra gli estratti ad esempio quella di N1 ed N5 in P1 ecc, ecc,

lo si conduce ad escludere alcuni dei pochi casi diversamente presenti.

:)

Grazie joe , mi ha fatto capire dove sbagliavo, qui ed in altri script..;)

Gio.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16

Ultimi Messaggi

Alto