Novità

Per Mike 58

S

Serpico 90

Advanced Member >GOLD<
Buon giorno,come va? .
Mike io desidero se possibile verificare su 10 numeri la possibilità di giocare qualche ambo se ci sono le condizioni e allora
sempre con la tua gentilezza ti chiedo cortesemente se potresti creare questo Script:
faccio un esempio estrazione n.93 ruota di Roma da mie elaborazioni ho questi numeri da giorcare 89-75-52-63-1-26-34-48-70-71------
Ruota scelta_____
Quante estrazioni controllo a ritroso?_______(per cercare i più frequenti tra 10 numeri)
N.+freq.______
N.+freq._______
N.+freq.______
N.+freq.______
N.+freq._______
N.+freq.______
N.+Freq._______
N.+freq.______
N.+freq.______
N.+Freq._______
Primo numero_____
Secondo numero_____
in output inserisco i restanti numeri e inizia la ricerca per eventuali ambi da giocare con i capi gioco.
In sostanza come dicevi tu 2 capigioco + abbinamenti scelti --valutazione sui più frequenti ed previsione di gioco.
Spero di essere stato chiaro
Saluti
Serpico
 
Ciao Serpico, con la scelta Numeri la giocata già c'è la hai, quindi non saprei dirti come come mettere la previsione in gioco.
Lo script in questione che ti propongo analizza :

su scelta globale numeri scelti

1 - la statistica dei numeri scelti
2 - la statistica globale x sorte anche su + ruote
3 - il dettaglio esiti
4 - evidenza esiti con CapoGioco.

P.s. nella scelta Numeri mettere anche i Capogiochi.

P.s. non perché l'ho fatto io, ma un signor script.

Codice: 
Sub Main
	Dim n2,anum(2),comb(90)
	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)
	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)
			If EstrattoFrequenza(aRuote(1),aaa,id3,id3) > 0 Then V3(8) = aaa
			If EstrattoFrequenza(aRuote(1),aaa,id3,id3) > 0 Then k1 = k1 + 1
			If EstrattoFrequenza(aRuote(1),bbb,id3,id3) > 0 Then V3(9) = bbb
			If EstrattoFrequenza(aRuote(1),bbb,id3,id3) > 0 Then k2 = k2 + 1
			Call AddRigaTabella(V3,,,2)
			gg = guad* co
		End If
	Next
	Scrivi
	CreaTabella()
	Scrivi "Esiti con CapoGioco 1 : " & k1,1
	Scrivi "Esiti con CapoGioco 2 : " & k2,1
	Scrivi"     Tabella by Mike58       ",1,- 1,6
End Sub
 
Grazie Mike,non avevo dubbi sulla tua preparazione,ora mi mettero a fare le prove per poter giocare qualche buona previsione.
mi rifaccio sentire al più presto..............
Saluti
Serpico
 
Ciao Mike, sto smanettando per capire al meglio questo SCRIPT e ti faccio veramente tanti complinmenti per quello che fai.
desidero farti alcune domande per colmare le mie lacune:
Nella videata del dettaglio esiti combinazioni potrei avere una graduatoria dei numeri che sono stati estratti con i Capogioco ,faccio un esempio:
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco __ il n.x____estratto x volte
con il capo gioco __ il n.x ____estratto ____x volte. con il capo gioco ___ il n.x____estratto x volte
questo mi servirebbe per vedere nel passato con quale numero i capigioco si sono abbinati più frequentemente.
Spero sia possibile in quanto per me completerebbe tutta una ricerca e poi giocare qualche coppia di ambo con il capo gioco.
Ringraziandoti sempre per la tua disponibilità ti invio cordiali saluti.

Serpico
 
Ultima modifica:
Ciao Serpico, ho fatto non senza fatica uno sviluppo delle combinazioni per classe di ambo in modo che puoi vedere i capoGiochi come si sono accoppiati con i vari dati statistici.

In altro modo sarebbe tutto un altro script.

Penso e ribadisco Super Script.

ciao

Codice: 
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 = 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
 
Buon giorno a tutti...................... Ciao Mike Complimenti per lo script mike. davvero un grande :-)........................... Un saluto anche a serpico. :-).................................. Cordiali saluti..................................... I Legend
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto