R.I.V.

joe · 7 Luglio 2024

Marco-elle ha scritto:
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ù · 7 Luglio 2024

joe ha scritto:
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ù · 7 Luglio 2024

maldor006 ha scritto:

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 · 7 Luglio 2024

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 · 7 Luglio 2024

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 · 7 Luglio 2024

BaffoBlù ha scritto:

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 · 7 Luglio 2024

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ù · 8 Luglio 2024

Acquafresca ha scritto:
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ù · 8 Luglio 2024

Oberdan ha scritto:
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 · 8 Luglio 2024

BaffoBlù ha scritto:
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:

maldor006 · 8 Luglio 2024

Acquafresca ha scritto:
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 · 8 Luglio 2024

maldor006 ha scritto:
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 · 8 Luglio 2024

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ù · 9 Luglio 2024

Acquafresca ha scritto:
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 · 9 Luglio 2024

BaffoBlù ha scritto:

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

Acquafresca · 9 Luglio 2024

Grazie Baffo sei un grande ........

, 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.

Acquafresca · 9 Luglio 2024

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ù · 10 Luglio 2024

Acquafresca ha scritto:
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...

Acquafresca · 10 Luglio 2024

BaffoBlù ha scritto:
ho capito cosa intendi

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

Non penso che sia un problema il fatto che si allunga lo script, ma importa che funziona

BaffoBlù · 11 Luglio 2024

Acquafresca ha scritto:
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

R.I.V.

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Member

Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Super Member >GOLD<

Allegati

Member

Super Member >GOLD<

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Super Member >GOLD<

Allegati

Super Member >GOLD<

Advanced Member >PLATINUM<

Super Member >GOLD<

Advanced Member >PLATINUM<