Novità

Script

salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
 
S

sorujoe

Advanced Member
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:
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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?
 
S

sorujoe

Advanced Member
No volevo dire tutte le terzine che si formano con 5 posizioni ....per il resto hai fatto come sempre un LAVORONE sei un MASTER
 
S

sorujoe

Advanced Member
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.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Quindi le permutazioni da sviluppare non sono più 6 ma 60 perchè ogni cinquina sviluppa 10 terzine.
 
S

sorujoe

Advanced Member
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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
 
S

sorujoe

Advanced Member
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
    sabato 20 aprile 2024
    Bari
    08
    62
    22
    82
    12
    Cagliari
    86
    44
    19
    31
    72
    Firenze
    38
    70
    31
    33
    26
    Genova
    84
    71
    65
    55
    75
    Milano
    61
    32
    48
    15
    24
    Napoli
    24
    55
    49
    12
    37
    Palermo
    87
    14
    52
    18
    43
    Roma
    01
    88
    16
    50
    63
    Torino
    15
    70
    52
    62
    55
    Venezia
    15
    83
    49
    18
    44
    Nazionale
    10
    22
    68
    78
    06
    Estrazione Simbolotto
    Genova
    27
    31
    15
    32
    04
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto