annuncio

Comprimi
Ancora nessun annuncio.

Per Salvo50

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

  • Per Salvo50

    potresti in questo tuo script far si che l'out put faccia vedere solo i casi in cui c'è presente una delle 2 somme indicate. Al momento fa vedere anche le coppie di ruote in cui nessuna delle 2 somma selezionate c'è

    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
       Sp = " "
       C = 71 : D = 81
       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
                For P1 = 1 To 5
                   A(P1) = Estratto(Es,R1,P1)
                   B(P1) = Estratto(Es,R2,P1)
                   AB(P1) = Fuori90(A(P1) + B(P1))
                Next
                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) & " 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
          Next
          If ScriptInterrotto Then Exit Sub
       Next
    End Sub

  • #2
    Ciao a Tutti.

    codice:
    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
    Perdonando troppo chi falla, si fa ingiustizia a chi non falla.

    (B. Castiglione, - Il cortegiano)

    Commenta


    • #3
      PERFETTO come sempre
      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