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
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto