Novità

URGENTE PER mike58

Ciao Alien , ho letto +/- ma ho capito poco di tutto il succo.
magari se ci fossero esempi anche con una bozza di foglio Excel anche spartano potrebbe aiutare a capire.

Per ora mi spiace anche per l'adozione !!! sei cosi carino !!!

Ciao
 
vedi ho risposto questo ad oscar



il 79 ha 44 presenze se prendiamo i primi 6 numeri con max presenza che sono il 4 5 9 11 21 28(ma ce ne sono molti altri) abbiamo molti 3 4 e 5 punti
sono 7 numeri con un capogioco se troviamo un ridotto con garanzia 3 o 4 o 5 punti li facciamo secchi.
ma se scarichi il programma fatto da atlantis vedi che ha evidenziato molti numeri doppi ma ci sono anche molte terzine uguali(che non ha evidenziato) basta trovare
altri 3 o 4 numeri che si accoppiano con tutte le altre colonne si fa facilmente 7/8 punti


senti in molte estrazioni ci sono molti numeri uguali nelle estrazioni successive è raro che non vi siano 2/6/8 numeri uguali dopo 5/8/12 estrazioni successive(prendiamo quelli con max frequenze poi con un metodo riduttore, ho un ottimo esperto in questo è DBR ed il gioco è fatto)
a volte ci sono due o tre numeri uguali consecutivi e non consecutivi, questi diventano 2/3 numeri capo gioco non è raro trovare tutte quelle estrazioni in cui vi siano 2/3 numeri uguali altri 4/6 numeri uguali usciti quindi diventano 7/9 punti presi...........mi sa che è un po complicato entrare nella mente di un altro attraverso frasi digitate,vedi se sei riuscito a comprendere un po ,,,,,,,,,,,,,,
 
Ultima modifica:
Ciao Alien, una domanda ma nei miei tanti script postati non esiste qualcosa di simile o te lo sei perso ?

In questo mio script per il 10 e lotto sia serale che 5min ho elaborato dei cicli di tot estrazioni per numero di cicli e chiesto la frequenza minima di sortita e trovati i numeri che corrispondono alla richiesta vengono verificati per le estrazioni successivi.

prova a vedere se fa in qualche modo quello che vuoi ottenere.

Codice: 
Sub Main
	Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
	Dim bEsito
	Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
	Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1)
	Dim RetEsito,RetColpi,RetEstratti,retId,sorte
	ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
	arch = CInt(InputBox("QUALE ARCHIVIO 10 e Lotto " & Chr(13) & "  " & Chr(13) & "1 = 10 e lotto serale" & Chr(13) & "2 = 10 e lotto 5 Min ",,1))
	ImpostaArchivio10ELotto(arch)
	sorte = CInt(InputBox(" Scegli la sorte di verifica ",,"1"))
	ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8665))
	sfa = CInt(InputBox("Quanti superfrequenti ",,3))
	clc = CInt(InputBox("Quanti cicli di gioco ",,10))
	clp = CInt(InputBox("Quanti colpi di gioco ",,10))
	fin = EstrazioniArchivioDL
	ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
	colpi = clp 'colpi di gioco
	aPosta(2) = 1
	Scrivi "Inizio estrazioni dal " & GetInfoEstrazioneDL(ini) & "  a  " & GetInfoEstrazioneDL(fin),True,False,2,4,3
	If arch = 1 Then Scrivi "  10 e lotto Serale ",True,True,4,2,3
	If arch = 2 Then Scrivi " 1o e lotto 5 Min ",True,True,4,2,3
	For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
		cc = cc + 1
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
		ktutto = 0' ad ogni nuovo ciclo azzero i contatori
		kktutto = 0
		manca = 0
		ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
		ReDim aaTT(0)
		ReDim mancanti(0)
		For ii = 1 To 90
			tutto(1) = ii
			If SerieFreqDL(ini1,es,tutto,sorte) = sfa Then
				ktutto = ktutto + 1
				ReDim Preserve Atutto(ktutto)
				Atutto(ktutto) = ii
				If SerieFreqDL(es + 1,es + 1 + clp,tutto,sorte) > 0 Then
					kktutto = kktutto + 1
					ReDim Preserve aaTT(kktutto)
					aaTT(kktutto) = ii
					perc = kktutto/ktutto*100
				End If
				If SerieFreqDL(es + 1,es + clp,tutto,sorte) < 1 Then
					manca = manca + 1
					ReDim Preserve mancanti(manca)
					mancanti(manca) = ii
				End If
			End If
		Next
		kCasi = kCasi + 1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(155,"=") & " Caso n° " & cc)
		Call Scrivi("Ricerca su ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazioneDL(es + colpi),1)
		Call Scrivi("Tutti i Numeri con frequenza = " & sfa)
		Scrivi StringaNumeri(Atutto) & " [ " & ktutto & " ] ",1
		Scrivi "Tutti i numeri usciti nella ricerca ",True,True,,0,2
		Scrivi StringaNumeri(aaTT) & "    [ " & kktutto & " ] " & "   Perc% uscite.... " & Int(perc),True,True,4,2,2
		Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
		Scrivi StringaNumeri(mancanti) & "    [ " & manca & " ] ",True,True,2,4,2
		Call Scrivi(String(155,"="))
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito = False
		kCasiPos = kCasiPos + 1
		'
		Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
		kk = 0
		estra = 0
		ambo = 0
		terno = 0
		quat = 0
		cinq = 0
		sest = 0
		Sett = 0
		ot = 0
		nov = 0
		diec = 0
		For idestr = es + 1 To es + colpi
			kk = kk + 1
			Call VerificaEsitoDL(Atutto,idestr,sorte,1,RetEsito,RetColpi,RetEstratti,retId)
			'Next
			If RetEsito <> "" Then
				ColoreTesto 0
				If RetEsito = "Estratto" Then estra = estra + 1
				If RetEsito = "Estratto" Then TE = TE + 1
				If RetEsito = "Ambo" Then ColoreTesto 2
				If RetEsito = "Ambo" Then ta = ta + 1
				If RetEsito = "Ambo" Then ambo = ambo + 1
				If RetEsito = "Terno" Then ColoreTesto 1
				If RetEsito = "Terno" Then terno = terno + 1
				If RetEsito = "Terno" Then tte = tte + 1
				If RetEsito = "Quaterna" Then ColoreTesto 7
				If RetEsito = "Quaterna" Then quat = quat + 1
				If RetEsito = "Quaterna" Then tq = tq + 1
				If RetEsito = "Cinquina" Then ColoreTesto 6
				If RetEsito = "Cinquina" Then cinq = cinq + 1
				If RetEsito = "Cinquina" Then tc = tc + 1
				If RetEsito = "Sestina" Then sest = sest + 1
				If RetEsito = "Sette" Then Sett = Sett + 1
				If RetEsito = "Otto" Then ot = ot + 1
				If RetEsito = "Nove" Then nov = nov + 1
				If RetEsito = "Dieci" Then diec = diec + 1
				If RetEsito = "Sestina" Then tsest = tsest + 1
				If RetEsito = "Sette" Then tSett = tSett + 1
				If RetEsito = "Otto" Then ttot = ttot + 1
				If RetEsito = "Nove" Then tnov = tnov + 1
				If RetEsito = "Dieci" Then tdiec = tdiec + 1
				'kk = kk + 1
				Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " - " & vbTab & GetInfoEstrazioneDL(retId),1)
				ColoreTesto 0
			End If
		Next
		Scrivi
		Scrivi" Totali Estratto..." & estra & " ",True,False,0,5,2
		Scrivi" Totali Ambi......." & ambo & " ",True,False,2,4,2
		Scrivi" Totali Terni......" & terno & " ",True,False,4,2,2
		Scrivi" Totali quaterne..." & quat & " ",True,False,7,0,2
		Scrivi" Totali cinquine..." & cinq & " ",True,True,6,0,2
		Scrivi" Totali sestine...." & sest & " ",True,False,0,5,2
		Scrivi" Totali settina...." & Sett & " ",True,False,7,0,2
		Scrivi" Totali ottine....." & ot & " ",True,False,6,0,2
		Scrivi" Totali novine....." & nov & " ",True,False,0,5,2
		Scrivi" Totali decina....." & diec & " ",True,True,6,0,2
		Call ColoreTesto(0)
		If ScriptInterrotto Then Exit For
	Next
	Call Scrivi
	Call Scrivi(String(60,"="))
	Scrivi
	Scrivi "Cicli.... " & cc,True,False,2,4,2
	Scrivi " Colpi...." & clp,True,False,3,0,2
	Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
	Scrivi
	Scrivi " Totali estratti..." & te,True,False,0,5,3
	Scrivi " Totali Ambi......." & ta,True,False,2,4,3
	Scrivi " Totali terni......" & tte,True,False,4,2,3
	Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
	Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
	Scrivi " Totali sestine...." & tsest,True,False,0,5,3
	Scrivi " Totali settine...." & tsett,True,False,2,4,3
	Scrivi " Totali ottine....." & ttot,True,False,4,2,3
	Scrivi " Totali novine....." & tnov,True,False,7,0,3
	Scrivi " Totali decine..." & tdiec,True,True,6,0,3
	Scrivi
	Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub
 
bhe,forse si mi son perso qualche tuo script,indicami i link per trovarli,guardo lo script poi ti faccio sapere e grazie.
 
SI VISTO SEMBRA OTTIMO ma ultimo "pronostico" è del 03.06.2014..........
è mi serve l'ultimo pronostico per sviluppare la giocata.........

come posso avere la TUA @ grazie.
 
Ultima modifica:
Alien.


SI VISTO SEMBRA OTTIMO ma ultimo "pronostico" è del 03.06.2014..........
è mi serve l'ultimo pronostico per sviluppare la giocata.........

come posso avere la TUA @ grazie
Clicca per espandere...

Alien, lo script dovrebbe fare quello che chiedi, infatti ti lascia scegliere le combinazioni migliori o quelle che credi migliori e può raggiungere lo scopo prefisso.

Mail,lo sai che non è possibile sul forum LottoCed e forse è meglio così .


rodrigo


Ciao Mike potresti cortesemente implementare nel tuo script anche la ricerca per il lotto?
Clicca per espandere...


Ciao Rodrigo lo stesso script era nato per il lotto e poi adattato al 10 e lotto
Purtroppo è un continuo ripostare le stesse cose per carità colpa di nessuno ma non chiedetemi modifiche, fra poco un po di meritata vacanza.

Codice: 
'Option Explicit
Sub Main
	Dim ini,fin,ini1,es,ciclo,colpi,i,y,ii
	Dim bEsito
	Dim kGiocate,kCasi,kCasiPos,kAmbi,ktutto 'contatori capigioco, abbinamenti, giocate,casi tot, casi pos, ambirealizz
	Dim aRuota(1),aPosta(2),aNum(1),aAmbo(2),tutto(1),aaatt(1)
	Dim RetEsito,RetColpi,RetEstratti,retId
	ReDim Atutto(0) 'array per i CG (freq>2), gli abbin(freq=2)
	aRuota(1) = CInt(InputBox(" Scegli la ruota di ricerca ",,"1"))
	ini = CInt(InputBox(" Scegli l'estrazione di inizio ricerca ",,8000))
	sfa = CInt(InputBox("Quanti superfrequenti ",,1))
	clc = CInt(InputBox("Quanti cicli di gioco ",,12))
	clp = CInt(InputBox("Quanti colpi di gioco ",,12))
	fin = EstrazioneFin
	ciclo = clc : ciclo = ciclo - 1 ' durata del ciclo di ricerca ripetuti. Non togliere il -1!
	colpi = clp 'colpi di gioco
	aPosta(2) = 1
	For es = ini To fin Step ciclo + 1 ' analizzo l'archivo a blocchi di 9 estrazioni
		cc = cc + 1
		Messaggio es
		Call AvanzamentoElab(ini,fin,es)
		ini1 = es - ciclo ' calcolo l'inizio di ogni nuovo ciclo rispetto ad ogni es analizzata
		ktutto = 0' ad ogni nuovo ciclo azzero i contatori
		kktutto = 0
		manca = 0
		ReDim Atutto(0) ' e riazzero gli array prima di ogni ciclo
		ReDim aaTT(0)
		ReDim mancanti(0)
		For ii = 1 To 90
			tutto(1) = ii
			If SerieFreqTurbo(ini1,es,tutto,aRuota,1) = sfa Then
				ktutto = ktutto + 1
				ReDim Preserve Atutto(ktutto)
				Atutto(ktutto) = ii
				If SerieFreq(es,es + clp,tutto,aRuota,1) > 0 Then
					kktutto = kktutto + 1
					ReDim Preserve aaTT(kktutto)
					aaTT(kktutto) = ii
					perc = kktutto/ktutto*100
				End If
				If SerieFreq(es,es + clp,tutto,aRuota,1) < 1 Then
				manca = manca + 1
				ReDim Preserve mancanti(manca)
				mancanti(manca) = ii				
				End If

			End If
			
		Next
		kCasi = kCasi + 1
		Call ColoreTesto(1)
		Call Scrivi
		Call Scrivi(String(155,"=") & " Caso n° " & cc)
		Call Scrivi("Ricerca su " & SiglaRuota(aRuota(1)) & " ciclo di " & ciclo + 1 & " estrazioni (" & ini1 & "-" & es & ")" & " gioco fino..." & GetInfoEstrazione(es + colpi),1)
		Call Scrivi("Tutti i Numeri con frequenza =>  " & sfa)
		Scrivi StringaNumeri(Atutto) & "   [ " & ktutto & " ] ",True,True,3,1,2
		Scrivi
		Scrivi "Tutti i numeri trovati usciti dopo il ciclo nei colpi di esito",1
		Scrivi StringaNumeri(aaTT) & "    [ " & kktutto & " ] " & "   Perc% uscite.... " & Int(perc),True,True,4,2,2
		Scrivi "Tutti i numeri non usciti nella Ricerca",True,True,,2,2
		Scrivi StringaNumeri(mancanti) & "    [ " & manca & " ] ",True,True,2,4,2
		
		Call Scrivi(String(155,"="))
		Call Scrivi
		Call ColoreTesto(0)
		kGiocate = 0 ' ad ogni nuova estrazione azzero il contatore delle giocate
		bEsito = False
		kCasiPos = kCasiPos + 1
		'
		Scrivi String(20,"-") & " Verifica esito nelle estrazioni successive " & String(20,"-")
		kk = 0
		estra = 0
		ambo = 0
		terno = 0
		quat = 0
		cinq = 0
		For idestr = es + 1 To es + colpi
			kk = kk + 1
			Call VerificaEsitoTurbo(Atutto,aRuota,idestr,1,1,,RetEsito,RetColpi,RetEstratti,retId)
			'Next
			If RetEsito <> "" Then
				ColoreTesto 0
				If RetEsito = "Estratto" Then estra = estra + 1
				If RetEsito = "Estratto" Then TE = TE + 1
				If RetEsito = "Ambo" Then ColoreTesto 2
				If RetEsito = "Ambo" Then ta = ta + 1
				If RetEsito = "Ambo" Then ambo = ambo + 1
				If RetEsito = "Terno" Then ColoreTesto 1
				If RetEsito = "Terno" Then terno = terno + 1
				If RetEsito = "Terno" Then tte = tte + 1
				If RetEsito = "Quaterna" Then ColoreTesto 7
				If RetEsito = "Quaterna" Then quat = quat + 1
				If RetEsito = "Quaterna" Then tq = tq + 1
				If RetEsito = "Cinqina" Then ColoreTesto 3
				If RetEsito = "Cinqina" Then cinq = cinq + 1
				If RetEsito = "Cinqina" Then tc = tc + 1
				'kk = kk + 1
				Call Scrivi(idestr & " - " & Format2(kk) & "°  - " & RetEstratti & " - " & RetEsito & "  " & vbTab & GetInfoEstrazione(retId),1)
				ColoreTesto 0
			End If
		Next
		Scrivi
		Scrivi" Totali Estratto..." & estra & "  ",True,False,0,5,2
		Scrivi" Totali Ambi......." & ambo & "  ",True,False,2,4,2
		Scrivi" Totali Terni......" & terno & "  ",True,False,4,2,2
		Scrivi" Totali quaterne..." & quat & "  ",True,False,7,0,2
		Scrivi" Totali cinquine..." & cinq	 & "  ",True,True,6,0,2
		Call ColoreTesto(0)
		If ScriptInterrotto Then Exit For
	Next
	Call Scrivi
	Call Scrivi(String(60,"="))
	Scrivi
	Scrivi "Cicli.... " & cc,True,False,2,4,2
	Scrivi " Colpi...." & clp,True,False,3,0,2
	Scrivi " Tot. estrazioni ...." & cc*clp,True,True,4,2,2
	Scrivi
	Scrivi " Totali estratti..." & te,True,False,0,5,3
	Scrivi " Totali Ambi......." & ta,True,False,2,4,3
	Scrivi " Totali terni......" & tte,True,False,4,2,3
	Scrivi " Totali Quaterne..." & tq,True,False,7,0,3
	Scrivi " Totali Cinquine..." & tc,True,True,6,0,3
	Scrivi
	Call Scrivi(" Script Listed by Mike58 ",True,True,3,1,3)
End Sub
 
Ciao,dici :Mail,lo sai che non è possibile sul forum LottoCed e forse è meglio così . Si credo di si ho preso certi arrosti.........ma tu mi sembri "tu"....non porti una maschera.......grazie di tutto.
 
Ciao Alien, grazie per la considerazione, purtroppo qui non è possibile come in altri lidi e con i pm (messaggi privati) e anche io ho preso come tu li definisci " certi arrosti ".

Quando c'è bisogno e sempre senza presunzione di perfezione sapete tutti che nel limite del possibile , Io ci sono.

un saluto, a tutti
 
ecco come te la cavi con excel,domanda inutile.mi servirebbe un archivio per 10elotto aggiornabile in automatico tramite web poi a parte una ricerca con 45 numeri da immettere sa 1 a quante ne voglio fino a 45 ma che poi mi evidenzi i numeri usciti nell'archivio fino a 24 concorsi indietro ed avanti.........si può fare....grazie.
sto strofinando la lampada di Aladino......:p




lampadaaladino.jpg
 
Ciao Alien, come me la cavo con Excel, un po' di tempo fa, qualche anno fà, "Benino" poi ho scoperto gli script ed ho abbandonato Excel con conseguente dimenticanza delle nozioni un po' complesse.

Archivio agggiornabili per il 10 e lotto per Excel su questo forum sono stati postati e se cerchi i lavori di pfca sono validi e si avvicinano a tutte le evidenze che vuoi sperimentare.

Tuttavia è anche possibile da un semplice script far scrivere le estrazioni su un foglio Excel e da quello con la formattazione condizionata puoi evidenziare quello che + ti fa comodo.

Io ti posto lo script per la scrittura in Excel delle estrazioni 10 e lotto.

Codice: 
Sub Main
	Dim xlApp ' applicazione excel
	Dim xlBook ' workbook
	Dim xlSheet ' sheet
	Dim k,j
	Dim nEstrInizio,nEstrFine
	Dim nRiga
	Call ImpostaArchivio10ELotto(1)
	nEstrInizio = EstrazioniArchivioDL - 24 ' estrrazione di partenza
	nEstrFine = EstrazioniArchivioDL ' estrazioen finale
	Set xlApp = CreateObject("Excel.Application") 'istanzio excel
	Set xlBook = xlApp.workbooks.Add ' aggiungo un workbook
	Set xlSheet = xlBook.worksheets(1) ' mi interfaccio al  Foglio1
	nRiga = 1
	For k = nEstrInizio To nEstrFine
		xlSheet.cells(nRiga,1) = GetInfoEstrazioneDL(k)
		For j = 1 To 20
			xlSheet.cells(nRiga,j + 1) = EstrattoDL(k,j)
		Next
		Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
		nRiga = nRiga + 1
	Next
	xlApp.visible = True
	xlApp.save
End Sub
 
Grazie Mike,anch'io sapevo il gvbasic ,ma poi non mi ricordo un ....cavolo........ok vedro di trovare qualche cosa di pfca...ma se qualche anima gentile mi può indirizzare a ritrovare i lavori di excel......adesso ci provo....................e non dimentico la tua frase:io ci sono :p
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto