per gli amici "scriptologi" chi mi puo aiutare?

[rosce14]

BUONA SERA CARISSIMI, VORREI SAPERE PERCHE' UNO SCRIPT SI BLOCCA?
VEDI ES.:

************************* Caso n°: 5 *************************
NUMERO SPIA 3 In 1°Posizione su Bari - Uscito il: 31.03.2012
**************************************************************
sab 31.03.2012 [8515]
G 1: A 75.81.04 Ca 0/7
i.c.(7 colpi)


= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Resoconto complessivo di 1 giocata
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Resoconto totale giocate
Risultati generali

Casi esaminati: 5
In corso: 1
casi finali: 4
positivi: 4
negativi: 0
Pronostici generati: 5
Pronostici vincenti: 4(80,0 %)
Estrazioni di gioco: 28
Tentativi(scontrini giocati): 28
Vincite(scontrini vincenti): 4(14,29 %)
Attesa media: 6,00

IN QUESTO CASO SI E' BLOCCATO CON LA PREVISIONE DI MARZO. E NATURALMENTE NON MI DA NEPPURE L'ULTIMO 3 USCITO A BA IN PRIMA POS.

IN ATTESA DI UNA VOSTRA RISPOSTA, VI RINGRAZIO.

PS. LO SCRIPT E IL METODO SONO DI BLACKY MORE

 

[Roby]

Ciao Rosce, lo script funziona benissimo
Controlla l'archivio estrazioni del tuo programma...

Sub Main()
	Scrivi String(50," ") & "METODO BY BLACKMORE",1
	Scrivi
	Dim aruo(1)
	Dim aposte(10)
	aposte(2) = 2
	Dim anum(10)
	r = CInt(InputBox("RUOTA DI RICERCA?",,1))
	rr = CInt(InputBox("RUOTA DI GIOCO?",,2))
	ee = CInt(InputBox("INIZIO CONTROLLO?",,8293))
	clp = CInt(InputBox("QUANTI COLPI?",,7))
	co = 0
	fin = EstrazioneFin
	ini = ee
	For es = ini To fin
		a = Estratto(es,r,1)
		If a = 3 Then
			anum(1) = Fuori90(Estratto(es,BA_,3) + 13)
			anum(2) = Fuori90(Estratto(es,BA_,3) + 19)
			anum(3) = Fuori90(Estratto(es,BA_,3) + 32)
			aruo(1) = rr
			co = co + 1
			Scrivi
			ColoreTesto 1
			Scrivi String(25,"*") & " Caso n°: " & CInt(co) & " *************************",1
			ColoreTesto 2
			Scrivi " NUMERO SPIA " & a & " In 1°Posizione su " & NomeRuota(r) & " - Uscito il: " & DataEstrazione(es),1
			ColoreTesto 1
			Scrivi String(62,"*"),1
			ColoreTesto 0
			ImpostaGiocata 1,anum,aruo,aposte,clp
			Gioca es
		End If
	Next
	ScriviResoconto
End Sub

************************* Caso n°: 6 *************************
 NUMERO SPIA 3 In 1°Posizione su Bari - Uscito il: 28.07.2012
**************************************************************
sab 28.07.2012  [8566]
  G  1:  A    79.85.08   Ca    0/7    
     i.c. (7 colpi)

 

[rosce14]

GRAZIE BLACKMORE, SEI STATO COME AL SOLITO CARINISSIMO, L'ARCHIVIO ESTRAZIONE E' AGGIORNATO, LO FACCIO TUTTE LE VOLTE DOPO L'ESTRAZIONI.

ADESSO COPIERO' QUESTO TUO SCRIPT E TI RINGRAZIO VERAMENTE DI CUORE.

HO QUASI TUTTI I TUOI SCRIPT E MI DISPIACE QUANDO QUALCOSA NON VA.
SECONDO TE COSA SARA' SUCCESSO? GLI ALTRI SCRIPT FUNZIONANO.SARO' STATA IO A BLOCCARLO?

TI AUGURO UNA FELICE SERATA.

 

[Roby]

Non ne ho idea Rosce mi spiace
Spero che adesso funzioni
Ciao

 

[rosce14]

si!...........

E ancora grazie.