Visto che non interessa a nessuno,probabilmente nessuno avrà da ridire.....
del mio modo maldestro di adattare gli script,purtroppo non sono un'informatico se no non avrei chiesto una mano
Quindi dopo giorni e giorni di "lavoro"mi è uscito fuori questo......lo posto in caso potesse tornare utile a qualcuno
è x 7 numeri
Sub Main()
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim n
posta(2) = 1
posta(3) = 0
posta(4) = 0
posta(1) = 0
Dim gg
gg = InputBox("Su quale ruota, ",,1)
ruote(1) = gg
Dim fin,ini
fin = EstrazioneFin
ini = EstrazioneFin - 11
For n = ini To fin
Messaggio n
AvanzamentoElab ini,fin,n
g = Fuori90((Estratto(n,gg,5) + 1))
h = Fuori90((Estratto(n,gg,5) + 5))
i = Fuori90((Estratto(n,gg,5) + 9))
l = Fuori90((Estratto(n,gg,5) + 13))
o = Fuori90((Estratto(n,gg,5) + 17))
p = Fuori90((Estratto(n,gg,5) + 21))
q = Fuori90((Estratto(n,gg,5) + 25))
k = 10'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<COLPI
numeri1(1) = g
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 2,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 3,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 4,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 5,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 6,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 7,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 8,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 9,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 10,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 11,numeri1,ruote,posta,k,2
numeri1(1) = g
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 12,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 13,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 14,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 15,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 16,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 17,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 18,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 19,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 20,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 21,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 22,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 23,numeri1,ruote,posta,k,2
numeri1(1) = h
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 24,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 25,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 26,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 27,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 28,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 29,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 30,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 31,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 32,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 33,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 34,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 35,numeri1,ruote,posta,k,2
numeri1(1) = i
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 36,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 37,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 38,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 39,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 40,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 41,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 42,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 43,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 44,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 45,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 46,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 47,numeri1,ruote,posta,k,2
numeri1(1) = l
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 48,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 49,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 50,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 51,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 52,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 53,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 54,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 55,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 56,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 57,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 58,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 59,numeri1,ruote,posta,k,2
numeri1(1) = o
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 60,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 61,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 62,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 63,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 64,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 65,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 66,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 67,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 68,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 69,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 70,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(q - 1)
EliminaRipetuti numeri1
ImpostaGiocata 71,numeri1,ruote,posta,k,2
numeri1(1) = p
numeri1(2) = Fuori90(q + 1)
EliminaRipetuti numeri1
ImpostaGiocata 72,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(g - 1)
EliminaRipetuti numeri1
ImpostaGiocata 73,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(g + 1)
EliminaRipetuti numeri1
ImpostaGiocata 74,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(h - 1)
EliminaRipetuti numeri1
ImpostaGiocata 75,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(h + 1)
EliminaRipetuti numeri1
ImpostaGiocata 76,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(i - 1)
EliminaRipetuti numeri1
ImpostaGiocata 77,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(i + 1)
EliminaRipetuti numeri1
ImpostaGiocata 78,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(l - 1)
EliminaRipetuti numeri1
ImpostaGiocata 79,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(l + 1)
EliminaRipetuti numeri1
ImpostaGiocata 80,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(o - 1)
EliminaRipetuti numeri1
ImpostaGiocata 81,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(o + 1)
EliminaRipetuti numeri1
ImpostaGiocata 82,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(p - 1)
EliminaRipetuti numeri1
ImpostaGiocata 83,numeri1,ruote,posta,k,2
numeri1(1) = q
numeri1(2) = Fuori90(p + 1)
EliminaRipetuti numeri1
ImpostaGiocata 84,numeri1,ruote,posta,k,2
For x = 1 To 84
ImpostaInterruzioni x,1,2
ImpostaInterruzioni x,2,2
ImpostaInterruzioni x,3,2
ImpostaInterruzioni x,4,2
ImpostaInterruzioni x,5,2
ImpostaInterruzioni x,6,2
ImpostaInterruzioni x,7,2
ImpostaInterruzioni x,8,2
ImpostaInterruzioni x,9,2
ImpostaInterruzioni x,10,2
ImpostaInterruzioni x,11,2
ImpostaInterruzioni x,12,2
ImpostaInterruzioni x,13,2
ImpostaInterruzioni x,14,2
ImpostaInterruzioni x,15,2
ImpostaInterruzioni x,16,2
ImpostaInterruzioni x,17,2
ImpostaInterruzioni x,18,2
ImpostaInterruzioni x,19,2
ImpostaInterruzioni x,20,2
ImpostaInterruzioni x,21,2
ImpostaInterruzioni x,22,2
ImpostaInterruzioni x,23,2
ImpostaInterruzioni x,24,2
ImpostaInterruzioni x,25,2
ImpostaInterruzioni x,26,2
ImpostaInterruzioni x,27,2
ImpostaInterruzioni x,28,2
ImpostaInterruzioni x,29,2
ImpostaInterruzioni x,30,2
ImpostaInterruzioni x,31,2
ImpostaInterruzioni x,32,2
ImpostaInterruzioni x,33,2
ImpostaInterruzioni x,34,2
ImpostaInterruzioni x,35,2
ImpostaInterruzioni x,36,2
ImpostaInterruzioni x,37,2
ImpostaInterruzioni x,38,2
ImpostaInterruzioni x,39,2
ImpostaInterruzioni x,40,2
ImpostaInterruzioni x,41,2
ImpostaInterruzioni x,42,2
ImpostaInterruzioni x,43,2
ImpostaInterruzioni x,44,2
ImpostaInterruzioni x,45,2
ImpostaInterruzioni x,46,2
ImpostaInterruzioni x,47,2
ImpostaInterruzioni x,48,2
ImpostaInterruzioni x,49,2
ImpostaInterruzioni x,50,2
ImpostaInterruzioni x,51,2
ImpostaInterruzioni x,52,2
ImpostaInterruzioni x,53,2
ImpostaInterruzioni x,54,2
ImpostaInterruzioni x,55,2
ImpostaInterruzioni x,56,2
ImpostaInterruzioni x,57,2
ImpostaInterruzioni x,58,2
ImpostaInterruzioni x,59,2
ImpostaInterruzioni x,60,2
ImpostaInterruzioni x,61,2
ImpostaInterruzioni x,62,2
ImpostaInterruzioni x,63,2
ImpostaInterruzioni x,64,2
ImpostaInterruzioni x,65,2
ImpostaInterruzioni x,66,2
ImpostaInterruzioni x,67,2
ImpostaInterruzioni x,68,2
ImpostaInterruzioni x,69,2
ImpostaInterruzioni x,70,2
ImpostaInterruzioni x,71,2
ImpostaInterruzioni x,72,2
ImpostaInterruzioni x,73,2
ImpostaInterruzioni x,74,2
ImpostaInterruzioni x,75,2
ImpostaInterruzioni x,76,2
ImpostaInterruzioni x,77,2
ImpostaInterruzioni x,78,2
ImpostaInterruzioni x,79,2
ImpostaInterruzioni x,80,2
ImpostaInterruzioni x,81,2
ImpostaInterruzioni x,82,2
ImpostaInterruzioni x,83,2
ImpostaInterruzioni x,84,2
Next
Scrivi "##########################################################################",,,3,8
Scrivi(g)
Scrivi(h)
Scrivi(i)
Scrivi(l)
Scrivi(o)
Scrivi(p)
Scrivi(q)
Gioca n,True
Next
ScriviResoconto
'Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10")'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
End Sub
SALUTI!!!!!!