Novità

Per Salvo50

S

sorujoe

Advanced Member >GOLD<
Ciao Salvo
ti chiedo su questo tuo script già ottimizzato di recente se puoi:
1. Indicando i colpi di gioco (cosa che ora non indico) eliminare le previsioni sfaldate anche per estratto su ciascuna coppia di ruote (le 2 somme che inserisco sono le ambate)
2. Eliminare le previsioni che hanno anche una delle 2 ambate presenti nel concorso di calcolo

Ecco lo script AMICO MIO

HTML: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,Sp,R1,R2,P1,Caso,Casi
   Dim A(5),B(5),AB(5),k1,E1,C,D,OK
   Sp = " "
   FIn = EstrazioneFin
   Ini = FIn - 18
   R1 = CInt(InputBox("INSERISCI IL NUMERO DELLA RUOTA",Salvo50,1))
   C = CInt(InputBox("INSERISCI LA PRIMA SOMMA CHE VUOI EVIDENZIARE",Salvo50,59))
   D = CInt(InputBox("INSERISCI LA SECONDA SOMMA CHE VUOI EVIDENZIARE",Salvo50,71))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER BYRON -SOMME ISOTOPE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R2 = 1 To 12
         If R2 = 11 Then R2 = 12
         If R2 <> R1 Then
         OK = 0
            For P1 = 1 To 5
               A(P1) = Estratto(Es,R1,P1)
               B(P1) = Estratto(Es,R2,P1)
               AB(P1) = Fuori90(A(P1) + B(P1))
               If AB(P1) = C Or AB(P1) = D Then OK = 1
            Next
            If OK = 1 Then
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
               Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,,,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,,,1
               Scrivi
               Scrivi Space(13) & " Somme pronosticate          " & Format2(C) & "  " & Format2(D),1,0
               Scrivi
               Scrivi
               Scrivi Space(13) & " Somma estratti isotopi ",1,0
               For k1 = 1 To 5
                  E1 = AB(k1)
                  If E1 = C Or E1 = D Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub
 
Su questo script ti chiedo di unificare il report ambate e ambo al momento fa 2 report che allungano del 50% l'output ne è sufficiente uno solo che indichi ambate e ambo

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
 
Ciao a Tutti

primo script

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50,Sp,R1,R2,P1,Caso,Casi
   Dim k1,E1,C,D,OK,Clp
   Dim A(5),B(5),AB(5),Amba(2),Ruo(2),Posta(2)
   Posta(1) = 1
   Posta(2) = 1
   Sp = " "
   FIn = EstrazioneFin
   Ini = FIn - 18
   R1 = CInt(InputBox("INSERISCI IL NUMERO DELLA RUOTA",Salvo50,1))
   C = CInt(InputBox("INSERISCI LA PRIMA SOMMA CHE VUOI EVIDENZIARE",Salvo50,59))
   D = CInt(InputBox("INSERISCI LA SECONDA SOMMA CHE VUOI EVIDENZIARE",Salvo50,71))
   Clp = CInt(InputBox("INSERISCI PER QUANTI COLPI VUOI GIOCARE",Salvo50,7))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER BYRON -SOMME ISOTOPE - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Caso = 0
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R2 = 1 To 12
         If R2 = 11 Then R2 = 12
         If R2 <> R1 Then
            OK = 0
            For P1 = 1 To 5
               A(P1) = Estratto(Es,R1,P1)
               B(P1) = Estratto(Es,R2,P1)
               AB(P1) = Fuori90(A(P1) + B(P1))
               If AB(P1) = C Or AB(P1) = D Then OK = 1
            Next
            If OK = 1 Then
               Ruo(1) = R1 : Ruo(2) = R2
               Amba(1) = C : Amba(2) = D
               If SerieFreqTurbo(Es,Es,Amba,Ruo,1) = 0 Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi " " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),1,,,1
                  Scrivi
                  Scrivi Space(13) & " Somme pronosticate          " & Format2(C) & "  " & Format2(D),1,0
                  Scrivi
                  Scrivi
                  Scrivi Space(13) & " Somma estratti isotopi ",1,0
                  For k1 = 1 To 5
                     E1 = AB(k1)
                     If E1 = C Or E1 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                  Gioca Es
               End If
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

secondo script

Codice: 
Option Explicit
Sub Main
   Dim FIn,Ini,Clp1,P1,P2,P3,Attesa
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9600))
   Attesa = CInt(InputBox("INSERISCI QUANTI COLPI VUOI ASPETTARE PRIMA DI GIOCARE",,11))
   Clp1 = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?",,18))
   If Clp1 > Attesa Then
   Call ScegliRange(Ini,FIn,Ini,FIn)
   For P1 = 1 To 3
      For P2 = P1 + 1 To 4
         For P3 = P2 + 1 To 5
            Call elaboraPosizioni(P1,P2,P3,Attesa,Clp1,FIn,Ini)
         Next
      Next
   Next
   End If
   If Attesa => Clp1 Then Scrivi " HAI INSERITO I COLPI DA GIOCARE UGUALE O MINORE DEI COLPI DI ASPETTARE, NON E' AMMESSO"
End Sub
Sub elaboraPosizioni(P1,P2,P3,Attesa,Clp1,FIn,Ini)
   Dim Es,E1,S1,S2,S3
   Dim R1,R2,P4,P5,P6,A,B,C
   Dim VertS3,CaS3,CaVertS3,Caso,Casi,S4,So1
   Dim Ruote(2),Nu(2),Poste(2)
   Poste(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 + Attesa,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,Poste,So1,,Attesa
                        Gioca Es
                     End If
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto