annuncio

Comprimi
Ancora nessun annuncio.

Per Salvo50

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Per Salvo50

    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

    codice 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

  • #2
    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

    codice 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

    Commenta


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

      Commenta


      • #4
        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 di salvo50; 17-07-2019, 11:27.
        Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

        (B. Castiglione, - Il cortegiano)

        Commenta


        • #5
          Come sempre PERFETTO
          G R A Z I E

          Commenta

          Unconfigured Ad Widget

          Comprimi

          Ultima estrazione del lotto

          Comprimi

          Estrazione del lotto
          martedì 20 agosto 2019
          Bari
          24
          48
          85
          86
          23
          Cagliari
          36
          88
          16
          82
          51
          Firenze
          10
          05
          57
          39
          43
          Genova
          56
          52
          11
          06
          03
          Milano
          88
          34
          85
          60
          40
          Napoli
          87
          61
          45
          71
          76
          Palermo
          78
          63
          32
          26
          57
          Roma
          50
          69
          41
          75
          47
          Torino
          76
          80
          64
          46
          60
          Venezia
          04
          53
          73
          21
          15
          Nazionale
          14
          05
          64
          46
          37
          Sto operando...
          X