Aiutino

[Marcorun]

Salve....avrei bisogno di una piccola modifica a questo script,in modo che quando si verificano numeri ripetuti nella stessa lunghetta(in questo caso di 10 numeri)non la metta in gioco,neanche che metta in gioco i restanti numeri non ripetuti,e quindi non ne tenga conto neanche il resoconto economico .GRAZIE!

Sub Main
Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
Call ImpostaArchivio10ELotto(1)
ini = EstrazioneFin - 151
   fin = EstrazioneFin
   For es = ini To fin
   AvanzamentoElab ini,fin,es
Messaggio DataEstrazioneDL(es)
p1 = EstrattoDL(es,1) + 10
p2 = EstrattoDL(es,2) + 9
p3 = EstrattoDL(es,3) + 8
p4 = EstrattoDL(es,4) + 7
p5 = EstrattoDL(es,5) + 6
p6 = EstrattoDL(es,6) + 5
p7 = EstrattoDL(es,7) + 4
p8 = EstrattoDL(es,8) + 3
p9 = EstrattoDL(es,9) + 2
p10 = EstrattoDL(es,10) + 1


Primo_num = Fuori90(p1)
Secondo_num = Fuori90(p2)
Terzo_num = Fuori90(p3)
Quarto_num = Fuori90(p4)
Quinto_num = Fuori90(p5)
sesto_num = Fuori90(p6)
Settimo_num = Fuori90(p7)
ottavo_num = Fuori90(p8)
nono_num = Fuori90(p9)
decimo_num = Fuori90(p10)
ReDim aNumeri(10)
aNumeri(1) = Primo_num
aNumeri(2) = Secondo_num
aNumeri(3) = Terzo_num
aNumeri(4) = Quarto_num
aNumeri(5) = Quinto_num
aNumeri(6) = sesto_num
aNumeri(7) = Settimo_num
aNumeri(8) = ottavo_num
aNumeri(9) = nono_num
aNumeri(10) = decimo_num
Call ImpostaGiocataDL(1,aNumeri,1,50,5)
Scrivi "-------------------------------------------------------------------------------------------------------------",,,6,7
Call GiocaDL(es)

Next
ScriviResocontoDL

End Sub

 

[salvo50]

Ciao Marcorun

Sub Main
   Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z
   Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
   Call ImpostaArchivio10ELotto(1)
   ini = EstrazioneFin - 151
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio DataEstrazioneDL(es)
      p1 = EstrattoDL(es,1) + 10
      p2 = EstrattoDL(es,2) + 9
      p3 = EstrattoDL(es,3) + 8
      p4 = EstrattoDL(es,4) + 7
      p5 = EstrattoDL(es,5) + 6
      p6 = EstrattoDL(es,6) + 5
      p7 = EstrattoDL(es,7) + 4
      p8 = EstrattoDL(es,8) + 3
      p9 = EstrattoDL(es,9) + 2
      p10 = EstrattoDL(es,10) + 1
      Primo_num = Fuori90(p1)
      Secondo_num = Fuori90(p2)
      Terzo_num = Fuori90(p3)
      Quarto_num = Fuori90(p4)
      Quinto_num = Fuori90(p5)
      sesto_num = Fuori90(p6)
      Settimo_num = Fuori90(p7)
      ottavo_num = Fuori90(p8)
      nono_num = Fuori90(p9)
      decimo_num = Fuori90(p10)
      ReDim aNumeri(10)
      aNumeri(1) = Primo_num
      aNumeri(2) = Secondo_num
      aNumeri(3) = Terzo_num
      aNumeri(4) = Quarto_num
      aNumeri(5) = Quinto_num
      aNumeri(6) = sesto_num
      aNumeri(7) = Settimo_num
      aNumeri(8) = ottavo_num
      aNumeri(9) = nono_num
      aNumeri(10) = decimo_num
      EliminaRipetuti aNumeri
      z = 0
      For x = 1 To UBound(aNumeri)
    
If aNumeri(x) > 0 Then z = z + 1

      Next
     
      If z = 10 Then
         Call ImpostaGiocataDL(1,aNumeri,1,50,5)
         Scrivi "-------------------------------------------------------------------------------------------------------------",,,6,7
         Call GiocaDL(es)
      End If
   Next
   ScriviResocontoDL
End Sub

 

[Marcorun]

GRAZIE SALVO....gentilissimo e bravo....spero di poter contraccambiare...(maagaari !)

 

[Marcorun]

Se non chiedo troppo....ho provato a mettere scrividistribuzionecasiincorso ma non mi funziona.

Sub Main
   Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z
   Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
   Call ImpostaArchivio10ELotto(1)
   ini = EstrazioneFin - 151
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio DataEstrazioneDL(es)
      p1 = EstrattoDL(es,1) + 10
      p2 = EstrattoDL(es,2) + 9
      p3 = EstrattoDL(es,3) + 8
      p4 = EstrattoDL(es,4) + 7
      p5 = EstrattoDL(es,5) + 6
      p6 = EstrattoDL(es,6) + 5
      p7 = EstrattoDL(es,7) + 4
      p8 = EstrattoDL(es,8) + 3
      p9 = EstrattoDL(es,9) + 2
      p10 = EstrattoDL(es,10) + 1
      Primo_num = Fuori90(p1)
      Secondo_num = Fuori90(p2)
      Terzo_num = Fuori90(p3)
      Quarto_num = Fuori90(p4)
      Quinto_num = Fuori90(p5)
      sesto_num = Fuori90(p6)
      Settimo_num = Fuori90(p7)
      ottavo_num = Fuori90(p8)
      nono_num = Fuori90(p9)
      decimo_num = Fuori90(p10)
      ReDim aNumeri(10)
      aNumeri(1) = Primo_num
      aNumeri(2) = Secondo_num
      aNumeri(3) = Terzo_num
      aNumeri(4) = Quarto_num
      aNumeri(5) = Quinto_num
      aNumeri(6) = sesto_num
      aNumeri(7) = Settimo_num
      aNumeri(8) = ottavo_num
      aNumeri(9) = nono_num
      aNumeri(10) = decimo_num
      '---------------------------------------------------------------
      EliminaRipetuti aNumeri
      z = 0
      For x = 1 To UBound(aNumeri)
         If aNumeri(x) > 0 Then
            z = z + 1
         End If
      Next
      
      If z = 10 Then
      '----------------------------------------------------------------
         Call ImpostaGiocataDL(1,aNumeri,1,50,5)
         Scrivi "-------------------------------------------------------------------------------------------------------------",,,6,7
         Call GiocaDL(es)
      End If
   Next
   ScriviResocontoDL
   Call ScriviDistribuzioneCasiInCorso (True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30")
End Sub

 

[salvo50]

Ciao

Non sono sicuro, ma forse funziona solo con il lotto.

 

[Marcorun]

Stranamente funziona fino al caso 23 ma senza mostrare la lunghetta.....poi dal 24 in su da errore

Sub Main
   Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,ini,fin,es,Primo_num,Secondo_num,x,z
   Dim Terzo_num,Quarto_num,Quinto_num,sesto_num,Settimo_num,ottavo_num,nono_num,decimo_num
   Call ImpostaArchivio10ELotto(1)
   ini = EstrazioneFin - 151
   fin = EstrazioneFin
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio DataEstrazioneDL(es)
      p1 = EstrattoDL(es,1) + 10
      p2 = EstrattoDL(es,2) + 9
      p3 = EstrattoDL(es,3) + 8
      p4 = EstrattoDL(es,4) + 7
      p5 = EstrattoDL(es,5) + 6
      p6 = EstrattoDL(es,6) + 5
      p7 = EstrattoDL(es,7) + 4
      p8 = EstrattoDL(es,8) + 3
      p9 = EstrattoDL(es,9) + 2
      p10 = EstrattoDL(es,10) + 1
      Primo_num = Fuori90(p1)
      Secondo_num = Fuori90(p2)
      Terzo_num = Fuori90(p3)
      Quarto_num = Fuori90(p4)
      Quinto_num = Fuori90(p5)
      sesto_num = Fuori90(p6)
      Settimo_num = Fuori90(p7)
      ottavo_num = Fuori90(p8)
      nono_num = Fuori90(p9)
      decimo_num = Fuori90(p10)
      ReDim aNumeri(10)
      aNumeri(1) = Primo_num
      aNumeri(2) = Secondo_num
      aNumeri(3) = Terzo_num
      aNumeri(4) = Quarto_num
      aNumeri(5) = Quinto_num
      aNumeri(6) = sesto_num
      aNumeri(7) = Settimo_num
      aNumeri(8) = ottavo_num
      aNumeri(9) = nono_num
      aNumeri(10) = decimo_num
      '---------------------------------------------------------------
      EliminaRipetuti aNumeri
      z = 0
      For x = 1 To UBound(aNumeri)
         If aNumeri(x) > 0 Then
            z = z + 1
         End If
      Next
      
      If z = 10 Then
      '----------------------------------------------------------------
         Call ImpostaGiocataDL(1,aNumeri,1,50,5)
         Scrivi "-------------------------------------------------------------------------------------------------------------",,,6,7
         Call GiocaDL(es)
      End If
   Next
   ScriviResocontoDL
   Call ScriviDistribuzioneCasiInCorso (True,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23")
End Sub