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
    venerdì 13 febbraio 2026
    Bari
    71
    07
    88
    38
    26
    Cagliari
    08
    45
    59
    34
    70
    Firenze
    01
    70
    13
    39
    50
    Genova
    54
    26
    42
    41
    39
    Milano
    51
    58
    82
    10
    72
    Napoli
    57
    04
    49
    86
    54
    Palermo
    72
    03
    54
    83
    33
    Roma
    68
    44
    06
    22
    70
    Torino
    33
    37
    14
    25
    79
    Venezia
    16
    20
    40
    27
    37
    Nazionale
    88
    15
    53
    07
    80
    Estrazione Simbolotto
    Cagliari
    21
    42
    40
    09
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto