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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto