Sommadi Decina.

[giorgioantonio]

Salve,

sposto l'argomento da sistemistica:

Salve a tutti
Cerco un esperto in SCRIPT perchè scriva il programma sotto illustrato
spero mi possiate accontentare.
La richiesta in se, penso non sia di grande difficoltà, almeno spero:
la richiesta:
Su ruota a scelta considerare la combinazione di una decina
qualsiasi (1-9; 10-19;20-29;30-39;40-49;50-59;60-69;70-79;80-89)
come si vede il 90 non figura e la prima decina è mancante di un numero,
quindi novina)
come dicevo su ruota trovare la sola combinazione di una decina qualsiasi
e una sola (se c'è un terno scartare la ricerca, se c'è una doppia decina scartare la ricerca)
e farne la somma; se la somma supera 90 detrarre dalla somma della decina 90;
dei tre numeri restanti della estrazione considerare la loro cifra singolarmente
la somma per contro ha il suo vertibile, se il numero trovato non ha il vertibile scartare la ricerca
riporto un esempio di una estrazione:
8/1/2015 Ge: 61-86-11-80-53
somma 86+80=166-90=76 il suo vertibile è 67
61 = cifra 7; 11= cifra 2; 53 = cifra 8;
giocata: 76-67-(abbinare i numeri + frequenti al 76 e 67) delle cifre trovate singolarmente
della estrazione dove si è trovata la somma della decina.
Se qualcuno può aiutarmi in questo progetto
lo ringrazio anticipatamente.
Aspetto per chiarimenti salvo chiarimenti.

P.S. forse come argomento per me che ignoro la programmazione mi sembrava semplice ma
evidentemente non è così.
Se a questo progetto si può rimediare con un'altra alternativa.
Cioè-è complicato trovare le sole somme di ogni decina e detrarre 90 se la somma supera 90 e
ottenere solo questo risultato e indicare a fianco ai 2 numeri(somma dec+vert) i 3 numeri restante l'estrazione?
A parte si potrebbe scrivere un altro progetto dove si indica manualmente la coppia di 2 numeri e cercare 10 numeri più frequenti
abbinati ai 2.
I numeri sarebbero da inserirli manualmente 2 +10 numeri.
Conto per ora almeno sul primo progetto.
Ringrazio chi mi può aiutare.
Saluti

 

[Mike58]

Ciao Giorgioantonio, ecco la prima parte di script che trova il solo ambo in decina e mette in gioco la sua somma ed il suo vertibile (verifica di prova).
Non Ti ho messo le figure dei restanti perché non saprei che uso farne ( ma se mi dai indicazioni valide, si può vedere cosa farne).

La tua ricerca dei frequenti non la trovo valida in quanto dato un ambo in decina e dal quale passerà un bel po' di tempo per la sua ricomparsa i suoi frequenti non sarebbero attendibili.
se sbaglio fammi capire dove.

Intanto comincia da questo script, poi possiamo vedere dove può portare.

Sub Main
	Dim nu(2),ru(1),aa(5),nn(2)
	Ini = EstrazioneFin - 10
	fin = EstrazioneFin
	Scrivi String(130,"="),1
	
	Scrivi Space(4) & "Info estrazione" & Space(11) & "Ruota" & Space(8) & "Estratti" & Space(5) & "Ambo" & Space(4) & "Restanti",1,0
	Scrivi Space(4) & "Numeri in gioco" & Space(5) & "Esiti" & Space(8) & "colpi",1
	Scrivi String(130,"="),1
	For es = Ini To fin
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Decina(a) = Decina(b) Then
						nu(1) = a
						nu(2) = b
						ru(1) = r1
						For x = 1 To 5
							aa(x) = Estratto(es,r1,x)
							If aa(x) = nu(1) Or aa(x) = nu(2) Then aa(x) = 0
						Next
						If Decina(aa(1)) <> Decina(nu(1)) And Decina(nu(2)) Then
						If Decina(aa(2)) <> Decina(nu(1)) And Decina(nu(2)) Then
						If Decina(aa(3)) <> Decina(nu(1)) And Decina(nu(2)) Then
						If Decina(aa(4)) <> Decina(nu(1)) And Decina(nu(2)) Then
						If Decina(aa(5)) <> Decina(nu(1)) And Decina(nu(2)) Then
						k = k + 1
						nn(1) = Fuori90(nu(1) + nu(2))
						nn(2) = Vert(nn(1))
						Call VerificaEsito(nn,ru,es + 1,1,10,,esito,clp,estratti,id)
						Scrivi GetInfoEstrazione(es) & vbTab,0,0
						Scrivi SiglaRuota(r1) & vbTab & StringaEstratti(es,r1) & vbTab & StringaNumeri(nu,,1) & vbTab & StringaNumeri(aa,,1),0,0
						Scrivi vbTab & StringaNumeri(nn,,1),1,0,,1,2
						If esito <> "" Then
						Scrivi vbTab & estratti & vbTab & clp
						Else 						
						Scrivi "   ........................" & clp
						End If
						End If
						End If
						End If
						End If
						End If
					End If
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi "Casi Trovati..........." & k,1
	Scrivi
	Scrivi " **** Script By Mike58 ***** Ricerca by GiorgioAntonio ***** Forum LottoCed ***** ",1,1,,1,2,,1
End Sub

 

[giorgioantonio]

Bene benissimo dei 3 numeri restanti, fuori dalla decina indicare a fianco i numeri così come sono
altrimenti indicali in figura;
poi un pò di disturbo, per quanto riguarda i numeri ricavati utilizzare solo quello che presentano
i veri vertibili, Cioè se ho 12 il suo vertibile = 21; mentre se ho 29 si dice che il vertibile è 22
sono da escludere per il semplice fatto che si presentano troppi eventi e come si dice troppa carne sul fuoco..
Considerare solo i numeri ricavati che presentano il suo vertibile naturale cioè i 28.
Ciao

 

[giorgioantonio]

Rispondo un pò più pacatamente, visto il listato diciamo che mi sono un pò ubriacato,
rispondo ad inizio tuo messaggio, visti sotto l'aspetto ambata e in più con 2 numeri
non ci può essere convenienza. Dopo occorre impegnare le 2 ambate con alcuni
numeri delle figure indicate, alla ricerca degli ambi, che alcune volte si presentano
in terni e della stessa figura e della combinazione delle altre figure.
E' questo l'obiettivo finale.
Un appunto sui vertibili vale la somma finale cioè gli ultimi 2 numeri ottenuti
ad esempio se abbiamo 69 numero finale oppure 11 oppure 10 oppure 5 queste ipotesi
non rientrerebbe negli eventi di attesa.
Ciao

 

[Mike58]

Ciao Giorgiantonio, ho fatto delle ulteriori modifiche almeno nella ricerca della condizione per limitare i casi trovati rd ho riportato il tutto in tabella.
Poi ho messo una sorte di abbinamenti con ambi simmetrici della somma e vertibile per sorte minima di ambo, con aggiunta di una sorte di resoconto Giocate.

Gli ambi se vuoi puoi modificarli nel vettore tu o chi volesse a piacimento, il corpo script si presta a chi volesse fare modifiche.

Ciao

Sub Main
	Dim nu(2),ru(1),aa(5),nn(2),fig(5),aN(6)
	qt = CInt(InputBox("QUANTE ESTRAZIONI VERIFICO",,20))
	Ini = EstrazioneFin - qt
	Fin = EstrazioneFin
	'Scrivi String(130,"="),1
	'Scrivi Space(4) & "Info estrazione" & Space(11) & "Ruota" & Space(8) & "Estratti" & Space(5) & "Ambo" & Space(4) & "Restanti",1,0
	'Scrivi Space(4) & "Figure" & Space(3) & "Numeri In gioco" & Space(5) & "Esiti" & Space(8) & "colpi",1
	'Scrivi String(130,"="),1
	ReDim T(15)
	T(1) = " Info Estrazione "
	T(2) = " Ruota "
	T(3) = " Estratti "
	T(4) = " Ambo Decina "
	T(5) = " Restanti "
	T(6) = " Figure Rimasti "
	T(7) = " Numeri Somma "
	T(8) = " Esiti Ab "
	T(9) = " Colpi Ab "
	T(10) = " Abb.Ambi "
	T(11) = " Esiti Ambi "
	T(12) = " Colpi Ambi "
	T(13) = " Spesa "
	T(14) = " Vincita "
	T(15) = " Guadagno "
	Call InitTabella(T,2,,2,5)
	For es = Ini To fin
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Decina(a) = Decina(b) Then
						nu(1) = a
						nu(2) = b
						ru(1) = r1
						For x = 1 To 5
							aa(x) = Estratto(es,r1,x)
							fig(x) = Figura(Estratto(es,r1,x))
							If aa(x) = nu(1) Or aa(x) = nu(2) Then aa(x) = 0
							If aa(x) = 0 Then fig(x) = 0
						Next
						If Decina(aa(1)) <> Decina(nu(1)) And Decina(nu(2)) Then
							If Decina(aa(2)) <> Decina(nu(1)) And Decina(nu(2)) Then
								If Decina(aa(3)) <> Decina(nu(1)) And Decina(nu(2)) Then
									If Decina(aa(4)) <> Decina(nu(1)) And Decina(nu(2)) Then
										If Decina(aa(5)) <> Decina(nu(1)) And Decina(nu(2)) Then
											nn(1) = Fuori90(nu(1) + nu(2))
											nn(2) = Vert(nn(1))
											aN(1) = nn(1)
											aN(2) = nn(2)
											aN(3) = Fuori90(aN(1) + 30)
											aN(4) = Fuori90(aN(2) + 30)
											aN(5) = Fuori90(aN(1) + 60)
											aN(6) = Fuori90(aN(2) + 60)
											If Cadenza(nn(1)) <> 9 And Cadenza(nn(2)) <> 9 Then
												k = k + 1
												Call VerificaEsito(nn,ru,es + 1,1,10,,esito,clp,estratti,id)
												Call VerificaEsitoTurbo(aN,ru,es + 1,2,10,,esitoA,clpA,estrattiA,idA)
												If esito <> "" Then kk = kk + 1
												If esitoA <> "" Then ka = ka + 1
												ReDim posta(1)
												ReDim postaA(2)
												postaA(2) = 1
												posta(1) = 1
												Call ImpostaGiocata(1,nn,ru,posta,10,1)
												Call ImpostaGiocata(2,aN,ru,postaA,10,2)
												Call Gioca(es,1,,,,False)
												ReDim V(15)
												V(1) = GetInfoEstrazione(es)
												V(2) = SiglaRuota(r1)
												V(3) = StringaEstratti(es,r1)
												V(4) = StringaNumeri(nu,,1)
												V(5) = StringaNumeri(aa,,1)
												V(6) = StringaNumeri(fig)
												V(7) = StringaNumeri(nn,,1)
												V(8) = estratti
												V(9) = clp
												V(10) = StringaNumeri(aN,,1)
												V(11) = estrattiA
												V(12) = clpA
												V(13) = Round(GetSpesa(False),2)
												V(14) = Round(GetVincita(False),2)
												V(15) = Round(GetGuadagno(False),2)
												Call AddRigaTabella(V,,,2)
											End If
										End If
									End If
								End If
							End If
						End If
					End If
				Next
			Next
		Next
	Next
Call AddRigaTabella(T,RGB(195,195,195),,2,5)


	Call SetTableWidth("100%")
	CreaTabella
	Scrivi
	Scrivi "Casi Trovati..........." & k,1
	Scrivi "Esiti Ambate..........." & kk,1
	Scrivi "Esiti Ambi............." & ka,1
	Scrivi
	Scrivi " **** Script By Mike58 ***** Ricerca by GiorgioAntonio ***** Forum LottoCed ***** ",1,1,,1,2,,1
End Sub

 

[giorgioantonio]

Salve Mike58,
Mike, semplicemente vorrei che il programma trovi:
1)la somma di una decina ed il suo vertibile naturale indica a fianco le figure dei numeri fuori
La somma calcolata;
2)escluda dagli eventi:
a)nella estrazione se ci sono 2 decine;
b)il numero ottenuto dalla somma decina è:
-numeretto;
-cadenza zero;
-cadenza nove;
-gemello.
Fine del primo programma.
Il secondo programma:
fare la ricerca su 2 numeri fissi + 1 numero della figura (quindi 10 terni)
la ricerca sarà quando trova uno o due dei 2 fissi quale frequenza triva
dopo 10 (da stabilire) estrazioni;
Se l’inserimento dei numeri (figure) può essere fatto indicando il numero
Iniziale la figura (come per le ruote: 1=Ba; 2=Ca ecc) e se la ricerca può
Essere fatta contemporaneamente su le 3 figure da indicare.
Visto così i due programmi non dicono niente singolarmente…
Ti assicuro che producono terni e qualche volta raramente quaterne.
Tutto qua.
Saluti

 

[Mike58]

Mike, semplicemente vorrei che il programma trovi:
1)la somma di una decina ed il suo vertibile naturale indica a fianco le figure dei numeri fuori
La somma calcolata;
2)escluda dagli eventi:
a)nella estrazione se ci sono 2 decine;
b)il numero ottenuto dalla somma decina è:
-numeretto;
-cadenza zero;
-cadenza nove;
-gemello.

La ricerca delle condizione mi sembra corretta

Il secondo programma:
fare la ricerca su 2 numeri fissi + 1 numero della figura (quindi 10 terni)
la ricerca sarà quando trova uno o due dei 2 fissi quale frequenza triva
dopo 10 (da stabilire) estrazioni;
Se l’inserimento dei numeri (figure) può essere fatto indicando il numero
Iniziale la figura (come per le ruote: 1=Ba; 2=Ca ecc) e se la ricerca può
Essere fatta contemporaneamente su le 3 figure da indicare.
Visto così i due programmi non dicono niente singolarmente…
Ti assicuro che producono terni e qualche volta raramente quaterne.
Tutto qua.
Saluti

su questa 2° parte almeno per ora mi risulta di difficile attuazione

ti riposto lo script incompleto ma completo nella ricerca (almeno puoi fare le verifiche manuali)

Sub Main
	Dim nu(2),ru(1),aa(5),nn(2),fig(5),aN(6)
	qt = CInt(InputBox("QUANTE ESTRAZIONI VERIFICO",,20))
	Ini = EstrazioneFin - qt
	Fin = EstrazioneFin
	'Scrivi String(130,"="),1
	'Scrivi Space(4) & "Info estrazione" & Space(11) & "Ruota" & Space(8) & "Estratti" & Space(5) & "Ambo" & Space(4) & "Restanti",1,0
	'Scrivi Space(4) & "Figure" & Space(3) & "Numeri In gioco" & Space(5) & "Esiti" & Space(8) & "colpi",1
	'Scrivi String(130,"="),1
	ReDim T(15)
	T(1) = " Info Estrazione "
	T(2) = " Ruota "
	T(3) = " Estratti "
	T(4) = " Ambo Decina "
	T(5) = " Restanti "
	T(6) = " Figure Rimasti "
	T(7) = " Numeri Sm & Vert "
	T(8) = " Esiti Ab "
	T(9) = " Colpi Ab "
	T(10) = " Abb.Ambi "
	T(11) = " Esiti Ambi "
	T(12) = " Colpi Ambi "
	T(13) = " Spesa "
	T(14) = " Vincita "
	T(15) = " Guadagno "
	Call InitTabella(T,2,,2,5)
	For es = Ini To fin
		For r1 = 1 To 10
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Decina(a) = Decina(b) Then
						nu(1) = a
						nu(2) = b
						ru(1) = r1
						For x = 1 To 5
							aa(x) = Estratto(es,r1,x)
							fig(x) = Figura(Estratto(es,r1,x))
							If aa(x) = nu(1) Or aa(x) = nu(2) Then aa(x) = 0
							If aa(x) = 0 Then fig(x) = 0
						Next
						If Decina(aa(1)) <> Decina(nu(1)) And Decina(nu(2)) Then
							If Decina(aa(2)) <> Decina(nu(1)) And Decina(nu(2)) Then
								If Decina(aa(3)) <> Decina(nu(1)) And Decina(nu(2)) Then
									If Decina(aa(4)) <> Decina(nu(1)) And Decina(nu(2)) Then
										If Decina(aa(5)) <> Decina(nu(1)) And Decina(nu(2)) Then
											nn(1) = Fuori90(nu(1) + nu(2))
											nn(2) = Vert(nn(1))
											aN(1) = nn(1)
											aN(2) = nn(2)
											aN(3) = Fuori90(aN(1) + 30)
											aN(4) = Fuori90(aN(2) + 30)
											aN(5) = Fuori90(aN(1) + 60)
											aN(6) = Fuori90(aN(2) + 60)
											If Cadenza(nn(1)) <> 9 Then
											If Cadenza(nn(1)) <> 0 Then
											If Decina(nn(1)) <> 0 Then 											
											If Gemello(nn(1)) = False Then
												k = k + 1
												Call VerificaEsito(nn,ru,es + 1,1,10,,esito,clp,estratti,id)
												Call VerificaEsitoTurbo(aN,ru,es + 1,2,10,,esitoA,clpA,estrattiA,idA)
												If esito <> "" Then kk = kk + 1
												If esitoA <> "" Then ka = ka + 1
												ReDim posta(1)
												ReDim postaA(2)
												postaA(2) = 1
												posta(1) = 1
												Call ImpostaGiocata(1,nn,ru,posta,10,1)
												Call ImpostaGiocata(2,aN,ru,postaA,10,2)
												Call Gioca(es,1,,,,False)
												ReDim V(15)
												V(1) = GetInfoEstrazione(es)
												V(2) = SiglaRuota(r1)
												V(3) = StringaEstratti(es,r1)
												V(4) = StringaNumeri(nu,,1)
												V(5) = StringaNumeri(aa,,1)
												V(6) = StringaNumeri(fig)
												V(7) = StringaNumeri(nn,,1)
												V(8) = estratti
												V(9) = clp
												V(10) = StringaNumeri(aN,,1)
												V(11) = estrattiA
												V(12) = clpA
												V(13) = Round(GetSpesa(False),2)
												V(14) = Round(GetVincita(False),2)
												V(15) = Round(GetGuadagno(False),2)
												Call AddRigaTabella(V,,,2)
											End If
											End If
											End If
											End If
											
										End If
									End If
								End If
							End If
						End If
					End If
				Next
			Next
		Next
	Next
	Call AddRigaTabella(T,RGB(195,195,195),,2,5)
	Call SetTableWidth("100%")
	CreaTabella
	Scrivi
	Scrivi "Casi Trovati..........." & k,1
	Scrivi "Esiti Ambate..........." & kk,1
	Scrivi "Esiti Ambi............." & ka,1
	Scrivi
	Scrivi " **** Script By Mike58 ***** Ricerca by GiorgioAntonio ***** Forum LottoCed ***** ",1,1,,1,2,,1
End Sub

per il resto non ci arrivo e non ho tempo.

 

[giorgioantonio]

Ciao Mike58,

oltre ad essere bravo sei anche modesto,
per me tutto quello che fai è sempre di più di quanto so fare io, cioè io niente.
Cortesemente se mi puoi segnalare come eliminare dagli eventi quando ci sono
doppie somme o meglio 2 decine, poi non capisco da dove prendi gli abbinamenti ma se
la stessa colonna puoi eliminarla, poi graggruppamento per ruote, cortesemente.
Quanto sopra è meglio che mi riposti il listato sono sicuro di combinare casini.
Per quando riguarda la seconda parte cioè il programma 2 se è per questione di tempo
non ti chiedo di perdere il sonno per me, mentre non credo non sappia cosa fare.
Non faccio solleciti, aspetto...
Grazie dell'interessamento e per me 666.sempre grande.
Ciao

 

[Mike58]

Ciao Giorgioantonio,intanto ti ringrazio per gli apprezzamenti, poi io di script ho voluto imparare da questo forum e grazie al LuigiB e ha tutte le mie energie qualcosa sono riuscito a mettere insieme.
Ma credimi tutte le condizioni che vengono di volta in volta richieste non sono facili da interpretare.

1) la doppia decina quanto si presenta nell'estrazione non è in questo caso presa in esame ( o almeno credo ( se <> segnalala )) come anche il terno in decina ( come da te richiesto)
2) gli abbinamenti altri non sono che i simmetrici della somma decina e del suo vertibile ( li ho messi per far si che entrando nel codice ognuno poteva immettere quello che voleva)
3) ordinamento per ruota si si può fare

4) credimi (questa settimana lavoro Notturno) la mente lavora meglio di sera e purtroppo sono al lavoro.

Se ci sono degli errori segnalali e vedrò cosa posso fare.
P.s. ho dovuto levare anche le spesa in quanto non venivano raggruppate per ruota.

