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
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto