Novità

Per Salvo50

sorujoe

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

sorujoe

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

salvo50

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

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