Novità

Script

sorujoe;n2180912 ha scritto:
se deve "maturare" 11 colpi perche fa vedere questa che ne ha appena 8?
Clicca per espandere...

perchè la 9655 è l'ultima estrazione in archivio, non può farne vedere più di 8 le altre non esistono ancora
 
ok GRAZIE spero tu riesca nelle permutazioni in modo che in automatico girino tutte le possibili posizioni generate da una cinquina.
Se qualche buona anima che passa da qui vuole dare una mano è bene accetta ....ma ci credo poco.
 
Ultima modifica:
sorujoe;n2180954 ha scritto:
ok GRAZIE spero tu riesca nelle permutazioni in modo che in automatico girino tutte le possibili posizioni generate da una cinquina.
Se qualche buona anima che passa da qui vuole dare una mano è bene accetta ....ma ci credo poco.
Clicca per espandere...


La terzina è diventata cinquina, o ti sei sbagliato?
 
No volevo dire tutte le terzine che si formano con 5 posizioni ....per il resto hai fatto come sempre un LAVORONE sei un MASTER
 
Mi auguro che la riesci a spuntare e a compiere il passo ultimo delle permutazioni delle tre posizioni su 5 totali ...aspetto e spero cmnq GRAZIE Salvo
Grazie anche al Buon Rubino che mi ha sopportato ....un altro FUORICLASSE degli script che spero ti aiuti in questa fase finale.
 
Quindi le permutazioni da sviluppare non sono più 6 ma 60 perchè ogni cinquina sviluppa 10 terzine.
 
Tutte quelle che generano le tre posizioni su cinque numeri scambiandosi anche l'ordine; cosi copriamo il 100% delle combinazioni. Pensavo fosse piu semplice ma come vedo pur trattandosi di un semplice calcolo ha creato non pochi problemi cmnq confido nelle vostre abilità informatiche ...il buon LuigiB lo farebbe in 2 secondi ma non oso nemmeno pensarlo.
Altri sono molto bravi però non si degnano di calcolarmi.
Di te sono fiero Salvo mi hai fatto gran bei lavori e anche Rubino ad onor del vero mi ha modificato e ottimizzato script ....la verità prima di ogni cosa.
Per adesso il piu è fatto speriamo di venirne fuori nel minor tempo possibile.
CMNQ GRAZIE DI TUTTO
 
sorujoe;n2180982 ha scritto:
Tutte quelle che generano le tre posizioni su cinque numeri scambiandosi anche l'ordine; cosi copriamo il 100% delle combinazioni. Pensavo fosse piu semplice ma come vedo pur trattandosi di un semplice calcolo ha creato non pochi problemi cmnq confido nelle vostre abilità informatiche ...il buon LuigiB lo farebbe in 2 secondi ma non oso nemmeno pensarlo.
Altri sono molto bravi però non si degnano di calcolarmi.
Di te sono fiero Salvo mi hai fatto gran bei lavori e anche Rubino ad onor del vero mi ha modificato e ottimizzato script ....la verità prima di ogni cosa.
Per adesso il piu è fatto speriamo di venirne fuori nel minor tempo possibile.
CMNQ GRAZIE DI TUTTO
Clicca per espandere...

Ciao a Tutti.

E' evidente che quando hai fatto questa richiesta, non ti sei reso conto di quante previsioni vengono fuori, facciamo un po' di calcoli, per una sola estrazione,

imposto le coppie solo per una ruota esempio Bari

BA - CA
BA - FI
BA - GE
BA - MI
BA - NA
BA - PA
BA - RO
BA - TO
BA - VE
BA - NZ

sono 10 coppie, per tutte le ruote le coppie dovrebbero essere 55, ma invece sono 110 perche in questo metodo, esempio BA-CA non è uguale a CA-BA.

Ogni coppia sviluppa 60 permutazioni, quindi

60 * 110 = 6600 piramidi

ho constatato che per via dei filtri a volte ne scarta pochissimi (un migliaio) e a volte più di 6000,

comunque se imposto più di 3 estrazioni, mi si impalla Spaziometria, per continuare devo chiuderlo e riaprirlo

ecco lo script, segnalami eventuali errori


Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
   Dim R1,R2,P1,P6,Attesa,Permut,Riga,Cls,Col
   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
   Dim Posta(1),Ruote(2),Nu(2),Poste(2),Num(5)
   Dim A(60),B(60),C(60)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn - 3))
   Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
   Clp1 = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
   Cls = 3
   Posta(1) = 1
   Poste(2) = 1
   So1 = Clp1 - Attesa
   S4 = Attesa + So1
   For R1 = 1 To 12
      If R1 = 11 Then R1 = 12
      Caso = 0
      For Es = Ini To FIn
         Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
         AvanzamentoElab Ini,FIn,Es
         For R2 = 1 To 12
            If R2 = 11 Then R2 = 12
            If R1 <> R2 Then
               For P1 = 1 To 5
                  Num(P1) = Estratto(Es,R1,P1)
               Next
               If Num(1) > 0 Then
                  'CALCOLO DELLE PERMUTAZIONI
                  Permut = SviluppoPermutazioni(Num,Cls)
                  For Riga = 1 To UBound(Permut)
                     For Col = 1 To Cls
                        Num(Col) = Permut(Riga,Col)
                        If Col = 1 Then A(Riga) = Num(Col)
                        If Col = 2 Then B(Riga) = Num(Col)
                        If Col = 3 Then C(Riga) = Num(Col)
                     Next
                     'FINE CALCOLO DELLE PERMUTAZIONI
                     S1 = Fuori90(A(Riga) + B(Riga))
                     S2 = Fuori90(B(Riga) + C(Riga))
                     S3 = Fuori90(S1 + S2)
                     VertS3 = Vert(S3)
                     CaS3 = Cadenza(S3)
                     CaVertS3 = Cadenza(VertS3)
                     If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Nu(1) = S3 : Nu(2) = VertS3
                        If SerieFreqTurbo(Es,Es + S4,Nu,Ruote,1) = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P6 = 1 To 5
                              E1 = Estratto(Es,R1,P6)
                              If E1 = A(Riga) Or E1 = B(Riga) Or E1 = C(Riga) Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  Seconda Ruota ",1,0
                           Scrivi NomeRuota(R2),1,,,2
                           'Scrivi
                           Scrivi Space(12) & " PIRAMIDE",1,,,2
                           Scrivi Space(12) & Format2(A(Riga)) & "  " & Format2(B(Riga)) & "  " & Format2(C(Riga)),1
                           Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                           Scrivi Space(16) & Format2(S3),1
                           'Scrivi
                           Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                           'Scrivi
                           ImpostaGiocata 1,Nu,Ruote,Posta,S4
                           ImpostaGiocata 2,Nu,Ruote,Poste,S4
                           Gioca Es
                        End If
                     End If
                  Next
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   'ScriviResoconto
End Sub
 
Mi guardi questo script
mi dovresti unificare il report estratto con quello di ambo è inutile tenerne 2 ...poi eliminare le previsioni che hanno raggiunto il limite senza aver dato esito quindi i negativi

ed il report deve ordinare l'output delle previsioni da quelle in gioco da piu colpi a quelle che hanno meno colpi in gioco

ecco lo script

HTML: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp1,Salvo50,E1,S1,S2,S3
   Dim R1,R2,P1,P2,P3,P4,P5,P6,A,B,C,Attesa
   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
   Dim Posta(1),Ruote(2),Nu(2),Poste(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500))
   Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
   Clp1 = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
   Call ScegliRange(Ini,FIn,Ini,FIn)

   For P1 = 1 To 3
      For P2 = P1 + 1 To 4
         For P3 = P2 + 1 To 5
            If P1 = P2 Or P1 = P3 Or P2 = P3 Then
              Scrivi " HAI INSERITO 2 O PIU' POSIZIONI UGUALI NELLA 1ª RUOTA",1,,,2
            Else
              Call elaboraPosizioni(P1,P2,P3,Attesa,Clp1,FIn,Ini)
            End If
         Next
      Next
   Next

End Sub
Sub elaboraPosizioni(P1,P2,P3,Attesa,Clp1,FIn,Ini)
   Dim Es,Salvo50,E1,S1,S2,S3
   Dim R1,R2,P4,P5,P6,A,B,C
   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
   Dim Posta(1),Ruote(2),Nu(2),Poste(2)

   If P1 <> P2 And P1 <> P3 And P2 <> P3 Then
      Scrivi Space(12) & "PER SORUJOE  - SCRIPT Salvo50",1,,4,,3,,1
      Posta(1) = 1
      Poste(2) = 1
      So1 = Clp1 - Attesa
      S4 = Attesa + So1
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Caso = 0
         For Es = Ini To FIn
            Messaggio Es & "   PRIMA RUOTA  " & NomeRuota(R1)
            AvanzamentoElab Ini,FIn,Es
            For R2 = 1 To 12
               If R2 = 11 Then R2 = 12
               If R1 <> R2 Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  C = Estratto(Es,R1,P3)
                  If A > 0 Then
                     S1 = Fuori90(A + B)
                     S2 = Fuori90(B + C)
                     S3 = Fuori90(S1 + S2)
                     VertS3 = Vert(S3)
                     CaS3 = Cadenza(S3)
                     CaVertS3 = Cadenza(VertS3)
                     If Not Gemello(S3)And Not Gemello(VertS3) And CaS3 <> 9 And CaVertS3 <> 9 Then
                        Ruote(1) = R1
                        Ruote(2) = R2
                        Nu(1) = S3 : Nu(2) = VertS3
                        If SerieFreqTurbo(Es,Es + S4,Nu,Ruote,1) = 0 Then
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(72,"*") & " Casi con la Prima Ruota " & SiglaRuota(R1) & " = " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P6 = 1 To 5
                              E1 = Estratto(Es,R1,P6)
                              If E1 = A Or E1 = B Or E1 = C Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi "  Seconda Ruota ",1,0
                           Scrivi NomeRuota(R2),1,,,2
                           Scrivi
                           Scrivi Space(12) & " PIRAMIDE",1,,,2
                           Scrivi Space(12) & Format2(A) & "  " & Format2(B) & "  " & Format2(C),1
                           Scrivi Space(14) & Format2(S1) & "  " & Format2(S2),1
                           Scrivi Space(16) & Format2(S3),1
                           Scrivi
                           Scrivi "     COLPI DI ATTESA IMPOSTATI " & Format2(Attesa)
                           Scrivi
                           ImpostaGiocata 1,Nu,Ruote,Posta,S4,1',Attesa
                           ImpostaGiocata 2,Nu,Ruote,Poste,S4,2',Attesa
                           Gioca Es
                        End If
                     End If
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      ScriviResoconto
   End If
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 14 agosto 2025
    Bari
    86
    54
    27
    49
    68
    Cagliari
    29
    79
    63
    87
    34
    Firenze
    63
    43
    77
    65
    41
    Genova
    01
    04
    28
    19
    76
    Milano
    77
    29
    38
    12
    86
    Napoli
    85
    83
    52
    63
    37
    Palermo
    56
    57
    50
    62
    52
    Roma
    48
    29
    01
    41
    43
    Torino
    81
    79
    19
    53
    48
    Venezia
    56
    27
    01
    45
    79
    Nazionale
    28
    75
    74
    89
    62
    Estrazione Simbolotto
    Nazionale
    30
    35
    08
    43
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto