Novità

Script

salvo50

Advanced Member >PLATINUM PLUS<
sorujoe;n2180912 ha scritto:
se deve "maturare" 11 colpi perche fa vedere questa che ne ha appena 8?

perchè la 9655 è l'ultima estrazione in archivio, non può farne vedere più di 8 le altre non esistono ancora
 

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

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.


La terzina è diventata cinquina, o ti sei sbagliato?
 

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
 

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

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

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

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

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
 

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:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05
Alto