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ì 16 dicembre 2025
    Bari
    78
    53
    62
    77
    16
    Cagliari
    15
    58
    32
    39
    24
    Firenze
    85
    20
    39
    32
    29
    Genova
    17
    60
    15
    33
    43
    Milano
    13
    39
    14
    15
    34
    Napoli
    82
    76
    15
    24
    73
    Palermo
    40
    55
    78
    26
    08
    Roma
    23
    41
    17
    53
    76
    Torino
    52
    20
    70
    59
    65
    Venezia
    43
    58
    19
    08
    09
    Nazionale
    71
    55
    60
    04
    35
    Estrazione Simbolotto
    Venezia
    28
    37
    27
    40
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto