Novità

Per gli esperti di script

vengio

Super Member >GOLD<
Ciao ragazzi, ho questo script sommativo in cui mi effettua la somma con 90 n.ri consecutivi, ora vorrei che mi venissero raggruppati tutti gli esiti (anche per estratto) per ogni singolo numero da 1 a 90 per evitare di scorrere l'intero resoconto ed annotarli uno ad uno. Avevo pensato a tal scopo alla creazione di una tabella ad ok, ma non e nelle mie capacità. Un ringraziamento già da ora a chi esaudirà la richiesta.
Codice:
Sub Main
	 TestoInBandaPassante "°°°°°°°°°°°°°Sommativo Superenalotto°°°°°°°°°°°°°",1,5,1
	Dim n(18)
	Ini = EstrazioniArchivioSE - 150
	fin = EstrazioniArchivioSE
	For x = 1 To 90
	For es = Ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		If IndiceMensileSE(es) = 12 Then 
			n(01) = Fuori90(x + EstrattoSE(es - 1,1) + 0)
			n(02) = Fuori90(x + EstrattoSE(es - 1,2) + 86)
			n(03) = Fuori90(x + EstrattoSE(es - 1,3) + 63)
			n(04) = Fuori90(x + EstrattoSE(es - 1,4) + 13)
			n(05) = Fuori90(x + EstrattoSE(es - 1,5) + 37)
			n(06) = Fuori90(x + EstrattoSE(es - 1,6) + 66)
			n(07) = Fuori90(x + EstrattoSE(es - 2,1) + 5)
			n(08) = Fuori90(x + EstrattoSE(es - 2,2) + 72)
			n(09) = Fuori90(x + EstrattoSE(es - 2,3) + 87)
			n(10) = Vert(Fuori90(x + EstrattoSE(es - 1,1) + 89))
			n(11) = Vert(Fuori90(x + EstrattoSE(es - 1,2) + 0))
			n(12) = Vert(Fuori90(x + EstrattoSE(es - 1,3) + 74))
			n(13) = Vert(Fuori90(x + EstrattoSE(es - 1,4) + 29))
			n(14) = Vert(Fuori90(x + EstrattoSE(es - 1,5) + 67))
			n(15) = Vert(Fuori90(x + EstrattoSE(es - 1,6) + 10))
			n(16) = Vert(Fuori90(x + EstrattoSE(es - 2,1) + 0))
			n(17) = Vert(Fuori90(x + EstrattoSE(es - 2,2) + 70))
			n(18) = Vert(Fuori90(x + EstrattoSE(es - 2,3) + 53))	
		OrdinaMatrice n,1
		rip = 0
		If NumeriRipetuti(n) Then
			If NumeriRipetuti(n) Then Scrivi " NELLA GIOCATA SONO PRESENTI DEI NUMERI RIPETUTI" & " - " & Format2(n(01)) & " . " & Format2(n(02)) & " . " & Format2(n(03)) & " . " & Format2(n(04)) & " . " & Format2(n(05)) & " . " & Format2(n(06))_
			 & " . " & Format2(n(07)) & " . " & Format2(n(08)) & " . " & Format2(n(09)) & " . " & Format2(n(10)) & " . " & Format2(n(11)) & " . " & Format2(n(12)) & " . " & Format2(n(13)) & " . " & Format2(n(14)) & " . " & Format2(n(15)) & " . " & Format2(n(16)) & " . " & Format2(n(17)) & " . " & Format2(n(18)),1,1,6
			rip = 1
			While NumeriRipetuti(n)
				For z = 01 To 17
					For y = z + 01 To 18
						If n(z) = n(y) Then n(y) = Fuori90(n(y) + 01)
					Next
				Next
			Wend
		End If
		If rip = 1 Then Scrivi " SONO PRESENTI NUMERI RIPETUTI, I NUMERI RIPETUTI VENGONO AUMENTATI DI UNA UNITA",1,1,3
			Scrivi " NUMERI GIRANTI : " & Format2(n(01)) & " . " & Format2(n(02)) & " . " & Format2(n(03)) & " . " & Format2(n(04)) & " . " & Format2(n(05)) & " . " & Format2(n(06))_
			 & " . " & Format2(n(07)) & " . " & Format2(n(08)) & " . " & Format2(n(09)) & " . " & Format2(n(10)) & " . " & Format2(n(11)) & " . " & Format2(n(12)) & " . " & Format2(n(13)) & " . " & Format2(n(14)) & " . " & Format2(n(15)) & " . " & Format2(n(16)) & " . " & Format2(n(17)) & " . " & Format2(n(18)) & " -------> " & x,1,1,1,6
		End If

		Call ImpostaGiocataSE(es,n,1) 
		Call GiocaSE(es)
	Next
	Next
	ScriviResocontoSE
End Sub
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Vengio, provalo cosi in Tabella

Codice:
Sub Main
	TestoInBandaPassante "°°°°°°°°°°°°°Sommativo Superenalotto°°°°°°°°°°°°°",1,5,1
	Dim n(18)
	estr = InputBox("QUANTE ESTRAZIONI CONTROLLO",,200)
	Ind = CInt(InputBox("QUALE INDICE MENSILE",,12))
	Ini = EstrazioniArchivioSE - estr
	fin = EstrazioniArchivioSE
	ReDim Tt(7)
	Tt(1) = " Casi "
	Tt(2) = " Info Estrazione "
	Tt(3) = " Numeri in Gioco "
	Tt(4) = " Esito "
	Tt(5) = " Estratti "
	Tt(6) = " Data esito "
	Tt(7) = " INDICE scelto "
	Call InitTabella(Tt,2,,3,5,"arial black")
	For es = Ini To fin
		Messaggio es
		AvanzamentoElab Ini,fin,es
		For x = 1 To 90
			n(01) = Fuori90(x + EstrattoSE(es - 1,1) + 0)
			n(02) = Fuori90(x + EstrattoSE(es - 1,2) + 86)
			n(03) = Fuori90(x + EstrattoSE(es - 1,3) + 63)
			n(04) = Fuori90(x + EstrattoSE(es - 1,4) + 13)
			n(05) = Fuori90(x + EstrattoSE(es - 1,5) + 37)
			n(06) = Fuori90(x + EstrattoSE(es - 1,6) + 66)
			n(07) = Fuori90(x + EstrattoSE(es - 2,1) + 5)
			n(08) = Fuori90(x + EstrattoSE(es - 2,2) + 72)
			n(09) = Fuori90(x + EstrattoSE(es - 2,3) + 87)
			n(10) = Vert(Fuori90(x + EstrattoSE(es - 1,1) + 89))
			n(11) = Vert(Fuori90(x + EstrattoSE(es - 1,2) + 0))
			n(12) = Vert(Fuori90(x + EstrattoSE(es - 1,3) + 74))
			n(13) = Vert(Fuori90(x + EstrattoSE(es - 1,4) + 29))
			n(14) = Vert(Fuori90(x + EstrattoSE(es - 1,5) + 67))
			n(15) = Vert(Fuori90(x + EstrattoSE(es - 1,6) + 10))
			n(16) = Vert(Fuori90(x + EstrattoSE(es - 2,1) + 0))
			n(17) = Vert(Fuori90(x + EstrattoSE(es - 2,2) + 70))
			n(18) = Vert(Fuori90(x + EstrattoSE(es - 2,3) + 53))
		Next
		OrdinaMatrice n,1
		If NumeriRipetuti(n) Then
			While NumeriRipetuti(n)
				For z = 01 To 17
					For y = z + 01 To 18
						If n(z) = n(y) Then n(y) = Fuori90(n(y) + 01)
					Next
				Next
			Wend
		End If
		If IndiceMensileSE(es) = Ind Then
			co = co + 1
			For ess = es + 1 To es + 13
				Call VerificaEsitoSE(n,ess,1,1,esito,1,estratti,id)
				ReDim Vv(7)
				Vv(1) = co
				Vv(2) = DataEstrazioneSE(es)
				Vv(3) = StringaNumeri(n,,1)
				Vv(4) = esito
				Vv(5) = estratti
				If esito <> "" Then Vv(6) = DataEstrazioneSE(id)
				If esito = "" Then Vv(6) = " -- "
				Vv(7) = Ind
				'Call AddRigaTabella(Vv,,,3)
				If dispari(Vv(1)) Then Call AddRigaTabella(Vv,6,,3,0,"arial black")
				If pari(Vv(1)) Then Call AddRigaTabella(Vv,7,,3,5,"arial black")
				If esito = "Estratto" Then estra = estra + 1
				If esito = "Ambo" Then amb = amb + 1
				If esito = "Terno" Then ter = ter + 1
				If esito = "Quaterna" Then qua = qua + 1
				If esito = "Cinquina" Then cin = cin + 1
				If esito = "Sestina" Then ses = ses + 1
			Next
		End If
		'Call ImpostaGiocataSE(es,n,1)
		'Call GiocaSE(es)
		'Next
	Next
	'ScriviResocontoSE
	Call AddRigaTabella(Tt,1,,3,5)
	Call SetTableWidth("100%")
	CreaTabella()
	Scrivi String(50,"=") & " Metodo  by Vengio " & String(50,"="),1
	Scrivi "Totali Estratti : " & estra,1
	Scrivi "Totali Ambi     : " & amb,1
	Scrivi "Toatli Terni    : " & ter,1
	Scrivi "totali Quaterne : " & qua,1
	Scrivi "Totali Cinquine : " & cin,1
	Scrivi "Totali Sestine  : " & ses,1
	Scrivi String(50,"=") & " Tabella By Mike58 " & String(50,"="),1
End Sub
 

vengio

Super Member >GOLD<
Sei un mago Mike58, ma io non so come abbia fatto ho postato uno script al posto di un'altro, penso infatti che tu non abbia capito la mia richiesta. Allego lo script giusto ribadendo che quelle x = 90 devono essere tutte sviluppate per 10 volte dopodichè raggruppate prima la 1 poi la 2, la 3 etc fino a 90, questo giusto per capire quale indice x è il piu conveniente. Perdonami del tempo che ti ho fatto perdere prima. Ciao.
Codice:
Sub Main()
	Dim Ruota(2),Poste(5),p(5)
	For Es = EstrazioneFin - 10 To EstrazioneFin
		Ruota(1) = 4
		Ruota(2) = 6
		For x = 1 To 90
			r = 10
			r1 = 12
			clp = 1
			p(1) = Fuori90(Estratto(Es - x,r,1) + Fuori90(Estratto(Es - x,r1,1)))
			'p(2) = Fuori90(Estratto(Es - x2,r,2) + Fuori90(Estratto(Es - x2,r1,2)))
			'p(3) = Fuori90(Estratto(Es - x3,r,3) + Fuori90(Estratto(Es - x3,r1,3)))
			'p(4) = Fuori90(Estratto(Es - x4,r,4) + Fuori90(Estratto(Es - x4,r1,4)))
			'p(5) = Fuori90(Estratto(Es - x5,r,5) + Fuori90(Estratto(Es - x5,r1,5)))
			Poste(1) = 1
			Poste(2) = 5
			Poste(3) = 3
			Poste(4) = 1.50
			Poste(5) = 0.50
			Scrivi String(105,"=") & " " & x,1
			ImpostaGiocata 1,p,Ruota,Poste,clp
			Gioca es,1
		Next
	Next
	ScriviResoconto
End Sub
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
Ciao vengio, non so quello vuoi ottenere con il ciclo dei 90 numeri, in quanto se devi trovare l'indice mensile migliore potrbbe bastare un ciclo pari a 13.
Detto quanto mi sembra di capire dallo script che cerchi da un ipotetico indice i risultati migliori di esito per stabilirne poi quale indice Mensile risponde meglio alla somma dei 1° estratti delle ruote di ricerca e in gioco su altre 2 ruote predefinite.

Non so, se è corretto ma a me da come ho analizzato il problema è venuto cosi, ho cercato nei vari indici tutti gli esiti positivi nei colpi voluti e riepilogando alla fine le sommatorie dei casi dei vari indici di rilevamento condizione.

Poi se come vedo qualcosina mastichi lo puoi correggere ad oc e come + ti è utile.

Ciao questo è solo un confronto sulla impostazione di un problema.

Codice:
Sub Main()
	Dim Ruota(2),Poste(5),p(5)
	estra = InputBox("Quante estrazioni ",,100)
	clp = CInt(InputBox("Quanti colpi di gioco",,9))
	ReDim Tt(11)
	Tt(1) = " Casi "
	Tt(2) = " Ind.Rilevato "
	Tt(3) = " Data estrazione "
	Tt(5) = " stringa estratti "
	Tt(4) = " R & R1 "
	Tt(6) = " E1 + E2 "
	Tt(7) = " In Gioco "
	Tt(8) = " Esito "
	Tt(9) = " colpo "
	Tt(10) = " Data esito "
	Tt(11) = " Indice esito "
	Call InitTabella(Tt,2,,2,5)
	Ruota(1) = 4
	Ruota(2) = 6
	r = 10
	r1 = 12
	Scrivi "Sommativo 1° estratto per rilevamento indice mensile sulle ruote di " & SiglaRuota(r) & " - " & SiglaRuota(r1),1
	Scrivi "Somma ricavata in gioco sulle ruote di " & SiglaRuota(Ruota(1)) & " - " & SiglaRuota(Ruota(2)),1
	Scrivi "Colpi di Gioco : " & clp,1
	Scrivi
	For es = EstrazioneFin - estra To EstrazioneFin
		For x = 1 To 13 ' ciclo per gli indici mensili
		'If IndiceMensile(es) = x Then
			a =(Estratto(Es-x,r,1))
			b =(Estratto(Es-x,r1,1))
			p(1) = Fuori90(a + b)
		'Next ' chiudo ciclo
		If VerificaEsito(p,Ruota,es - x + 1,1,clp,,esito,colpi,estratti,id) = True Then
		If IndiceMensile(es-x) = x Then
		Poste(1) = 1
		Poste(2) = 5
		Poste(3) = 3
		Poste(4) = 1.50
		Poste(5) = 0.50
		
		
		'If esito <> "" Then
			co = co + 1
			ReDim Vv(11)
			Vv(1) = co
			Vv(2) = IndiceMensile(es - x)
			Vv(3) = DataEstrazione(es - x)
			Vv(4) = SiglaRuota(r) & "<br>" & SiglaRuota(r1)
			Vv(5) = StringaEstratti(es - x,r) & "<br>" & StringaEstratti(es - x,r1)
			Vv(6) = a & "." & b
			Vv(7) = p(1)
			Vv(8) = estratti
			Vv(9) = colpi
			Vv(10) = DataEstrazione(id)
			Vv(11) = IndiceMensile(id)
			Call AddRigaTabella(Vv,,,2)
			'Scrivi String(105,"=") & " Caso n " & co,1
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r) & " ---> " & a & " INDICE MENSILE " & IndiceMensile(es - x)
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r1) & " ---> " & b
			'Scrivi " IN GIOCO... " & p(1) & " ESITO... " & estratti & " all'indice Mensile " & IndiceMensile(id) & "  " & DataEstrazione(id),1,0,,2,2
			'Scrivi " al colpo " & colpi
			If IndiceMensile(es - x) = 1 Then x1 = x1 + 1
			If IndiceMensile(es - x) = 2 Then x2 = x2 + 1
			If IndiceMensile(es - x) = 3 Then x3 = x3 + 1
			If IndiceMensile(es - x) = 4 Then x4 = x4 + 1
			If IndiceMensile(es - x) = 5 Then x5 = x5 + 1
			If IndiceMensile(es - x) = 6 Then x6 = x6 + 1
			If IndiceMensile(es - x) = 7 Then x7 = x7 + 1
			If IndiceMensile(es - x) = 8 Then x8 = x8 + 1
			If IndiceMensile(es - x) = 9 Then x9 = x9 + 1
			If IndiceMensile(es - x) = 10 Then x10 = x10 + 1
			If IndiceMensile(es - x) = 11 Then x11 = x11 + 1
			If IndiceMensile(es - x) = 12 Then x12 = x12 + 1
			If IndiceMensile(es - x) = 13 Then x13 = x13 + 1
			End If 
			End If
			Next
	
			
		'End If
		'ImpostaGiocata 1,p,Ruota,Poste,clp
		'Gioca es,1
		'Next
	'Next
	Next
	Call CreaTabella()
	Scrivi "=============== Riepilogo Casi per Indici Mensili ============================",1
	Scrivi 1 & " = " & x1
	Scrivi 2 & " = " & x2
	Scrivi 3 & " = " & x3
	Scrivi 4 & " = " & x4
	Scrivi 5 & " = " & x5
	Scrivi 6 & " = " & x6
	Scrivi 7 & " = " & x7
	Scrivi 8 & " = " & x8
	Scrivi 9 & " = " & x9
	Scrivi 10 & " = " & x10
	Scrivi 11 & " = " & x11
	Scrivi 12 & " = " & x12
	Scrivi 13 & " = " & x13
	'ScriviResoconto
End Sub


ci sono degli errori !!! sto cercando di correggerli

!!!! CORRETTI !!!!!! ?????
 
Ultima modifica:

vengio

Super Member >GOLD<
ciao Mike grazie per l'impegno che stai mettendo per aiutarmi. Ho modificato (arrangiato alla meglio) il primo script che hai postato, in pratica dà lo stesso output degli script standard ma con la preziosa tabella, preziosa perchè può essere riportata in un file excel e da li filtrata nel modo opportuno. per farti capire cosa voglio posto una schermata del file excel che poi rappresenta ciò che cerco. Inoltre non sto cercando una previsione ma solo trovare addietro l'estrazione che sommata all'ultima ha le migliori chance di uscita. X = 90 non ha niente a che vedere con l'indice mensile (naturalmente non mi sto riferendo allo script superenalotto) ma è un numero buttato a caso, in pratica invece di fare un sommativo con i numeri della stessa estrazione me lo fa con tutte le estrazioni passate fino a 1 to 90 e proprio per questo mi creerà un output di 10 range ( es - 10) da 1 to 90. Nel frattempo, nel caso tu abbia voglia di riprovare a modificare lo script, io proverò ad inserire quello che tu hai definito Riepilogo Casi per Indici Mensili nel tuo ultimo script. spero che lo screenshot sia leggibile. Ciao.
tabella.jpg
 
Ultima modifica:

vengio

Super Member >GOLD<
Mike ho modificato un pò il tuo ultimo script e così sembra fare al mio caso, pero non mi compila correttamente la tabella del resonto finale. Potresti per favore dargli tu un'occhiata? Grazie.
Codice:
Sub Main()
	Dim Ruota(2),Poste(5),p(5)
	estra = InputBox("Quante estrazioni ",,10)
	clp = CInt(InputBox("Quanti colpi di gioco",,1))
	ReDim Tt(11)
	Tt(1) = " Casi "
	Tt(2) = " Ind.Rilevato "
	Tt(3) = " Data estrazione "
	Tt(5) = " stringa estratti "
	Tt(4) = " R & R1 "
	Tt(6) = " E1 + E2 "
	Tt(7) = " In Gioco "
	Tt(8) = " Esito "
	Tt(9) = " colpo "
	Tt(10) = " Data esito "
	Tt(11) = " Indice esito "
	Call InitTabella(Tt,2,,2,5)
	Ruota(1) = 4
	Ruota(2) = 6
	r = 10
	r1 = 12
	Scrivi "Sommativo 1° estratto per rilevamento indice mensile sulle ruote di " & SiglaRuota(r) & " - " & SiglaRuota(r1),1
	Scrivi "Somma ricavata in gioco sulle ruote di " & SiglaRuota(Ruota(1)) & " - " & SiglaRuota(Ruota(2)),1
	Scrivi "Colpi di Gioco : " & clp,1
	Scrivi
	For es = EstrazioneFin - estra To EstrazioneFin
		For x = 1 To 90 ' ciclo per gli indici mensili
		'If IndiceMensile(es) = x Then
			a =(Estratto(Es - x,r,1))
			b =(Estratto(Es - x,r1,1))
			p(1) = Fuori90(a + b)
		'Next ' chiudo ciclo
		If VerificaEsito(p,Ruota,es - x + 1,1,clp,,esito,colpi,estratti,id) = True Then

		Poste(1) = 1
		Poste(2) = 5
		Poste(3) = 3
		Poste(4) = 1.50
		Poste(5) = 0.50
		
		
		'If esito <> "" Then
			co = x
			ReDim Vv(11)
			Vv(1) = co
			Vv(2) = y
			Vv(3) = DataEstrazione(es - x)
			Vv(4) = SiglaRuota(r) & "<br>" & SiglaRuota(r1)
			Vv(5) = StringaEstratti(es - x,r) & "<br>" & StringaEstratti(es - x,r1)
			Vv(6) = a & "." & b
			Vv(7) = p(1)
			Vv(8) = estratti
			Vv(9) = colpi
			Vv(10) = DataEstrazione(id)
			Vv(11) = x
			Call AddRigaTabella(Vv,,,2)
			'Scrivi String(105,"=") & " Caso n " & co,1
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r) & " ---> " & a & " INDICE MENSILE " & IndiceMensile(es - x)
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r1) & " ---> " & b
			'Scrivi " IN GIOCO... " & p(1) & " ESITO... " & estratti & " all'indice Mensile " & IndiceMensile(id) & "  " & DataEstrazione(id),1,0,,2,2
			'Scrivi " al colpo " & colpi
			If IndiceMensile(es - x) = 1 Then x1 = x1 + 1
			If IndiceMensile(es - x) = 2 Then x2 = x2 + 1
			If IndiceMensile(es - x) = 3 Then x3 = x3 + 1
			If IndiceMensile(es - x) = 4 Then x4 = x4 + 1
			If IndiceMensile(es - x) = 5 Then x5 = x5 + 1
			If IndiceMensile(es - x) = 6 Then x6 = x6 + 1
			If IndiceMensile(es - x) = 7 Then x7 = x7 + 1
			If IndiceMensile(es - x) = 8 Then x8 = x8 + 1
			If IndiceMensile(es - x) = 9 Then x9 = x9 + 1
			If IndiceMensile(es - x) = 10 Then x10 = x10 + 1
			If IndiceMensile(es - x) = 11 Then x11 = x11 + 1
			If IndiceMensile(es - x) = 12 Then x12 = x12 + 1
			If IndiceMensile(es - x) = 13 Then x13 = x13 + 1
			If IndiceMensile(es - x) = 14 Then x14 = x14 + 1
			If IndiceMensile(es - x) = 15 Then x15 = x15 + 1
			If IndiceMensile(es - x) = 16 Then x16 = x16 + 1
			If IndiceMensile(es - x) = 17 Then x17 = x17 + 1
			If IndiceMensile(es - x) = 18 Then x18 = x18 + 1
			If IndiceMensile(es - x) = 19 Then x19 = x19 + 1
			If IndiceMensile(es - x) = 20 Then x20 = x20 + 1
			If IndiceMensile(es - x) = 21 Then x21 = x21 + 1
			If IndiceMensile(es - x) = 22 Then x22 = x22 + 1
			If IndiceMensile(es - x) = 23 Then x23 = x23 + 1
			If IndiceMensile(es - x) = 24 Then x24 = x24 + 1
			If IndiceMensile(es - x) = 25 Then x25 = x25 + 1
			If IndiceMensile(es - x) = 26 Then x26 = x26 + 1
			If IndiceMensile(es - x) = 27 Then x27 = x27 + 1
			If IndiceMensile(es - x) = 28 Then x28 = x28 + 1
			If IndiceMensile(es - x) = 29 Then x29 = x29 + 1
			If IndiceMensile(es - x) = 30 Then x30 = x30 + 1
			If IndiceMensile(es - x) = 31 Then x31 = x31 + 1
			If IndiceMensile(es - x) = 32 Then x32 = x32 + 1
			If IndiceMensile(es - x) = 33 Then x33 = x33 + 1
			If IndiceMensile(es - x) = 34 Then x34 = x34 + 1
			If IndiceMensile(es - x) = 35 Then x35 = x35 + 1
			If IndiceMensile(es - x) = 36 Then x36 = x36 + 1
			If IndiceMensile(es - x) = 37 Then x37 = x37 + 1
			If IndiceMensile(es - x) = 38 Then x38 = x38 + 1
			If IndiceMensile(es - x) = 39 Then x39 = x30 + 1
			If IndiceMensile(es - x) = 40 Then x40 = x40 + 1
			If IndiceMensile(es - x) = 41 Then x41 = x41 + 1
			If IndiceMensile(es - x) = 42 Then x42 = x42 + 1
			If IndiceMensile(es - x) = 43 Then x43 = x43 + 1
			If IndiceMensile(es - x) = 44 Then x44 = x44 + 1
			If IndiceMensile(es - x) = 45 Then x45 = x45 + 1
			If IndiceMensile(es - x) = 46 Then x46 = x46 + 1
			If IndiceMensile(es - x) = 47 Then x47 = x47 + 1
			If IndiceMensile(es - x) = 48 Then x48 = x48 + 1
			If IndiceMensile(es - x) = 49 Then x49 = x49 + 1
			If IndiceMensile(es - x) = 50 Then x50 = x50 + 1
			If IndiceMensile(es - x) = 51 Then x51 = x51 + 1
			If IndiceMensile(es - x) = 52 Then x52 = x52 + 1
			If IndiceMensile(es - x) = 53 Then x53 = x53 + 1
			If IndiceMensile(es - x) = 54 Then x54 = x54 + 1
			If IndiceMensile(es - x) = 55 Then x55 = x55 + 1
			If IndiceMensile(es - x) = 56 Then x56 = x56 + 1
			If IndiceMensile(es - x) = 57 Then x57 = x57 + 1
			If IndiceMensile(es - x) = 58 Then x58 = x58 + 1
			If IndiceMensile(es - x) = 59 Then x59 = x59 + 1
			If IndiceMensile(es - x) = 60 Then x60 = x60 + 1
			If IndiceMensile(es - x) = 61 Then x61 = x61 + 1
			If IndiceMensile(es - x) = 62 Then x62 = x62 + 1
			If IndiceMensile(es - x) = 63 Then x63 = x63 + 1
			If IndiceMensile(es - x) = 64 Then x64 = x64 + 1
			If IndiceMensile(es - x) = 65 Then x65 = x65 + 1
			If IndiceMensile(es - x) = 66 Then x66 = x66 + 1
			If IndiceMensile(es - x) = 67 Then x67 = x67 + 1
			If IndiceMensile(es - x) = 68 Then x68 = x68 + 1
			If IndiceMensile(es - x) = 69 Then x69 = x69 + 1
			If IndiceMensile(es - x) = 70 Then x70 = x70 + 1
			If IndiceMensile(es - x) = 71 Then x71 = x71 + 1
			If IndiceMensile(es - x) = 72 Then x72 = x72 + 1
			If IndiceMensile(es - x) = 73 Then x73 = x73 + 1
			If IndiceMensile(es - x) = 74 Then x74 = x74 + 1
			If IndiceMensile(es - x) = 75 Then x75 = x75 + 1
			If IndiceMensile(es - x) = 76 Then x76 = x76 + 1
			If IndiceMensile(es - x) = 77 Then x77 = x77 + 1
			If IndiceMensile(es - x) = 78 Then x78 = x78 + 1
			If IndiceMensile(es - x) = 79 Then x79 = x79 + 1
			If IndiceMensile(es - x) = 80 Then x80 = x80 + 1
			If IndiceMensile(es - x) = 81 Then x81 = x81 + 1
			If IndiceMensile(es - x) = 82 Then x82 = x82 + 1
			If IndiceMensile(es - x) = 83 Then x83 = x83 + 1
			If IndiceMensile(es - x) = 84 Then x84 = x84 + 1
			If IndiceMensile(es - x) = 85 Then x85 = x85 + 1
			If IndiceMensile(es - x) = 86 Then x86 = x86 + 1
			If IndiceMensile(es - x) = 87 Then x87 = x87 + 1
			If IndiceMensile(es - x) = 88 Then x88 = x88 + 1
			If IndiceMensile(es - x) = 89 Then x89 = x89 + 1
			If IndiceMensile(es - x) = 90 Then x90 = x90 + 1
			End If
			Next
			Next
			
	
			
		'End If
		'ImpostaGiocata 1,p,Ruota,Poste,clp
		'Gioca es,1
		'Next
	'Next
	'Next
	Call CreaTabella()
	Scrivi "=============== Riepilogo Casi per Indici Mensili ============================",1
	Scrivi 1 & " = " & x1
	Scrivi 2 & " = " & x2
	Scrivi 3 & " = " & x3
	Scrivi 4 & " = " & x4
	Scrivi 5 & " = " & x5
	Scrivi 6 & " = " & x6
	Scrivi 7 & " = " & x7
	Scrivi 8 & " = " & x8
	Scrivi 9 & " = " & x9
	Scrivi 10 & " = " & x10
	Scrivi 11 & " = " & x11
	Scrivi 12 & " = " & x12
	Scrivi 13 & " = " & x13
	Scrivi 14 & " = " & x14
	Scrivi 15 & " = " & x15
	Scrivi 16 & " = " & x16
	Scrivi 17 & " = " & x17
	Scrivi 18 & " = " & x18
	Scrivi 19 & " = " & x19
	Scrivi 20 & " = " & x20
	Scrivi 21 & " = " & x21
	Scrivi 22 & " = " & x22
	Scrivi 23 & " = " & x23
	Scrivi 24 & " = " & x24
	Scrivi 25 & " = " & x25
	Scrivi 26 & " = " & x26
	Scrivi 27 & " = " & x27
	Scrivi 28 & " = " & x28
	Scrivi 29 & " = " & x29
	Scrivi 30 & " = " & x30
	Scrivi 31 & " = " & x31
	Scrivi 32 & " = " & x32
	Scrivi 33 & " = " & x33
	Scrivi 34 & " = " & x34
	Scrivi 35 & " = " & x35
	Scrivi 36 & " = " & x36
	Scrivi 37 & " = " & x37
	Scrivi 38 & " = " & x38
	Scrivi 39 & " = " & x39
	Scrivi 40 & " = " & x40
	Scrivi 41 & " = " & x41
	Scrivi 42 & " = " & x42
	Scrivi 43 & " = " & x43
	Scrivi 44 & " = " & x44
	Scrivi 45 & " = " & x45
	Scrivi 46 & " = " & x46
	Scrivi 47 & " = " & x47
	Scrivi 48 & " = " & x48
	Scrivi 49 & " = " & x49
	Scrivi 50 & " = " & x50
	Scrivi 51 & " = " & x51
	Scrivi 52 & " = " & x52
	Scrivi 53 & " = " & x53
	Scrivi 54 & " = " & x54
	Scrivi 55 & " = " & x55
	Scrivi 56 & " = " & x56
	Scrivi 57 & " = " & x57
	Scrivi 58 & " = " & x58
	Scrivi 59 & " = " & x59
	Scrivi 60 & " = " & x60
	Scrivi 61 & " = " & x61
	Scrivi 62 & " = " & x62
	Scrivi 63 & " = " & x63
	Scrivi 64 & " = " & x64
	Scrivi 65 & " = " & x65
	Scrivi 66 & " = " & x66
	Scrivi 67 & " = " & x67
	Scrivi 68 & " = " & x68
	Scrivi 69 & " = " & x69
	Scrivi 70 & " = " & x70
	Scrivi 71 & " = " & x71
	Scrivi 72 & " = " & x72
	Scrivi 73 & " = " & x73
	Scrivi 74 & " = " & x74
	Scrivi 75 & " = " & x75
	Scrivi 76 & " = " & x76
	Scrivi 77 & " = " & x77
	Scrivi 78 & " = " & x78
	Scrivi 79 & " = " & x79
	Scrivi 80 & " = " & x80
	Scrivi 81 & " = " & x81
	Scrivi 82 & " = " & x82
	Scrivi 83 & " = " & x83
	Scrivi 84 & " = " & x84
	Scrivi 85 & " = " & x85
	Scrivi 86 & " = " & x86
	Scrivi 87 & " = " & x87
	Scrivi 88 & " = " & x88
	Scrivi 89 & " = " & x89
	Scrivi 90 & " = " & x90
	'ScriviResoconto
End Sub
 
Ultima modifica:

vengio

Super Member >GOLD<
Mike ho modificato un pò il tuo ultimo script e così sembra fare al mio caso, pero non mi compila correttamente la tabella del resonto finale. Potresti per favore dargli tu un'occhiata? Grazie.
Codice:
Sub Main()
	Dim Ruota(2),Poste(5),p(5)
	estra = InputBox("Quante estrazioni ",,10)
	clp = CInt(InputBox("Quanti colpi di gioco",,1))
	ReDim Tt(11)
	Tt(1) = " Casi "
	Tt(2) = " Ind.Rilevato "
	Tt(3) = " Data estrazione "
	Tt(5) = " stringa estratti "
	Tt(4) = " R & R1 "
	Tt(6) = " E1 + E2 "
	Tt(7) = " In Gioco "
	Tt(8) = " Esito "
	Tt(9) = " colpo "
	Tt(10) = " Data esito "
	Tt(11) = " Indice esito "
	Call InitTabella(Tt,2,,2,5)
	Ruota(1) = 4
	Ruota(2) = 6
	r = 10
	r1 = 12
	Scrivi "Sommativo 1° estratto per rilevamento indice mensile sulle ruote di " & SiglaRuota(r) & " - " & SiglaRuota(r1),1
	Scrivi "Somma ricavata in gioco sulle ruote di " & SiglaRuota(Ruota(1)) & " - " & SiglaRuota(Ruota(2)),1
	Scrivi "Colpi di Gioco : " & clp,1
	Scrivi
	For es = EstrazioneFin - estra To EstrazioneFin
		For x = 1 To 90 ' ciclo per gli indici mensili
		'If IndiceMensile(es) = x Then
			a =(Estratto(Es - x,r,1))
			b =(Estratto(Es - x,r1,1))
			p(1) = Fuori90(a + b)
		'Next ' chiudo ciclo
		If VerificaEsito(p,Ruota,es - x + 1,1,clp,,esito,colpi,estratti,id) = True Then

		Poste(1) = 1
		Poste(2) = 5
		Poste(3) = 3
		Poste(4) = 1.50
		Poste(5) = 0.50
		
		
		'If esito <> "" Then
			co = x
			ReDim Vv(11)
			Vv(1) = co
			Vv(2) = y
			Vv(3) = DataEstrazione(es - x)
			Vv(4) = SiglaRuota(r) & "<br>" & SiglaRuota(r1)
			Vv(5) = StringaEstratti(es - x,r) & "<br>" & StringaEstratti(es - x,r1)
			Vv(6) = a & "." & b
			Vv(7) = p(1)
			Vv(8) = estratti
			Vv(9) = colpi
			Vv(10) = DataEstrazione(id)
			Vv(11) = x
			Call AddRigaTabella(Vv,,,2)
			'Scrivi String(105,"=") & " Caso n " & co,1
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r) & " ---> " & a & " INDICE MENSILE " & IndiceMensile(es - x)
			'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r1) & " ---> " & b
			'Scrivi " IN GIOCO... " & p(1) & " ESITO... " & estratti & " all'indice Mensile " & IndiceMensile(id) & "  " & DataEstrazione(id),1,0,,2,2
			'Scrivi " al colpo " & colpi
			If IndiceMensile(es - x) = 1 Then x1 = x1 + 1
			If IndiceMensile(es - x) = 2 Then x2 = x2 + 1
			If IndiceMensile(es - x) = 3 Then x3 = x3 + 1
			If IndiceMensile(es - x) = 4 Then x4 = x4 + 1
			If IndiceMensile(es - x) = 5 Then x5 = x5 + 1
			If IndiceMensile(es - x) = 6 Then x6 = x6 + 1
			If IndiceMensile(es - x) = 7 Then x7 = x7 + 1
			If IndiceMensile(es - x) = 8 Then x8 = x8 + 1
			If IndiceMensile(es - x) = 9 Then x9 = x9 + 1
			If IndiceMensile(es - x) = 10 Then x10 = x10 + 1
			If IndiceMensile(es - x) = 11 Then x11 = x11 + 1
			If IndiceMensile(es - x) = 12 Then x12 = x12 + 1
			If IndiceMensile(es - x) = 13 Then x13 = x13 + 1
			If IndiceMensile(es - x) = 14 Then x14 = x14 + 1
			If IndiceMensile(es - x) = 15 Then x15 = x15 + 1
			If IndiceMensile(es - x) = 16 Then x16 = x16 + 1
			If IndiceMensile(es - x) = 17 Then x17 = x17 + 1
			If IndiceMensile(es - x) = 18 Then x18 = x18 + 1
			If IndiceMensile(es - x) = 19 Then x19 = x19 + 1
			If IndiceMensile(es - x) = 20 Then x20 = x20 + 1
			If IndiceMensile(es - x) = 21 Then x21 = x21 + 1
			If IndiceMensile(es - x) = 22 Then x22 = x22 + 1
			If IndiceMensile(es - x) = 23 Then x23 = x23 + 1
			If IndiceMensile(es - x) = 24 Then x24 = x24 + 1
			If IndiceMensile(es - x) = 25 Then x25 = x25 + 1
			If IndiceMensile(es - x) = 26 Then x26 = x26 + 1
			If IndiceMensile(es - x) = 27 Then x27 = x27 + 1
			If IndiceMensile(es - x) = 28 Then x28 = x28 + 1
			If IndiceMensile(es - x) = 29 Then x29 = x29 + 1
			If IndiceMensile(es - x) = 30 Then x30 = x30 + 1
			If IndiceMensile(es - x) = 31 Then x31 = x31 + 1
			If IndiceMensile(es - x) = 32 Then x32 = x32 + 1
			If IndiceMensile(es - x) = 33 Then x33 = x33 + 1
			If IndiceMensile(es - x) = 34 Then x34 = x34 + 1
			If IndiceMensile(es - x) = 35 Then x35 = x35 + 1
			If IndiceMensile(es - x) = 36 Then x36 = x36 + 1
			If IndiceMensile(es - x) = 37 Then x37 = x37 + 1
			If IndiceMensile(es - x) = 38 Then x38 = x38 + 1
			If IndiceMensile(es - x) = 39 Then x39 = x30 + 1
			If IndiceMensile(es - x) = 40 Then x40 = x40 + 1
			If IndiceMensile(es - x) = 41 Then x41 = x41 + 1
			If IndiceMensile(es - x) = 42 Then x42 = x42 + 1
			If IndiceMensile(es - x) = 43 Then x43 = x43 + 1
			If IndiceMensile(es - x) = 44 Then x44 = x44 + 1
			If IndiceMensile(es - x) = 45 Then x45 = x45 + 1
			If IndiceMensile(es - x) = 46 Then x46 = x46 + 1
			If IndiceMensile(es - x) = 47 Then x47 = x47 + 1
			If IndiceMensile(es - x) = 48 Then x48 = x48 + 1
			If IndiceMensile(es - x) = 49 Then x49 = x49 + 1
			If IndiceMensile(es - x) = 50 Then x50 = x50 + 1
			If IndiceMensile(es - x) = 51 Then x51 = x51 + 1
			If IndiceMensile(es - x) = 52 Then x52 = x52 + 1
			If IndiceMensile(es - x) = 53 Then x53 = x53 + 1
			If IndiceMensile(es - x) = 54 Then x54 = x54 + 1
			If IndiceMensile(es - x) = 55 Then x55 = x55 + 1
			If IndiceMensile(es - x) = 56 Then x56 = x56 + 1
			If IndiceMensile(es - x) = 57 Then x57 = x57 + 1
			If IndiceMensile(es - x) = 58 Then x58 = x58 + 1
			If IndiceMensile(es - x) = 59 Then x59 = x59 + 1
			If IndiceMensile(es - x) = 60 Then x60 = x60 + 1
			If IndiceMensile(es - x) = 61 Then x61 = x61 + 1
			If IndiceMensile(es - x) = 62 Then x62 = x62 + 1
			If IndiceMensile(es - x) = 63 Then x63 = x63 + 1
			If IndiceMensile(es - x) = 64 Then x64 = x64 + 1
			If IndiceMensile(es - x) = 65 Then x65 = x65 + 1
			If IndiceMensile(es - x) = 66 Then x66 = x66 + 1
			If IndiceMensile(es - x) = 67 Then x67 = x67 + 1
			If IndiceMensile(es - x) = 68 Then x68 = x68 + 1
			If IndiceMensile(es - x) = 69 Then x69 = x69 + 1
			If IndiceMensile(es - x) = 70 Then x70 = x70 + 1
			If IndiceMensile(es - x) = 71 Then x71 = x71 + 1
			If IndiceMensile(es - x) = 72 Then x72 = x72 + 1
			If IndiceMensile(es - x) = 73 Then x73 = x73 + 1
			If IndiceMensile(es - x) = 74 Then x74 = x74 + 1
			If IndiceMensile(es - x) = 75 Then x75 = x75 + 1
			If IndiceMensile(es - x) = 76 Then x76 = x76 + 1
			If IndiceMensile(es - x) = 77 Then x77 = x77 + 1
			If IndiceMensile(es - x) = 78 Then x78 = x78 + 1
			If IndiceMensile(es - x) = 79 Then x79 = x79 + 1
			If IndiceMensile(es - x) = 80 Then x80 = x80 + 1
			If IndiceMensile(es - x) = 81 Then x81 = x81 + 1
			If IndiceMensile(es - x) = 82 Then x82 = x82 + 1
			If IndiceMensile(es - x) = 83 Then x83 = x83 + 1
			If IndiceMensile(es - x) = 84 Then x84 = x84 + 1
			If IndiceMensile(es - x) = 85 Then x85 = x85 + 1
			If IndiceMensile(es - x) = 86 Then x86 = x86 + 1
			If IndiceMensile(es - x) = 87 Then x87 = x87 + 1
			If IndiceMensile(es - x) = 88 Then x88 = x88 + 1
			If IndiceMensile(es - x) = 89 Then x89 = x89 + 1
			If IndiceMensile(es - x) = 90 Then x90 = x90 + 1
			End If
			Next
			Next
			
	
			
		'End If
		'ImpostaGiocata 1,p,Ruota,Poste,clp
		'Gioca es,1
		'Next
	'Next
	'Next
	Call CreaTabella()
	Scrivi "=============== Riepilogo Casi per Indici Mensili ============================",1
	Scrivi 1 & " = " & x1
	Scrivi 2 & " = " & x2
	Scrivi 3 & " = " & x3
	Scrivi 4 & " = " & x4
	Scrivi 5 & " = " & x5
	Scrivi 6 & " = " & x6
	Scrivi 7 & " = " & x7
	Scrivi 8 & " = " & x8
	Scrivi 9 & " = " & x9
	Scrivi 10 & " = " & x10
	Scrivi 11 & " = " & x11
	Scrivi 12 & " = " & x12
	Scrivi 13 & " = " & x13
	Scrivi 14 & " = " & x14
	Scrivi 15 & " = " & x15
	Scrivi 16 & " = " & x16
	Scrivi 17 & " = " & x17
	Scrivi 18 & " = " & x18
	Scrivi 19 & " = " & x19
	Scrivi 20 & " = " & x20
	Scrivi 21 & " = " & x21
	Scrivi 22 & " = " & x22
	Scrivi 23 & " = " & x23
	Scrivi 24 & " = " & x24
	Scrivi 25 & " = " & x25
	Scrivi 26 & " = " & x26
	Scrivi 27 & " = " & x27
	Scrivi 28 & " = " & x28
	Scrivi 29 & " = " & x29
	Scrivi 30 & " = " & x30
	Scrivi 31 & " = " & x31
	Scrivi 32 & " = " & x32
	Scrivi 33 & " = " & x33
	Scrivi 34 & " = " & x34
	Scrivi 35 & " = " & x35
	Scrivi 36 & " = " & x36
	Scrivi 37 & " = " & x37
	Scrivi 38 & " = " & x38
	Scrivi 39 & " = " & x39
	Scrivi 40 & " = " & x40
	Scrivi 41 & " = " & x41
	Scrivi 42 & " = " & x42
	Scrivi 43 & " = " & x43
	Scrivi 44 & " = " & x44
	Scrivi 45 & " = " & x45
	Scrivi 46 & " = " & x46
	Scrivi 47 & " = " & x47
	Scrivi 48 & " = " & x48
	Scrivi 49 & " = " & x49
	Scrivi 50 & " = " & x50
	Scrivi 51 & " = " & x51
	Scrivi 52 & " = " & x52
	Scrivi 53 & " = " & x53
	Scrivi 54 & " = " & x54
	Scrivi 55 & " = " & x55
	Scrivi 56 & " = " & x56
	Scrivi 57 & " = " & x57
	Scrivi 58 & " = " & x58
	Scrivi 59 & " = " & x59
	Scrivi 60 & " = " & x60
	Scrivi 61 & " = " & x61
	Scrivi 62 & " = " & x62
	Scrivi 63 & " = " & x63
	Scrivi 64 & " = " & x64
	Scrivi 65 & " = " & x65
	Scrivi 66 & " = " & x66
	Scrivi 67 & " = " & x67
	Scrivi 68 & " = " & x68
	Scrivi 69 & " = " & x69
	Scrivi 70 & " = " & x70
	Scrivi 71 & " = " & x71
	Scrivi 72 & " = " & x72
	Scrivi 73 & " = " & x73
	Scrivi 74 & " = " & x74
	Scrivi 75 & " = " & x75
	Scrivi 76 & " = " & x76
	Scrivi 77 & " = " & x77
	Scrivi 78 & " = " & x78
	Scrivi 79 & " = " & x79
	Scrivi 80 & " = " & x80
	Scrivi 81 & " = " & x81
	Scrivi 82 & " = " & x82
	Scrivi 83 & " = " & x83
	Scrivi 84 & " = " & x84
	Scrivi 85 & " = " & x85
	Scrivi 86 & " = " & x86
	Scrivi 87 & " = " & x87
	Scrivi 88 & " = " & x88
	Scrivi 89 & " = " & x89
	Scrivi 90 & " = " & x90
	'ScriviResoconto
End Sub
Probabilmente ho risolto, devo solo fare verifiche piu approfondite. Grazie mille Mike.
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Vengio, se è corretto quello che hai scriptato, allora l'unica cosa che no va è l'istruzione dei conteggi, non puoi conteggiare una condizione come l'indicemensile che ha un massimo di 14 estrazioni, in questo caso puoi conteggiare il valore della colonna dove scrivi il dato = x

vedi esempio

Codice:
Sub Main()
	Dim Ruota(2),Poste(5),p(5)
	estra = InputBox("Quante estrazioni ",,10)
	clp = CInt(InputBox("Quanti colpi di gioco",,1))
	ReDim Tt(11)
	Tt(1) = " Casi "
	'Tt(2) = " Ind.Rilevato "
	Tt(3) = " Data estrazione "
	Tt(5) = " stringa estratti "
	Tt(4) = " R & R1 "
	Tt(6) = " E1 + E2 "
	Tt(7) = " In Gioco "
	Tt(8) = " Esito "
	Tt(9) = " colpo "
	Tt(10) = " Data esito "
	Tt(11) = " Indice Rilevato "
	Call InitTabella(Tt,2,,2,5)
	Ruota(1) = 4
	Ruota(2) = 6
	r = 10
	r1 = 12
	Scrivi "Sommativo 1° estratto per rilevamento indice mensile sulle ruote di " & SiglaRuota(r) & " - " & SiglaRuota(r1),1
	Scrivi "Somma ricavata in gioco sulle ruote di " & SiglaRuota(Ruota(1)) & " - " & SiglaRuota(Ruota(2)),1
	Scrivi "Colpi di Gioco : " & clp,1
	Scrivi
	For es = EstrazioneFin - estra To EstrazioneFin
		For x = 1 To 90 ' ciclo per gli indici mensili
			'If IndiceMensile(es) = x Then
			a =(Estratto(Es - x,r,1))
			b =(Estratto(Es - x,r1,1))
			p(1) = Fuori90(a + b)
			'Next ' chiudo ciclo
			If VerificaEsito(p,Ruota,es - x + 1,1,clp,,esito,colpi,estratti,id) = True Then
				Poste(1) = 1
				Poste(2) = 5
				Poste(3) = 3
				Poste(4) = 1.50
				Poste(5) = 0.50
				'If esito <> "" Then
				co = co + 1
				ReDim Vv(11)
				Vv(1) = co
				'Vv(2) = y
				Vv(3) = DataEstrazione(es - x)
				Vv(4) = SiglaRuota(r) & "<br>" & SiglaRuota(r1)
				Vv(5) = StringaEstratti(es - x,r) & "<br>" & StringaEstratti(es - x,r1)
				Vv(6) = a & "." & b
				Vv(7) = p(1)
				Vv(8) = estratti
				Vv(9) = colpi
				Vv(10) = DataEstrazione(id)
				Vv(11) = x
				Call AddRigaTabella(Vv,,,2)
				'Scrivi String(105,"=") & " Caso n " & co,1
				'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r) & " ---> " & a & " INDICE MENSILE " & IndiceMensile(es - x)
				'Scrivi DataEstrazione(es - x) & "  " & StringaEstratti(es - x,r1) & " ---> " & b
				'Scrivi " IN GIOCO... " & p(1) & " ESITO... " & estratti & " all'indice Mensile " & IndiceMensile(id) & "  " & DataEstrazione(id),1,0,,2,2
				'Scrivi " al colpo " & colpi
				If Vv(11) = 1 Then x1 = x1 + 1
				If Vv(11) = 2 Then x2 = x2 + 1
				If Vv(11) = 3 Then x3 = x3 + 1
				If Vv(11) = 4 Then x4 = x4 + 1
				If Vv(11) = 5 Then x5 = x5 + 1
				If Vv(11) = 6 Then x6 = x6 + 1
				If Vv(11) = 7 Then x7 = x7 + 1
				If Vv(11) = 8 Then x8 = x8 + 1
				If Vv(11) = 9 Then x9 = x9 + 1
				If Vv(11) = 10 Then x10 = x10 + 1
				If Vv(11) = 11 Then x11 = x11 + 1
				If Vv(11) = 12 Then x12 = x12 + 1
				If Vv(11) = 13 Then x13 = x13 + 1
				If Vv(11) = 14 Then x14 = x14 + 1
				If Vv(11) = 15 Then x15 = x15 + 1
				If Vv(11) = 16 Then x16 = x16 + 1
				If Vv(11) = 17 Then x17 = x17 + 1
				If Vv(11) = 18 Then x18 = x18 + 1
				If Vv(11) = 19 Then x19 = x19 + 1
				If Vv(11) = 20 Then x20 = x20 + 1
				If Vv(11) = 21 Then x21 = x21 + 1
				If Vv(11) = 22 Then x22 = x22 + 1
				If Vv(11) = 23 Then x23 = x23 + 1
				If Vv(11) = 24 Then x24 = x24 + 1
				If Vv(11) = 25 Then x25 = x25 + 1
				If Vv(11) = 26 Then x26 = x26 + 1
				If Vv(11) = 27 Then x27 = x27 + 1
				If Vv(11) = 28 Then x28 = x28 + 1
				If Vv(11) = 29 Then x29 = x29 + 1
				If Vv(11) = 30 Then x30 = x30 + 1
				If Vv(11) = 31 Then x31 = x31 + 1
				If Vv(11) = 32 Then x32 = x32 + 1
				If Vv(11) = 33 Then x33 = x33 + 1
				If Vv(11) = 34 Then x34 = x34 + 1
				If Vv(11) = 35 Then x35 = x35 + 1
				If Vv(11) = 36 Then x36 = x36 + 1
				If Vv(11) = 37 Then x37 = x37 + 1
				If Vv(11) = 38 Then x38 = x38 + 1
				If Vv(11) = 39 Then x39 = x30 + 1
				If Vv(11) = 40 Then x40 = x40 + 1
				If Vv(11) = 41 Then x41 = x41 + 1
				If Vv(11) = 42 Then x42 = x42 + 1
				If Vv(11) = 43 Then x43 = x43 + 1
				If Vv(11) = 44 Then x44 = x44 + 1
				If Vv(11) = 45 Then x45 = x45 + 1
				If Vv(11) = 46 Then x46 = x46 + 1
				If Vv(11) = 47 Then x47 = x47 + 1
				If Vv(11) = 48 Then x48 = x48 + 1
				If Vv(11) = 49 Then x49 = x49 + 1
				If Vv(11) = 50 Then x50 = x50 + 1
				If Vv(11) = 51 Then x51 = x51 + 1
				If Vv(11) = 52 Then x52 = x52 + 1
				If Vv(11) = 53 Then x53 = x53 + 1
				If Vv(11) = 54 Then x54 = x54 + 1
				If Vv(11) = 55 Then x55 = x55 + 1
				If Vv(11) = 56 Then x56 = x56 + 1
				If Vv(11) = 57 Then x57 = x57 + 1
				If Vv(11) = 58 Then x58 = x58 + 1
				If Vv(11) = 59 Then x59 = x59 + 1
				If Vv(11) = 60 Then x60 = x60 + 1
				If Vv(11) = 61 Then x61 = x61 + 1
				If Vv(11) = 62 Then x62 = x62 + 1
				If Vv(11) = 63 Then x63 = x63 + 1
				If Vv(11) = 64 Then x64 = x64 + 1
				If Vv(11) = 65 Then x65 = x65 + 1
				If Vv(11) = 66 Then x66 = x66 + 1
				If Vv(11) = 67 Then x67 = x67 + 1
				If Vv(11) = 68 Then x68 = x68 + 1
				If Vv(11) = 69 Then x69 = x69 + 1
				If Vv(11) = 70 Then x70 = x70 + 1
				If Vv(11) = 71 Then x71 = x71 + 1
				If Vv(11) = 72 Then x72 = x72 + 1
				If Vv(11) = 73 Then x73 = x73 + 1
				If Vv(11) = 74 Then x74 = x74 + 1
				If Vv(11) = 75 Then x75 = x75 + 1
				If Vv(11) = 76 Then x76 = x76 + 1
				If Vv(11) = 77 Then x77 = x77 + 1
				If Vv(11) = 78 Then x78 = x78 + 1
				If Vv(11) = 79 Then x79 = x79 + 1
				If Vv(11) = 80 Then x80 = x80 + 1
				If Vv(11) = 81 Then x81 = x81 + 1
				If Vv(11) = 82 Then x82 = x82 + 1
				If Vv(11) = 83 Then x83 = x83 + 1
				If Vv(11) = 84 Then x84 = x84 + 1
				If Vv(11) = 85 Then x85 = x85 + 1
				If Vv(11) = 86 Then x86 = x86 + 1
				If Vv(11) = 87 Then x87 = x87 + 1
				If Vv(11) = 88 Then x88 = x88 + 1
				If Vv(11) = 89 Then x89 = x89 + 1
				If Vv(11) = 90 Then x90 = x90 + 1
			End If
		Next
	Next
	'End If
	'ImpostaGiocata 1,p,Ruota,Poste,clp
	'Gioca es,1
	'Next
	'Next
	'Next
	Call CreaTabella()
	Scrivi "=============== Riepilogo Casi per Indici Mensili ============================",1
	Scrivi 1 & " = " & x1
	Scrivi 2 & " = " & x2
	Scrivi 3 & " = " & x3
	Scrivi 4 & " = " & x4
	Scrivi 5 & " = " & x5
	Scrivi 6 & " = " & x6
	Scrivi 7 & " = " & x7
	Scrivi 8 & " = " & x8
	Scrivi 9 & " = " & x9
	Scrivi 10 & " = " & x10
	Scrivi 11 & " = " & x11
	Scrivi 12 & " = " & x12
	Scrivi 13 & " = " & x13
	Scrivi 14 & " = " & x14
	Scrivi 15 & " = " & x15
	Scrivi 16 & " = " & x16
	Scrivi 17 & " = " & x17
	Scrivi 18 & " = " & x18
	Scrivi 19 & " = " & x19
	Scrivi 20 & " = " & x20
	Scrivi 21 & " = " & x21
	Scrivi 22 & " = " & x22
	Scrivi 23 & " = " & x23
	Scrivi 24 & " = " & x24
	Scrivi 25 & " = " & x25
	Scrivi 26 & " = " & x26
	Scrivi 27 & " = " & x27
	Scrivi 28 & " = " & x28
	Scrivi 29 & " = " & x29
	Scrivi 30 & " = " & x30
	Scrivi 31 & " = " & x31
	Scrivi 32 & " = " & x32
	Scrivi 33 & " = " & x33
	Scrivi 34 & " = " & x34
	Scrivi 35 & " = " & x35
	Scrivi 36 & " = " & x36
	Scrivi 37 & " = " & x37
	Scrivi 38 & " = " & x38
	Scrivi 39 & " = " & x39
	Scrivi 40 & " = " & x40
	Scrivi 41 & " = " & x41
	Scrivi 42 & " = " & x42
	Scrivi 43 & " = " & x43
	Scrivi 44 & " = " & x44
	Scrivi 45 & " = " & x45
	Scrivi 46 & " = " & x46
	Scrivi 47 & " = " & x47
	Scrivi 48 & " = " & x48
	Scrivi 49 & " = " & x49
	Scrivi 50 & " = " & x50
	Scrivi 51 & " = " & x51
	Scrivi 52 & " = " & x52
	Scrivi 53 & " = " & x53
	Scrivi 54 & " = " & x54
	Scrivi 55 & " = " & x55
	Scrivi 56 & " = " & x56
	Scrivi 57 & " = " & x57
	Scrivi 58 & " = " & x58
	Scrivi 59 & " = " & x59
	Scrivi 60 & " = " & x60
	Scrivi 61 & " = " & x61
	Scrivi 62 & " = " & x62
	Scrivi 63 & " = " & x63
	Scrivi 64 & " = " & x64
	Scrivi 65 & " = " & x65
	Scrivi 66 & " = " & x66
	Scrivi 67 & " = " & x67
	Scrivi 68 & " = " & x68
	Scrivi 69 & " = " & x69
	Scrivi 70 & " = " & x70
	Scrivi 71 & " = " & x71
	Scrivi 72 & " = " & x72
	Scrivi 73 & " = " & x73
	Scrivi 74 & " = " & x74
	Scrivi 75 & " = " & x75
	Scrivi 76 & " = " & x76
	Scrivi 77 & " = " & x77
	Scrivi 78 & " = " & x78
	Scrivi 79 & " = " & x79
	Scrivi 80 & " = " & x80
	Scrivi 81 & " = " & x81
	Scrivi 82 & " = " & x82
	Scrivi 83 & " = " & x83
	Scrivi 84 & " = " & x84
	Scrivi 85 & " = " & x85
	Scrivi 86 & " = " & x86
	Scrivi 87 & " = " & x87
	Scrivi 88 & " = " & x88
	Scrivi 89 & " = " & x89
	Scrivi 90 & " = " & x90
	'ScriviResoconto
End Sub

P.s si potrebbe fare tutta la scrittura con un ciclo for ma per adesso almeno io non riesco ( ci posso provare + in là )
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto