Novità

Per Mike 58

S

Serpico 90

Advanced Member
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
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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
 
S

Serpico 90

Advanced Member
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
 
S

Serpico 90

Advanced Member
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:
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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
 
i legend

i legend

Premium Member
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
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto