Novità

Richiesta per claudio8: Script

barattolo

barattolo

Senior Member
Ciao claudio8,

forse ancora devi leggere il post antecedente a questo, dove ti chiedo se è possibile cedermi un determinato "script".

Questo:

Ambi più frequenti in ordine decrescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti : 15.84 18.34 51.89 14.23 47.85 32.82 43.90 49.75 15.48 05.73 21.28 53.66 21.90 47.70 38.89 20.75 05.27 73.79 20.80 73.81
Pres in range ricerca: 9 9 9 9 8 8 8 8 8 8 8 8 8 8 7 7 7 7 7 7
Rit. da inizio gioco: 25 77 1 0 15 24 6 483 101 65 196 22 6 200 139 2 120 5 32 120
Esiti in 10 colpi a dal 27.09.2011 :
_________ _________ _________ __________ _________ _________

Ambi neno frequenti in ordine crescente sulla ruota di - Bari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti : 52-71 33-54 52-75 52-72 31-63 34-39 52-62 32-46 33-39 29-42 26-41 55-85 25-44 25-51 55-84 25-83 56-67 56-59 25-82 34-56
Pres in range ricerca: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
Rit. da inizio gioco: 1117 1544 1263 1425 1025 1094 1505 1543 1556 1298 1977 1152 1971 1268 2005 1092 1596 1017 1384 1186
Esiti in 10 colpi a partire dal 27.09.2011 : pos 02 ambo 33-54 al 3° clp. |33.54.67.65.45 |:
================================================================================================================================================================

Ambi più frequenti in ordine decrescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti : 41.61 11.47 74.89 06.23 23.74 61.73 39.89 01.86 80.86 01.81 06.86 03.42 20.39 41.79 31.82 15.88 47.78 12.75 01.11 88.90
Pres in range ricerca: 9 9 9 9 9 9 8 8 8 8 8 8 8 8 8 8 8 8 8 8
Rit. da inizio gioco: 26 226 143 38 180 282 290 85 116 144 355 35 435 26 14 215 175 20 23 283
Esiti in 10 colpi a dal 27.09.2011 : pos 04 ambo 06-23 al 3° clp. |55.23.58.06.71 |: pos 20 ambo 88-90 al 8° clp. |37.70.25.88.90 |:
_________ _________ _________ __________ _________ _________

Ambi neno frequenti in ordine crescente sulla ruota di - Cagliari - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti : 05-72 75-78 05-74 75-76 05-77 04-87 40-45 47-49 04-42 39-84 46-88 19-66 19-67 27-60 27-57 27-59 75-84 05-51 05-63 05-48
Pres in range ricerca: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
Rit. da inizio gioco: 1254 1090 1369 1252 1256 1145 1260 1055 1316 1043 1246 1429 1143 1130 1050 1132 1043 2325 1208 1159
Esiti in 10 colpi a partire dal 27.09.2011 :
================================================================================================================================================================

Ambi più frequenti in ordine decrescente sulla ruota di - Firenze - Dal 13.04.2005 al 24.09.2011 con 1000 estrazioni

Ambi presenti : 09.14 10.75 79.89 49.90 32.74 01.81 02.27 29.76 30.69 02.08 09.63 07.24 48.86 07.68 19.68 02.82 29.82 08.57 32.36 08.25
Pres in range ricerca: 9 9 8 8 8 8 8 8 8 8 8 8 8 8 8 7 7 7 7 7
Rit. da inizio gioco: 20 24 419 67 214 151 128 228 16 81 178 240 157 47 56 99 41 77 129 62
Esiti
 
Caro, se mi dai indicazioni su dove hai preso questo output forse riesco a rintracciarlo perchè sinceramente spesso devo fare pulizia e non so + dove e se c'è ancora.
ciao
 
Non spostarlo da qui
Aspetto risultati almeno di ambata dalle tue ricerche.
Codice: 
Sub Main()
	Dim ambi(4005,5)
	Dim nn(3)
	Dim nu(2)
	Dim ru(1)
	ee = CInt(InputBox("Quante estrazioni vuoi esaminare?","Estrazioni",1000))
	clp = CInt(InputBox("Per quante estrazioni vuoi giocare?","Colpi di gioco",10))
	For r = 1 To 1
		co = 0
		mm = 0
		ru(1) = r
		ini = EstrazioneFin - ee - clp 'escludo le estrazioni di analisi delle freq ambi e i colpi di gioco
		fin = EstrazioneFin - clp
		For s = 1 To 4005
			ambi(s,1) = 0
			ambi(s,2) = 0
			ambi(s,3) = 0
			ambi(s,4) = 0
			ambi(s,5) = 0
		Next
		For x = 1 To 89
			For y = x + 1 To 90
				Messaggio "Ruota: " & NomeRuota(r) & " Combinazione : " & x & " - " & y
				co = co + 1
				'ambi(co,0) = co
				ambi(co,1) = co
				ambi(co,2) = x
				ambi(co,3) = y
				nn(1) = x
				nn(2) = y
				c = SerieFreq(ini,fin,nn,ru,2)
				ambi(co,4) = c
				d = SerieRitardo(EstrazioneIni,fin,nn,ru,2)
				ambi(co,5) = d
			Next
		Next
		OrdinaMatrice ambi,- 1,4 ' pres decresente
		For s = 1 To 4005
			ambi(s,0) = s
		Next
		''ScriviMatrice ambi
		ColoreTesto 1
		Scrivi "Ambi più  frequenti in ordine decrescente sulla ruota di - " & NomeRuota(ru(1)) & " - Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & " con " & fin - Ini & " estrazioni",1
		ColoreTesto 0
		a = clp
		Scrivi
		riga = "Ambi presenti :         "
		rigo = "Pres in range ricerca:   "
		rige = "Rit. da inizio gioco:    "
		rigi = "Esiti in " & a & " colpi dal " & DataEstrazione(fin + 1) & "  : "
		For x = 1 To 20
			riga = riga & Format2(ambi(x,2)) & "." & Format2(ambi(x,3)) & "  "
			rigo = rigo & FormatSpace(ambi(x,4),3,1) & "    "
			rige = rige & FormatSpace(ambi(x,5),3,1) & "    "
			nu(1) = ambi(x,2)
			nu(2) = ambi(x,3)
			mm = SerieFreq(fin + 1,EstrazioneFin,nu,ru,2)
			If mm > 0 Then
				VerificaEsito nu,ru,fin + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr
				rigi = rigi & " pos " & Format2(ambi(x,0)) & " ambo " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " al " & RetColpi & "° clp. |" & StringaEstratti(RetIdEstr,r) & " |: "
			End If
			mm = 0
		Next
		Scrivi riga,1
		ColoreTesto 1
		Scrivi rigo,1
		ColoreTesto 7
		Scrivi rige,1
		ColoreTesto 0
		Scrivi rigi
		Scrivi "						_________    _________    _________    __________    _________    _________"
		Scrivi
		OrdinaMatrice ambi,1,4 ' pres cresente
		For s = 1 To 4005
			ambi(s,0) = s
		Next
		''ScriviMatrice ambi
		ColoreTesto 1
		Scrivi "Ambi neno frequenti in ordine crescente sulla ruota di - " & NomeRuota(ru(1)) & " - Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) & " con " & fin - Ini & " estrazioni",1
		ColoreTesto 0
		a = clp
		Scrivi
		riga = "Ambi presenti :         "
		rigo = "Pres in range ricerca:   "
		rige = "Rit. da inizio gioco:    "
		rigi = "Esiti in " & a & " colpi dal " & DataEstrazione(fin + 1) & "  : "
		For x = 1 To 20
			riga = riga & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "  "
			rigo = rigo & FormatSpace(ambi(x,4),4,1) & "   "
			rige = rige & FormatSpace(ambi(x,5),4,1) & "   "
			nu(1) = ambi(x,2)
			nu(2) = ambi(x,3)
			mm = SerieFreq(fin + 1,EstrazioneFin,nu,ru,2)
			If mm > 0 Then
				VerificaEsito nu,ru,fin + 1,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr
				rigi = rigi & " pos " & Format2(ambi(x,0)) & " ambo " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " al " & RetColpi & "° clp. |" & StringaEstratti(RetIdEstr,r) & " |: "			
			 'VerificaEsito nu,ru,fin + 1,2,,,RetEsito,RetColpi,RetEstratti
			 'rigi = rigi & " pos " & Format2(ambi(x,0)) & " ambo " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & " "
			End If
			mm = 0
		Next
		Scrivi riga,1
		ColoreTesto 1
		Scrivi rigo,1
		ColoreTesto 7
		Scrivi rige,1
		ColoreTesto 0
		Scrivi rigi
		ColoreTesto 2
		Scrivi String(160,"=")
		Scrivi
	Next
