Novità

x rubino

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
ciao rubino vorrei chiederti una cortesia
se è possibile fare uno script x il 10elotto5min.
dovrebbe funzionare in questo modo:PRENDIAMO UNA estrazione qualsiasi
la 57 per esempio,dai 20 numeri usciti, lo script mi deve dire quanti e quali numeri si sono ripetuti nelle estrazioni 58-59-60-61-62
ringrazio anticipatamente giuseppe


[8D][8D][8D]
 
ciao vidoque
l'avevo già postato questo script che mi avevi chiesto?
non mi ricordo più!

comunque te lo metto.
questo era quello vecchio che mi avevi chiesto
con 2 numeri frequenti della giornata e abbinamenti + frequenti



Codice: 
Sub Main()
	ImpostaArchivio10ELotto(2)
	Dim posta(3)
	posta(1) = 1
	posta(2) = 1
	posta(3) = 1
	''''prima parte determina 2 numeri frequenti della giornata o in 228 concorsi
	dett = InputBox("Vuoi dettaglio dei frequenti della giornata?",,"N")
	fine = InputBox("Estrazione finale della statistica  ",,EstrazioneFin)
	Iniz = fine - 227
	Dim nfr(90,1)
	For y = 1 To 90
	nfr(y,0) = Format2(y)
	nfr(y,1) = EstrattoFrequenzaDL(y,Iniz,fine)
	nfrq = EstrattoFrequenzaDL(y,Iniz,fine)
	Next
	
	OrdinaMatrice nfr,- 2,1
	If dett = "S" Then
	Scrivi "fr   NR"		
	For v = 1 To 90
	Scrivi nfr(v,1) & "   " & Format2(nfr(v,0))
	Next
	End If

	
	''''seconda parte determina  ambi frequenti che si abbinano ai 2 numeri frequenti precedenti
	Dim freq1(8990,2)
	Dim anum(10)
	h = 2

	ambata1 = nfr(1,0)
	ambata2 = nfr(2,0)
	
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,2)
	nco = InputBox("Verifica esiti n.colpi ",,13)
	gar = InputBox("punteggio richiesto x verifica  ",,2)
	Iniz = EstrazioneIni
