COME AL SOLITO

[Alien.]

Serve uno script,grazie.

https://forum.lottoced.com/forum/lo...orino-versione-2019-per-ambi-terni-e-quaterna

 

[salvo50]

Ciao a Tutti.

 Option Explicit
Sub Main
   Dim FIn,Ini,Es,Clp,Salvo50
   Dim R1,Caso,Casi,A,B,P1,P2,P3,E1
   Dim Terno1(3),Terno2(3),Ruo(3),Post1(1),Post3(5)
   Dim Amba(1),Penta1(5),Penta2(5),Post2(3)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9500)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,11)
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Post1(1) = 1
   Post2(2) = 1
   Post2(3) = 1
   Post3(2) = 1
   Post3(3) = 1
   Post3(4) = 1
   Post3(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 9 To 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A = B + 1 Or A = B - 1 Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Ruo(1) = PA_ : Ruo(2) = VE_ : Ruo(3) = TO_
                  Amba(1) = 16
                  ImpostaGiocata 1,Amba,Ruo,Post1,Clp
                  Terno1(1) = 06 : Terno1(2) = 46 : Terno1(3) = 66
                  ImpostaGiocata 2,Terno1,Ruo,Post2,Clp
                  Terno2(1) = 26 : Terno2(2) = 46 : Terno2(3) = 61
                  ImpostaGiocata 3,Terno2,Ruo,Post2,Clp
                  Penta1(1) = 16 : Penta1(2) = 61 : Penta1(3) = 66 : Penta1(4) = 26 : Penta1(5) = 86
                  ImpostaGiocata 4,Penta1,Ruo,Post3,Clp
                  Penta2(1) = 06 : Penta2(2) = 11 : Penta2(3) = 61 : Penta2(4) = 66 : Penta2(5) = 76
                  ImpostaGiocata 5,Penta2,Ruo,Post3,Clp
                  Gioca Es,1
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

E' da riprendere, ho fatto una correzione

Alle 17 e 09 ho fatto un'altra correzione