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
      sabato 24 agosto 2019
      Bari
      32
      81
      76
      24
      77
      Cagliari
      53
      69
      16
      66
      57
      Firenze
      71
      67
      53
      16
      76
      Genova
      52
      39
      06
      79
      55
      Milano
      29
      21
      69
      74
      40
      Napoli
      87
      71
      79
      52
      19
      Palermo
      73
      84
      49
      16
      23
      Roma
      56
      23
      14
      79
      27
      Torino
      65
      13
      80
      06
      49
      Venezia
      11
      13
      06
      40
      65
      Nazionale
      42
      56
      64
      80
      26
      Sto operando...
      X