''''	fine = EstrazioneFin
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 10ELOTTO 5 Minuti      2 ambate frequenti e  Ambi più frequenti                           "
	Scrivi " By Rubino   Metodologia di vidoque (2)"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazioneDL(Iniz) & " / " & fine & " " & DataEstrazioneDL(fine)
	Scrivi " Richiesti quantità Ambi frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi "  Ambate... " & ambata1 & " - " & ambata2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr.    freq.     RAquart    RXquart              "
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
		Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))

			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreqDL(Iniz,fine,anum,2)
					ambo = ""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				
				End If
			End If
			
		Next
	Next
		'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
		OrdinaMatrice freq1,- 1,1
				ReDim Sing(1)
		anum(1) = ambata1
		anum(2) = ambata2


		
		For yz = 1 To qtfre
		'	anum(3) = Left(freq1(yz,0),2)
		'	anum(4) = Right(freq1(yz,0),2)

		
			abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
			h = h + 1
			anum(h) = Left(freq1(yz,0),2)
			h = h + 1
			anum(h) = Right(freq1(yz,0),2)
			RAquart = RitardoCombinazioneDL(anum,2)
			RXquart = SerieStoricoDL(iniz,fine,anum,2)
			Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & "  freq." & freq1(yz,1) & "   RA." & RAquart & "     RX." & RXquart
		
		Next
		ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
		ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"
		EliminaRipetuti anum
		Sing(1) = ambata1
		ImpostaGiocataDL 1,Sing,1,nco,gar
		Sing(1) = ambata2
		ImpostaGiocataDL 2,Sing,1,nco,gar
		ImpostaGiocataDL 3,anum,1,nco,gar
		GiocaDL fine

		
End Sub



poi vedrò di fare quest'altro, ma però devo chiederti una cosa.

se prendi ora l'ultima estrazione, come fai a sapere nelle prossime 5 estrazione, quali numeri si ripeteranno?
 
Ciao rubino (sempre molto prezioso)
ho copiato e incollato il tuo script su Spaziometria di LuigiB,
ma mi dà un errore : errore script - 1024 prevista istruzione-
linea 119- colonna 0 ,ti risulta?
GRAZIE
giorgio

giorgio's
 
per pigi

[blu]quando copy lo script devi togliere le 3 righe che presenta automaticamente in alto.</u>[/blu]


e poi fai il copia incolla nella pagina (bianca)


prova a rilanciarlo.

a me non da nessun errore

note o appunti:
i frequenti della giornata, non sono da intendersi del giorno in senso stretto,
lo script toglie 227 concorsi (tot.concorsi di 1 giorno) e ne calcola i frequenti di questo periodo e poi ricerca tra tutti gli ambi possibili (4005)dei 90 nr. quelli che si sono abbinati più frequentemente con i 2 nr.più frequenti della giornata o degli ultimi 227 concorsi.




Codice: 
Sub Main()
	ImpostaArchivio10ELotto(2)
	Dim posta(3)
	posta(1) = 1
	posta(2) = 1
	posta(3) = 1
	''''prima parte determina 2 numeri frequenti della giornata o in 228 concorsi
	dett = InputBox("Vuoi dettaglio dei frequenti della giornata?",,"N")
	fine = InputBox("Estrazione finale della statistica  ",,EstrazioniArchivioDL)
	Iniz = fine - 227
	Dim nfr(90,1)
	For y = 1 To 90
		nfr(y,0) = Format2(y)
		nfr(y,1) = EstrattoFrequenzaDL(y,Iniz,fine)
		nfrq = EstrattoFrequenzaDL(y,Iniz,fine)
	Next
	OrdinaMatrice nfr,- 2,1
	If dett = "S" Then
		Scrivi "fr   NR"
		For v = 1 To 90
			Scrivi nfr(v,1) & "   " & Format2(nfr(v,0))
		Next
	End If
	''''seconda parte determina  ambi frequenti che si abbinano ai 2 numeri frequenti precedenti
	Dim freq1(8990,2)
	Dim anum(10)
	h = 2
	ambata1 = nfr(1,0)
	ambata2 = nfr(2,0)
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,2)
	nco = InputBox("Verifica esiti n.colpi ",,13)
	gar = InputBox("punteggio richiesto x verifica  ",,2)
	Iniz = EstrazioneIni
	''''	fine = EstrazioneFin
	ColoreTesto 0
	Scrivi "_____________________________________________________________________________"
	Scrivi " 10ELOTTO 5 Minuti      2 ambate frequenti e  Ambi più frequenti                           "
	Scrivi " By Rubino   Metodologia di vidoque (2)"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazioneDL(Iniz) & " / " & fine & " " & DataEstrazioneDL(fine)
	Scrivi " Richiesti quantità Ambi frequenti uguale a...." & qtfre
	ColoreTesto 1
	Scrivi "  Ambate... " & ambata1 & " - " & ambata2
	ColoreTesto 0
	Scrivi "_____________________________________________________________________________"
	Scrivi "Nr.    freq.     RAquart    RXquart              "
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
			Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))
			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreqDL(Iniz,fine,anum,2)
					ambo = ""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				End If
			End If
		Next
	Next
	'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
	OrdinaMatrice freq1,- 1,1
	ReDim Sing(1)
	anum(1) = ambata1
	anum(2) = ambata2
	For yz = 1 To qtfre
		'	anum(3) = Left(freq1(yz,0),2)
		'	anum(4) = Right(freq1(yz,0),2)
		abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
		h = h + 1
		anum(h) = Left(freq1(yz,0),2)
		h = h + 1
		anum(h) = Right(freq1(yz,0),2)
		RAquart = RitardoCombinazioneDL(anum,2)
		RXquart = SerieStoricoDL(iniz,fine,anum,2)
		Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & "  freq." & freq1(yz,1) & "   RA." & RAquart & "     RX." & RXquart
	Next
	ColoreTesto 2
	Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
	ColoreTesto 0
	Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"
	EliminaRipetuti anum
	Sing(1) = ambata1
	ImpostaGiocataDL 1,Sing,1,nco,gar
	Sing(1) = ambata2
	Impost
 
quote:Originally posted by rubino

ciao vidoque
l'avevo già postato questo script che mi avevi chiesto?
non mi ricordo più!

comunque te lo metto.
questo era quello vecchio che mi avevi chiesto
con 2 numeri frequenti della giornata e abbinamenti + frequenti



Codice: 
Sub Main()
	ImpostaArchivio10ELotto(2)
	Dim posta(3)
	posta(1) = 1
	posta(2) = 1
	posta(3) = 1
	''''prima parte determina 2 numeri frequenti della giornata o in 228 concorsi
	dett = InputBox("Vuoi dettaglio dei frequenti della giornata?",,"N")
	fine = InputBox("Estrazione finale della statistica  ",,EstrazioneFin)
	Iniz = fine - 227
	Dim nfr(90,1)
	For y = 1 To 90
	nfr(y,0) = Format2(y)
	nfr(y,1) = EstrattoFrequenzaDL(y,Iniz,fine)
	nfrq = EstrattoFrequenzaDL(y,Iniz,fine)
	Next
	
	OrdinaMatrice nfr,- 2,1
	If dett = "S" Then
	Scrivi "fr   NR"		
	For v = 1 To 90
	Scrivi nfr(v,1) & "   " & Format2(nfr(v,0))
	Next
	End If

	
	''''seconda parte determina  ambi frequenti che si abbinano ai 2 numeri frequenti precedenti
	Dim freq1(8990,2)
	Dim anum(10)
	h = 2

	ambata1 = nfr(1,0)
	ambata2 = nfr(2,0)
	
	qtfre = InputBox(" Quanti ambi più frequenti vuoi...",,2)
	nco = InputBox("Verifica esiti n.colpi ",,13)
	gar = InputBox("punteggio richiesto x verifica  ",,2)
	Iniz = EstrazioneIni
''''	fine = EstrazioneFin
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi " 10ELOTTO 5 Minuti      2 ambate frequenti e  Ambi più frequenti                           "
	Scrivi " By Rubino   Metodologia di vidoque (2)"
	Scrivi " Parametri richiesti:"
	Scrivi " Estrazioni Range dal....al....." & Iniz & " " & DataEstrazioneDL(Iniz) & " / " & fine & " " & DataEstrazioneDL(fine)
	Scrivi " Richiesti quantità Ambi frequenti uguale a...." & qtfre
	ColoreTesto 1:Scrivi "  Ambate... " & ambata1 & " - " & ambata2
	ColoreTesto 0:Scrivi "_____________________________________________________________________________"
	Scrivi "Nr.    freq.     RAquart    RXquart              "
	''''calcola ambi più frequenti sulle 2 ruote
	For x = 1 To 89
		For y = x + 1 To 90
		Call Messaggio("quartina con " & ambata1 & "-" & ambata2 & " ed ambo " & Format2(x) & "-" & Format2(y))

			If x <> Int(ambata1) Or x <> Int(ambata2) Then
				If y <> Int(ambata2) Or y <> Int(ambata2) Then
					anum(1) = ambata1
					anum(2) = ambata2
					anum(3) = Format2(x)
					anum(4) = Format2(y)
					stofre = SerieFreqDL(Iniz,fine,anum,2)
					ambo = ""
					ambo = Format2(x) & Format2(y)
					freq1(ambo,0) = ambo
					freq1(ambo,1) = stofre
				
				End If
			End If
			
		Next
	Next
		'''''''''' 1° ordina per ambi più frequenti o quartine per ambo più frequenti e scrivi
		OrdinaMatrice freq1,- 1,1
				ReDim Sing(1)
		anum(1) = ambata1
		anum(2) = ambata2


		
		For yz = 1 To qtfre
		'	anum(3) = Left(freq1(yz,0),2)
		'	anum(4) = Right(freq1(yz,0),2)

		
			abbinamenti = abbinamenti & Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & " - "
			h = h + 1
			anum(h) = Left(freq1(yz,0),2)
			h = h + 1
			anum(h) = Right(freq1(yz,0),2)
			RAquart = RitardoCombinazioneDL(anum,2)
			RXquart = SerieStoricoDL(iniz,fine,anum,2)
			Scrivi Left(freq1(yz,0),2) & " " & Right(freq1(yz,0),2) & "  freq." & freq1(yz,1) & "   RA." & RAquart & "     RX." & RXquart
		
		Next
		ColoreTesto 2:Scrivi "In gioco 2 ambate e (x) ambi + frequenti..." & Format2(ambata1) & " - " & Format2(ambata2) & "   /   " & abbinamenti
		ColoreTesto 0:Scrivi "la frequenza è relativa alla quartina per ambo composta da 2 ambate e ambo tra i 4005"
		EliminaRipetuti anum
		Sing(1) = ambata1
		ImpostaGiocataDL 1,Sing,1,nco,gar
		Sing(1) = ambata2
		ImpostaGiocataDL 2,Sing,1,nco,gar
		ImpostaGiocataDL 3,anum,1,nco,gar
		GiocaDL fine

		
End Sub



poi vedrò di f
Clicca per espandere...
 
ciao rubino è possibile modificare lo script potendo io inserire direttamente i numeri da giocare fino ad un massimo di 10 non facendoli calcolare allo script
di nuovo grazie per il tempo che mi dedichi
saluti giuseppe
 
ciao keeper di numeri ne prendo parecchi,mi servirebbe uno script dove io possa scegliere i numeri da inserire perchè attualmente faccio tutto visivamente e mi perdo delle ottime giocate faccio un esempio inserisco una previsione dalla estr.80,questa mi da 4-5 colpi buoni,ma spesso e volentieri la sequenza di numeri vincenti è partita prima non avendo molto tenpo x controllare dietro di occasioni perse ce ne sono parecchie
ti metto un link su una risposta data ad un utente su come gioco in quel caso molto fortunato ma non è sempre cosi


http://forum.lottoced.com/topic.asp?TOPIC_ID=133341
 
quote:Originally posted by vidoque

ciao keeper di numeri ne prendo parecchi,mi servirebbe uno script dove io possa scegliere i numeri da inserire perchè attualmente faccio tutto visivamente e mi perdo delle ottime giocate faccio un esempio inserisco una previsione dalla estr.80,questa mi da 4-5 colpi buoni,ma spesso e volentieri la sequenza di numeri vincenti è partita prima non avendo molto tenpo x controllare dietro di occasioni perse ce ne sono parecchie
ti metto un link su una risposta data ad un utente su come gioco in quel caso molto fortunato ma non è sempre cosi


http://forum.lottoced.com/topic.asp?TOPIC_ID=133341
Clicca per espandere...
io ho copiato lo scirpt ma no fa quello che tu chiedi
invece il mio aveva come condizione i numeri ripetuti le distanze a tuo piacimento e rubino aveva inserito la possibilità di inserire dei numeri
 
ora lo ritrovo lo script siccome le ultime versioni di spaziometria non aggiorna i numeri frequenti gli ambi allora passavo da una versione all'altra disinstallando tutto e mi son perso tutti gli script.
 
ecco lo script con i frequenti nei 5 concorsi successivi all'estrazione richiesta:

fai un controllo comunque dei dati riportati.</u>


Codice: 
Sub Main()
	Dim idEstr 'estrazione inizio analisi
	ReDim aTitoli(2) ' titoli tabella
	ImpostaArchivio10ELotto(2)
	' statistica ricerca frequenti in 6 estrazioni successive '
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(90)
	Dim fre(90)
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Frequenza"
	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)
	Dim aValori(2)
	storia = InputBox("Estrazioni ricerca LX ",,EstrazioniArchivioDL)
	ColoreTesto 1
	Scrivi " Vidoque - 10eLotto 5Minuti "
	Scrivi " frequenti nei 5 concorsi successivi all'estrazione richiesta"
	Scrivi " Estrazione richiesta...." & storia
	Scrivi "_____________________________________________________________________"
	Scrivi
	ColoreTesto 0
	z = 5
	fin = storia + z
	Ini = storia
	For x = 1 To z
		idEstr = Ini + x
		riga = ""
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idEstr,yy)) & " "
			numero = Format2(EstrattoDL(idEstr,yy))
			fre(numero) = fre(numero) + 1
			aValori(1) = Format2(numero) ' numero
			aValori(2) = fre(numero)
			Call AddRigaTabella(aValori,Giallo_,"right")
			Call SetColoreCella(2,vbWhite,vbBlue)
		Next
		Scrivi idEstr & "    " & riga
	Next
	'''''	OrdinaMatrice num,- 0,1
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	Call CreaTabella(2)
End Sub

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

La sistemistica trova il suo fondamento nella matematica, mentre i padri fondatori
hanno proposto come fondamento il fumo aleatorio!
 
ciao keeper lo script è molto buono ci devo perdere del tempo per capire certi movimenti dei numeri ma da una prima opinione mi sembra ottimo,da alcune prove fatte i risultati ci sono stati,solo che servono altre prove e raffronti.


saluti giuseppe
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto