annuncio

Comprimi
Ancora nessun annuncio.

Script

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

  • #31
    Vero da memoria esaurita

    Commenta


    • #32
      Mi guardi questo script
      mi dovresti unificare il report estratto con quello di ambo è inutile tenerne 2 ...poi eliminare le previsioni che hanno raggiunto il limite senza aver dato esito quindi i negativi

      ed il report deve ordinare l'output delle previsioni da quelle in gioco da piu colpi a quelle che hanno meno colpi in gioco

      ecco lo script

      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
      
      Ultima modifica di sorujoe; 16-07-2019, 16:09.

      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