End Sub

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
quote:Originally posted by claudio8

Non spostarlo da qui
Aspetto risultati almeno di ambata dalle tue ricerche.

Sub...[...]...

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
Clicca per espandere...

Grazie claudio8

ma per il momento non posso fare quasi niente [B)]
Mi si è rotta la scheda madre del mio computer [V][V]
 
quote:Originally posted by claudio8

Non spostarlo da qui
Aspetto risultati almeno di ambata dalle tue ricerche.
Codice: 
Sub ...[...]...

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
Clicca per espandere...

Ciao claudio8

l'ho testato...va benissimo!!!
Una sola cosa?
La ricerca la fa di default solo sulla ruota di Bari, come faccio a fare la ricerca su altre ruote? Magari anche a Tutte le Ruote?

[:I]
 
Vorrei che evitassi di riscrivere 20 volte lo script che ti ho postato.
Non mi piace vedere i miei lavori moltiplicati nei post.

ciao



Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
quote:Originally posted by claudio8

Vorrei che evitassi di riscrivere 20 volte lo script che ti ho postato.
Non mi piace vedere i miei lavori moltiplicati nei post.

ciao



Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
Clicca per espandere...
Ciao claudio8
ho modificato i messaggi antecedenti a questo.
Non sapevo che quando si replica...si deve cancellare lo script.
Mi dispiace non sapevo e non immaginavo che ti dava fastidio.

MI DISPIACE...SCUSAMI.
 
quote:Originally posted by barattolo

l'ho testato...va benissimo!!!
Una sola cosa?
La ricerca la fa di default solo sulla ruota di Bari, come faccio a fare la ricerca su altre ruote? Magari anche a Tutte le Ruote?

[:I]
Clicca per espandere...
sostituisci questa riga "For r = 1 To 1" con
"For r = 1 To 12" sappi che il tempo di elaborazione si moltiplica x 12 volte

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
 
quote:Originally posted by claudio8

sostituisci questa riga "For r = 1 To 1" con
"For r = 1 To 12" sappi che il tempo di elaborazione si moltiplica x 12 volte

Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"
Clicca per espandere...

Grazie :)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 11 novembre 2025
    Bari
    81
    64
    11
    88
    51
    Cagliari
    58
    62
    41
    29
    14
    Firenze
    07
    27
    89
    20
    64
    Genova
    51
    66
    42
    79
    58
    Milano
    09
    40
    56
    10
    78
    Napoli
    71
    22
    67
    48
    64
    Palermo
    71
    67
    42
    89
    53
    Roma
    74
    60
    86
    80
    39
    Torino
    25
    11
    62
    33
    87
    Venezia
    59
    84
    74
    70
    03
    Nazionale
    86
    18
    87
    70
    45
    Estrazione Simbolotto
    Torino
    13
    23
    44
    08
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto