script lotto dist 26

[antonioquagliozzi]

cortesemente script distanza 26 bari cagliari , posiz estratti 2,ruote di calcolo ba -ca ,ruota di gioco roma colpi 5,amb 61,abb per ambo,45,1,12,18,3, grazie in anticipo e buon ferro agosto

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim Ini,Fin,A,B,Dist,P2,P1,Es
   Dim Caso,Casi,E1,E2,R1,R2
   Dim amb1(2),amb2(2),amb3(2),amb4(2)
   Dim RU(1),amb5(2),Amba(1),Post1(1),Post2(2)
   Post1(1) = 1 : Post2(2) = 1
   Ini = EstrazioneFin - 150
   Fin = EstrazioneFin
   R1 = 1
   R2 = 2
   Dist = 26
   Scrivi Space(12) & "PER ANTONIOQUAGLIOZZI - DISTANZA 26 - SCRIPT Salvo50",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      A = Estratto(Es,R1,2)
      B = Estratto(Es,R2,2)
      If Distanza(A,B) = Dist Then
         Amba(1) = 61
         amb1(1) = 61 : amb1(2) = 45
         amb2(1) = 61 : amb2(2) = 1
         amb3(1) = 61 : amb3(2) = 12
         amb4(1) = 61 : amb4(2) = 18
         amb5(1) = 61 : amb5(2) = 3
         RU(1) = RO_
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
         Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,R1,P1)
            If E1 = A Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi "  " & SiglaRuota(R2) & " ",1,0
         For P2 = 1 To 5
            E2 = Estratto(Es,R2,P2)
            If E2 = B Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E2) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         ImpostaGiocata 1,Amba,RU,Post1,5
         ImpostaGiocata 2,amb1,RU,Post2,5
         ImpostaGiocata 3,amb2,RU,Post2,5
         ImpostaGiocata 4,amb3,RU,Post2,5
         ImpostaGiocata 5,amb4,RU,Post2,5
         ImpostaGiocata 6,amb5,RU,Post2,5
         Gioca Es
      End If
   Next
   ScriviResoconto
End Sub

 

[antonioquagliozzi]

grazie salvo 50