Novità

RICHIESTA SCRIPT X 10 LOTTO SERALE

rosce14

Premium Member
BUONA SERA A TUTTI GLI AMICI SCRIPTOLOGI, POTREI AVERE UNO SCRIPT CHE MI EVIDENZI 1 O 2 DECINE IN RITARDO X TERNO.
GRAZIE A CHI VORRA' AIUTARMI.
:p
 
Ciao Rosce se si tratta di decine naturali, ho modificato uno script di Luigi, mentre se trattasi di numeri in decine la cosa si complica.

Codice:
'Option Explicit
Sub Main
	Dim TipoArc
	Dim nCicli
	Dim Inizio,Fine
	Dim idEstr
	Dim idDecina
	Dim sErr
	Dim nTotale
	ReDim aNum(10)
	ReDim aRuote(1)
	
	
	
	nCicli = Int(InputBox("Inserire il numero dei cicli da 18",,1))
	nciclo = CInt(InputBox("Lunghezza ciclo",,18))
	sorte = CInt(InputBox("SORTE DI ESITO",,3))
	TipoArc = ScegliArchivio
	Inizio =(EstrazioniArchivioDL -(nCicli * nciclo)) + 1
	Fine = EstrazioniArchivioDL - (nciclo-1)
	
	
	
	If nCicli > 0 And Inizio > 0 And TipoArc > 0 Then
		
		Call ImpostaArchivio10ELotto(TipoArc)
		
		For idDecina = 1 To 9
			nTotale = 0
			Call AlimentaNumeri(idDecina,aNum)
			ReDim aTitoli(3)
			aTitoli(1) = "   Range       "
			aTitoli(2) = "   Frequenza   "
			aTitoli(3) = "   Ritardo     "
			Call InitTabella(aTitoli)
			For idEstr = Inizio To Fine Step nciclo
				ReDim aValori(3)
				aValori(1) = CStr(idEstr) & " - " & CStr(idEstr + nciclo)
				aValori(2) = SerieFreqDL(idEstr,idEstr + nciclo,aNum,sorte)
				aValori(3) = SerieRitardoDL(idEstr,idEstr+nciclo,aNum,sorte)
				nTotale = nTotale + CLng(aValori(2))
				Call AddRigaTabella(aValori)
			Next
			ReDim aValori(3)
			aValori(1) = "Totale"
			aValori(2) = nTotale
			Call AddRigaTabella(aValori,vbYellow)
			
			
			Call Scrivi("Decina analizzata " & StringaNumeri(aNum) & "    Sorte analizzata... : " & NomeSorte(sorte),1)
			
			Call Scrivi
			
			Call CreaTabella
		Next
	Else
		If nCicli <= 0 Then
			sErr = "Numero di cicli non valido"
		End If
		If Inizio <= 0 Then
			sErr = "Troppi cicli rispetto alle estrazioni del range"
		End If
		If idDecina <= 0 Then
			sErr = "Nessuna decina selezionata"
		End If
		If TipoArc <= 0 Then
			sErr = "Specificare quale archivio 10 e lotto"
		End If
		

		MsgBox sErr,vbCritical
	End If
End Sub
Function ScegliDecina()
	ReDim aVoci(8)
	Dim k,i
	For k = 1 To 81 Step 10
		aVoci(i) = "Decina " & k & " - " & k + 9
		i = i + 1
	Next
	ScegliDecina = ScegliOpzioneMenu(aVoci,0,"Selezione decina") + 1
End Function
Sub AlimentaNumeri(idDecina,aNum)
	Dim i,k,y
	i =((idDecina - 1) * 10) + 1
	For k = i To(i - 1) + 10
		y = y + 1
		aNum(y) = k
	Next
End Sub
Function ScegliArchivio()

	ReDim aVoci(1)
	
	aVoci(0) = "Dieci e lotto"
	aVoci(1) = "Dieci e lotto 5 min"
		
	
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Selezione archivio") + 1
End Function
 
GRAZIE MIKE58, SEMPRE GENTILISSIMO, SICURAMENTE MI SARA' UTILE. SE COMBINO QUALCOSA TI FARO' SAPERE.
BUONA GIORNATA;)
 
Ciao Paolo, come vedi nell'altro post mi manca il tempo causa lavoro 2° turno.
Penso di si si può fare ma forse non su questo script.
I vecchi script delle tue decine per il lotto penso che si possono adattare al 10 e lotto.

Ci posso provare ti faccio sapere quando sono pronto te lo posto qui, se rosce non ha nulla in contrario.


Ciao
 
ok mike :)

per oggi non ti disturbo :)

vai pure tranquillo al lavoro

fammi sapere quando hai pronto lo script

grazie mille per il tuo impegno e per la tua disponibilità

ciao
 
Ultima modifica:
Ciao paolo, eccoti lo script di 2 decine.

Codice:
Sub Main()
	Scrivi "Script By Mike58 ( Ricerca decine ordinate per Ritardo *** 10 & Lotto Serale )",1
	Dim n(1),n1(90)
	ImpostaArchivio10ELotto(1) ' imposta......(2) per 5 min
	Ini = EstrazioniArchivioDL - 200
	fin = EstrazioniArchivioDL
	Tot = fin - Ini
	so = CInt(InputBox("Sorte di Gioco  ","SORTE",6))
	Scrivi "Sorte cercata..." & NomeSorte(so),1,1,,1,2
	Scrivi "Estremi di Ricerca da... " & DataEstrazioneDL(Ini) & " a " & DataEstrazioneDL(fin),1
	Scrivi
	ReDim at(9)
	at(1) = " D - D "
	at(2) = "Combinazione"
	at(3) = "R.Att"
	at(4) = "R.Sto"
	at(5) = " Freq "
	at(6) = " esito "
	at(7) = " Estratti "
	at(8) = " Data Esito "
	at(9) = " Ind. Conv "
	Call InitTabella(at,0,,3,5)
	passo = 10
	For x = 1 To 9
		For y = 1 To 20
			For z = 10 To 10
				n1(y) = Fuori90(y + n1(z))
			Next
		Next
		If n(1) = 0 Then n(1) = 90
		Call StatisticaFormazioneDL(n1,so,ReRit,RitMax,incr,ReFre,Ini,Fin)
		ic = Round((refre/Tot*ReRit),2)
		Call VerificaEsitoDL(n1,fin - ReRit,so,Tot,RetEsito,RetColpi,RetEstratti,RetId)
		ReDim av(9)
		av(1) = Decina(n1(1)) & " - " & Decina(n1(11))
		av(2) = StringaNumeri(n1,,True)
		av(3) = ReRit
		av(4) = RitMax
		av(5) = ReFre
		av(6) = RetEsito
		av(7) = RetEstratti
		If RetEsito <> "" Then av(8) = DataEstrazioneDL(RetId)
		If RetEsito = "" Then av(8) = " -- "
		av(9) = ic
		Call AddRigaTabella(av,,,3)
	Next
	ColoreTesto 0
	Call SetTableWidth("100%")
	Call CreaTabella(3)
End Sub
 
Prova anche cosi

Codice:
Sub Main
	Dim a(36)
	'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,6))
	color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
	
	ImpostaArchivio10ELotto(1)  
	Fin = EstrazioniArchivioDL
	Ini = EstrazioniArchivioDL - qt
	
	Scrivi " dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1
	Scrivi "Sorte analizzata..." & sorte,1,1,,1,3
	Scrivi
	ReDim atitoli(8)
	atitoli(1) = "  Tipo decina  & ( D - D )  "
	atitoli(2) = "      Combinazione       "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Rit. Max "
	atitoli(5) = " incr max"
	atitoli(6) = " Freq "
	atitoli(7) = "      Esito      "
	atitoli(8) = "  Stringa estratti   "
	
	Call InitTabella(atitoli,2,,3,5)
	a(01) = "01-02-03-04-05-06-07-08-09-10-11-12-13-14-15-16-17-18-19-20"
	a(02) = "01-02-03-04-05-06-07-08-09-10-21-22-23-24-25-26-27-28-29-30"
	a(03) = "01-02-03-04-05-06-07-08-09-10-31-32-33-34-35-36-37-38-39-40"
	a(04) = "01-02-03-04-05-06-07-08-09-10-41-42-43-44-45-46-47-48-49-50"
	a(05) = "01-02-03-04-05-06-07-08-09-10-51-52-53-54-55-56-57-58-59-60"
	a(06) = "01-02-03-04-05-06-07-08-09-10-61-62-63-64-65-66-67-68-69-70"
	a(07) = "01-02-03-04-05-06-07-08-09-10-71-72-73-74-75-76-77-78-79-80"
	a(08) = "01-02-03-04-05-06-07-08-09-10-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(09) = "11-12-13-14-15-16-17-18-19-20-21-22-23-24-25-26-27-28-29-30"
	a(10) = "11-12-13-14-15-16-17-18-19-20-31-32-33-34-35-36-37-38-39-40"
	a(11) = "11-12-13-14-15-16-17-18-19-20-41-42-43-44-45-46-47-48-49-50"
	a(12) = "11-12-13-14-15-16-17-18-19-20-51-52-53-54-55-56-57-58-59-60"
	a(13) = "11-12-13-14-15-16-17-18-19-20-61-62-63-64-65-66-67-68-69-70"
	a(14) = "11-12-13-14-15-16-17-18-19-20-71-72-73-74-75-76-77-78-79-80"
	a(15) = "11-12-13-14-15-16-17-18-19-20-81-82-83-84-85-86-87-88-89-90"
	'---------------------------------------------------------------------
	a(16) = "21-22-23-24-25-26-27-28-29-30-31-32-33-34-35-36-37-38-39-40"
	a(17) = "21-22-23-24-25-26-27-28-29-30-41-42-43-44-45-46-47-48-49-50"
	a(18) = "21-22-23-24-25-26-27-28-29-30-51-52-53-54-55-56-57-58-59-60"
	a(19) = "21-22-23-24-25-26-27-28-29-30-61-62-63-64-65-66-67-68-69-70"
	a(20) = "21-22-23-24-25-26-27-28-29-30-71-72-73-74-75-76-77-78-79-80"
	a(21) = "21-22-23-24-25-26-27-28-29-30-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(22) = "31-32-33-34-35-36-37-38-39-40-41-42-43-44-45-46-47-48-49-50"
	a(23) = "31-32-33-34-35-36-37-38-39-40-51-52-53-54-55-56-57-58-59-60"
	a(24) = "31-32-33-34-35-36-37-38-39-40-61-62-63-64-65-66-67-68-69-70"
	a(25) = "31-32-33-34-35-36-37-38-39-40-71-72-73-74-75-76-77-78-79-80"
	a(26) = "31-32-33-34-35-36-37-38-39-40-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(27) = "41-42-43-44-45-46-47-48-49-50-51-52-53-54-55-56-57-58-59-60"
	a(28) = "41-42-43-44-45-46-47-48-49-50-61-62-63-64-65-66-67-68-69-70"
	a(29) = "41-42-43-44-45-46-47-48-49-50-71-72-73-74-75-76-77-78-79-80"
	a(30) = "41-42-43-44-45-46-47-48-49-50-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(31) = "51-52-53-54-55-56-57-58-59-60-61-62-63-64-65-66-67-68-69-70"
	a(32) = "51-52-53-54-55-56-57-58-59-60-71-72-73-74-75-76-77-78-79-80"
	a(33) = "51-52-53-54-55-56-57-58-59-60-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(34) = "61-62-63-64-65-66-67-68-69-70-71-72-73-74-75-76-77-78-79-80"
	a(35) = "61-62-63-64-65-66-67-68-69-70-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	a(36) = "71-72-73-74-75-76-77-78-79-80-81-82-83-84-85-86-87-88-89-90"
	'--------------------------------------------------------------------
	For N = 1 To UBound(a)
		Nu = Split("0-" & Format2(a(n)),"-")
		Call StatisticaFormazioneDL(nu,sorte,rit,max,Incr,fre,Ini,fin)
		
			Call VerificaEsitoDL(nu,fin - rit,sorte,,retesito,colpi,retestratti,id)
			
		
				
		
		ReDim avalori(8)
		avalori(1) = " Dec.  " & Format2(n) & "  <  " & Decina (nu(1)) & " - " & Decina(nu(11)) & " > "
		avalori(2) = StringaNumeri(nu)
		avalori(3) = rit
		avalori(4) = max
		avalori(5) = Incr
		avalori(6) = fre
		avalori(7) = retesito
		avalori(8) = retestratti
		
		Call AddRigaTabella(avalori,,,3)
		For x = 1 To 9
		If n = color Then Call SetColoreCella((x),3,1)
		Next
		
	Next
	
	Call SetTableWidth("100%")
	Call CreaTabella(3)
	
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
 
ciao mike
mi trovo molto bene con il secondo che hai fatto,
anch'io non ho molto tempo da dedicare in questo
periodo ma appena posso anche in orari strani
faccio quasi sempre una visita al forum.

scusami se ne approfitto di parlarne in questo post
che non centra niente, ma mi servirebbe anche
uno script per avere il tabellone analitico per
la ruota "tutte"
se riusciresti a mettermelo
ti sarei davvero grato.

ti ringrazio per tutto

ciao
 
Paolo x il Tabellone analitico a Tutte ci sono un po' di difficoltà e visto anche il poco tempo a disoisizione non riesco a lavorarci.
Se vuoi comincia ad estrapolare i numeri messi per ritardo con filtro voluto.

Per adesso accontentati cosi, anche se diversamente la vedo dura.

Codice:
Sub Main
	Dim n1(1)
	Dim ruote(1)
	r = InputBox("Quale Ruota",,11)
	qr = CInt(InputBox("Quale ritardo superiore a? considerare",,0))
	ruote(1) = r
	ReDim atitoli(8)
	atitoli(1) = " Data "
	atitoli(2) = " Ruota "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	atitoli(8) = " Ret_estrati "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	df = fin - Ini
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
	Scrivi
	Call Messaggio("elaborazione..... " & n)
	Call AvanzamentoElab(Ini,fin,n)
	For x = 1 To 90
		n1(1) = x
		Call StatisticaFormazioneTurbo(n1,ruote,1,rit,ritmax,Incrmax,freq,Ini,fin)
		ReDim rt(10)
		For rr = 1 To 10
		rt(rr) = rr
		Call VerificaEsitoTurbo(n1,rt,fin - rit,1,,,,,retestratti)
		Next
		If rit >= qr Then
			ReDim avalori(8)
			avalori(1) = DataEstrazione(fin - rit)
			avalori(2) = NomeRuota(r)
			avalori(3) =(x)
			avalori(4) = rit
			avalori(5) = ritmax
			avalori(6) = Incrmax
			avalori(7) = freq
			avalori(8) = retestratti
			Call AddRigaTabella(avalori,,,3)
			Call SetColoreCella(4,vbMagenta)
			Call SetColoreCella(3,,1)
		End If
	Next
	Call CreaTabella(4)
	Scrivi"     Tabella by Mike58       ",1,- 1,6
	'Next
End Sub
 
Se invece volevi un tabellone analitico per il 10 e lotto

eccolo by Luigi

Codice:
Sub Main
	Dim TipoArchivio
	Dim nFine,nInizio
	Dim TipoLayout
	
	TipoArchivio = ScegliArchivio
	TipoLayout = ScegliLayOut
	If TipoArchivio > 0 And TipoLayout > 0 Then
		Call ImpostaArchivio10ELotto(TipoArchivio)
		nFine = EstrazioniArchivioDL
		nInizio = nFine - 99
		ReDim aEstr(100,21)
		Call AlimentaQuadroEstr(nInizio,nFine,aEstr)
		Call AzzeraNumeriUsciti(aEstr)
		Call AlimentaTabella(aEstr,TipoLayout)
	End If
	
End Sub
Sub AlimentaTabella(aEstr,TipoLayout)
	ReDim aTitoli(4)
	Dim k
	Dim Ritardo
	Dim nPres
	' preimposto i titoli delle colonne
	aTitoli(1) = " Data" & Space(22)
	aTitoli(2) = " Ritardo" & Space(10)
	aTitoli(3) = " Colonna" & Space(55)
	aTitoli(4) = " Quantita" & Space(5)
	
	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,2,5,"Courier New")
	Ritardo = UBound(aEstr)
	For k = 1 To UBound(aEstr)
		nPres = GetQuaNumInCol(aEstr,k)
		ReDim aValori(4)
		aValori(1) = GetInfoEstrazioneDL(aEstr(k,1)) ' numero
		aValori(2) = Ritardo
		aValori(3) = GetColonnaString(aEstr,k)
		aValori(4) = nPres
	
		If TipoLayout = 1 Then
			
			If nPres > 0 And nPres <= 2 Then
				Call AddRigaTabella(aValori,Rosso_,,2,,"Courier New")
			ElseIf nPres > 2 And nPres <= 5 Then
				Call AddRigaTabella(aValori,Giallo_,,2,,"Courier New")
			ElseIf nPres > 5 And nPres <= 10 Then
				Call AddRigaTabella(aValori,Verde_,,2,,"Courier New")
			ElseIf nPres > 10 And nPres <= 14 Then
				Call AddRigaTabella(aValori,Magenta_,,2,,"Courier New")
			ElseIf nPres > 14 And nPres <= 17 Then
				Call AddRigaTabella(aValori,Blu_,,2,,"Courier New")
			ElseIf nPres > 17 Then
	
				Call AddRigaTabella(aValori,Ciano_,,2,,"Courier New")
			Else
	
				Call AddRigaTabella(aValori,,,2,,"Courier New")
				
			End If
		Else
			Call AddRigaTabella(aValori,,,2,,"Courier New")

		End If
		Ritardo = Ritardo - 1
	Next
	Call CreaTabella()
End Sub
Function GetColonnaString(aEstr,id)
	Dim k
	Dim s
	For k = 2 To 21
		If aEstr(id,k) > 0 Then
			s = s & Format2(aEstr(id,k)) & " "
		Else
			s = s & "-- "
		End If
	Next
	GetColonnaString = s
End Function
Function GetQuaNumInCol(aEstr,id)
	Dim k
	Dim n
	'n =0
	
	For k = 2 To 21
		If aEstr(id,k) > 0 Then
			n = n + 1
		End If
	Next
	GetQuaNumInCol = n
End Function
Sub AzzeraNumeriUsciti(aEstr)
	Dim k,kk,j,jj
	For k = 2 To UBound(aEstr)
		For kk = k - 1 To 1 Step - 1
			For j = 2 To 21
				If aEstr(k,j) > 0 Then
					For jj = 2 To 21
						If aEstr(k,j) = aEstr(kk,jj) Then
							aEstr(kk,jj) = 0
							Exit For
						End If
					Next
				End If
			Next
		Next
	Next
End Sub
Sub AlimentaQuadroEstr(nInizio,nFine,aEstr)
	Dim k,j,i
	For k = nInizio To nFine
		i = i + 1
		aEstr(i,1) = k
		For j = 1 To 20
			aEstr(i,j + 1) = EstrattoDL(k,j)
		Next
	Next
End Sub
Function ScegliArchivio()
	ReDim aVoci(1)
	aVoci(0) = "10 e lotto"
	aVoci(1) = "10 e lotto 5 min"
	ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli archivio") + 1
End Function
Function ScegliLayOut()
	ReDim aVoci(1)
	aVoci(0) = "Colora righe in funzione  numeri"
	aVoci(1) = "Non colorare"
	ScegliLayOut = ScegliOpzioneMenu(aVoci,0,"Secegli opzione colore ") + 1
End Function
 
ciao
ottimo il tabellone analitico del 10elotto
mentre quello del lotto a tutte non è quello che volevo

bravo e grazie di cuore per tutto :)
sei infaticabile

ciao
 
Prova anche questo analitico a tutte

Codice:
Sub Main()
	'Tabellone analitico Tutte o ruota
	r = InputBox("inserire Ruota ",,11)
	ln = InputBox("lunghezza del ciclo...",,20)
	fin = InputBox("Dall'estrazione...",,EstrazioneFin)
	ini = fin - ln
	Scrivi
	Scrivi " ********************* Tabellone analitico ******* by Mike58 ************** ",1,- 1,6
	Scrivi
	ColoreTesto 1
	Scrivi "Ruota di...." & NomeRuota(r) & " " & " ciclo estrazioni..." & ln & " - " & Ini & "/" & DataEstrazione(Ini) & " - " & fin & "/" & DataEstrazione(fin),1,- 1,3
	Scrivi
	ColoreTesto 0
	lancio = Getfrequenza(Ini,fin,r)
End Sub
''''-------------------------------------------------------------------------------------------
Function Getfrequenza(Ini,fin,r)
	Dim nm(90)
	Dim freq(90)
	Dim rit(90)
	Dim rt(1)
	rt(1) = r
	For q = 1 To 90
		freq(q) = 0
	Next
	For n = 1 To 90
		nm(1) = n
		freq(n) = SerieFreq(Ini,fin,nm,rt,1)
		rit(n) = SerieRitardo(Ini,fin,nm,rt,1)
	Next
	For x = 0 To Ini
		ritt = ""
		For y = 1 To 90
			If x = rit(y) Then ritt = ritt & Format2(y) & " "
			If x = rit(y) Then k = k + 1
		Next
		If ritt <> "" Then 
		Scrivi DataEstrazione(fin - x),1,0,,1,2
		Scrivi " - Ritardo..." & Format2(x),1,0,,2,2 
		Scrivi " ....Estratti ( " & Format2(k) & " ) ",1,0,,1,2
		Scrivi  ritt,1,1,,0,2
		End If
		k = 0
	Next
End Function
 
ciao mike
già l'ultimo script che hai messo per me è migliore di quello prima,
ma ti metto un'immagine di come lo vorrei


data ruote ritardo
04-ott BARI 0 53 75 11 64 39
04-ott CAGLIARI 0 21 83 67 65 50
04-ott FIRENZE 0 29 76 14 10 36
04-ott GENOVA 0 12 17 62 15 36
04-ott MILANO 0 62 41 6 39 52
04-ott NAPOLI 0 60 64 36 23 65
04-ott PALERMO 0 82 5 31 18 24
04-ott ROMA 0 12 2 38 58 62
04-ott TORINO 0 86 29 82 47 48
04-ott VENEZIA 0 27 70 31 9 57
02-ott BARI 1 33 - 37 - -
02-ott CAGLIARI 1 44 - 87 51 88
02-ott FIRENZE 1 - 56 - - 69
02-ott GENOVA 1 - - 25 28 -
02-ott MILANO 1 - - - 7 -
02-ott NAPOLI 1 - - 22 - 40
02-ott PALERMO 1 - - - 77 81
02-ott ROMA 1 - - - - 42
02-ott TORINO 1 1 - - - -
02-ott VENEZIA 1 - - - 32 -
30-set BARI 2 - 84 - - -
30-set CAGLIARI 2 - 71 - 35 30
30-set FIRENZE 2 - 45 73 - -
30-set GENOVA 2 74 - 80 - -
30-set MILANO 2 3 - - - -
30-set NAPOLI 2 61 - - - -
30-set PALERMO 2 - - - - -
30-set ROMA 2 - 19 - 90
30-set TORINO 2 - - 59 - 13
30-set VENEZIA 2 - 34 68 - -
27-set BARI 3 85 - - - -
27-set CAGLIARI 3 89 16 49 - -
27-set FIRENZE 3 - - - - -
27-set GENOVA 3 63 - - - -
27-set MILANO 3 - 72 - - -
27-set NAPOLI 3 8 - - 20 -
27-set PALERMO 3 - - - - -
27-set ROMA 3 - - - - -
27-set TORINO 3 - - - - -
27-set VENEZIA 3 - - 26 - -
25-set BARI 4 - - - 78 55
25-set CAGLIARI 4 - - - 54 -
25-set FIRENZE 4 - - - - -
25-set GENOVA 4 - - - - -
25-set MILANO 4 - - - - -
25-set NAPOLI 4 - - - - -
25-set PALERMO 4 - - - - -
25-set ROMA 4 - - - - -
25-set TORINO 4 - - - - -
25-set VENEZIA 4 - - - - -
23-set BARI 5 - - - - -
23-set CAGLIARI 5 - - - - -
23-set FIRENZE 5 - - - - -
23-set GENOVA 5 - - 66 - -
23-set MILANO 5 - - - - -
23-set NAPOLI 5 - - - - -
23-set PALERMO 5 - - - - -
23-set ROMA 5 - - - - -
23-set TORINO 5 4 - - - -
23-set VENEZIA 5 - - - - -
20-set BARI 6 - - - - -
20-set CAGLIARI 6 - - - - -
20-set FIRENZE 6 - - - - -
20-set GENOVA 6 - - - - -
20-set MILANO 6 - - - - -
20-set NAPOLI 6 - - - - -
20-set PALERMO 6 - - - - -
20-set ROMA 6 - - - - -
20-set TORINO 6 - - - - -
20-set VENEZIA 6 - - - - 79
18-set BARI 7 - - - - -
18-set CAGLIARI 7 - - - - -
18-set FIRENZE 7 - - - - -
18-set GENOVA 7 - - - - -
18-set MILANO 7 - - - - -
18-set NAPOLI 7 - - - - -
18-set PALERMO 7 - - - - -
18-set ROMA 7 - - - - -
18-set TORINO 7 - - - - -
18-set VENEZIA 7 - - - - -
16-set BARI 8 - - - - -
16-set CAGLIARI 8 - - - - -
16-set FIRENZE 8 - - - - -
16-set GENOVA 8 - - - - -
16-set MILANO 8 - - - - -
16-set NAPOLI 8 - - - - 43
16-set PALERMO 8 - - - - -
16-set ROMA 8 - - - - -
16-set TORINO 8 - - - - -
16-set VENEZIA 8 - - - - -
13-set BARI 9 - - - - -
13-set CAGLIARI 9 - - - - -
13-set FIRENZE 9 - - - - -
13-set GENOVA 9 - - - - -
13-set MILANO 9 - - - - -
13-set NAPOLI 9 - - - - -
13-set PALERMO 9 - - - - -
13-set ROMA 9 - - - - -
13-set TORINO 9 - - - - -
13-set VENEZIA 9 - - - - -
11-set BARI 10 - - - - -
11-set CAGLIARI 10 - - - - -
11-set FIRENZE 10 - - - - -
11-set GENOVA 10 - - - - -
11-set MILANO 10 - - - - -
11-set NAPOLI 10 - - - - -
11-set PALERMO 10 - - 46 - -
11-set ROMA 10 - - - - -
11-set TORINO 10 - - - - -
11-set VENEZIA 10 - - - - -
 
quello che ho messo l'ho fatto io a mano per farti capire,
non mi sembra che sia venuto benissimo ma spero che si capisca.
praticamente per colonna c'è
1) data
2) ruote
3) ritardo
4) numeri estratti

così com'è per me è utile per vedere tute le estrazioni

fammi sapere se si può fare

grazie comunque di tutto

ciao
 
Paolo ho già postato un fac-simile di tabellone isocrono e se scegli delle estrazione a ritroso puoi vedere anche gli esiti caduti.

prova

Codice:
Sub Main
	Dim nu(5),cad(5),ru(1)
	'r = InputBox("Quale RUOTA",,2)
	f = CInt(InputBox("Estrazione di rilevamento a ritroso",,1))
	e = InputBox("Quante ESTRAZIONI",,150)
	ss = CInt(InputBox("Quale sorte",,1))
	Ini = EstrazioneFin - e
	fin = EstrazioneFin - f
	fine = EstrazioneFin
	Scrivi "-----------------------Analitico isocrono ---- by Mike58 -------------------",1
	Scrivi "sorte...." & NomeSorte(ss) & "  .... Rilevamento estrazione ..." & GetInfoEstrazione(fin),1,1,,1,2
	Scrivi "----------------------------------------------------------------------------",1
	For es = fin To Ini Step - 1' To idEstr
		For r = 1 To 12
		If r = 11 Then r = 12
			ru(1) = r
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				cad(p) = Estratto(es,r,p)
				If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
				
				k = k + 1
				'If EstrattoFrequenza(r,cad(p),es,fin) = 1 Then cad(p) = "--"
				If nu(p) = "--" Then kk = kk + 1
				Call VerificaEsito(nu,ru,fin + 1,1,100,,esito,clp,estratti,id)
			Next
			k1 = k - kk
			If k1 >= ss Then
			k2 = k2 + 1
			kc = kc + 1
			Scrivi "Ritardo..." & FormatSpace(fin - es,3) & "  " &Format2(k2) & "  " & GetInfoEstrazione(es) & "  ",0,0
			Scrivi SiglaRuota(r) & "  " & StringaNumeri(nu,,1) & "    count..." & format2(k - kk),0,0
			Scrivi "    " & estratti,1,0,,1,2
			If esito <> "" And id = EstrazioneFin Then Scrivi "    Al colpo..." & clp & "  " & GetInfoEstrazione(id) & "     ### ",1,1,,1,2

			If esito <> "" And id <> EstrazioneFin Then Scrivi "    Al colpo..." & clp & "  " & GetInfoEstrazione(id),1,1,,1,2
			If esito <> "" Then kesito = kesito + 1
			If esito = "" Then Scrivi String(60,".") & " In corso ",0,1,,2,2
			'Scrivi StringaNumeri(nu,,1) & "  " & k-kk '& "    Ritarda da.... " & fin - es,0,0
			'Scrivi vbTab & " Caduti  " & StringaNumeri(cad,,1)
			
			'Scrivi
			
			End If
			
			k = 0
			kk = 0
			
			
		Next
		If k2 > 0 Then Scrivi String(150,"="),1
		k2 = 0
		
	Next
	Scrivi "Esiti Positivi...." & kesito & " su casi " & kc & " Rilevati ",1,1,,2,3
	Scrivi "Perc % di Esito..." & Int(kesito/kc*100) & " % ",1,1,,1,3
End Sub
 
Ultima modifica:
Paolo, prova anche questo

Codice:
Sub Main
	Dim nu(5),ru(1),nt(5),cadT(5),cadR(5)
	Scrivi "                *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1
	Scrivi
	Ini = EstrazioneFin - 15
	fin = EstrazioneFin
	For es = fin To Ini Step - 1
		rit = fin - es
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				nt(p) = Estratto(es,r,p)
				cadT(p) = Estratto(es,r,p)
				cadR(p) = Estratto(es,r,p)
				If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
				If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--"
				If EstrattoFrequenza(11,nt(p),es,fin) > 1 Then nt(p) = "--"
				If EstrattoFrequenza(11,cadT(p),es,fin) = 1 Then cadT(p) = "--"
			Next
			Scrivi "Ritardo... " & Format2(rit) & "  " & GetInfoEstrazione(es) & "  ",1,0
			Scrivi SiglaRuota(r) & "  ",1,0,,2,2
			Scrivi StringaNumeri(nu,,1) & "   Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2
			Scrivi "    Tutte...  " & StringaNumeri(nt,,1) & "   Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2
		Next
		Scrivi String(160,"-")
	Next
End Sub
 
*************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******

Ritardo... 00 [08907] [118] 04.10.2014 BA 53.75.11.64.39 Caduti Ruota : --.--.--.--.-- Tutte... 53.75.11.--.-- Caduti Tutte : --.--.--.64.39
Ritardo... 00 [08907] [118] 04.10.2014 CA 21.83.67.65.50 Caduti Ruota : --.--.--.--.-- Tutte... 21.83.67.--.50 Caduti Tutte : --.--.--.65.--
Ritardo... 00 [08907] [118] 04.10.2014 FI 29.76.14.10.36 Caduti Ruota : --.--.--.--.-- Tutte... --.76.14.10.-- Caduti Tutte : 29.--.--.--.36
Ritardo... 00 [08907] [118] 04.10.2014 GE 12.17.62.15.36 Caduti Ruota : --.--.--.--.-- Tutte... --.17.--.15.-- Caduti Tutte : 12.--.62.--.36
Ritardo... 00 [08907] [118] 04.10.2014 MI 62.41.06.39.52 Caduti Ruota : --.--.--.--.-- Tutte... --.41.06.--.52 Caduti Tutte : 62.--.--.39.--
Ritardo... 00 [08907] [118] 04.10.2014 NA 60.64.36.23.65 Caduti Ruota : --.--.--.--.-- Tutte... 60.--.--.23.-- Caduti Tutte : --.64.36.--.65
Ritardo... 00 [08907] [118] 04.10.2014 PA 82.05.31.18.24 Caduti Ruota : --.--.--.--.-- Tutte... --.05.--.18.24 Caduti Tutte : 82.--.31.--.--
Ritardo... 00 [08907] [118] 04.10.2014 RO 12.02.38.58.62 Caduti Ruota : --.--.--.--.-- Tutte... --.02.38.58.-- Caduti Tutte : 12.--.--.--.62
Ritardo... 00 [08907] [118] 04.10.2014 TO 86.29.82.47.48 Caduti Ruota : --.--.--.--.-- Tutte... 86.--.--.47.48 Caduti Tutte : --.29.82.--.--
Ritardo... 00 [08907] [118] 04.10.2014 VE 27.70.31.09.57 Caduti Ruota : --.--.--.--.-- Tutte... 27.70.--.09.57 Caduti Tutte : --.--.31.--.--
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 01 [08906] [117] 02.10.2014 BA 33.83.37.65.09 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 33.83.37.65.09
Ritardo... 01 [08906] [117] 02.10.2014 CA 44.62.87.51.88 Caduti Ruota : --.--.--.--.-- Tutte... 44.--.87.--.88 Caduti Tutte : --.62.--.51.--
Ritardo... 01 [08906] [117] 02.10.2014 FI 70.56.--.52.69 Caduti Ruota : --.--.76.--.-- Tutte... --.56.--.--.69 Caduti Tutte : 70.--.76.52.--
Ritardo... 01 [08906] [117] 02.10.2014 GE 31.14.25.28.83 Caduti Ruota : --.--.--.--.-- Tutte... --.--.25.28.-- Caduti Tutte : 31.14.--.--.83
Ritardo... 01 [08906] [117] 02.10.2014 MI 27.11.82.07.33 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.07.-- Caduti Tutte : 27.11.82.--.33
Ritardo... 01 [08906] [117] 02.10.2014 NA 51.86.22.14.40 Caduti Ruota : --.--.--.--.-- Tutte... --.--.22.--.40 Caduti Tutte : 51.86.--.14.--
Ritardo... 01 [08906] [117] 02.10.2014 PA 36.02.38.77.81 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.77.-- Caduti Tutte : 36.02.38.--.81
Ritardo... 01 [08906] [117] 02.10.2014 RO 37.24.09.18.42 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.42 Caduti Tutte : 37.24.09.18.--
Ritardo... 01 [08906] [117] 02.10.2014 TO 01.--.52.65.33 Caduti Ruota : --.47.--.--.-- Tutte... 01.--.--.--.-- Caduti Tutte : --.47.52.65.33
Ritardo... 01 [08906] [117] 02.10.2014 VE 21.53.47.32.81 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.32.-- Caduti Tutte : 21.53.47.--.81
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 02 [08905] [116] 30.09.2014 BA 27.84.70.67.38 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 27.84.70.67.38
Ritardo... 02 [08905] [116] 30.09.2014 CA --.71.--.35.30 Caduti Ruota : 51.--.83.--.-- Tutte... --.71.--.--.30 Caduti Tutte : 51.--.83.35.--
Ritardo... 02 [08905] [116] 30.09.2014 FI 24.45.73.64.01 Caduti Ruota : --.--.--.--.-- Tutte... --.45.73.--.-- Caduti Tutte : 24.--.--.64.01
Ritardo... 02 [08905] [116] 30.09.2014 GE 74.--.80.40.02 Caduti Ruota : --.12.--.--.-- Tutte... 74.--.80.--.-- Caduti Tutte : --.12.--.40.02
Ritardo... 02 [08905] [116] 30.09.2014 MI 03.35.84.--.12 Caduti Ruota : --.--.--.62.-- Tutte... 03.--.--.--.-- Caduti Tutte : --.35.84.62.12
Ritardo... 02 [08905] [116] 30.09.2014 NA 61.31.01.02.62 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 61.31.01.02.62
Ritardo... 02 [08905] [116] 30.09.2014 PA 09.15.57.47.-- Caduti Ruota : --.--.--.--.77 Tutte... --.--.--.--.-- Caduti Tutte : 09.15.57.47.77
Ritardo... 02 [08905] [116] 30.09.2014 RO 61.19.--.90.84 Caduti Ruota : --.--.12.--.-- Tutte... --.19.--.90.-- Caduti Tutte : 61.--.12.--.84
Ritardo... 02 [08905] [116] 30.09.2014 TO --.--.59.09.13 Caduti Ruota : 01.47.--.--.-- Tutte... --.--.59.--.13 Caduti Tutte : 01.47.--.09.--
Ritardo... 02 [08905] [116] 30.09.2014 VE 35.34.68.86.11 Caduti Ruota : --.--.--.--.-- Tutte... --.34.68.--.-- Caduti Tutte : 35.--.--.86.11
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 03 [08904] [115] 27.09.2014 BA 85.--.76.21.10 Caduti Ruota : --.33.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 85.33.76.21.10
Ritardo... 03 [08904] [115] 27.09.2014 CA 89.16.49.--.39 Caduti Ruota : --.--.--.88.-- Tutte... 89.16.49.--.-- Caduti Tutte : --.--.--.88.39
Ritardo... 03 [08904] [115] 27.09.2014 FI 30.--.40.65.61 Caduti Ruota : --.52.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 30.52.40.65.61
Ritardo... 03 [08904] [115] 27.09.2014 GE 63.--.85.33.47 Caduti Ruota : --.31.--.--.-- Tutte... 63.--.--.--.-- Caduti Tutte : --.31.85.33.47
Ritardo... 03 [08904] [115] 27.09.2014 MI 57.72.38.05.88 Caduti Ruota : --.--.--.--.-- Tutte... --.72.--.--.-- Caduti Tutte : 57.--.38.05.88
Ritardo... 03 [08904] [115] 27.09.2014 NA 08.34.--.20.30 Caduti Ruota : --.--.64.--.-- Tutte... 08.--.--.20.-- Caduti Tutte : --.34.64.--.30
Ritardo... 03 [08904] [115] 27.09.2014 PA --.29.12.--.74 Caduti Ruota : 77.--.--.18.-- Tutte... --.--.--.--.-- Caduti Tutte : 77.29.12.18.74
Ritardo... 03 [08904] [115] 27.09.2014 RO 76.10.27.65.-- Caduti Ruota : --.--.--.--.61 Tutte... --.--.--.--.-- Caduti Tutte : 76.10.27.65.61
Ritardo... 03 [08904] [115] 27.09.2014 TO --.76.--.64.90 Caduti Ruota : 86.--.29.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 86.76.29.64.90
Ritardo... 03 [08904] [115] 27.09.2014 VE 03.30.26.--.10 Caduti Ruota : --.--.--.35.-- Tutte... --.--.26.--.-- Caduti Tutte : 03.30.--.35.10
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 04 [08903] [114] 25.09.2014 BA 22.77.12.78.55 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.78.55 Caduti Tutte : 22.77.12.--.--
Ritardo... 04 [08903] [114] 25.09.2014 CA 33.53.--.54.27 Caduti Ruota : --.--.16.--.-- Tutte... --.--.--.54.-- Caduti Tutte : 33.53.16.--.27
Ritardo... 04 [08903] [114] 25.09.2014 FI 28.81.38.33.50 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 28.81.38.33.50
Ritardo... 04 [08903] [114] 25.09.2014 GE 88.10.77.34.16 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 88.10.77.34.16
Ritardo... 04 [08903] [114] 25.09.2014 MI 60.75.42.74.81 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 60.75.42.74.81
Ritardo... 04 [08903] [114] 25.09.2014 NA 25.39.75.19.06 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 25.39.75.19.06
Ritardo... 04 [08903] [114] 25.09.2014 PA 65.11.85.69.48 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 65.11.85.69.48
Ritardo... 04 [08903] [114] 25.09.2014 RO 23.--.--.--.15 Caduti Ruota : --.42.62.09.-- Tutte... --.--.--.--.-- Caduti Tutte : 23.42.62.09.15
Ritardo... 04 [08903] [114] 25.09.2014 TO --.61.84.32.03 Caduti Ruota : 64.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 64.61.84.32.03
Ritardo... 04 [08903] [114] 25.09.2014 VE 89.44.--.--.-- Caduti Ruota : --.--.30.86.70 Tutte... --.--.--.--.-- Caduti Tutte : 89.44.30.86.70
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 05 [08902] [113] 23.09.2014 BA 24.26.54.17.69 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 24.26.54.17.69
Ritardo... 05 [08902] [113] 23.09.2014 CA 18.31.--.60.-- Caduti Ruota : --.--.71.--.62 Tutte... --.--.--.--.-- Caduti Tutte : 18.31.71.60.62
Ritardo... 05 [08902] [113] 23.09.2014 FI 71.59.78.--.-- Caduti Ruota : --.--.--.40.56 Tutte... --.--.--.--.-- Caduti Tutte : 71.59.78.40.56
Ritardo... 05 [08902] [113] 23.09.2014 GE --.78.66.81.08 Caduti Ruota : 62.--.--.--.-- Tutte... --.--.66.--.-- Caduti Tutte : 62.78.--.81.08
Ritardo... 05 [08902] [113] 23.09.2014 MI 69.--.24.--.-- Caduti Ruota : --.05.--.11.41 Tutte... --.--.--.--.-- Caduti Tutte : 69.05.24.11.41
Ritardo... 05 [08902] [113] 23.09.2014 NA 45.55.--.53.-- Caduti Ruota : --.--.64.--.01 Tutte... --.--.--.--.-- Caduti Tutte : 45.55.64.53.01
Ritardo... 05 [08902] [113] 23.09.2014 PA 83.--.80.89.73 Caduti Ruota : --.31.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 83.31.80.89.73
Ritardo... 05 [08902] [113] 23.09.2014 RO --.52.72.--.-- Caduti Ruota : 38.--.--.02.90 Tutte... --.--.--.--.-- Caduti Tutte : 38.52.72.02.90
Ritardo... 05 [08902] [113] 23.09.2014 TO 04.08.16.78.85 Caduti Ruota : --.--.--.--.-- Tutte... 04.--.--.--.-- Caduti Tutte : --.08.16.78.85
Ritardo... 05 [08902] [113] 23.09.2014 VE --.69.78.14.-- Caduti Ruota : 57.--.--.--.70 Tutte... --.--.--.--.-- Caduti Tutte : 57.69.78.14.70
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 06 [08901] [112] 20.09.2014 BA 62.71.25.--.59 Caduti Ruota : --.--.--.78.-- Tutte... --.--.--.--.-- Caduti Tutte : 62.71.25.78.59
Ritardo... 06 [08901] [112] 20.09.2014 CA 90.--.11.--.20 Caduti Ruota : --.89.--.39.-- Tutte... --.--.--.--.-- Caduti Tutte : 90.89.11.39.20
Ritardo... 06 [08901] [112] 20.09.2014 FI 39.47.--.--.18 Caduti Ruota : --.--.70.10.-- Tutte... --.--.--.--.-- Caduti Tutte : 39.47.70.10.18
Ritardo... 06 [08901] [112] 20.09.2014 GE 68.--.76.--.56 Caduti Ruota : --.80.--.15.-- Tutte... --.--.--.--.-- Caduti Tutte : 68.80.76.15.56
Ritardo... 06 [08901] [112] 20.09.2014 MI --.13.--.--.31 Caduti Ruota : 06.--.84.12.-- Tutte... --.--.--.--.-- Caduti Tutte : 06.13.84.12.31
Ritardo... 06 [08901] [112] 20.09.2014 NA 88.38.--.--.35 Caduti Ruota : --.--.45.40.-- Tutte... --.--.--.--.-- Caduti Tutte : 88.38.45.40.35
Ritardo... 06 [08901] [112] 20.09.2014 PA 35.26.78.--.39 Caduti Ruota : --.--.--.24.-- Tutte... --.--.--.--.-- Caduti Tutte : 35.26.78.24.39
Ritardo... 06 [08901] [112] 20.09.2014 RO 08.--.82.03.-- Caduti Ruota : --.24.--.--.65 Tutte... --.--.--.--.-- Caduti Tutte : 08.24.82.03.65
Ritardo... 06 [08901] [112] 20.09.2014 TO 68.54.26.67.-- Caduti Ruota : --.--.--.--.48 Tutte... --.--.--.--.-- Caduti Tutte : 68.54.26.67.48
Ritardo... 06 [08901] [112] 20.09.2014 VE --.73.48.--.79 Caduti Ruota : 78.--.--.03.-- Tutte... --.--.--.--.79 Caduti Tutte : 78.73.48.03.--
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 07 [08900] [111] 18.09.2014 BA 01.--.--.68.61 Caduti Ruota : --.17.67.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 01.17.67.68.61
Ritardo... 07 [08900] [111] 18.09.2014 CA --.78.29.47.-- Caduti Ruota : 87.--.--.--.11 Tutte... --.--.--.--.-- Caduti Tutte : 87.78.29.47.11
Ritardo... 07 [08900] [111] 18.09.2014 FI 85.53.68.--.16 Caduti Ruota : --.--.--.52.-- Tutte... --.--.--.--.-- Caduti Tutte : 85.53.68.52.16
Ritardo... 07 [08900] [111] 18.09.2014 GE 59.--.--.53.38 Caduti Ruota : --.81.14.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 59.81.14.53.38
Ritardo... 07 [08900] [111] 18.09.2014 MI 37.09.53.80.90 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 37.09.53.80.90
Ritardo... 07 [08900] [111] 18.09.2014 NA 17.--.--.--.82 Caduti Ruota : --.45.20.01.-- Tutte... --.--.--.--.-- Caduti Tutte : 17.45.20.01.82
Ritardo... 07 [08900] [111] 18.09.2014 PA 37.66.--.01.61 Caduti Ruota : --.--.73.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 37.66.73.01.61
Ritardo... 07 [08900] [111] 18.09.2014 RO 81.39.--.55.34 Caduti Ruota : --.--.65.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 81.39.65.55.34
Ritardo... 07 [08900] [111] 18.09.2014 TO --.--.49.37.19 Caduti Ruota : 26.52.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 26.52.49.37.19
Ritardo... 07 [08900] [111] 18.09.2014 VE 18.--.--.90.-- Caduti Ruota : --.89.21.--.79 Tutte... --.--.--.--.-- Caduti Tutte : 18.89.21.90.79
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 08 [08899] [110] 16.09.2014 BA --.28.13.81.48 Caduti Ruota : 76.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 76.28.13.81.48
Ritardo... 08 [08899] [110] 16.09.2014 CA 52.85.--.40.04 Caduti Ruota : --.--.30.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 52.85.30.40.04
Ritardo... 08 [08899] [110] 16.09.2014 FI 17.51.06.74.22 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 17.51.06.74.22
Ritardo... 08 [08899] [110] 16.09.2014 GE 19.06.03.--.35 Caduti Ruota : --.--.--.76.-- Tutte... --.--.--.--.-- Caduti Tutte : 19.06.03.76.35
Ritardo... 08 [08899] [110] 16.09.2014 MI --.02.--.--.36 Caduti Ruota : 06.--.07.57.-- Tutte... --.--.--.--.-- Caduti Tutte : 06.02.07.57.36
Ritardo... 08 [08899] [110] 16.09.2014 NA --.52.--.84.43 Caduti Ruota : 22.--.01.--.-- Tutte... --.--.--.--.43 Caduti Tutte : 22.52.01.84.--
Ritardo... 08 [08899] [110] 16.09.2014 PA 76.42.--.--.03 Caduti Ruota : --.--.02.85.-- Tutte... --.--.--.--.-- Caduti Tutte : 76.42.02.85.03
Ritardo... 08 [08899] [110] 16.09.2014 RO 59.32.06.45.-- Caduti Ruota : --.--.--.--.12 Tutte... --.--.--.--.-- Caduti Tutte : 59.32.06.45.12
Ritardo... 08 [08899] [110] 16.09.2014 TO 60.--.83.62.55 Caduti Ruota : --.85.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 60.85.83.62.55
Ritardo... 08 [08899] [110] 16.09.2014 VE 51.--.28.--.24 Caduti Ruota : --.34.--.27.-- Tutte... --.--.--.--.-- Caduti Tutte : 51.34.28.27.24
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 09 [08898] [109] 13.09.2014 BA --.34.05.40.08 Caduti Ruota : 26.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 26.34.05.40.08
Ritardo... 09 [08898] [109] 13.09.2014 CA 22.--.--.81.-- Caduti Ruota : --.85.65.--.47 Tutte... --.--.--.--.-- Caduti Tutte : 22.85.65.81.47
Ritardo... 09 [08898] [109] 13.09.2014 FI --.--.--.--.-- Caduti Ruota : 76.59.30.73.64 Tutte... --.--.--.--.-- Caduti Tutte : 76.59.30.73.64
Ritardo... 09 [08898] [109] 13.09.2014 GE 67.--.39.--.45 Caduti Ruota : --.31.--.63.-- Tutte... --.--.--.--.-- Caduti Tutte : 67.31.39.63.45
Ritardo... 09 [08898] [109] 13.09.2014 MI --.17.77.--.45 Caduti Ruota : 33.--.--.09.-- Tutte... --.--.--.--.-- Caduti Tutte : 33.17.77.09.45
Ritardo... 09 [08898] [109] 13.09.2014 NA --.47.--.--.-- Caduti Ruota : 60.--.52.40.45 Tutte... --.--.--.--.-- Caduti Tutte : 60.47.52.40.45
Ritardo... 09 [08898] [109] 13.09.2014 PA --.86.54.--.49 Caduti Ruota : 11.--.--.39.-- Tutte... --.--.--.--.-- Caduti Tutte : 11.86.54.39.49
Ritardo... 09 [08898] [109] 13.09.2014 RO --.89.26.--.41 Caduti Ruota : 02.--.--.42.-- Tutte... --.--.--.--.-- Caduti Tutte : 02.89.26.42.41
Ritardo... 09 [08898] [109] 13.09.2014 TO 50.--.36.35.22 Caduti Ruota : --.37.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 50.37.36.35.22
Ritardo... 09 [08898] [109] 13.09.2014 VE 19.85.61.--.88 Caduti Ruota : --.--.--.48.-- Tutte... --.--.--.--.-- Caduti Tutte : 19.85.61.48.88
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 10 [08897] [108] 11.09.2014 BA 88.--.--.32.58 Caduti Ruota : --.48.69.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 88.48.69.32.58
Ritardo... 10 [08897] [108] 11.09.2014 CA --.41.--.--.17 Caduti Ruota : 30.--.21.39.-- Tutte... --.--.--.--.-- Caduti Tutte : 30.41.21.39.17
Ritardo... 10 [08897] [108] 11.09.2014 FI 05.49.48.31.82 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 05.49.48.31.82
Ritardo... 10 [08897] [108] 11.09.2014 GE 84.30.27.07.-- Caduti Ruota : --.--.--.--.56 Tutte... --.--.--.--.-- Caduti Tutte : 84.30.27.07.56
Ritardo... 10 [08897] [108] 11.09.2014 MI 61.14.04.16.-- Caduti Ruota : --.--.--.--.90 Tutte... --.--.--.--.-- Caduti Tutte : 61.14.04.16.90
Ritardo... 10 [08897] [108] 11.09.2014 NA 16.28.--.81.76 Caduti Ruota : --.--.43.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 16.28.43.81.76
Ritardo... 10 [08897] [108] 11.09.2014 PA 67.34.46.--.22 Caduti Ruota : --.--.--.05.-- Tutte... --.--.46.--.-- Caduti Tutte : 67.34.--.05.22
Ritardo... 10 [08897] [108] 11.09.2014 RO --.21.54.07.-- Caduti Ruota : 08.--.--.--.19 Tutte... --.--.--.--.-- Caduti Tutte : 08.21.54.07.19
Ritardo... 10 [08897] [108] 11.09.2014 TO 06.17.30.--.25 Caduti Ruota : --.--.--.60.-- Tutte... --.--.--.--.-- Caduti Tutte : 06.17.30.60.25
Ritardo... 10 [08897] [108] 11.09.2014 VE 71.55.74.--.08 Caduti Ruota : --.--.--.09.-- Tutte... --.--.--.--.-- Caduti Tutte : 71.55.74.09.08
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 11 [08896] [107] 09.09.2014 BA 29.86.--.--.-- Caduti Ruota : --.--.21.28.05 Tutte... --.--.--.--.-- Caduti Tutte : 29.86.21.28.05
Ritardo... 11 [08896] [107] 09.09.2014 CA 55.--.--.--.36 Caduti Ruota : --.52.16.47.-- Tutte... --.--.--.--.-- Caduti Tutte : 55.52.16.47.36
Ritardo... 11 [08896] [107] 09.09.2014 FI 12.--.87.--.-- Caduti Ruota : --.76.--.61.33 Tutte... --.--.--.--.-- Caduti Tutte : 12.76.87.61.33
Ritardo... 11 [08896] [107] 09.09.2014 GE 71.--.--.--.-- Caduti Ruota : --.34.17.16.63 Tutte... --.--.--.--.-- Caduti Tutte : 71.34.17.16.63
Ritardo... 11 [08896] [107] 09.09.2014 MI --.79.--.--.43 Caduti Ruota : 04.--.39.75.-- Tutte... --.--.--.--.-- Caduti Tutte : 04.79.39.75.43
Ritardo... 11 [08896] [107] 09.09.2014 NA 13.48.--.--.-- Caduti Ruota : --.--.35.82.86 Tutte... --.--.--.--.-- Caduti Tutte : 13.48.35.82.86
Ritardo... 11 [08896] [107] 09.09.2014 PA --.--.--.--.20 Caduti Ruota : 34.61.03.46.-- Tutte... --.--.--.--.-- Caduti Tutte : 34.61.03.46.20
Ritardo... 11 [08896] [107] 09.09.2014 RO 22.44.40.51.16 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 22.44.40.51.16
Ritardo... 11 [08896] [107] 09.09.2014 TO 21.--.11.--.87 Caduti Ruota : --.50.--.60.-- Tutte... --.--.--.--.-- Caduti Tutte : 21.50.11.60.87
Ritardo... 11 [08896] [107] 09.09.2014 VE 07.--.--.--.12 Caduti Ruota : --.48.86.30.-- Tutte... --.--.--.--.-- Caduti Tutte : 07.48.86.30.12
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 12 [08895] [106] 06.09.2014 BA 73.07.36.35.-- Caduti Ruota : --.--.--.--.22 Tutte... --.--.--.--.-- Caduti Tutte : 73.07.36.35.22
Ritardo... 12 [08895] [106] 06.09.2014 CA --.--.--.70.72 Caduti Ruota : 11.85.55.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 11.85.55.70.72
Ritardo... 12 [08895] [106] 06.09.2014 FI 03.--.--.--.90 Caduti Ruota : --.14.29.36.-- Tutte... --.--.--.--.-- Caduti Tutte : 03.14.29.36.90
Ritardo... 12 [08895] [106] 06.09.2014 GE --.--.--.26.51 Caduti Ruota : 71.85.80.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 71.85.80.26.51
Ritardo... 12 [08895] [106] 06.09.2014 MI 83.--.40.--.-- Caduti Ruota : --.31.--.38.24 Tutte... --.--.--.--.-- Caduti Tutte : 83.31.40.38.24
Ritardo... 12 [08895] [106] 06.09.2014 NA 73.--.--.49.78 Caduti Ruota : --.36.22.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 73.36.22.49.78
Ritardo... 12 [08895] [106] 06.09.2014 PA --.53.25.--.-- Caduti Ruota : 48.--.--.54.89 Tutte... --.--.--.--.-- Caduti Tutte : 48.53.25.54.89
Ritardo... 12 [08895] [106] 06.09.2014 RO 28.--.--.78.05 Caduti Ruota : --.40.41.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 28.40.41.78.05
Ritardo... 12 [08895] [106] 06.09.2014 TO --.--.--.--.79 Caduti Ruota : 26.35.86.17.-- Tutte... --.--.--.--.-- Caduti Tutte : 26.35.86.17.79
Ritardo... 12 [08895] [106] 06.09.2014 VE --.--.--.--.-- Caduti Ruota : 09.12.53.08.68 Tutte... --.--.--.--.-- Caduti Tutte : 09.12.53.08.68
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 13 [08894] [105] 04.09.2014 BA 56.--.--.--.-- Caduti Ruota : --.59.10.69.61 Tutte... --.--.--.--.-- Caduti Tutte : 56.59.10.69.61
Ritardo... 13 [08894] [105] 04.09.2014 CA 10.--.07.--.02 Caduti Ruota : --.83.--.21.-- Tutte... --.--.--.--.-- Caduti Tutte : 10.83.07.21.02
Ritardo... 13 [08894] [105] 04.09.2014 FI 77.86.34.58.19 Caduti Ruota : --.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 77.86.34.58.19
Ritardo... 13 [08894] [105] 04.09.2014 GE --.--.57.24.65 Caduti Ruota : 81.63.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 81.63.57.24.65
Ritardo... 13 [08894] [105] 04.09.2014 MI --.48.--.--.25 Caduti Ruota : 35.--.57.43.-- Tutte... --.--.--.--.-- Caduti Tutte : 35.48.57.43.25
Ritardo... 13 [08894] [105] 04.09.2014 NA 12.09.--.42.15 Caduti Ruota : --.--.13.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 12.09.13.42.15
Ritardo... 13 [08894] [105] 04.09.2014 PA --.--.56.58.28 Caduti Ruota : 78.61.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 78.61.56.58.28
Ritardo... 13 [08894] [105] 04.09.2014 RO --.--.83.--.-- Caduti Ruota : 65.41.--.37.58 Tutte... --.--.--.--.-- Caduti Tutte : 65.41.83.37.58
Ritardo... 13 [08894] [105] 04.09.2014 TO 89.--.--.--.-- Caduti Ruota : --.22.76.33.04 Tutte... --.--.--.--.-- Caduti Tutte : 89.22.76.33.04
Ritardo... 13 [08894] [105] 04.09.2014 VE 20.--.--.--.-- Caduti Ruota : --.24.88.73.79 Tutte... --.--.--.--.-- Caduti Tutte : 20.24.88.73.79
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 14 [08893] [104] 02.09.2014 BA 72.--.--.--.-- Caduti Ruota : --.81.35.85.71 Tutte... --.--.--.--.-- Caduti Tutte : 72.81.35.85.71
Ritardo... 14 [08893] [104] 02.09.2014 CA --.--.--.--.-- Caduti Ruota : 20.30.21.18.10 Tutte... --.--.--.--.-- Caduti Tutte : 20.30.21.18.10
Ritardo... 14 [08893] [104] 02.09.2014 FI 62.--.21.13.-- Caduti Ruota : --.47.--.--.85 Tutte... --.--.--.--.-- Caduti Tutte : 62.47.21.13.85
Ritardo... 14 [08893] [104] 02.09.2014 GE 44.73.--.58.69 Caduti Ruota : --.--.34.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 44.73.34.58.69
Ritardo... 14 [08893] [104] 02.09.2014 MI 21.65.--.66.-- Caduti Ruota : --.--.05.--.33 Tutte... --.--.--.--.-- Caduti Tutte : 21.65.05.66.33
Ritardo... 14 [08893] [104] 02.09.2014 NA 71.--.03.79.-- Caduti Ruota : --.08.--.--.49 Tutte... --.--.--.--.-- Caduti Tutte : 71.08.03.79.49
Ritardo... 14 [08893] [104] 02.09.2014 PA 63.--.10.21.17 Caduti Ruota : --.24.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 63.24.10.21.17
Ritardo... 14 [08893] [104] 02.09.2014 RO --.75.--.--.67 Caduti Ruota : 82.--.24.32.-- Tutte... --.--.--.--.-- Caduti Tutte : 82.75.24.32.67
Ritardo... 14 [08893] [104] 02.09.2014 TO 80.--.51.38.-- Caduti Ruota : --.83.--.--.76 Tutte... --.--.--.--.-- Caduti Tutte : 80.83.51.38.76
Ritardo... 14 [08893] [104] 02.09.2014 VE 42.63.77.33.-- Caduti Ruota : --.--.--.--.12 Tutte... --.--.--.--.-- Caduti Tutte : 42.63.77.33.12
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Ritardo... 15 [08892] [103] 30.08.2014 BA --.23.50.--.-- Caduti Ruota : 25.--.--.68.70 Tutte... --.--.--.--.-- Caduti Tutte : 25.23.50.68.70
Ritardo... 15 [08892] [103] 30.08.2014 CA 75.74.--.06.-- Caduti Ruota : --.--.65.--.40 Tutte... --.--.--.--.-- Caduti Tutte : 75.74.65.06.40
Ritardo... 15 [08892] [103] 30.08.2014 FI 83.43.--.07.-- Caduti Ruota : --.--.87.--.10 Tutte... --.--.--.--.-- Caduti Tutte : 83.43.87.07.10
Ritardo... 15 [08892] [103] 30.08.2014 GE --.20.--.11.-- Caduti Ruota : 81.--.10.--.59 Tutte... --.--.--.--.-- Caduti Tutte : 81.20.10.11.59
Ritardo... 15 [08892] [103] 30.08.2014 MI 70.--.--.--.19 Caduti Ruota : --.24.40.02.-- Tutte... --.--.--.--.-- Caduti Tutte : 70.24.40.02.19
Ritardo... 15 [08892] [103] 30.08.2014 NA --.--.27.33.56 Caduti Ruota : 15.36.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 15.36.27.33.56
Ritardo... 15 [08892] [103] 30.08.2014 PA --.--.--.--.40 Caduti Ruota : 77.76.20.36.-- Tutte... --.--.--.--.-- Caduti Tutte : 77.76.20.36.40
Ritardo... 15 [08892] [103] 30.08.2014 RO --.--.71.--.88 Caduti Ruota : 22.62.--.09.-- Tutte... --.--.--.--.-- Caduti Tutte : 22.62.71.09.88
Ritardo... 15 [08892] [103] 30.08.2014 TO --.--.--.70.-- Caduti Ruota : 08.65.33.--.01 Tutte... --.--.--.--.-- Caduti Tutte : 08.65.33.70.01
Ritardo... 15 [08892] [103] 30.08.2014 VE --.72.25.75.17 Caduti Ruota : 78.--.--.--.-- Tutte... --.--.--.--.-- Caduti Tutte : 78.72.25.75.17
----------------------------------------------------------------------------------------------------------------------------------------------------------------

ciao mike
con questo quasi ci siamo,
mi riferisco alla parte "tutte"
scritte nella parte destra

ma in quello che mi serve:
* l'estrazione con ritardo 0 essendo l'ultima estrazione
deve rimanere intatta senza "caduti"
* è l'ultima estrazione che fa i "caduti" nelle estrazioni precedenti


Paolo, prova anche questo

Codice:
Sub Main
	Dim nu(5),ru(1),nt(5),cadT(5),cadR(5)
	Scrivi "                *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1
	Scrivi
	Ini = EstrazioneFin - 15
	fin = EstrazioneFin
	For es = fin To Ini Step - 1
		rit = fin - es
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				nt(p) = Estratto(es,r,p)
				cadT(p) = Estratto(es,r,p)
				cadR(p) = Estratto(es,r,p)
				If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
				If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--"
				If EstrattoFrequenza(11,nt(p),es,fin) > 1 Then nt(p) = "--"
				If EstrattoFrequenza(11,cadT(p),es,fin) = 1 Then cadT(p) = "--"
			Next
			Scrivi "Ritardo... " & Format2(rit) & "  " & GetInfoEstrazione(es) & "  ",1,0
			Scrivi SiglaRuota(r) & "  ",1,0,,2,2
			Scrivi StringaNumeri(nu,,1) & "   Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2
			Scrivi "    Tutte...  " & StringaNumeri(nt,,1) & "   Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2
		Next
		Scrivi String(160,"-")
	Next
End Sub
 
Ultima modifica:
Paolo non so se sia giusto cosi, ma riprova.

Codice:
Sub Main
	Dim nu(5),ru(1),nt(5),cadT(5),cadR(5)
	Scrivi "                *************** Analitico Ruota e Tutte ************** By Mike58 ******* for Poalo **** Forum LottoCed ******",1
	Scrivi
	Ini = EstrazioneFin - 15
	fin = EstrazioneFin
	For es = fin To Ini Step - 1
		rit = fin - es
		For r = 1 To 10
			For p = 1 To 5
				nu(p) = Estratto(es,r,p)
				nt(p) = Estratto(es,r,p)
				cadT(p) = Estratto(es,r,p)
				cadR(p) = Estratto(es,r,p)
				If EstrattoFrequenza(r,nu(p),es,fin) > 1 Then nu(p) = "--"
				If EstrattoFrequenza(r,cadR(p),es,fin) = 1 Then cadR(p) = "--"
				If EstrattoFrequenza(11,nt(p),es,fin-1) > 1 Then nt(p) = "--"
				If EstrattoFrequenza(11,cadT(p),es,fin-1) = 1 Then cadT(p) = "--"
			Next
			Scrivi "Ritardo... " & Format2(rit) & "  " & GetInfoEstrazione(es) & "  ",1,0
			Scrivi SiglaRuota(r) & "  ",1,0,,2,2
			Scrivi StringaNumeri(nu,,1) & "   Caduti Ruota : " & StringaNumeri(cadR,,1),1,0,,1,2
			Scrivi "    Tutte...  " & StringaNumeri(nt,,1) & "   Caduti Tutte : " & StringaNumeri(cadT,,1),1,1,,2,2
		Next
		Scrivi String(160,"-")
	Next
End Sub

Io per arrivare alla soluzione ho fatto un ragionamento algoritmico, modificandolo non saprei se i dati ricavati sono esatti, prova cosi !!!!
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
Indietro
Alto