Sub Main
	Dim nu(2),ru(1),aa(5),nn(2),fig(5),aN(6)
	qt = CInt(InputBox("QUANTE ESTRAZIONI VERIFICO",,20))
	Ini = EstrazioneFin - qt
	Fin = EstrazioneFin
	'Scrivi String(130,"="),1
	'Scrivi Space(4) & "Info estrazione" & Space(11) & "Ruota" & Space(8) & "Estratti" & Space(5) & "Ambo" & Space(4) & "Restanti",1,0
	'Scrivi Space(4) & "Figure" & Space(3) & "Numeri In gioco" & Space(5) & "Esiti" & Space(8) & "colpi",1
	'Scrivi String(130,"="),1
	For r1 = 1 To 10
	ReDim T(9)
	T(1) = " Info Estrazione "
	T(2) = " Ruota "
	T(3) = " Estratti "
	T(4) = " Ambo Decina "
	T(5) = " Restanti "
	T(6) = " Figure Rimasti "
	T(7) = " Numeri Sm & Vert "
	T(8) = " Esiti Ab "
	T(9) = " Colpi Ab "
	'T(10) = " Abb.Ambi "
	'T(11) = " Esiti Ambi "
	'T(12) = " Colpi Ambi "
	'T(13) = " Spesa "
	'T(14) = " Vincita "
	'T(15) = " Guadagno "
	Call InitTabella(T,2,,2,5)
	For es = Ini To fin
		
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					a = Estratto(es,r1,p1)
					b = Estratto(es,r1,p2)
					If Decina(a) = Decina(b) Then
						nu(1) = a
						nu(2) = b
						ru(1) = r1
						For x = 1 To 5
							aa(x) = Estratto(es,r1,x)
							fig(x) = Figura(Estratto(es,r1,x))
							If aa(x) = nu(1) Or aa(x) = nu(2) Then aa(x) = 0
							If aa(x) = 0 Then fig(x) = 0
							
						Next
						If Decina(aa(1)) <> Decina(nu(1)) And Decina(nu(2)) Then
							If Decina(aa(2)) <> Decina(nu(1)) And Decina(nu(2)) Then
								If Decina(aa(3)) <> Decina(nu(1)) And Decina(nu(2)) Then
									If Decina(aa(4)) <> Decina(nu(1)) And Decina(nu(2)) Then
										If Decina(aa(5)) <> Decina(nu(1)) And Decina(nu(2)) Then
											nn(1) = Fuori90(nu(1) + nu(2))
											nn(2) = Vert(nn(1))
											aN(1) = nn(1)
											aN(2) = nn(2)
											aN(3) = Fuori90(aN(1) + 30)
											aN(4) = Fuori90(aN(2) + 30)
											aN(5) = Fuori90(aN(1) + 60)
											aN(6) = Fuori90(aN(2) + 60)
											If Cadenza(nn(1)) <> 9 Then
											If Cadenza(nn(1)) <> 0 Then
											If Decina(nn(1)) <> 0 Then 											
											If Gemello(nn(1)) = False Then
												k = k + 1
												Call VerificaEsito(nn,ru,es + 1,1,10,,esito,clp,estratti,id)
												'Call VerificaEsitoTurbo(aN,ru,es + 1,2,10,,esitoA,clpA,estrattiA,idA)
												If esito <> "" Then kk = kk + 1
												'If esitoA <> "" Then ka = ka + 1
												ReDim posta(1)
												ReDim postaA(2)
												postaA(2) = 1
												posta(1) = 1
												Call ImpostaGiocata(1,nn,ru,posta,10,1)
												Call ImpostaGiocata(2,aN,ru,postaA,10,2)
												Call Gioca(es,1,,,,False)
												ReDim V(9)
												V(1) = GetInfoEstrazione(es)
												V(2) = SiglaRuota(r1)
												V(3) = StringaEstratti(es,r1)
												V(4) = StringaNumeri(nu,,1)
												V(5) = StringaNumeri(aa,,1)
												V(6) = StringaNumeri(fig)
												V(7) = StringaNumeri(nn,,1)
												V(8) = estratti
												V(9) = clp
												'V(10) = StringaNumeri(aN,,1)
												'V(11) = estrattiA
												'V(12) = clpA
												'V(13) = Round(GetSpesa(False),2)
												'V(14) = Round(GetVincita(False),2)
												'V(15) = Round(GetGuadagno(False),2)
												Call AddRigaTabella(V,,,2)
											End If
											End If
											End If
											End If
											
										End If
									End If
								End If
							End If
						End If
					End If
				Next
			Next
		Next
	Call AddRigaTabella(T,RGB(195,195,195),,2,5)
	Call SetTableWidth("100%")
	CreaTabella
	
	Next
	Scrivi
	Scrivi "Casi Trovati..........." & k,1
	Scrivi "Esiti Ambate..........." & kk,1
	'Scrivi "Esiti Ambi............." & ka,1
	
	Scrivi
	Scrivi " **** Script By Mike58 ***** Ricerca by GiorgioAntonio ***** Forum LottoCed ***** ",1,1,,1,2,,1
End Sub

 

[giorgioantonio]

Ciao Mike58,

ora che ho lanciato il nuovo listato ti assicuro che sembra più bello e più
programma. Pur essendoci le doppie decine non te le segnalo.
Non voglio perdi tempo e poi uno studio sopra quelle doppie decine
ce lo faccio.
Ti saluto e rinnovo 666.grande

 

[giorgioantonio]

Ciao Mi58 e buona giornata,
avrai letto,ma Blackmore mi ha completato la seconda parte del programma.
Quindi 1^parte=Mike58; 2^parte=Blackmore= tutto risolto.
Ancora un saluto con 666 siete GRANDI.

 

[Mike58]

Si ho visto quello di Black, ed anch'io avevo capito tutta altra cosa.
Infatti pensavo volessi i + frequenti dopo una condizione con pochi casi e questo mi sembrava riduttivo e poco efficace.

Però, senza nulla togliere al lavoro dell'amico Black, avevo già postato e listato uno script del genere, dagli un occhio.

Sub Main
	Dim n2,anum(2),comb(90),anum2(90),acol,Classe,i
	Dim ruote(1),ruoteselezionate
	qt = InputBox("QUANTE ESTRAZIONI ANALIZZO",,600)
	sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,2))
	aaa = InputBox(" 1° CapoGioco ",,90)
	bbb = InputBox(" 2° Capogioco ",,89)
	cl = CInt(InputBox("Quale Classe di sviluppo Combinazioni",,sorte))
	ReDim atitoli(10)
	atitoli(1) = " I.C. "
	atitoli(2) = " CapoG "
	atitoli(3) = " Numero "
	atitoli(4) = " Ritardo "
	atitoli(5) = " Rit Max "
	atitoli(6) = " incr Max "
	atitoli(7) = " frequenza "
	atitoli(8) = "  Esito ultimo "
	atitoli(9) = " Tipo esito "
	atitoli(10) = " Data esito "
	Call InitTabella(atitoli,1,,3,5)
	Ini = EstrazioneFin - qt
	fin = EstrazioneFin
	df = fin - Ini
	ReDim aRuote(12)
	ruoteselezionate = ScegliRuote(aRuote)
	Call Scrivi("Ruote di " & "  ",True,False,0,5,3)
	For kk = 1 To ruoteselezionate
		Call Scrivi(SiglaRuota(aRuote(kk)) & " ",True,False,4,2,3)' & " - " & SiglaRuota(aRuoteSel(k)))
	Next
	Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " --> Totali estraz. " & df,1,- 1,3
	Scrivi
	'Messaggio "elaboro... ruota di  " & NomeRuota(aRuote)
	Call AvanzamentoElab(1,10,100)
	Call ScegliNumeri(n2)
	For k = 1 To UBound(n2)
		anum(1) = n2(k)
		comb(k) = n2(k)
		Call StatisticaFormazione(anum,aRuote,1,rit,ritmax,Incrmax,freq,Ini,fin)
		Call VerificaEsito(anum,aRuote,fin - rit,1,,,retesito,,retestratti,retidestr)
		Call StatisticaFormazione(comb,aRuote,sorte,rit2,max2,Incr2,freq2,Ini,fin)
		Call VerificaEsito(comb,aRuote,fin - rit2,sorte,,,esito2,colpi2,estratti2,id2)
		ReDim avalori(10)
		avalori(1) = Round(freq/df*rit,2)
		If anum(1) = CInt(aaa) Then avalori(2) = aaa
		If anum(1) = CInt(bbb) Then avalori(2) = bbb
		avalori(3) = StringaNumeri(anum)
		avalori(4) = rit
		avalori(5) = ritmax
		avalori(6) = Incrmax
		avalori(7) = freq
		avalori(8) = retestratti
		avalori(9) = retesito
		avalori(10) = DataEstrazione(retidestr)
		Call AddRigaTabella(avalori,,,3)
		Call SetColoreCella(1,3,1)
		Call SetColoreCella(4,vbMagenta)
		Call SetColoreCella(3,,1)
		Call SetColoreCella(8,,7)
		Call SetColoreCella(7,vbGreen)
		If rit = 0 Then Call SetColoreCella(10,vbYellow)
	Next
	Call SetTableWidth("100%")
	Call CreaTabella(7,,,90)
	Scrivi "Combinazione Globale analizzata per " & NomeSorte(sorte),1
	ReDim aTT(8)
	aTT(1) = " Combinazione "
	aTT(2) = " Ritardo "
	aTT(3) = " Storico "
	aTT(4) = " incr "
	aTT(5) = " Freq "
	aTT(6) = " I.C."
	aTT(7) = " Esito ultimo "
	aTT(8) = " Data "
	Call InitTabella(aTT,2,,3,5)
	ReDim aVV(8)
	aVV(1) = StringaNumeri(comb)
	aVV(2) = rit2
	aVV(3) = max2
	aVV(4) = Incr2
	aVV(5) = freq2
	aVV(6) = Round(freq2/df*rit2,2)
	aVV(7) = estratti2
	aVV(8) = DataEstrazione(id2)
	Call AddRigaTabella(aVV,,,3)
	CreaTabella()
	ReDim T3(9)
	For kkk = 1 To ruoteselezionate
		Call Scrivi(SiglaRuota(aRuote(kkk)) & " ",True,False,4,2,3)
		ab = UBound(aRuote)
	Next
	Call Scrivi(" Combinazione " & StringaNumeri(comb),True,False,3,1,3)
	Scrivi
	Scrivi "Dettaglio esiti Combinazione",1
	T3(1) = " Caso "
	T3(2) = " Data "
	'T3(3) = " Estrazione "
	T3(4) = " Esito "
	T3(5) = " Estratti "
	T3(6) = " data estratti "
	T3(7) = " guadagno "
	T3(8) = " 1° CapoG. "
	T3(9) = " 2° CapoG. "
	Call InitTabella(T3,1,,2,5)
	For es = fin To Ini Step - 1
		Call VerificaEsitoConGuadagno(comb,aRuote,es,sorte,1,,esito3,colpi3,estratti3,id3,,guad)
		If esito3 <> "" Then
			co = co + 1
			ReDim V3(9)
			V3(1) = co
			V3(2) = DataEstrazione(id3)
			'V3(3) = StringaEstratti(es,aRuote)
			V3(4) = esito3
			V3(5) = estratti3
			V3(6) = DataEstrazione(id3)
			V3(7) = Round(guad,2)
			For kr = 1 To ruoteselezionate
				If EstrattoFrequenza(aRuote(kr),aaa,id3,id3) > 0 Then V3(8) = aaa
				If EstrattoFrequenza(aRuote(kr),aaa,id3,id3) > 0 Then k1 = k1 + 1
				If EstrattoFrequenza(aRuote(kr),bbb,id3,id3) > 0 Then V3(9) = bbb
				If EstrattoFrequenza(aRuote(kr),bbb,id3,id3) > 0 Then k2 = k2 + 1
			Next
			Call AddRigaTabella(V3,,,2)
			gg = guad* co
		End If
	Next
	Call CreaTabella()
	Scrivi "Esiti con CapoGioco 1 : " & k1,1
	Scrivi "Esiti con CapoGioco 2 : " & k2,1
	'For es = Ini To fin
	Scrivi
	Scrivi String(100,"=")
	Scrivi "Sviluppo Combinazioni con CapoGioco " & aaa,1
	For x = 1 To UBound(n2)
		n2(0) = aaa
		n2(x) = n2(x)
	Next
	Classe = CInt(cl)
	ReDim atitoli(10)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " acol(1) "
	atitoli(8) = " data "
	atitoli(9) = " esito ultimo "
	'atitoli(10) = " Iso sto "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(n2,Classe) > 0 Then
		Do While GetCombSviluppo(acol) = True
			i = i + 1
			Call StatisticaFormazioneTurbo(acol,aRuote,sorte,sr,st,Incr,sf,Ini,Fin)
			Call VerificaEsito(acol,aRuote,fin - sr,sorte,,,,,estratti,id)
			'Isorit = SerieRitardo(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
			'isofre = SerieFreq(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
			'isosto = SerieStorico(EstrazioneIni,EstrazioneFin,acol,aRuote,cl)
			ReDim avalori(10)
			avalori(1) = i
			avalori(2) = StringaNumeri(acol,,1)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = acol(1)
			avalori(8) = DataEstrazione(fin - sr)
			avalori(9) = estratti
			'avalori(10) = Isosto
			If avalori(7) = CInt(aaa) Then
				Call AddRigaTabella(avalori,4,,3)
				'If avalori(7) = CInt(bbb) Then
				'Call AddRigaTabella(avalori,3,,3)
				'Else
				'Call AddRigaTabella(avalori,,,3)
			End If
			'End If
		Loop
	End If
	'Next
	Scrivi
	CreaTabella()
	Scrivi
	Scrivi String(100,"=")
	Scrivi "Sviluppo combinazioni con CapoGioco " & bbb,1
	For xx = 1 To UBound(n2)
		n2(0) = bbb
		n2(xx) = n2(xx)
	Next
	Classe = CInt(cl)
	ReDim atitoli(10)
	atitoli(1) = " Contatore "
	atitoli(2) = " Sviluppo comb. "
	atitoli(3) = " Ritardo "
	atitoli(4) = " Ritardo Max "
	atitoli(5) = " Frequenza "
	atitoli(6) = " Incrmax "
	atitoli(7) = " acol(1) "
	atitoli(8) = " data "
	atitoli(9) = " esito ultimo "
	'atitoli(10) = " Iso sto "
	Call InitTabella(atitoli,1,,3,5)
	If InitSviluppoIntegrale(n2,Classe) > 0 Then
		Do While GetCombSviluppo(acol) = True
			ii = ii + 1
			Call StatisticaFormazioneTurbo(acol,aRuote,sorte,sr,st,Incr,sf,Ini,Fin)
			Call VerificaEsito(acol,aRuote,fin - sr,sorte,,,,,estratti,id)
			ReDim avalori(10)
			avalori(1) = ii
			avalori(2) = StringaNumeri(acol,,1)
			avalori(3) = sr
			avalori(4) = st
			avalori(5) = sf
			avalori(6) = Incr
			avalori(7) = acol(1)
			avalori(8) = DataEstrazione(fin - sr)
			avalori(9) = estratti
			'avalori(10) = Isosto
			If avalori(7) = CInt(bbb) Then
				Call AddRigaTabella(avalori,4,,3)
				'If avalori(7) = CInt(bbb) Then
				'Call AddRigaTabella(avalori,3,,3)
				'Else
				'Call AddRigaTabella(avalori,,,3)
			End If
			'End If
		Loop
	End If
	'Next
	Scrivi
	CreaTabella()
	Scrivi"     Tabella by Mike58 ***** & **** $$$$$$$$$$$$$$$ ******  ",1,1,3,1,3
End Sub