Novità

Per Disaronno

Buonasera Disaronno, la disturbo ancora, ho provato lo script con altri dati e nella elaborazione mancano dei numeri, e ai numeri elaborati non corrispondono le ripetizioni.
Posto lo script utilizzato
il controllo fatto manualmente dei numeri ripetuti e il suo script con i nuovi dati,
Ho modificato e eliminato lo zero xke negli script che utilizzo nn e presente e per me e piu facile fare le variazioni.
Ho preso in considerazione la previsione del 12 dicembre 2015. Grazie irepi
 
Codice: 
Sub Main() ColoreTesto 2
Scrivi " script prova per Disaronno",1
Scrivi
ColoreTesto 0
Dim ruote(12)
Dim numeri1(10), numeri2(10),numeri3(10),numeri4(10),numeri5(10)
Dim numeri6(10), numeri7(10),numeri8(10),numeri9(10),numeri10(10)
Dim numeri11(10), numeri12(10),numeri13(10),numeri14(10),numeri15(10)

Dim posta(5) :
posta(2) = 1
 
ruote(1) = 1
klp = 10
ini = 9070
fin = EstrazioneFin
co = 0
For n = ini To fin
If IndiceMensile(n) = 6 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(60,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(n) & "--->" & IndiceMensile(n) & "° Estrazione Mensile"
ColoreTesto 1
Scrivi DataEstrazione(n) & " " & SiglaRuota(1) & " " & StringaEstratti(n,1) & " "  
Scrivi String(70,"*"),1
ColoreTesto 0

numeri1(1) = Fuori90(Estratto(n,12,1) + 7)
numeri1(2) = Fuori90(Estratto(n,12,1) + 11)
numeri1(3) = Fuori90(Estratto(n,12,1) + 21)
numeri1(4) = Fuori90(Estratto(n,12,1) + 28)
numeri1(5) = Fuori90(Estratto(n,12,1) + 38)
numeri1(6) = Fuori90(Estratto(n,12,1) + 39)
numeri1(7) = Fuori90(Estratto(n,12,1) + 53)
numeri1(8) = Fuori90(Estratto(n,12,1) + 71)
numeri1(9) = Fuori90(Estratto(n,12,1) + 74)
numeri1(10) = Fuori90(Estratto(n,12,1) + 82)
EliminaRipetuti numeri1
ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(n,12,1) + 29)
numeri2(2) = Fuori90(Estratto(n,12,1) + 36)
numeri2(3) = Fuori90(Estratto(n,12,1) + 51)
numeri2(4) = Fuori90(Estratto(n,12,1) + 58)
numeri2(5) = Fuori90(Estratto(n,12,1) + 60)
numeri2(6) = Fuori90(Estratto(n,12,1) + 66)
numeri2(7) = Fuori90(Estratto(n,12,1) + 67)
numeri2(8) = Fuori90(Estratto(n,12,1) + 70)
numeri2(9) = Fuori90(Estratto(n,12,1) + 72)
numeri2(10) = Fuori90(Estratto(n,12,1) + 76)
EliminaRipetuti numeri2
ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(n,12,1) + 4)
numeri3(2) = Fuori90(Estratto(n,12,1) + 17)
numeri3(3) = Fuori90(Estratto(n,12,1) + 24)
numeri3(4) = Fuori90(Estratto(n,12,1) + 33)
numeri3(5) = Fuori90(Estratto(n,12,1) + 37)
numeri3(6) = Fuori90(Estratto(n,12,1) + 39)
numeri3(7) = Fuori90(Estratto(n,12,1) + 55)
numeri3(8) = Fuori90(Estratto(n,12,1) + 76)
numeri3(9) = Fuori90(Estratto(n,12,1) + 78)
numeri3(10) = Fuori90(Estratto(n,12,1) + 89)
EliminaRipetuti numeri3
ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(n,12,1) + 7)
numeri4(2) = Fuori90(Estratto(n,12,1) + 21)
numeri4(3) = Fuori90(Estratto(n,12,1) + 36)
numeri4(4) = Fuori90(Estratto(n,12,1) + 39)
numeri4(5) = Fuori90(Estratto(n,12,1) + 51)
numeri4(6) = Fuori90(Estratto(n,12,1) + 52)
numeri4(7) = Fuori90(Estratto(n,12,1) + 55)
numeri4(8) = Fuori90(Estratto(n,12,1) + 62)
numeri4(9) = Fuori90(Estratto(n,12,1) + 70)
numeri4(10) = Fuori90(Estratto(n,12,1) + 73)
EliminaRipetuti numeri4
ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(n,12,1) + 6)
numeri5(2) = Fuori90(Estratto(n,12,1) + 18)
numeri5(3) = Fuori90(Estratto(n,12,1) + 50)
numeri5(4) = Fuori90(Estratto(n,12,1) + 52)
numeri5(5) = Fuori90(Estratto(n,12,1) + 55)
EliminaRipetuti numeri5
ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(n,12,1) + 7)
numeri6(2) = Fuori90(Estratto(n,12,1) + 15)
numeri6(3) = Fuori90(Estratto(n,12,1) + 21)
numeri6(4) = Fuori90(Estratto(n,12,1) + 24)
numeri6(5) = Fuori90(Estratto(n,12,1) + 41)
numeri6(6) = Fuori90(Estratto(n,12,1) + 42)
numeri6(7) = Fuori90(Estratto(n,12,1) + 51)
numeri6(8) = Fuori90(Estratto(n,12,1) + 69)
numeri6(9) = Fuori90(Estratto(n,12,1) + 74)
numeri6(10) = Fuori90(Estratto(n,12,1) + 77)
EliminaRipetuti numeri6
ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(n,12,1) + 7)
numeri7(2) = Fuori90(Estratto(n,12,1) + 25)
numeri7(3) = Fuori90(Estratto(n,12,1) + 30)
numeri7(4) = Fuori90(Estratto(n,12,1) + 35)
numeri7(5) = Fuori90(Estratto(n,12,1) + 39)
numeri7(6) = Fuori90(Estratto(n,12,1) + 42)
numeri7(7) = Fuori90(Estratto(n,12,1) + 55)
numeri7(8) = Fuori90(Estratto(n,12,1) + 77)
numeri7(9) = Fuori90(Estratto(n,12,1) + 80)
numeri7(10) = Fuori90(Estratto(n,12,1) + 82)
EliminaRipetuti numeri7
ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(n,12,1) + 9)
numeri8(2) = Fuori90(Estratto(n,12,1) + 11)
numeri8(3) = Fuori90(Estratto(n,12,1) + 13)
numeri8(4) = Fuori90(Estratto(n,12,1) + 29)
numeri8(5) = Fuori90(Estratto(n,12,1) + 38)
numeri8(6) = Fuori90(Estratto(n,12,1) + 46)
numeri8(7) = Fuori90(Estratto(n,12,1) + 47)
numeri8(8) = Fuori90(Estratto(n,12,1) + 50)
numeri8(9) = Fuori90(Estratto(n,12,1) + 62)
numeri8(10) = Fuori90(Estratto(n,12,1) + 68)
EliminaRipetuti numeri8
ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(n,12,1) + 11)
numeri9(2) = Fuori90(Estratto(n,12,1) + 23)
numeri9(3) = Fuori90(Estratto(n,12,1) + 44)
numeri9(4) = Fuori90(Estratto(n,12,1) + 47)
numeri9(5) = Fuori90(Estratto(n,12,1) + 50)
numeri9(6) = Fuori90(Estratto(n,12,1) + 52)
numeri9(7) = Fuori90(Estratto(n,12,1) + 56)
numeri9(8) = Fuori90(Estratto(n,12,1) + 73)
numeri9(9) = Fuori90(Estratto(n,12,1) + 85)
numeri9(10) = Fuori90(Estratto(n,12,1) + 90)
EliminaRipetuti numeri9
ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(n,12,1) + 15)
numeri10(2) = Fuori90(Estratto(n,12,1) + 18)
numeri10(3) = Fuori90(Estratto(n,12,1) + 29)
numeri10(4) = Fuori90(Estratto(n,12,1) + 60)
numeri10(5) = Fuori90(Estratto(n,12,1) + 64)
numeri10(6) = Fuori90(Estratto(n,12,1) + 68)
numeri10(7) = Fuori90(Estratto(n,12,1) + 70)
numeri10(8) = Fuori90(Estratto(n,12,1) + 71)
numeri10(9) = Fuori90(Estratto(n,12,1) + 75)
numeri10(10) = Fuori90(Estratto(n,12,1) + 81)
EliminaRipetuti numeri10
ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(n,12,1) + 2)
numeri11(2) = Fuori90(Estratto(n,12,1) + 17)
numeri11(3) = Fuori90(Estratto(n,12,1) + 35)
numeri11(4) = Fuori90(Estratto(n,12,1) + 37)
numeri11(5) = Fuori90(Estratto(n,12,1) + 50)
numeri11(6) = Fuori90(Estratto(n,12,1) + 52)
numeri11(7) = Fuori90(Estratto(n,12,1) + 64)
numeri11(8) = Fuori90(Estratto(n,12,1) + 81)
numeri11(9) = Fuori90(Estratto(n,12,1) + 83)
numeri11(10) = Fuori90(Estratto(n,12,1) + 90)
EliminaRipetuti numeri11
ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(n,12,1) + 11)
numeri12(2) = Fuori90(Estratto(n,12,1) + 14)
numeri12(3) = Fuori90(Estratto(n,12,1) + 28)
numeri12(4) = Fuori90(Estratto(n,12,1) + 32)
numeri12(5) = Fuori90(Estratto(n,12,1) + 40)
numeri12(6) = Fuori90(Estratto(n,12,1) + 61)
numeri12(7) = Fuori90(Estratto(n,12,1) + 76)
numeri12(8) = Fuori90(Estratto(n,12,1) + 80)
numeri12(9) = Fuori90(Estratto(n,12,1) + 89)
EliminaRipetuti numeri12
ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(n,12,1) + 21)
numeri13(2) = Fuori90(Estratto(n,12,1) + 22)
numeri13(3) = Fuori90(Estratto(n,12,1) + 31)
numeri13(4) = Fuori90(Estratto(n,12,1) + 57)
numeri13(5) = Fuori90(Estratto(n,12,1) + 66)
numeri13(6) = Fuori90(Estratto(n,12,1) + 76)
numeri13(7) = Fuori90(Estratto(n,12,1) + 79)
numeri13(8) = Fuori90(Estratto(n,12,1) + 81)
numeri13(9) = Fuori90(Estratto(n,12,1) + 85)
numeri13(10) = Fuori90(Estratto(n,12,1) + 90)
EliminaRipetuti numeri13
ImpostaGiocata 13,numeri13,ruote,posta,9


Gioca n,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
 
Codice: 
[FONT=Courier New][SIZE=2][COLOR=#0000ff][B]************************************************************ Caso n° 2[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff]12.12.2015--->6° Estrazione Mensile[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff]12.12.2015 BA 23.52.13.48.47 [/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]**********************************************************************[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]Estrazione generatrice del pronostico 09094 [149 - 12/12/2015][/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0001 Numeri in gioco : 02.03.17.35.38.46.61.65.75.82 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0002 Numeri in gioco : 15.22.24.30.31.34.36.40.83.90 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0003 Numeri in gioco : 01.03.19.40.42.53.58.71.78.87 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0004 Numeri in gioco : 03.15.16.19.26.34.37.61.75.90 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0005 Numeri in gioco : 14.16.19.60.72 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0006 Numeri in gioco : 05.06.15.33.38.41.61.69.75.78 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0007 Numeri in gioco : 03.06.19.41.44.46.61.79.84.89 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0008 Numeri in gioco : 02.10.11.14.26.32.63.65.67.83 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0009 Numeri in gioco : 08.11.14.16.20.37.49.54.65.77 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0010 Numeri in gioco : 24.28.32.34.35.39.45.69.72.83 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0011 Numeri in gioco : 01.14.16.28.45.47.54.56.71.89 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0012 Numeri in gioco : 04.25.40.44.53.65.68.82.86 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]G 0013 Numeri in gioco : 21.30.40.43.45.49.54.75.76.85 su BA per Ambo[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000]In corso per altre 9 estrazioni[/COLOR][/SIZE][/FONT]
 
Codice: 
 [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
 	 		[TR]
 			[TD="align: right"]2[/TD]
 			[TD="align: right"]3[/TD]
 			[TD="align: right"]17[/TD]
 			[TD="align: right"]35[/TD]
 			[TD="align: right"]38[/TD]
 			[TD="align: right"]46[/TD]
 			[TD="align: right"]61[/TD]
 			[TD="align: right"]65[/TD]
 			[TD="align: right"]75[/TD]
 			[TD="align: right"]82[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]15[/TD]
 			[TD="align: right"]22[/TD]
 			[TD="align: right"]24[/TD]
 			[TD="align: right"]30[/TD]
 			[TD="align: right"]31[/TD]
 			[TD="align: right"]34[/TD]
 			[TD="align: right"]36[/TD]
 			[TD="align: right"]40[/TD]
 			[TD="align: right"]83[/TD]
 			[TD="align: right"]90[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]1[/TD]
 			[TD="align: right"]3[/TD]
 			[TD="align: right"]19[/TD]
 			[TD="align: right"]40[/TD]
 			[TD="align: right"]42[/TD]
 			[TD="align: right"]53[/TD]
 			[TD="align: right"]58[/TD]
 			[TD="align: right"]71[/TD]
 			[TD="align: right"]78[/TD]
 			[TD="align: right"]87[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]3[/TD]
 			[TD="align: right"]15[/TD]
 			[TD="align: right"]16[/TD]
 			[TD="align: right"]19[/TD]
 			[TD="align: right"]26[/TD]
 			[TD="align: right"]34[/TD]
 			[TD="align: right"]37[/TD]
 			[TD="align: right"]61[/TD]
 			[TD="align: right"]75[/TD]
 			[TD="align: right"]90[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]14[/TD]
 			[TD="align: right"]16[/TD]
 			[TD="align: right"]19[/TD]
 			[TD="align: right"]60[/TD]
 			[TD="align: right"]72[/TD]
 			[TD] [/TD]
 			[TD] [/TD]
 			[TD] [/TD]
 			[TD] [/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]5[/TD]
 			[TD="align: right"]6[/TD]
 			[TD="align: right"]15[/TD]
 			[TD="align: right"]33[/TD]
 			[TD="align: right"]38[/TD]
 			[TD="align: right"]41[/TD]
 			[TD="align: right"]61[/TD]
 			[TD="align: right"]69[/TD]
 			[TD="align: right"]75[/TD]
 			[TD="align: right"]78[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]3[/TD]
 			[TD="align: right"]6[/TD]
 			[TD="align: right"]19[/TD]
 			[TD="align: right"]41[/TD]
 			[TD="align: right"]44[/TD]
 			[TD="align: right"]46[/TD]
 			[TD="align: right"]61[/TD]
 			[TD="align: right"]79[/TD]
 			[TD="align: right"]84[/TD]
 			[TD="align: right"]89[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]2[/TD]
 			[TD="align: right"]10[/TD]
 			[TD="align: right"]11[/TD]
 			[TD="align: right"]14[/TD]
 			[TD="align: right"]26[/TD]
 			[TD="align: right"]32[/TD]
 			[TD="align: right"]63[/TD]
 			[TD="align: right"]65[/TD]
 			[TD="align: right"]67[/TD]
 			[TD="align: right"]83[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]8[/TD]
 			[TD="align: right"]11[/TD]
 			[TD="align: right"]14[/TD]
 			[TD="align: right"]16[/TD]
 			[TD="align: right"]20[/TD]
 			[TD="align: right"]37[/TD]
 			[TD="align: right"]49[/TD]
 			[TD="align: right"]54[/TD]
 			[TD="align: right"]65[/TD]
 			[TD="align: right"]77[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]24[/TD]
 			[TD="align: right"]28[/TD]
 			[TD="align: right"]32[/TD]
 			[TD="align: right"]34[/TD]
 			[TD="align: right"]35[/TD]
 			[TD="align: right"]39[/TD]
 			[TD="align: right"]45[/TD]
 			[TD="align: right"]69[/TD]
 			[TD="align: right"]72[/TD]
 			[TD="align: right"]83[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]1[/TD]
 			[TD="align: right"]14[/TD]
 			[TD="align: right"]16[/TD]
 			[TD="align: right"]28[/TD]
 			[TD="align: right"]45[/TD]
 			[TD="align: right"]47[/TD]
 			[TD="align: right"]54[/TD]
 			[TD="align: right"]56[/TD]
 			[TD="align: right"]71[/TD]
 			[TD="align: right"]89[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]4[/TD]
 			[TD="align: right"]25[/TD]
 			[TD="align: right"]40[/TD]
 			[TD="align: right"]44[/TD]
 			[TD="align: right"]53[/TD]
 			[TD="align: right"]65[/TD]
 			[TD="align: right"]68[/TD]
 			[TD="align: right"]82[/TD]
 			[TD="align: right"]86[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]21[/TD]
 			[TD="align: right"]30[/TD]
 			[TD="align: right"]40[/TD]
 			[TD="align: right"]43[/TD]
 			[TD="align: right"]45[/TD]
 			[TD="align: right"]49[/TD]
 			[TD="align: right"]54[/TD]
 			[TD="align: right"]75[/TD]
 			[TD="align: right"]76[/TD]
 			[TD="align: right"]85[/TD]
 		[/TR]
 	 [/TABLE]

numeri della previsione del 12 dic 2015
 
Ultima modifica:
ripetizioni controllate manualmente
Codice: 
 [TABLE="border: 0, cellpadding: 0, cellspacing: 0"]
 	 		 	 	 		[TR]
 			[TD="align: right"]1[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]1[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]2[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]2[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]3[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]3[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]3[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]3[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]4[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]5[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]6[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]6[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]8[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]10[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]11[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]11[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]14[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]14[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]14[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]14[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]15[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]15[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]15[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]16[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]16[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]16[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]16[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]17[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]19[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]19[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]19[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]19[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]20[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]21[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]22[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]24[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]24[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]25[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]26[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]26[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]28[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]28[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]30[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]30[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]31[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]32[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]32[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]33[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]34[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]34[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]34[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]35[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]35[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]36[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]37[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]37[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]38[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]38[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]39[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]40[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]40[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]40[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]40[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]41[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]41[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]42[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]43[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]44[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]44[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]45[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]45[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]45[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]46[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]46[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]47[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]49[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]49[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]53[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]53[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]54[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]54[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]54[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]56[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]58[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]60[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]61[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]61[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]61[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]61[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]63[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]65[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]65[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]65[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]65[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]67[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]68[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]69[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]69[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]71[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]71[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]72[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]72[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]75[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]75[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]75[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]75[/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]76[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]77[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]78[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]78[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]79[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]82[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]82[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]83[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]83[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]83[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]84[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]85[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]86[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]87[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]89[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]89[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 		[TR]
 			[TD="align: right"]90[/TD]
 			[TD]-[/TD]
 			[TD="align: right"]90[/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 			[TD]-[/TD]
 			[TD] [/TD]
 		[/TR]
 	 [/TABLE]
 
Il Suo script con i nuovi sommativi:
Codice: 
Option Explicit
Sub Main()
ColoreTesto 1
Scrivi "http://forum.lottoced.com/forum/lottoced/area-download/1939898-per-disaronno"
Scrivi "Per Disaronno di irepi 29-11-2015, 17:28"
Scrivi "NUMERI RIPETUTI CON ESITO GIOCATE SENZA LO ZERO BY DI SARONNO",1
Dim Klp,EstCon,co
Dim Ini,Fin,N
Dim ruote(12)
Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10)
Dim numeri6(10),numeri7(10),numeri8(10),numeri9(10),numeri10(10)
Dim numeri11(10),numeri12(10),numeri13(10),numeri14(10),numeri15(10)
Dim numeri16(10),numeri17(10),numeri18(10),numeri19(10),numeri20(10)
Dim numeri21(10),numeri22(10),numeri23(10),numeri24(10),numeri25(10)
Dim numeri26(10),numeri27(10),numeri28(10),numeri29(10),numeri30(10)
Dim numeri31(10),numeri32(10),numeri33(10),numeri34(10),numeri35(10)
Dim numeri36(10),numeri37(10),numeri38(10),numeri39(10),numeri40(10)
Dim numeri41(10),numeri42(10),numeri43(10),numeri44(10),numeri45(10)
Dim numeri46(10),numeri47(10),numeri48(10),numeri49(10),numeri50(10)
Dim numeri51(10),numeri52(10),numeri53(10),numeri54(10),numeri55(10)
Dim numeri56(10),numeri57(10),numeri58(10),numeri59(10),numeri60(10)
Dim numeri61(10),numeri62(10),numeri63(10),numeri64(10),numeri65(10)
Dim numeri66(10),numeri67(10),numeri68(10),numeri69(10),numeri70(10)
Dim numeri71(10),numeri72(10),numeri73(10),numeri74(10),numeri75(10)
Dim numeri76(10),numeri77(10),numeri78(10),numeri79(10),numeri80(10)
Dim numeri81(10),numeri82(10),numeri83(10),numeri84(10),numeri85(10)
Dim numeri86(10),numeri87(10),numeri88(10),numeri89(10),numeri90(10)
Dim numeri101(10),numeri102(10),numeri103(10),numeri104(10),numeri105(10)
Dim numeri106(10),numeri107(10),numeri108(10),numeri109(10),numeri110(10)


Dim posta(5)
'posta(1) = 1
posta(2) = 1
posta(3) = 1
posta(4) = 1
posta(5) = 1

ruote(1) = 1


Klp = 09
EstCon = CInt(InputBox("Quante Estrazioni vuoi controllare ","ESTRAZIONI DI CONTROLLO",5))
Ini = EstrazioneFin - EstCon
Fin = EstrazioneFin
For N = Ini To Fin
Messaggio N
AvanzamentoElab Ini,Fin,N
If IndiceMensile(N) = 6 Then
co = co + 01
Scrivi String(70,"*") & " Caso n°" & Format2(co),1
ColoreTesto 1
Scrivi DataEstrazione(N) & " " & SiglaRuota(1) & " " & StringaEstratti(N,1) & " BA >>> "
Scrivi String(70,"*"),1
ColoreTesto 0

numeri1(1) = Fuori90(Estratto(N,12,1) + 7)
numeri1(2) = Fuori90(Estratto(N,12,1) + 11)
numeri1(3) = Fuori90(Estratto(N,12,1) + 21)
numeri1(4) = Fuori90(Estratto(N,12,1) + 28)
numeri1(5) = Fuori90(Estratto(N,12,1) + 38)
numeri1(6) = Fuori90(Estratto(N,12,1) + 39)
numeri1(7) = Fuori90(Estratto(N,12,1) + 53)
numeri1(8) = Fuori90(Estratto(N,12,1) + 71)
numeri1(9) = Fuori90(Estratto(N,12,1) + 74)
numeri1(10) = Fuori90(Estratto(N,12,1) + 82)
'EliminaRipetuti numeri1
'ImpostaGiocata 1,numeri1,ruote,posta,9
'2a mese ba
numeri2(1) = Fuori90(Estratto(N,12,1) + 29)
numeri2(2) = Fuori90(Estratto(N,12,1) + 36)
numeri2(3) = Fuori90(Estratto(N,12,1) + 51)
numeri2(4) = Fuori90(Estratto(N,12,1) + 58)
numeri2(5) = Fuori90(Estratto(N,12,1) + 60)
numeri2(6) = Fuori90(Estratto(N,12,1) + 66)
numeri2(7) = Fuori90(Estratto(N,12,1) + 67)
numeri2(8) = Fuori90(Estratto(N,12,1) + 70)
numeri2(9) = Fuori90(Estratto(N,12,1) + 72)
numeri2(10) = Fuori90(Estratto(N,12,1) + 76)
'EliminaRipetuti numeri2
'ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(N,12,1) + 4)
numeri3(2) = Fuori90(Estratto(N,12,1) + 17)
numeri3(3) = Fuori90(Estratto(N,12,1) + 24)
numeri3(4) = Fuori90(Estratto(N,12,1) + 33)
numeri3(5) = Fuori90(Estratto(N,12,1) + 37)
numeri3(6) = Fuori90(Estratto(N,12,1) + 39)
numeri3(7) = Fuori90(Estratto(N,12,1) + 55)
numeri3(8) = Fuori90(Estratto(N,12,1) + 76)
numeri3(9) = Fuori90(Estratto(N,12,1) + 78)
numeri3(10) = Fuori90(Estratto(N,12,1) + 89)
'EliminaRipetuti numeri3
'ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(N,12,1) + 7)
numeri4(2) = Fuori90(Estratto(N,12,1) + 21)
numeri4(3) = Fuori90(Estratto(N,12,1) + 36)
numeri4(4) = Fuori90(Estratto(N,12,1) + 39)
numeri4(5) = Fuori90(Estratto(N,12,1) + 51)
numeri4(6) = Fuori90(Estratto(N,12,1) + 52)
numeri4(7) = Fuori90(Estratto(N,12,1) + 55)
numeri4(8) = Fuori90(Estratto(N,12,1) + 62)
numeri4(9) = Fuori90(Estratto(N,12,1) + 70)
numeri4(10) = Fuori90(Estratto(N,12,1) + 73)
'EliminaRipetuti numeri4
'ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(N,12,1) + 6)
numeri5(2) = Fuori90(Estratto(N,12,1) + 18)
numeri5(3) = Fuori90(Estratto(N,12,1) + 50)
numeri5(4) = Fuori90(Estratto(N,12,1) + 52)
numeri5(5) = Fuori90(Estratto(N,12,1) + 55)
'EliminaRipetuti numeri5
'ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(N,12,1) + 7)
numeri6(2) = Fuori90(Estratto(N,12,1) + 15)
numeri6(3) = Fuori90(Estratto(N,12,1) + 21)
numeri6(4) = Fuori90(Estratto(N,12,1) + 24)
numeri6(5) = Fuori90(Estratto(N,12,1) + 41)
numeri6(6) = Fuori90(Estratto(N,12,1) + 42)
numeri6(7) = Fuori90(Estratto(N,12,1) + 51)
numeri6(8) = Fuori90(Estratto(N,12,1) + 69)
numeri6(9) = Fuori90(Estratto(N,12,1) + 74)
numeri6(10) = Fuori90(Estratto(N,12,1) + 77)
'EliminaRipetuti numeri6
'ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(N,12,1) + 7)
numeri7(2) = Fuori90(Estratto(N,12,1) + 25)
numeri7(3) = Fuori90(Estratto(N,12,1) + 30)
numeri7(4) = Fuori90(Estratto(N,12,1) + 35)
numeri7(5) = Fuori90(Estratto(N,12,1) + 39)
numeri7(6) = Fuori90(Estratto(N,12,1) + 42)
numeri7(7) = Fuori90(Estratto(N,12,1) + 55)
numeri7(8) = Fuori90(Estratto(N,12,1) + 77)
numeri7(9) = Fuori90(Estratto(N,12,1) + 80)
numeri7(10) = Fuori90(Estratto(N,12,1) + 82)
'EliminaRipetuti numeri7
'ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(N,12,1) + 9)
numeri8(2) = Fuori90(Estratto(N,12,1) + 11)
numeri8(3) = Fuori90(Estratto(N,12,1) + 13)
numeri8(4) = Fuori90(Estratto(N,12,1) + 29)
numeri8(5) = Fuori90(Estratto(N,12,1) + 38)
numeri8(6) = Fuori90(Estratto(N,12,1) + 46)
numeri8(7) = Fuori90(Estratto(N,12,1) + 47)
numeri8(8) = Fuori90(Estratto(N,12,1) + 50)
numeri8(9) = Fuori90(Estratto(N,12,1) + 62)
numeri8(10) = Fuori90(Estratto(N,12,1) + 68)
'EliminaRipetuti numeri8
'ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(N,12,1) + 11)
numeri9(2) = Fuori90(Estratto(N,12,1) + 23)
numeri9(3) = Fuori90(Estratto(N,12,1) + 44)
numeri9(4) = Fuori90(Estratto(N,12,1) + 47)
numeri9(5) = Fuori90(Estratto(N,12,1) + 50)
numeri9(6) = Fuori90(Estratto(N,12,1) + 52)
numeri9(7) = Fuori90(Estratto(N,12,1) + 56)
numeri9(8) = Fuori90(Estratto(N,12,1) + 73)
numeri9(9) = Fuori90(Estratto(N,12,1) + 85)
numeri9(10) = Fuori90(Estratto(N,12,1) + 90)
'EliminaRipetuti numeri9
'ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(N,12,1) + 15)
numeri10(2) = Fuori90(Estratto(N,12,1) + 18)
numeri10(3) = Fuori90(Estratto(N,12,1) + 29)
numeri10(4) = Fuori90(Estratto(N,12,1) + 60)
numeri10(5) = Fuori90(Estratto(N,12,1) + 64)
numeri10(6) = Fuori90(Estratto(N,12,1) + 68)
numeri10(7) = Fuori90(Estratto(N,12,1) + 70)
numeri10(8) = Fuori90(Estratto(N,12,1) + 71)
numeri10(9) = Fuori90(Estratto(N,12,1) + 75)
numeri10(10) = Fuori90(Estratto(N,12,1) + 81)
'EliminaRipetuti numeri10
'ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(N,12,1) + 2)
numeri11(2) = Fuori90(Estratto(N,12,1) + 17)
numeri11(3) = Fuori90(Estratto(N,12,1) + 35)
numeri11(4) = Fuori90(Estratto(N,12,1) + 37)
numeri11(5) = Fuori90(Estratto(N,12,1) + 50)
numeri11(6) = Fuori90(Estratto(N,12,1) + 52)
numeri11(7) = Fuori90(Estratto(N,12,1) + 64)
numeri11(8) = Fuori90(Estratto(N,12,1) + 81)
numeri11(9) = Fuori90(Estratto(N,12,1) + 83)
numeri11(10) = Fuori90(Estratto(N,12,1) + 90)
'EliminaRipetuti numeri11
'ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(N,12,1) + 11)
numeri12(2) = Fuori90(Estratto(N,12,1) + 14)
numeri12(3) = Fuori90(Estratto(N,12,1) + 28)
numeri12(4) = Fuori90(Estratto(N,12,1) + 32)
numeri12(5) = Fuori90(Estratto(N,12,1) + 40)
numeri12(6) = Fuori90(Estratto(N,12,1) + 61)
numeri12(7) = Fuori90(Estratto(N,12,1) + 76)
numeri12(8) = Fuori90(Estratto(N,12,1) + 80)
numeri12(9) = Fuori90(Estratto(N,12,1) + 89)
'EliminaRipetuti numeri12
'ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(N,12,1) + 21)
numeri13(2) = Fuori90(Estratto(N,12,1) + 22)
numeri13(3) = Fuori90(Estratto(N,12,1) + 31)
numeri13(4) = Fuori90(Estratto(N,12,1) + 57)
numeri13(5) = Fuori90(Estratto(N,12,1) + 66)
numeri13(6) = Fuori90(Estratto(N,12,1) + 76)
numeri13(7) = Fuori90(Estratto(N,12,1) + 79)
numeri13(8) = Fuori90(Estratto(N,12,1) + 81)
numeri13(9) = Fuori90(Estratto(N,12,1) + 85)
numeri13(10) = Fuori90(Estratto(N,12,1) + 90)
'EliminaRipetuti numeri13
'ImpostaGiocata 13,numeri13,ruote,posta,9

'Gioca n,1
ReDim am(50)'vettore numeri
'vettore numeri
am(1) = numeri1(1):am(2) = numeri1(2):am(3) = numeri1(3):am(4) = numeri1(4):am(5) = numeri1(5)
am(6) = numeri2(1):am(7) = numeri2(2):am(8) = numeri2(3):am(9) = numeri2(4):am(10) = numeri2(5)
am(11) = numeri3(1):am(12) = numeri3(2):am(13) = numeri3(3):am(14) = numeri3(4):am(15) = numeri3(5)
am(16) = numeri4(1):am(17) = numeri4(2):am(18) = numeri4(3):am(19) = numeri4(4):am(20) = numeri4(5)
am(21) = numeri5(1):am(22) = numeri5(2):am(23) = numeri5(3):am(24) = numeri5(4):am(25) = numeri5(5)
am(26) = numeri6(1):am(27) = numeri6(2):am(28) = numeri6(3):am(29) = numeri6(4):am(30) = numeri6(5)
am(31) = numeri7(1):am(32) = numeri7(2):am(33) = numeri7(3):am(34) = numeri7(4):am(35) = numeri7(5)
am(36) = numeri8(1):am(37) = numeri8(2):am(38) = numeri8(3):am(39) = numeri8(4):am(40) = numeri8(5)
am(41) = numeri9(1):am(42) = numeri9(2):am(43) = numeri9(3):am(44) = numeri9(4):am(45) = numeri9(5)
am(46) = numeri10(1):am(47) = numeri10(2):am(48) = numeri10(3):am(49) = numeri10(4):am(50) = numeri10(5)
''
Call OrdinaMatrice(am,1)
Call Scrivi("NUNERI IN GIOCO ( TUTTI I NUMERI ): " & StringaNumeri(am,"-",True),1)
Call Scrivi
''
'calcoli/statistiche sui Numeri Ripetuti
Dim VetRitornoN
Dim VetRitornoQ
Call NumeriRipetutiRilevatiV(am,VetRitornoN,VetRitornoQ)
'visualizzazione risultati
''
Call OrdinaMatrice(am,1)
Call EliminaRipetuti(am)
Call Scrivi("NUNERI IN GIOCO (ELIMINATO RIPETUTI ): " & StringaNumeri(am,"-",True),1)
Call Scrivi
''
Dim RetEsito,Retcolpi,RetEstratti,RetIdEstr
If VerificaEsitoTurbo(am,ruote,N + 01,3,Klp,,RetEsito,Retcolpi,RetEstratti,RetIdEstr) = True Then
Call Scrivi("ESITO LUNGHETTA : " & RetEsito & " al " & Retcolpi & " colpo - " & RetEstratti & " - " & GetInfoEstrazione(RetIdEstr),True,,3,0)
ElseIf RetEsito = "" And Retcolpi < Klp Then
Call Scrivi("ESITO LUNGHETTA : IN CORSO",True,,4,1)
Else
Call Scrivi("ESITO LUNGHETTA : NEGATIVO",True,,2,5)
End If
Call Scrivi(String(125,"-"),1)
Call Scrivi
Call Scrivi("Numero      " & StringaNumeri(VetRitornoN," - ",True),1)
Call Scrivi("Ripetizioni " & StringaNumeri(VetRitornoQ," - ",True),1)
Call Scrivi
Call Scrivi("NUNERI RIPETUTI IN GIOCO : " & StringaNumeri(VetRitornoN,"-",True),1)
Call Scrivi
If VerificaEsitoTurbo(VetRitornoN,ruote,N + 01,2,Klp,,RetEsito,Retcolpi,RetEstratti,RetIdEstr) = True Then
Call Scrivi("ESITO NUNERI RIPETUTI : " & RetEsito & " al " & Retcolpi & " colpo - " & RetEstratti & " - " & GetInfoEstrazione(RetIdEstr),True,,3,0)
ElseIf RetEsito = "" And Retcolpi < Klp Then
Call Scrivi("ESITO NUNERI RIPETUTI : IN CORSO",True,,4,1)
Else
Call Scrivi("ESITO NUNERI RIPETUTI : NEGATIVO",True,,2,5)
End If
Call Scrivi(String(125,"-"),1)
Call Scrivi
''
End If
Next
ScriviResoconto
End Sub
 
risultati elaborazione script previsioni del 12 dicembre 2015:
Codice: 
[FONT=Courier New][SIZE=2][COLOR=#0000ff]http://forum.lottoced.com/forum/lottoced/area-download/1939898-per-Disaronno[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff]Per Disaronno di irepi 29-11-2015, 17:28[/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]NUMERI RIPETUTI CON ESITO GIOCATE SENZA LO ZERO BY DI SARONNO[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]********************************************************************** Caso n°01[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff]12.12.2015 BA 23.52.13.48.47 BA >>> [/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]**********************************************************************[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]NUNERI IN GIOCO ( TUTTI I NUMERI ): 01-02-02-03-03-05-08-11-14-14-15-15-16-19-22-24-24-28-58-60-61-61-61-61-63-65-65-65-67-69-69-71-72-72-75-75-75-77-78-78-79-82-83-83-83-84-87-89-90-90[/B][/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=2][COLOR=#000000][B]NUNERI IN GIOCO (ELIMINATO RIPETUTI ): 01-02-03-05-08-11-14-15-16-19-22-24-28-58-60-61-63-65-67-69-71-72-75-77-78-79-82-83-84-87-89-90[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#0000ff][B]ESITO LUNGHETTA : IN CORSO[/B][/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=2][COLOR=#000000][B]-----------------------------------------------------------------------------------------------------------------------------[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Numero      02 - 03 - 14 - 15 - 24 - 61 - 65 - 69 - 72 - 75 - 78 - 83 - 90[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000][B]Ripetizioni 02 - 02 - 02 - 02 - 02 - 04 - 03 - 02 - 02 - 03 - 02 - 03 - 02[/B][/COLOR][/SIZE][/FONT]

[FONT=Courier New][SIZE=2][COLOR=#000000][B]NUNERI RIPETUTI IN GIOCO : 02-03-14-15-24-61-65-69-72-75-78-83-90[/B][/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#0000ff][B]ESITO NUNERI RIPETUTI : IN CORSO[/B][/COLOR][/SIZE][/FONT] [FONT=Courier New][SIZE=2][COLOR=#000000][B]-----------------------------------------------------------------------------------------------------------------------------[/B][/COLOR][/SIZE][/FONT]
 
Buongiorno a tutti! E da diversi giorni ke nn vedo interventi di Disaronno suppongo visto le festivita natalizie ke nn sia disponibile in qsto periodo.
Spero nn lo disturbi se kiedo aiuto agli altri scripter esperti. C e qlcno disponibile ad aiutarmi?
Grazie1 irepi
 
Buon giorno Disaronno, mi scusi se la disturbo ancora ma nn riesco a capire dove sbaglio, nell esito della previsione ho notato che il numero 11 e ripetuto 8 volte e non 6 volte, ho controllato e ricontrollato ma nn trovo l errore!

Codice: 
Option Explicit
Sub Main()
    ColoreTesto 1
    Scrivi "http://forum.lottoced.com/forum/lottoced/area-download/1939898-per-disaronno"
    Scrivi "Per Disaronno di irepi 29-11-2015, 17:28"
    Scrivi "NUMERI RIPETUTI CON ESITO GIOCATE SENZA LO ZERO BY DI SARONNO",1
    Dim Klp,EstCon,co
    Dim Ini,Fin,N
    Dim ruote(12)
    Dim numeri1(10),numeri2(10),numeri3(10),numeri4(10),numeri5(10)
    Dim numeri6(10),numeri7(10),numeri8(10),numeri9(10),numeri10(10)
    Dim numeri11(10),numeri12(10),numeri13(10),numeri14(10),numeri15(10)
    Dim numeri16(10),numeri17(10),numeri18(10),numeri19(10),numeri20(10)
    Dim numeri21(10),numeri22(10),numeri23(10),numeri24(10),numeri25(10)
    Dim numeri26(10),numeri27(10),numeri28(10),numeri29(10),numeri30(10)
    Dim numeri31(10),numeri32(10),numeri33(10),numeri34(10),numeri35(10)
    Dim numeri36(10),numeri37(10),numeri38(10),numeri39(10),numeri40(10)
    Dim numeri41(10),numeri42(10),numeri43(10),numeri44(10),numeri45(10)
    Dim numeri46(10),numeri47(10),numeri48(10),numeri49(10),numeri50(10)
    Dim numeri51(10),numeri52(10),numeri53(10),numeri54(10),numeri55(10)
    Dim numeri56(10),numeri57(10),numeri58(10),numeri59(10),numeri60(10)
    Dim numeri61(10),numeri62(10),numeri63(10),numeri64(10),numeri65(10)
    Dim numeri66(10),numeri67(10),numeri68(10),numeri69(10),numeri70(10)
    Dim numeri71(10),numeri72(10),numeri73(10),numeri74(10),numeri75(10)
    Dim numeri76(10),numeri77(10),numeri78(10),numeri79(10),numeri80(10)
    Dim numeri81(10),numeri82(10),numeri83(10),numeri84(10),numeri85(10)
    Dim numeri86(10),numeri87(10),numeri88(10),numeri89(10),numeri90(10)
    Dim numeri91(10),numeri92(10),numeri93(10),numeri94(10),numeri95(10)
    Dim numeri96(10),numeri97(10),numeri98(10),numeri99(10),numeri100(10)
    Dim numeri101(10),numeri102(10),numeri103(10),numeri104(10),numeri105(10)
    Dim numeri106(10),numeri107(10),numeri108(10),numeri109(10),numeri110(10)
    Dim posta(5)
    'posta(1) = 1
    'posta(2) = 1
    'posta(3) = 1
    'posta(4) = 1
    'posta(5) = 1
    ruote(1) = 1
    Klp = 09
    EstCon = CInt(InputBox("Quante Estrazioni vuoi controllare ","ESTRAZIONI DI CONTROLLO",5))
    Ini = EstrazioneFin - EstCon
    Fin = EstrazioneFin
    For N = Ini To Fin
        Messaggio N
        AvanzamentoElab Ini,Fin,N
        If IndiceMensile(N) = 2 Then
            co = co + 01
            Scrivi String(70,"*") & " Caso n°" & Format2(co),1
            ColoreTesto 1
            Scrivi DataEstrazione(N) & " " & SiglaRuota(1) & " " & StringaEstratti(N,1) & " BA >>> "
            Scrivi String(70,"*"),1
            ColoreTesto 0

numeri1(1) = Fuori90(Estratto(N,4,3) + 25)
numeri1(2) = Fuori90(Estratto(N,4,3) + 29)
numeri1(3) = Fuori90(Estratto(N,3,1) + 70)
numeri1(4) = Fuori90(Estratto(N,3,1) + 74)
Call Scrivi("Giocata n°  01:  " & StringaNumeri(numeri1,"-",True),1)
'EliminaRipetuti numeri1
''ImpostaGiocata 1,numeri1,ruote,posta,9
numeri2(1) = Fuori90(Estratto(N,3,4) + 74)
numeri2(2) = Fuori90(Estratto(N,3,4) + 23)
numeri2(3) = Fuori90(Estratto(N,4,4) + 51)
numeri2(4) = Fuori90(Estratto(N,4,4) + 55)
numeri2(5) = Fuori90(Estratto(N,4,4) + 90)
Call Scrivi("Giocata n°  02:  " & StringaNumeri(numeri2,"-",True),1)
'EliminaRipetuti numeri2
'ImpostaGiocata 2,numeri2,ruote,posta,9
numeri3(1) = Fuori90(Estratto(N,3,3) + 49)
numeri3(2) = Fuori90(Estratto(N,3,3) + 53)
Call Scrivi("Giocata n°  03:  " & StringaNumeri(numeri3,"-",True),1)
'EliminaRipetuti numeri3
''ImpostaGiocata 3,numeri3,ruote,posta,9
numeri4(1) = Fuori90(Estratto(N,3,2) + 38)
numeri4(2) = Fuori90(Estratto(N,3,4) + 74)
numeri4(3) = Fuori90(Estratto(N,3,3) + 82)
numeri4(4) = Fuori90(Estratto(N,3,4) + 77)
Call Scrivi("Giocata n°  04:  " & StringaNumeri(numeri4,"-",True),1)
'EliminaRipetuti numeri4
'ImpostaGiocata 4,numeri4,ruote,posta,9
numeri5(1) = Fuori90(Estratto(N,3,4) + 74)
numeri5(2) = Fuori90(Estratto(N,3,4) + 23)
numeri5(3) = Fuori90(Estratto(N,3,2) + 38)
numeri5(4) = Fuori90(Estratto(N,3,4) + 41)
Call Scrivi("Giocata n°  05:  " & StringaNumeri(numeri5,"-",True),1)
'EliminaRipetuti numeri5
'ImpostaGiocata 5,numeri5,ruote,posta,9
numeri6(1) = Fuori90(Estratto(N,4,3) + 29)
numeri6(2) = Fuori90(Estratto(N,3,1) + 74)
numeri6(3) = Fuori90(Estratto(N,3,2) + 22)
numeri6(4) = Fuori90(Estratto(N,3,2) + 38)
Call Scrivi("Giocata n°  06:  " & StringaNumeri(numeri6,"-",True),1)
'EliminaRipetuti numeri6
'ImpostaGiocata 6,numeri6,ruote,posta,9
numeri7(1) = Fuori90(Estratto(N,3,2) + 22)
numeri7(2) = Fuori90(Estratto(N,3,2) + 38)
numeri7(3) = Fuori90(Estratto(N,3,2) + 22)
numeri7(4) = Fuori90(Estratto(N,3,4) + 74)
Call Scrivi("Giocata n°  07:  " & StringaNumeri(numeri7,"-",True),1)
'EliminaRipetuti numeri7
'ImpostaGiocata 7,numeri7,ruote,posta,9
numeri8(1) = Fuori90(Estratto(N,3,4) + 74)
numeri8(2) = Fuori90(Estratto(N,4,3) + 54)
numeri8(3) = Fuori90(Estratto(N,3,2) + 22)
numeri8(4) = Fuori90(Estratto(N,3,2) + 38)
Call Scrivi("Giocata n°  08:  " & StringaNumeri(numeri8,"-",True),1)
'EliminaRipetuti numeri8
'ImpostaGiocata 8,numeri8,ruote,posta,9
numeri9(1) = Fuori90(Estratto(N,3,4) + 45)
numeri9(2) = Fuori90(Estratto(N,4,4) + 66)
numeri9(3) = Fuori90(Estratto(N,4,4) + 82)
numeri9(4) = Fuori90(Estratto(N,3,1) + 52)
numeri9(5) = Fuori90(Estratto(N,3,3) + 49)
Call Scrivi("Giocata n°  09:  " & StringaNumeri(numeri9,"-",True),1)
'EliminaRipetuti numeri9
'ImpostaGiocata 9,numeri9,ruote,posta,9
numeri10(1) = Fuori90(Estratto(N,4,1) + 28)
numeri10(2) = Fuori90(Estratto(N,4,2) + 11)
numeri10(3) = Fuori90(Estratto(N,3,3) + 53)
numeri10(4) = Fuori90(Estratto(N,3,4) + 41)
Call Scrivi("Giocata n°  10:  " & StringaNumeri(numeri10,"-",True),1)
'EliminaRipetuti numeri10
'ImpostaGiocata 10,numeri10,ruote,posta,9
numeri11(1) = Fuori90(Estratto(N,3,1) + 70)
numeri11(2) = Fuori90(Estratto(N,3,1) + 74)
numeri11(3) = Fuori90(Estratto(N,3,3) + 49)
numeri11(4) = Fuori90(Estratto(N,3,3) + 53)
Call Scrivi("Giocata n°  11:  " & StringaNumeri(numeri11,"-",True),1)
'EliminaRipetuti numeri11
'ImpostaGiocata 11,numeri11,ruote,posta,9
numeri12(1) = Fuori90(Estratto(N,3,3) + 82)
numeri12(2) = Fuori90(Estratto(N,3,3) + 25)
numeri12(3) = Fuori90(Estratto(N,3,4) + 10)
numeri12(4) = Fuori90(Estratto(N,3,4) + 74)
numeri12(5) = Fuori90(Estratto(N,4,3) + 29)
numeri12(6) = Fuori90(Estratto(N,4,3) + 54)
Call Scrivi("Giocata n°  12:  " & StringaNumeri(numeri12,"-",True),1)
'EliminaRipetuti numeri12
'ImpostaGiocata 12,numeri12,ruote,posta,9
numeri13(1) = Fuori90(Estratto(N,3,1) + 39)
numeri13(2) = Fuori90(Estratto(N,3,3) + 85)
numeri13(3) = Fuori90(Estratto(N,4,1) + 80)
numeri13(4) = Fuori90(Estratto(N,4,2) + 46)
Call Scrivi("Giocata n°  13:  " & StringaNumeri(numeri13,"-",True),1)
'EliminaRipetuti numeri13
'ImpostaGiocata 13,numeri13,ruote,posta,9
numeri14(1) = Fuori90(Estratto(N,3,3) + 18)
numeri14(2) = Fuori90(Estratto(N,3,3) + 82)
numeri14(3) = Fuori90(Estratto(N,3,4) + 77)
numeri14(4) = Fuori90(Estratto(N,4,2) + 74)
numeri14(5) = Fuori90(Estratto(N,3,4) + 49)
numeri14(6) = Fuori90(Estratto(N,3,4) + 74)
Call Scrivi("Giocata n°  14:  " & StringaNumeri(numeri14,"-",True),1)
'EliminaRipetuti numeri14
'ImpostaGiocata 14,numeri14,ruote,posta,9
numeri15(1) = Fuori90(Estratto(N,3,4) + 74)
numeri15(2) = Fuori90(Estratto(N,4,4) + 51)
numeri15(3) = Fuori90(Estratto(N,4,4) + 90)
Call Scrivi("Giocata n°  15:  " & StringaNumeri(numeri15,"-",True),1)
'EliminaRipetuti numeri15
'ImpostaGiocata 15,numeri15,ruote,posta,9

            'Gioca n,1
            ReDim am(130)'vettore numeri
            'vettore numeri
            am(01) = numeri1(1):am(02) = numeri1(2):am(03) = numeri1(3):am(04) = numeri1(4):am(05) = numeri1(5)
            am(06) = numeri1(6):am(07) = numeri1(7):am(08) = numeri1(8):am(09) = numeri1(9):am(10) = numeri1(10)
            '
            am(11) = numeri2(1):am(12) = numeri2(2):am(13) = numeri2(3):am(14) = numeri2(4):am(15) = numeri2(5)
            am(16) = numeri2(6):am(17) = numeri2(7):am(18) = numeri2(8):am(19) = numeri2(9):am(20) = numeri2(10)
            '
            am(21) = numeri3(1):am(22) = numeri3(2):am(23) = numeri3(3):am(24) = numeri3(4):am(25) = numeri3(5)
            am(26) = numeri3(6):am(27) = numeri3(7):am(28) = numeri3(8):am(29) = numeri3(9):am(30) = numeri3(10)
            '
            am(31) = numeri4(1):am(32) = numeri4(2):am(33) = numeri4(3):am(34) = numeri4(4):am(35) = numeri4(5)
            am(36) = numeri4(6):am(37) = numeri4(7):am(38) = numeri4(8):am(39) = numeri4(9):am(40) = numeri4(10)
            '
            am(41) = numeri5(1):am(42) = numeri5(2):am(43) = numeri5(3):am(44) = numeri5(4):am(45) = numeri5(5)
            am(46) = numeri5(6):am(47) = numeri5(7):am(48) = numeri5(8):am(49) = numeri5(9):am(50) = numeri5(10)
            '
            am(51) = numeri6(1):am(52) = numeri6(2):am(53) = numeri6(3):am(54) = numeri6(4):am(55) = numeri6(5)
            am(56) = numeri6(6):am(57) = numeri6(7):am(58) = numeri6(8):am(59) = numeri6(9):am(60) = numeri6(10)
            '
            am(61) = numeri7(1):am(62) = numeri7(2):am(63) = numeri7(3):am(64) = numeri7(4):am(65) = numeri7(5)
            am(66) = numeri7(6):am(67) = numeri7(7):am(68) = numeri7(8):am(69) = numeri7(9):am(70) = numeri7(10)
            '
            am(71) = numeri8(1):am(72) = numeri8(2):am(75) = numeri8(3):am(76) = numeri8(4):am(75) = numeri8(5)
            am(76) = numeri8(6):am(77) = numeri8(7):am(78) = numeri8(8):am(79) = numeri8(9):am(80) = numeri8(10)
            '
            am(81) = numeri9(1):am(82) = numeri9(2):am(83) = numeri9(3):am(84) = numeri9(4):am(85) = numeri9(5)
            am(86) = numeri9(6):am(87) = numeri9(7):am(88) = numeri9(8):am(89) = numeri9(9):am(90) = numeri9(10)
            '
            am(91) = numeri10(1):am(92) = numeri10(2):am(93) = numeri10(3):am(94) = numeri10(4):am(95) = numeri10(5)
            am(96) = numeri10(6):am(97) = numeri10(7):am(98) = numeri10(8):am(99) = numeri10(9):am(100) = numeri10(10)
            '
            am(101) = numeri11(1):am(102) = numeri11(2):am(103) = numeri11(3):am(104) = numeri11(4):am(105) = numeri11(5)
            am(106) = numeri11(6):am(107) = numeri11(7):am(108) = numeri11(8):am(108) = numeri11(9):am(110) = numeri11(10)
            '
            am(111) = numeri12(1):am(112) = numeri12(2):am(113) = numeri12(3):am(114) = numeri12(4):am(115) = numeri12(5)
            am(116) = numeri12(6):am(117) = numeri12(7):am(118) = numeri12(8):am(119) = numeri12(9):am(120) = numeri12(10)
            '
            am(121) = numeri13(1):am(122) = numeri13(2):am(123) = numeri13(3):am(124) = numeri13(4):am(125) = numeri13(5)
            am(126) = numeri13(6):am(127) = numeri13(7):am(128) = numeri13(8):am(129) = numeri13(9):am(130) = numeri13(10)
            ''
            Call OrdinaMatrice(am,1)
            Call Scrivi("NUNERI IN GIOCO ( TUTTI I NUMERI ): " & StringaNumeri(am,"-",True),1)
            Call Scrivi
            ''
            'calcoli/statistiche sui Numeri Ripetuti
            Dim VetRitornoN
            Dim VetRitornoQ
            Call NumeriRipetutiRilevatiV(am,VetRitornoN,VetRitornoQ)
            'visualizzazione risultati
            ''
            Call OrdinaMatrice(am,1)
            Call EliminaRipetuti(am)
            Call Scrivi("NUNERI IN GIOCO ( ELIMINATO RIPETUTI ): " & StringaNumeri(am,"-",True),1)
            Call Scrivi
            ''
            Dim RetEsito,Retcolpi,RetEstratti,RetIdEstr
            If VerificaEsitoTurbo(am,ruote,N + 01,2,Klp,,RetEsito,Retcolpi,RetEstratti,RetIdEstr) = True Then
                Call Scrivi("ESITO LUNGHETTA : " & RetEsito & " al " & Retcolpi & " colpo - " & RetEstratti & " - " & GetInfoEstrazione(RetIdEstr),True,,3,0)
            ElseIf RetEsito = "" And Retcolpi < Klp Then
                Call Scrivi("ESITO LUNGHETTA : IN CORSO",True,,4,1)
            Else
                Call Scrivi("ESITO LUNGHETTA : NEGATIVO",True,,2,5)
            End If
            Call Scrivi(String(125,"-"),1)
            Call Scrivi
            Call Scrivi("Numero      " & StringaNumeri(VetRitornoN," - ",True),1)
            Call Scrivi("Ripetizioni " & StringaNumeri(VetRitornoQ," - ",True),1)
            Call Scrivi
            Call Scrivi("NUNERI RIPETUTI IN GIOCO : " & StringaNumeri(VetRitornoN,"-",True),1)
            Call Scrivi
            If VerificaEsitoTurbo(VetRitornoN,ruote,N + 01,2,Klp,,RetEsito,Retcolpi,RetEstratti,RetIdEstr) = True Then
                Call Scrivi("ESITO NUNERI RIPETUTI : " & RetEsito & " al " & Retcolpi & " colpo - " & RetEstratti & " - " & GetInfoEstrazione(RetIdEstr),True,,3,0)
            ElseIf RetEsito = "" And Retcolpi < Klp Then
                Call Scrivi("ESITO NUNERI RIPETUTI : IN CORSO",True,,4,1)
            Else
                Call Scrivi("ESITO NUNERI RIPETUTI : NEGATIVO",True,,2,5)
            End If
            Call Scrivi(String(125,"-"),1)
            Call Scrivi
            ''
        End If
    Next
    'ScriviResoconto
End Sub

ESITO LUNGHETTA : IN CORSO -----------------------------------------------------------------------------------------------------------------------------
Numero 01 - 05 - 11 - 14 - 21 - 24 - 50 - 56 - 68 - 81 - 85 - 87
Ripetizioni 03 - 03 - 06 - 02 - 04 - 02 - 02 - 04 - 02 - 05 - 03 - 02

NUNERI RIPETUTI IN GIOCO : 01-05-11-14-21-24-50-56-68-81-85-87
ESITO NUNERI RIPETUTI : IN CORSO -----------------------------------------------------------------------------------------------------------------------------
 
05.01.2016 BA 41.39.03.59.89 BA >>> ************************************************** ********************
Giocata n° 01: 52-56-87-01
Giocata n° 02: 11-50-74-78-23
Giocata n° 03: 81-85
Giocata n° 04: 21-11-24-14
Giocata n° 05: 11-50-21-68
Giocata n° 06: 56-01-05-21
Giocata n° 07: 05-21-05-11
Giocata n° 08: 11-81-05-21
Giocata n° 09: 72-89-15-69-81
Giocata n° 10: 14-10-85-68
Giocata n° 11: 87-01-81-85
Giocata n° 12: 24-57-37-11-56-81
Giocata n° 13: 56-27-66-45
Giocata n° 14: 50-24-14-73-76-11
Giocata n° 15: 11-74-23
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto