x Joe o altro esperto in listati se potete

solare · 6 Dicembre 2014

Questo listato che ho trovato in rete da la possibilità di inserire due capigioco e altri numeri in abbinamento ed effettua lo sviluppo e la ricerca.
Quello che trovo più importante è che si possono inserire quanti numeri che si vogliono ed avere l'attuale rit e la frequenza del numero relativo alla ruota indicata.
Quello che chiedo io è : si può fare in modo che il risultato delle frequenze sia relativo alle ultime 9 estrazioni mentre il ritardo sia quello effettivo ?
Grazie
Sub Main
Dim n2,anum(2),comb(90),anum2(90),acol,Classe,i
Dim ruote(1),ruoteselezionate
qt = InputBox("QUANTE ESTRAZIONI ANALIZZO",,9)
sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,1))
aaa = InputBox(" 1° CapoGioco ",,90)
bbb = InputBox(" 2° Capogioco ",,89)
cl = 2
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 ambi 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 ambi 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 ***** & **** Serpico 90 ****** ",1,1,3,1,3
End Sub

Mike58 · 6 Dicembre 2014

Ciao Solare visto che l'autore dello script sono io, è più facile aggiungere la frequenza delle ultime estrazioni volute.

Poi io raccomando sempre di mettere lo script fra gli appositi code " # " in modo da non sformattare i codici e renderlo non funzionante per gli utenti meno esperti in quanto i codici si staccano e non tutti sono capaci di capire che l'errore è dovuto a questo.

ad ogni modo vedi se così va bene.

Codice:

Sub Main
	Dim n2,anum(2),comb(90),anum2(90),acol,Classe,i
	Dim ruote(1),ruoteselezionate
	qt = InputBox("QUANTE ESTRAZIONI TOTALI ANALIZZO",,100)
	ult = CInt(InputBox("QUANTE ESTRAZIONI ULTIME ANALIZZO FREQ ",,9))
	sorte = CInt(InputBox("QUALE SORTE VERIFICO LA COMBINAZIONE",,1))
	aaa = InputBox(" 1° CapoGioco ",,90)
	bbb = InputBox(" 2° Capogioco ",,89)
	cl = 2
	ReDim atitoli(11)
	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) = " Freq ult : " & ult
	atitoli(9) = " Esito ultimo "
	atitoli(10) = " Tipo esito "
	atitoli(11) = " 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)
		fre3 = SerieFreq(fin - ult,fin,comb,aRuote,sorte)
		fre4 = SerieFreq(fin - ult,fin,anum,aRuote,1)
		ReDim avalori(11)
		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) = fre4
		avalori(9) = retestratti
		avalori(10) = retesito
		avalori(11) = 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(9)
	aTT(1) = " Combinazione "
	aTT(2) = " Ritardo "
	aTT(3) = " Storico "
	aTT(4) = " incr "
	aTT(5) = " Freq "
	aTT(6) = " Freq ult : " & ult
	aTT(7) = " I.C."
	aTT(8) = " Esito ultimo "
	aTT(9) = " Data "
	Call InitTabella(aTT,2,,3,5)
	ReDim aVV(9)
	aVV(1) = StringaNumeri(comb)
	aVV(2) = rit2
	aVV(3) = max2
	aVV(4) = Incr2
	aVV(5) = freq2
	aVV(6) = fre3
	aVV(7) = Round(freq2/df*rit2,2)
	aVV(8) = estratti2
	aVV(9) = 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 ambi 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,aRuo te,cl)
			'isofre = SerieFreq(EstrazioneIni,EstrazioneFin,acol,aRuote, cl)
			'isosto = SerieStorico(EstrazioneIni,EstrazioneFin,acol,aRuo te,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 ambi 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 ***** & **** Solare ****** ",1,1,3,1,3
End Sub

solare · 6 Dicembre 2014

Grazie mike58, perfetto....

Cerca

Cerca

x Joe o altro esperto in listati se potete

solare

Advanced Member >PLATINUM<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM<

Ultima estrazione Lotto

Ultimi Messaggi