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ì 17 gennaio 2025
    Bari
    10
    87
    77
    23
    60
    Cagliari
    75
    33
    60
    24
    15
    Firenze
    45
    34
    66
    41
    17
    Genova
    05
    65
    15
    53
    86
    Milano
    20
    84
    74
    76
    01
    Napoli
    90
    29
    38
    52
    68
    Palermo
    33
    36
    02
    20
    68
    Roma
    68
    12
    59
    07
    74
    Torino
    03
    22
    29
    90
    28
    Venezia
    81
    24
    35
    18
    03
    Nazionale
    06
    31
    35
    89
    74
    Estrazione Simbolotto
    Bari
    14
    24
    17
    13
    08
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto