Per Salvo50

sorujoe · 16 Luglio 2019

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 · 16 Luglio 2019

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

sorujoe · 16 Luglio 2019

Attualmente come mie richieste gentilmente valuta solo questa mail se ve ne sono altre ignorale. Grazie

salvo50 · 17 Luglio 2019

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

sorujoe · 17 Luglio 2019

Come sempre PERFETTO
G R A Z I E

Cerca

Cerca

Per Salvo50

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

sorujoe

Advanced Member >GOLD<

salvo50

Advanced Member >PLATINUM PLUS<

sorujoe

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi