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
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto