Novità

R.I.V.

joe

Advanced Member >PLATINUM PLUS<
Io che ci capisco molto poco,mi sembra un ottimo lavoro e da quello che ho capito è proprio quello che intende il Baffone.Ieri ho notato che anche le spie isotope uguali consecutive danno esiti sulle ruote interessate il mese sucessivo ma ,bisogna verificare sempre nel tempo per vedere se si tratta solo di casualità

Non è un granché giocare il ripetuto isotopo,

ma è molto meglio di molti altri metodi assai peggiori.

Questo script ... gioca quello che trova di ripetuto isotopo.

Come detto, non da certezze di vincita ... ma vincite "in linea"

con quanto teoricamente ci si aspetta di realizzare,

dunque è meglio dei metodi che fanno perdere più del previsto.

Codice:
Option Explicit
Sub Main
'Ripetuto isotopo (in gioco su ruota)
   Dim Es,G,R,P,E,K
   Dim NU(1),Ru(1),Po(1),Co : Po(1) = 1 : Co=9
   For Es = EstrazioneFin - 1000 To EstrazioneFin
      G = 0
      For R = 1 To 10
         For P = 1 To 5
            E = Estratto(Es,R,P)
            If  Estratto(Es - 1,R,P) = E Then
            K= K+1 
            Scrivi String (100,"=") & FormatSpace (K,4,1),1,,,1
            Scrivi String (120," ") &Format2 (E),1,,,1
               G = G + 1
               NU(1) = E : Ru(1) =R
               ImpostaGiocata G,NU,Ru,Po,Co
            End If
         Next
      Next
      If G > 0 Then Gioca Es,True
   Next
   ScriviResoconto
End Sub

:)
 

BaffoBlù

Advanced Member >PLATINUM<
Secondo me è piuttosto sbagliato raccogliere

i 5 estratti (diciamo in orizzontale)

quando quello che intendi cercare sarebbe "in verticale"

e solo nella "una" colonna delle 5.

Dunque ti consiglio di considerare una sola colonna.

Contare quanti 1,2,2,3...88.89.90

ci sono tra i 12.13 ... 20 Estratti

che sei in grado di delimitare mensilmente.

:)
grazie, è l'input che cercavo

mi servirà anche per il futuro...
 

BaffoBlù

Advanced Member >PLATINUM<
Ciao Baffo. Vedi se tu può essere utile questa mia modifica. Ho isolato i numeri ripetuti e poi ho inserito una giocata fittizia che li considera tutti ( se sono meno di 10). Ciao, Maldor
Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim Ruote(11)
   Dim posta(10)
   posta(1) = 1
   posta(2) = 1
   posta(3) = 1
   clp = 18
   ini = 10200' 4121'Inizio 1950
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
         fin = EstrazioneFin
   Else
         fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Colonne Isotopie ",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         A  . B  . C  . D  . E  . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                   Num = Estratto(esj,r,pos)
                   If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                   aNum(Nr) = Vet_ripetuti(Nr)
                   Scrivi aNum(Nr) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi

            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            Ruote(1) = r
            ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizia !!!
            Gioca esj,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto,False
End Sub
Grande maldor! Grazie!

direi che ci siamo proprio

adesso tutto questo è da studiare con calma

ecco lo script finale al completo per lo studio

chi vuole ne ha da studiare...



Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim ruota(11)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   ruota(1) = r
   ruote(1) = 11
   clp = 18
   ini = 10000 ' Inizio 2022 Circa
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
      fin = EstrazioneFin
   Else
      fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Isotopie Ripetute",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                  aNum(Nr) = Vet_ripetuti(Nr)
                  Scrivi Format2(aNum(Nr)) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi
            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            ruota(1) = r
            ruote(1) = 11
            ImpostaGiocata 1,aNum,ruota,posta,clp
            ImpostaGiocata 2,aNum,ruote,poste,clp
            Gioca esj,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
   ScriviResoconto,False
End Sub
 

joe

Advanced Member >PLATINUM PLUS<
Risultati migliori si ottengono principalmente con Roma

ed in subordine con Torino e Venezia indicativamente giocando solo nelle Ruote

solo l'Ambo entro la caduta nei 9 colpi.

Sempre fermo restando che si tratta di risultati in archivio già formato ...

e come si usa dire ... non garantiscono risultati futuri.

:)
 

Acquafresca

Super Member >GOLD<
Scusate se intervengo ma siccome ne capisco poco, ho fatto girare lo script che anche a mio parere non è per niente male ,ma ho notato che non rileva l'ultima estrazione ,l'elaborazione rileva fino al 02/07/2024 con i risultati ,forse è da rivedere qualcosa
 

Oberdan

Member
Grande maldor! Grazie!

direi che ci siamo proprio

adesso tutto questo è da studiare con calma


ecco lo script finale al completo per lo studio

chi vuole ne ha da studiare...



Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim ruota(11)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   ruota(1) = r
   ruote(1) = 11
   clp = 18
   ini = 10000 ' Inizio 2022 Circa
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
      fin = EstrazioneFin
   Else
      fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   For r = 1 To 11
      If r = 11 Then r = 12
      co = 0
      Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
      Scrivi "                                        Controllo Isotopie Ripetute",1
      Scrivi
      For es = ini To fin
         Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
         Call AvanzamentoElab(ini,fin,es)
         If IndiceMensile(es) = 1 Then
            Erase Vet_Controllo
            Erase Vet_ripetuti
            Erase Mat_estr_mod
            Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
                  Mat_estr_mod(j,pos) = Num
               Next
               If IsUltimaDelMese(esj) Then Exit For
            Next
            For j = 0 To 20
               esj = es + j
               For pos = 1 To 5
                  Num = Estratto(esj,r,pos)
                  If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
               Next
               Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
               If IsUltimaDelMese(esj) Then Exit For
            Next
            conta = 0
            For k = 1 To 90
               For kk = 1 To 5
                  If Vet_Controllo(k,kk) > 1 Then
                     conta = conta + 1
                     Vet_ripetuti(conta) = k
                  End If
               Next
            Next
            EliminaRipetuti Vet_ripetuti
            ReDim aNum(conta)
            Scrivi
            Scrivi "Numeri ripetuti isotopi"
            For Nr = 1 To conta
               If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
                  aNum(Nr) = Vet_ripetuti(Nr)
                  Scrivi Format2(aNum(Nr)) & ".",1,False
               End If
            Next
            Scrivi
            Scrivi
            If esj + 1 > EstrazioneFin Then Exit For
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
            Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
            Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
            Scrivi String(100,"°"),1
            ruota(1) = r
            ruote(1) = 11
            ImpostaGiocata 1,aNum,ruota,posta,clp
            ImpostaGiocata 2,aNum,ruote,poste,clp
            Gioca esj,1,,1
            Scrivi
         End If
      Next
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
   ScriviResoconto,False
End Sub
Grazie ad entrambi: Baffoblù e Maldor!

Ora c'è davvero da studiare a mente aperta e tanto...
Sono convinto che da questa idea potranno uscire delle grandi sorprese!!!

Buona serata a tutti.

Oberdan
 

Oberdan

Member
Giusto così, come spunto immediato...
Magari si potrebbe vedere cosa succede a mettere in gioco solo gli isotopi che sono contemporaneamente presenti in più ruote.
Una sorta di rafforzativo.

Ma credo che ci sarà la possibilità di costruire una pletora di scenari possibili...
 

BaffoBlù

Advanced Member >PLATINUM<
Scusate se intervengo ma siccome ne capisco poco, ho fatto girare lo script che anche a mio parere non è per niente male ,ma ho notato che non rileva l'ultima estrazione ,l'elaborazione rileva fino al 02/07/2024 con i risultati ,forse è da rivedere qualcosa
c'è qualcosa che non quadra in quello che scrivi

hai fatto girare l'ultimo script postato?

quello dove c'è scritto :

"ecco lo script finale al completo per lo studio"

il mese di luglio non è contemplato perché non è completo

non capisco come possa rilevarti l'elaborazione fino al 02/07/2024
quando a me si ferma tutto all'ultima estrazione del mese di giugno...(come dovrebbe essere...)
 

BaffoBlù

Advanced Member >PLATINUM<
Giusto così, come spunto immediato...
Magari si potrebbe vedere cosa succede a mettere in gioco solo gli isotopi che sono contemporaneamente presenti in più ruote.
Una sorta di rafforzativo.

Ma credo che ci sarà la possibilità di costruire una pletora di scenari possibili...
una pletora quasi infinita direi...
 

Acquafresca

Super Member >GOLD<
c'è qualcosa che non quadra in quello che scrivi

hai fatto girare l'ultimo script postato?

quello dove c'è scritto :

"ecco lo script finale al completo per lo studio"

il mese di luglio non è contemplato perché non è completo

non capisco come possa rilevarti l'elaborazione fino al 02/07/2024
quando a me si ferma tutto all'ultima estrazione del mese di giugno...(come dovrebbe essere...)
Buonasera Baffoblù ho appena copiato lo script l'ultimo e rifatto la prova e il risultato e come vedi negli allegati, non so dove sia il problema o se ce ne sia mai un problema ed è giusto che sia cosi:
 

Allegati

  • Screenshot 2024-07-08 221318.png
    Screenshot 2024-07-08 221318.png
    352,7 KB · Visite: 22
  • Screenshot 2024-07-08 221348.png
    Screenshot 2024-07-08 221348.png
    388 KB · Visite: 19
  • Screenshot 2024-07-08 221433.png
    Screenshot 2024-07-08 221433.png
    375,6 KB · Visite: 24

maldor006

Member
Buonasera Baffoblù ho appena copiato lo script l'ultimo e rifatto la prova e il risultato e come vedi negli allegati, non so dove sia il problema o se ce ne sia mai un problema ed è giusto che sia cosi:
Sulla ruota Nazionale non si hanno esiti positivi dopo il 2/7/24 e quindi non può indicare anche le estrazioni successive. Prova a vedere sulle altre ruote, ad esempio su Venezia dà esito al 6/7/24.
 

Acquafresca

Super Member >GOLD<
Sulla ruota Nazionale non si hanno esiti positivi dopo il 2/7/24 e quindi non può indicare anche le estrazioni successive. Prova a vedere sulle altre ruote, ad esempio su Venezia dà esito al 6/7/24.
Grazie ,Maldor del consiglio ,adesso ci provo molto probabile il problema era mio che non ci ero arrivato a provare altre ruote.Ho detto che non ci capisco ancora tanto con gli script
 

Acquafresca

Super Member >GOLD<
Siccome, perlomeno a me mi viene un pò difficile tra le varie prove ,a chi ci sa fare propongo se fosse possibile di creare all''apertura dello script una finestra con le opzioni e la lista delle ruote su cui fare la ricerca ,sempre se sia fattibile per lo script in questione.
 

BaffoBlù

Advanced Member >PLATINUM<
Siccome, perlomeno a me mi viene un pò difficile tra le varie prove ,a chi ci sa fare propongo se fosse possibile di creare all''apertura dello script una finestra con le opzioni e la lista delle ruote su cui fare la ricerca ,sempre se sia fattibile per lo script in questione.

scegli la ruota a piacere



Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim ruota(11)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   ruota(1) = r
   ruote(1) = 11
   clp = 18
   r = CInt(InputBox(" Scegli la ruota ",,"1"))
   ini = 10000 ' Inizio 2022 Circa
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
      fin = EstrazioneFin
   Else
      fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   'For r = 1 To 11
   'If r = 11 Then r = 12
   co = 0
   Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
   Scrivi "                                        Controllo Isotopie Ripetute",1
   Scrivi
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
      Call AvanzamentoElab(ini,fin,es)
      If IndiceMensile(es) = 1 Then
         Erase Vet_Controllo
         Erase Vet_ripetuti
         Erase Mat_estr_mod
         Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num = Estratto(esj,r,pos)
               Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
               Mat_estr_mod(j,pos) = Num
            Next
            If IsUltimaDelMese(esj) Then Exit For
         Next
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num = Estratto(esj,r,pos)
               If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
            Next
            Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
            If IsUltimaDelMese(esj) Then Exit For
         Next
         conta = 0
         For k = 1 To 90
            For kk = 1 To 5
               If Vet_Controllo(k,kk) > 1 Then
                  conta = conta + 1
                  Vet_ripetuti(conta) = k
               End If
            Next
         Next
         EliminaRipetuti Vet_ripetuti
         ReDim aNum(conta)
         Scrivi
         Scrivi "Numeri ripetuti isotopi"
         For Nr = 1 To conta
            If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
               aNum(Nr) = Vet_ripetuti(Nr)
               Scrivi Format2(aNum(Nr)) & ".",1,False
            End If
         Next
         Scrivi
         Scrivi
         If esj + 1 > EstrazioneFin Then Exit For
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
         Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
         Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
         Scrivi String(100,"°"),1
         ruota(1) = r
         ruote(1) = 11
         ImpostaGiocata 1,aNum,ruota,posta,clp
         ImpostaGiocata 2,aNum,ruote,poste,clp
         Gioca esj,1,,1
         Scrivi
      End If
   Next
   'Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
   ScriviResoconto,False
End Sub
 

Suriciumalignu

Advanced Member
scegli la ruota a piacere



Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim ruota(11)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   ruota(1) = r
   ruote(1) = 11
   clp = 18
   r = CInt(InputBox(" Scegli la ruota ",,"1"))
   ini = 10000 ' Inizio 2022 Circa
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
      fin = EstrazioneFin
   Else
      fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   'For r = 1 To 11
   'If r = 11 Then r = 12
   co = 0
   Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
   Scrivi "                                        Controllo Isotopie Ripetute",1
   Scrivi
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
      Call AvanzamentoElab(ini,fin,es)
      If IndiceMensile(es) = 1 Then
         Erase Vet_Controllo
         Erase Vet_ripetuti
         Erase Mat_estr_mod
         Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num = Estratto(esj,r,pos)
               Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1
               Mat_estr_mod(j,pos) = Num
            Next
            If IsUltimaDelMese(esj) Then Exit For
         Next
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num = Estratto(esj,r,pos)
               If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
            Next
            Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
            If IsUltimaDelMese(esj) Then Exit For
         Next
         conta = 0
         For k = 1 To 90
            For kk = 1 To 5
               If Vet_Controllo(k,kk) > 1 Then
                  conta = conta + 1
                  Vet_ripetuti(conta) = k
               End If
            Next
         Next
         EliminaRipetuti Vet_ripetuti
         ReDim aNum(conta)
         Scrivi
         Scrivi "Numeri ripetuti isotopi"
         For Nr = 1 To conta
            If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
               aNum(Nr) = Vet_ripetuti(Nr)
               Scrivi Format2(aNum(Nr)) & ".",1,False
            End If
         Next
         Scrivi
         Scrivi
         If esj + 1 > EstrazioneFin Then Exit For
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
         Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
         Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1
         Scrivi String(100,"°"),1
         ruota(1) = r
         ruote(1) = 11
         ImpostaGiocata 1,aNum,ruota,posta,clp
         ImpostaGiocata 2,aNum,ruote,poste,clp
         Gioca esj,1,,1
         Scrivi
      End If
   Next
   'Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0
   ScriviResoconto,False
End Sub
Baffo, Baffo :love:
 

Acquafresca

Super Member >GOLD<
Grazie Baffo sei un grande ........ (y), ho provato a farlo elaborare e non è male, anche se quello che pensavo io era inteso la schermata dove puoi scegliere una o pù ruote che sono interessate dove confrontare i numeri isotopi. Appena ne trovo qualcuna la posto ,perchè in qualche script l'ho gia vista giusto per rendere meglio l'idea.
 

Allegati

  • Screenshot 2024-07-09 214912.png
    Screenshot 2024-07-09 214912.png
    230,3 KB · Visite: 16

Acquafresca

Super Member >GOLD<
Sai Baffo ,guarda il caso nell'estrazione di questa sera si son ripetuti il 15 della volta scorsa apparsi su Na e Palermo , e anche il 62 apparso su RO e Nz ,giusto per poterli verificarli da ogni estrazione precedenti e non distanti ,non so se mi son fatto capire quello che intendo.
 

BaffoBlù

Advanced Member >PLATINUM<
Siccome, perlomeno a me mi viene un pò difficile tra le varie prove ,a chi ci sa fare propongo se fosse possibile di creare all''apertura dello script una finestra con le opzioni e la lista delle ruote su cui fare la ricerca ,sempre se sia fattibile per lo script in questione.
ho capito cosa intendi

penso che si può fare, ma tieni presente che lo script si allunga...
 

BaffoBlù

Advanced Member >PLATINUM<
Non penso che sia un problema il fatto che si allunga lo script, ma importa che funziona

max 2 ruote con inputBox



Codice:
Option Explicit
Sub Main
   Dim a,b,c,d,e,x1,x2,x3,x4,x5
   Dim es,r1,r2,x,j,esX,esj,ini,fin,co,clp
   Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num1,Num2,k,kk,conta1,conta2,Nr,Mat_estr_mod(21,5),Ultimo_indice
   Dim ruota(11)
   Dim Aruota(11)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   posta(2) = 1
   poste(2) = 1
   poste(3) = 1
   ruota(1) = r1
   Aruota(1) = r2
   ruote(1) = 11
   clp = 18
   r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
   r2 = CInt(InputBox(" Scegli la ruota ",,"2"))
   ini = 10000
   Ultimo_indice = IndiceMensile(EstrazioneFin)
   If IsUltimaDelMese(EstrazioneFin) Then
      fin = EstrazioneFin
   Else
      fin = EstrazioneFin - Ultimo_indice
   End If
   ResetTimer
   co = 0
   Scrivi FormatSpace(NomeRuota(r1),80,True),1,,Giallo_,2,4
   Scrivi FormatSpace(NomeRuota(r2),80,True),1,,Giallo_,,4
   Scrivi "                                        Controllo Isotopie Ripetute",1
   Scrivi
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1)
      Call AvanzamentoElab(ini,fin,es)
      If IndiceMensile(es) = 1 Then
         Erase Vet_Controllo
         Erase Vet_ripetuti
         Erase Mat_estr_mod
         Scrivi String(100,"."),1,,,2,2
         Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num1 = Estratto(esj,r1,pos)
               Vet_Controllo(Num1,pos) = Vet_Controllo(Num1,pos) + 1
               Mat_estr_mod(j,pos) = Num1
            Next
            If IsUltimaDelMese(esj) Then Exit For
         Next
         For j = 0 To 20
            esj = es + j
            For pos = 1 To 5
               Num1 = Estratto(esj,r1,pos)
               If Vet_Controllo(Num1,pos) < 2 Then Mat_estr_mod(j,pos) = "  "
            Next
            Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(esj,r1) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2
            If IsUltimaDelMese(esj) Then Exit For
         Next
         conta1 = 0
         For k = 1 To 90
            For kk = 1 To 5
               If Vet_Controllo(k,kk) > 1 Then
                  conta1 = conta1 + 1
                  Vet_ripetuti(conta1) = k
               End If
            Next
         Next
         EliminaRipetuti Vet_ripetuti
         ReDim aNum1(conta1)
         Scrivi
         Scrivi "Numeri ripetuti isotopi"
         For Nr = 1 To conta1
            If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
               aNum1(Nr) = Vet_ripetuti(Nr)
               Scrivi Format2(aNum1(Nr)) & ".",1,False
            End If
         Next
         Scrivi
         Scrivi
         If esj + 1 > EstrazioneFin Then Exit For
         '------------------------------------------------------------------
         Erase Vet_Controllo
         Erase Vet_ripetuti
         Erase Mat_estr_mod
         Scrivi String(100,"."),1,,,2,2
         Scrivi "                                         1° . 2° . 3° . 4° . 5° . ",,,,2,2
         For x = 0 To 20
            esX = es + x
            For pos = 1 To 5
               Num2 = Estratto(esX,r2,pos)
               Vet_Controllo(Num2,pos) = Vet_Controllo(Num2,pos) + 1
               Mat_estr_mod(j,pos) = Num2
            Next
            If IsUltimaDelMese(esX) Then Exit For
         Next
         For x = 0 To 20
            esX = es + x
            For pos = 1 To 5
               Num2 = Estratto(esX,r2,pos)
               If Vet_Controllo(Num2,pos) < 2 Then Mat_estr_mod(x,pos) = "  "
            Next
            Scrivi DataEstrazione(esX) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(esX,r1) & " ******* " & Format2(Mat_estr_mod(x,1)) & " . " & Format2(Mat_estr_mod(x,2)) & " . " & Format2(Mat_estr_mod(x,3)) & " . " & Format2(Mat_estr_mod(x,4)) & " . " & Format2(Mat_estr_mod(x,5)) & " . ",1,,,1,2
            If IsUltimaDelMese(esX) Then Exit For
         Next
         conta2 = 0
         For k = 1 To 90
            For kk = 1 To 5
               If Vet_Controllo(k,kk) > 1 Then
                  conta2 = conta2 + 1
                  Vet_ripetuti(conta2) = k
               End If
            Next
         Next
         EliminaRipetuti Vet_ripetuti
         ReDim aNum2(conta2)
         Scrivi
         Scrivi "Numeri ripetuti isotopi"
         For Nr = 1 To conta2
            If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
               aNum2(Nr) = Vet_ripetuti(Nr)
               Scrivi Format2(aNum2(Nr)) & ".",1,False
            End If
         Next
         Scrivi
         Scrivi
         If esX + 1 > EstrazioneFin Then Exit For
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
         Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
         Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(esj,r1),1
         Scrivi String(70,"-"),1
         Scrivi "Prima  Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
         Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(esX,r2),1
         Scrivi String(100,"-"),1
         ruota(1) = r1
         Aruota(1) = r2
         ruote(1) = 11
         ImpostaGiocata 1,aNum1,ruota,posta,clp
         ImpostaGiocata 2,aNum2,Aruota,posta,clp
         ImpostaGiocata 3,aNum1,ruote,poste,clp
         ImpostaGiocata 4,aNum2,ruote,poste,clp
         Gioca esX,1,,1
         Scrivi
      End If
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto,False
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 12 luglio 2024
    Bari
    53
    67
    47
    41
    14
    Cagliari
    42
    31
    17
    38
    23
    Firenze
    54
    07
    64
    65
    63
    Genova
    02
    60
    52
    22
    54
    Milano
    62
    63
    06
    61
    58
    Napoli
    25
    19
    77
    02
    31
    Palermo
    85
    43
    67
    04
    09
    Roma
    14
    77
    69
    35
    02
    Torino
    31
    15
    30
    35
    29
    Venezia
    06
    86
    52
    39
    78
    Nazionale
    56
    23
    80
    47
    28
    Estrazione Simbolotto
    Nazionale
    19
    34
    23
    03
    24

Ultimi Messaggi

Alto