errore script

[filippok9]

un grosso saluto a tutti gli amici del forum, sono un nuovo iscritto, purtroppo in merito agli script non ho molto dimestichezza, chiedo a chi é capace di trovare dovè l'errore e eventualmente di modificarlo, lo script è un ottimo metodo che avevo in un programma vs5, che tra tutti quelli che ho visto lo eguglia o in alcuni casi lo supera è "spaziometria".
In attesa di una vostra risposta, saluti Filippo

Ecco lo script doppia spia

Const COLPI=12
Public Ruota(2)
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi, CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public StatAmbi(20), StatAmbiTutte(20), StatAmbate(20)

Function Isotopo(Estrazione, video)
'trova numero Isotopo usciTo soltanTo su due ruote e restituisce il numero
Isotopo = 0
For b = 1 To 5
For r1 = 1 To 9
num1 = Estratto(Estrazione, r1, b)
For r2 = r1 + 1 To 10
num2 = Estratto(Estrazione, r2, b)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If estratto(Estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 Then
If video = 1 Then
TextOut "NUMERO SPIA " & num1 & Left(NomeRuota(r1), 2) & "," & Left(NomeRuota(r2), 2) & " (" & DataEstrazione(Estrazione) & ")"
End If
Isotopo = num1
Exit Function
End If
End If
Next
Next
Next
End Function

Function NumSpiaIso(Estrazione, numero)
'controlla se il numero spia è Isotopo e restituisce le due ruote
NumSpiaIso = 0
Ruota(1) = 0
Ruota(2) = 0
For b = 1 To 5
For r1 = 1 To 9
num1=Estratto(Estrazione, r1, b)
For r2 = r1 + 1 To 10
num2 = Estratto(Estrazione, r2, b)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(Estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 And num1 = numero Then
TotCasi = TotCasi + 1
ReDim Preserve varList(TotCasi)
ReDim Preserve varData(TotCasi)
ReDim Preserve varRuote1(TotCasi)
ReDim Preserve varRuote2(TotCasi)
varRuote1(TotCasi) = r1
varRuote2(TotCasi) = r2
varData(TotCasi) = Estrazione
varList(TotCasi) = DataEstrazione(Estrazione) & ": "
varList(TotCasi) = varList(totcasi) & "[" & Left(NomeRuota(r1), 2) & "-" & Left(NomeRuota(r2), 2) & "] "
NumSpiaIso = num1
Ruota(1) = r1
Ruota(2) = r2
Exit Function
End If
End If
Next
Next
Next
End Function

Function PiuFrequenti(inizio)
Dim totfreq(90)
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
num =Estratto(a, ruota(1), b)
totfreq(num) = totfreq(num) + 1
num = Estratto(a, ruota(2), b)
totfreq(num) = totfreq(num) + 1
Next
Next
For c1 = 1 To 90
If totfreq(c1) > 0 Then numeri(c1) = numeri(c1) + 1
GlobalFreq(c1) = GlobalFreq(c1) + totfreq(c1)
Next
End Function

Function FreqAmbi(inizio)
For a = inizio To inizio + (colpi-1)
For b =1 To 5
num1 = Estratto(a, ruota(1), b)
For c =1 To 5
num2 = Estratto(a, ruota(1), c)
Ambi(num1, num2) = Ambi(num1,num2) + 1
Next
Next
For b =1 To 5
num1 = Estratto(a, ruota(2), b)
For c = 1 To 5
num2 = Estratto(a, ruota(2), c)
Ambi(num1, num2) = Ambi(num1, num2) + 1
Next
Next
Next
End Function

Function AmbateUscite(inizio, condizione, num)
Dim a, b, numest1, numest2
AmbateUscite = 0
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
numest1 = Estratto(a, varRuote1(condizione), b)
numest2 = Estratto(a, varRuote2(condizione), b)
If num = numest1 Then
TextOut "Ambata " & num & " " & Left(NomeRuota(varRuote1(condizione)),2) & " (" & a - inizio + 1 & "ºc)"
Ambate

[firefox]

Ciao
eccoti il listato corretto. Mancavano alcune cose.



'SPY DETECTOR - L8+

'SPY DETECTOR pronostica in automatico un numero per ambata e due numeri per ambo su due ruote e tutte.
'SPY DETECTOR permette di eseguire ricerche spia in presenza di numeri isotopi ripetuti sortiti su due ruote anche non consecutive.
'SPY DETECTOR è in grado di rintracciare un numero isotopo ripetuto su due ruote in automatico o definito dall'utente.
'SPY DETECTOR permette di variare le estrazioni di spyscan sull'archivio.
'SPY DETECTOR fornisce un riepilogo statistiche risultati ottenuti per ambata e ambo.

'SCRIPT L8+

Const COLPI=9
Public Ruota(2)
Public Numeri(90)
Public GlobalFreq(90)
Public Ambi(90,90)
Public TotCasi, CasiNeg
Dim varList()
Dim varData()
Dim varRuote1()
Dim varRuote2()
Public StatAmbi(9), StatAmbiTutte(9), StatAmbate(9)
Function Isotopo(estrazione, video)
Isotopo = 0
For b = 1 To 5
For r1 = 1 To 9
num1 = Estratto(estrazione, r1, b)
num1=CInt(num1)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione, r2, b)
num2=CInt(num2)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 Then
If video = 1 Then
ColoreTesto 1
Scrivi "SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>"
Scrivi "---------------------------------------------"
Scrivi
ColoreTesto 2
Scrivi "NUMERO SPIA "&Format2(num1)&" "&Left(NomeRuota(r1),2)&_
"-"&Left(NomeRuota(r2),2)&"("&DataEstrazione(estrazi one)&")"
Scrivi
ColoreTesto 0
End If
Isotopo = num1
Exit Function
End If
End If
Next
Next
Next
End Function
Function NumSpiaIso(estrazione, numero)
NumSpiaIso = 0
Ruota(1) = 0
Ruota(2) = 0
For b = 1 To 5
For r1 = 1 To 9
num1=Estratto(estrazione, r1, b)
For r2 = r1 + 1 To 10
num2 = Estratto(estrazione, r2, b)
If num1 = num2 Then
trovati = 0
For c = 1 To 10
If Estratto(estrazione, c, b) = num1 Then trovati = trovati + 1
Next
If trovati = 2 And num1 = numero Then
TotCasi = TotCasi + 1
Redim Preserve varList(TotCasi)
Redim Preserve varData(TotCasi)
Redim Preserve varRuote1(TotCasi)
Redim Preserve varRuote2(TotCasi)
varRuote1(TotCasi) = r1
varRuote2(TotCasi) = r2
varData(TotCasi) = estrazione
varList(TotCasi) = DataEstrazione(estrazione) & ": "
varList(TotCasi)=varList(totcasi)&"["&Left(NomeRuota(r1),2)&"-"&Left(NomeRuota(r2),2)&"]"
NumSpiaIso = num1
Ruota(1) = r1
Ruota(2) = r2
Exit Function
End If
End If
Next
Next
Next
End Function
Function PiuFrequenti(inizio)
Dim totfreq(90)
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
num =Estratto(a, ruota(1), b)
totfreq(num) = totfreq(num) + 1
num = Estratto(a, ruota(2), b)
totfreq(num) = totfreq(num) + 1
Next
Next
For c1 = 1 To 90
If totfreq(c1) > 0 Then numeri(c1) = numeri(c1) + 1
GlobalFreq(c1) = GlobalFreq(c1) + totfreq(c1)
Next
End Function
Function FreqAmbi(inizio)
For a = inizio To inizio + (colpi-1)
For b =1 To 5
num1 = Estratto(a, ruota(1), b)
For c =1 To 5
num2 = Estratto(a, ruota(1), c)
Ambi(num1, num2) = Ambi(num1,num2) + 1
Next
Next
For b =1 To 5
num1 = Estratto(a, ruota(2), b)
For c = 1 To 5
num2 = Estratto(a, ruota(2), c)
Ambi(num1, num2) = Ambi(num1, num2) + 1
Next
Next
Next
End Function
Function AmbateUscite(inizio, condizione, num)
Dim a, b, numest1, numest2
AmbateUscite = 0
For a = inizio To inizio + (colpi-1)
For b = 1 To 5
numest1 = Estratto(a, varRuote1(condizione), b)
numest2 = Estratto(a, varRuote2(condizione), b)
If num = numest1 Then
Scrivi "Ambata "&num&" "&Left(NomeRuota(varRuote1(condizione)),2)&_
" (" & a - inizio + 1 & "ºc)"
AmbateUscite = AmbateUscite + 1
StatAmbate(a-inizio+1) = StatAmbate(a-inizio+1) + 1
End If
If num = numest2 Then
Scrivi "Ambata "&num&" "&Left(NomeRuota(varRuote2(condizione)),2)&_
" (" & a - inizio + 1 & "ºc)"
AmbateUscite = AmbateUscite + 1
StatAmbate(a-inizio+1) = StatAmbate(a-inizio+1) + 1
End If
Next
Next

[filippok9]

Grazie Francesco, cosa ne pensi di questo metodo?
Saluti Filippo

filippok9

filippok9

[cozzio]

Salve, ma a me lo script non da nessun risultato, solo un OUTPUT BIANCO[:0]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

[firefox]

Ciao

se usi lo script in automatico ossia lasci lo zero (ricerca in automatico) con la estrazione del 16.08.2011 nn evidenzia nulla.
Probabilmente in automatico non trova nulla.
Prova ad inserire una estrazione in meno quando ti viene chiesto
trova un numero spia nell'estrazione...8416 ad esempio e vedrai il risultato.
Se digiti il numero spia da cercare funziona regolarmente.
Spero di essere stato d'aiuto.
Eccoti l'output come spiegato in precedenza


SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>
---------------------------------------------

NUMERO SPIA 01 Ca-To(13.08.2011)

AMBATA IN GIOCO: 22
AMBO IN GIOCO : 22.21

CONDIZIONI VERIFICATESI ED ESITI OTTENUTI
-----------------------------------------
23.03.2005: [Mi-To]
Ambata 22 To (1ºc)
Ambata 22 Mi (6ºc)
Ambata 22 Mi (8ºc)

23.04.2005: [Fi-Na]
Ambata 22 Na (5ºc)
Ambo Tutte 22.21 Ve (3ºc)

25.05.2005: [Pa-Ro]
Ambata 22 Ro (4ºc)
Ambo 22.21 Ro (4ºc)

21.06.2005: [Ca-Ro]
Ambata 22 Ca (5ºc)

17.11.2005: [Ba-Ge]
Ambata 22 Ba (5ºc)

24.01.2006: [Ro-Ve]
Ambata 22 Ro (7ºc)
Ambata 22 Ro (9ºc)
Ambo 22.21 Ro (9ºc)

07.03.2006: [Ba-Ge]
Ambata 22 Ge (2ºc)

11.07.2006: [Ba-Ve]
Ambata 22 Ba (4ºc)
Ambo 22.21 Ba (4ºc)
Ambo Tutte 22.21 Pa (4ºc)

19.09.2006: [Ca-Ge]
Ambata 22 Ca (1ºc)
Ambata 22 Ge (2ºc)

06.03.2007: [Mi-Na]
Ambata 22 Na (2ºc)
Ambata 22 Na (3ºc)

31.05.2008: [Na-Pa]
Ambata 22 Na (9ºc)
Ambata 22 Pa (9ºc)

12.08.2008: [Fi-To]
Ambata 22 Fi (1ºc)

07.10.2008: [Mi-Ro]
Ambata 22 Ro (4ºc)

27.11.2008: [Ca-Mi]
Ambata 22 Ca (2ºc)
Ambata 22 Ca (4ºc)

31.01.2009: [Mi-Pa]
Ambata 22 Pa (6ºc)
Ambata 22 Pa (7ºc)
Ambata 22 Mi (8ºc)

14.07.2009: [Ba-Ge]
Negativo

13.08.2009: [Ge-Mi]
Ambata 22 Mi (3ºc)
Ambata 22 Ge (6ºc)
Ambata 22 Mi (9ºc)
Ambo 22.21 Ge (6ºc)
Ambo Tutte 22.21 Na (5ºc)

19.12.2009: [Ca-Fi]
Ambata 22 Ca (3ºc)
Ambata 22 Fi (5ºc)

07.01.2010: [Ca-Ve]
Ambata 22 Ve (6ºc)
Ambata 22 Ve (8ºc)
Ambo 22.21 Ve (8ºc)

29.04.2010: [Ba-Mi]
Ambata 22 Mi (8ºc)

11.05.2010: [Ba-Ge]
Negativo
Ambo Tutte 22.21 Pa (7ºc)

22.05.2010: [Ge-To]
Ambata 22 Ge (9ºc)
Ambo Tutte 22.21 Pa (2ºc)

10.06.2010: [Ba-Pa]
Ambata 22 Pa (3ºc)

27.07.2010: [Mi-To]
Ambata 22 Mi (5ºc)

28.09.2010: [Ba-Ca]
Ambata 22 Ba (9ºc)
Ambo Tutte 22.21 Fi (7ºc)

07.10.2010: [Mi-Ve]
Ambata 22 Mi (8ºc)
Ambo Tutte 22.21 Fi (3ºc)

07.04.2011: [Ge-Ve]
Negativo

26.05.2011: [Ca-Mi]
Negativo

09.06.2011: [Pa-Ro]
Ambata 22 Ro (7ºc)


RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 29
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 03 00 00
2 04 00 01
3 04 00 02
4 04 02 01
5 05 00 01
6 04 01 00
7 03 00 02
8 05 01 00
9 06 01 00
-------------------------------
TOT: 38 05 07

SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>

Questo invece scegliendo tu la spia in questo caso ho scelto il 90

SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>
---------------------------------------------

NUMERO SPIA 01 Ca-To(13.08.2011)

AMBATA IN GIOCO: 22
AMBO IN GIOCO : 22.21

CONDIZIONI VERIFICATESI ED ESITI OTTENUTI
-----------------------------------------
23.03.2005: [Mi-To]
Ambata 22 To (1ºc)
Ambata 22 Mi (6ºc)
Ambata 22 Mi (8ºc)

23.04.2005: [Fi-Na]
Ambata 22 Na (5ºc)
Ambo Tutte 22.21 Ve (3ºc)

25.05.2005: [Pa-Ro]
Ambata 22 Ro (4ºc)
Ambo 22.21 Ro (4ºc)

21.06.2005: [Ca-Ro]
Ambata 22 Ca (5ºc)

17.11.2005: [Ba-Ge]
Ambata 22 Ba (5ºc)

24.01.2006: [Ro-Ve]
Ambata 22 Ro (7ºc)
Ambata 22 Ro (9ºc)
Ambo 22.21 Ro (9ºc)

07.03.2006: [Ba-Ge]
Ambata 22 Ge (2ºc)

11.07.2006: [Ba-Ve]
Ambata 22 Ba (4ºc)
Ambo 22.21 Ba (4ºc)
Ambo Tutte 22.21 Pa (4ºc)

19.09.2006: [Ca-Ge]
Ambata 22 Ca (1ºc)
Ambata 22 Ge (2ºc)

06.03.2007: [Mi-Na]
Ambata 22 Na (2ºc)
Ambata 22 Na (3ºc)

31.05.2008: [Na-Pa]
Ambata 22 Na (9ºc)
Ambata 22 Pa (9ºc)

12.08.2008: [Fi-To]
Ambata 22 Fi (1ºc)

07.10.2008: [Mi-Ro]
Ambata 22 Ro (4ºc)

27.11.2008: [Ca-Mi]
Ambata 22 Ca (2ºc)
Ambata 22 Ca (4

[firefox]

Rispondo a Filippok9

Penso che come tutti i giochi bisogna andare cauti. Che io sappia il gioco non ha mai arricchito nessuno, anzi...
Cmq un plauso all'autore dello script va fatto. Un capolavoro davvero.
Insomma per gli amanti del genere "007" è ottimo.

Ciao

[filippok9]

Ciao Francesco, hai fatto un ottimo lavoro, sono daccordo con tè per un plauso all'autore, un'altra piccola correzione se ti è possibile sul riepilogo statistiche, riepilogo totale solo di ambate.

RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 29
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 03
2 04 01
3 04 02
4 04 02 01
5 05 01
6 04 01
7 03 02
8 05 01
9 06 01
-------------------------------
TOT: 38

questo è quello mostrato a cozzio da parte tua

RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 29
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 03 00 00
2 04 00 01
3 04 00 02
4 04 02 01
5 05 00 01
6 04 01 00
7 03 00 02
8 05 01 00
9 06 01 00
-------------------------------
TOT: 38 05 07


Saluti filippo, e di nuovo colpimenti.

filippok9

[cozzio]

Grazie, ma è scomodo che non funzioni in automatico, nessuno sa il perchè??[?]

La fortuna è cieca...ma la sfiga ci vede benissimo!!!

[firefox]

Ho sbagliato nel postare il resoconto della ricerca manuale della spia
90.Avevo incollato per due volte la stessa ricerca.
Chiedo scusa.

SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>
---------------------------------------------

NUMERO SPIA 90 Ba-Na(12.02.2011)

AMBATA IN GIOCO: 19
AMBO IN GIOCO : 19.6

CONDIZIONI VERIFICATESI ED ESITI OTTENUTI
-----------------------------------------
03.06.2004: [Ge-Ve]
Ambata 19 Ge (3ºc)
Ambata 19 Ge (7ºc)
Ambata 19 Ge (8ºc)
Ambo 19.6 Ge (7ºc)

14.07.2004: [Ro-Ve]
Ambata 19 Ve (3ºc)
Ambata 19 Ro (5ºc)
Ambo 19.6 Ve (3ºc)

22.12.2004: [Fi-Ro]
Ambata 19 Ro (3ºc)
Ambata 19 Fi (8ºc)

09.02.2005: [Ba-Na]
Ambata 19 Na (4ºc)

28.07.2005: [Ba-Ro]
Ambata 19 Ba (6ºc)

27.08.2005: [Ca-Fi]
Negativo

25.10.2005: [Ba-Ve]
Ambata 19 Ve (5ºc)

08.11.2005: [Fi-To]
Ambata 19 Fi (1ºc)
Ambata 19 Fi (3ºc)
Ambata 19 Fi (4ºc)

14.01.2006: [Fi-To]
Ambata 19 Fi (5ºc)

08.04.2006: [Fi-Pa]
Ambata 19 Pa (3ºc)
Ambata 19 Pa (4ºc)

20.04.2006: [Ba-Mi]
Ambata 19 Mi (3ºc)
Ambata 19 Mi (7ºc)

27.05.2006: [Na-Pa]
Ambata 19 Pa (8ºc)
Ambo 19.6 Pa (8ºc)

19.08.2006: [Mi-Na]
Ambata 19 Mi (6ºc)

07.11.2006: [Ca-Ro]
Negativo

22.02.2007: [Fi-Mi]
Ambata 19 Fi (1ºc)
Ambata 19 Mi (9ºc)

22.05.2007: [Ro-Ve]
Ambata 19 Ve (5ºc)

29.05.2007: [Ca-Pa]
Ambata 19 Pa (1ºc)
Ambata 19 Pa (4ºc)
Ambata 19 Pa (5ºc)
Ambo Tutte 19.6 Ge (8ºc)

21.06.2007: [Pa-Ro]
Ambata 19 Pa (3ºc)
Ambata 19 Ro (5ºc)
Ambata 19 Pa (8ºc)

24.11.2007: [Ge-Mi]
Ambata 19 Ge (6ºc)
Ambo Tutte 19.6 Na (3ºc)

29.11.2007: [Na-To]
Ambata 19 Na (1ºc)
Ambo 19.6 Na (1ºc)

12.04.2008: [Ba-Pa]
Ambata 19 Ba (3ºc)

06.05.2008: [Ba-Ro]
Ambata 19 Ba (5ºc)
Ambata 19 Ba (6ºc)
Ambata 19 Ba (8ºc)
Ambo 19.6 Ba (8ºc)
Ambo Tutte 19.6 Na (8ºc)

05.07.2008: [Pa-To]
Ambata 19 To (1ºc)
Ambo 19.6 To (1ºc)
Ambo Tutte 19.6 Ro (9ºc)

09.04.2009: [Ba-Fi]
Ambata 19 Fi (3ºc)
Ambata 19 Fi (9ºc)

27.04.2009: [Ge-Pa]
Ambata 19 Pa (7ºc)

28.04.2009: [Ba-Ge]
Ambata 19 Ba (7ºc)

05.12.2009: [Fi-Pa]
Negativo
Ambo Tutte 19.6 Ge (9ºc)

09.03.2010: [Ba-Ca]
Negativo

20.04.2010: [Ba-Ge]
Ambata 19 Ge (2ºc)
Ambata 19 Ge (9ºc)

15.06.2010: [Ca-Na]
Ambata 19 Na (4ºc)

04.09.2010: [Ro-To]
Ambata 19 To (1ºc)
Ambata 19 Ro (4ºc)
Ambata 19 To (8ºc)

18.11.2010: [Ge-To]
Ambata 19 To (3ºc)

23.11.2010: [Fi-To]
Ambata 19 To (1ºc)

04.01.2011: [Fi-Ge]
Ambata 19 Fi (6ºc)
Ambata 19 Fi (7ºc)
Ambo 19.6 Fi (7ºc)


RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 34
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 07 02 00
2 01 00 00
3 10 01 01
4 06 00 00
5 07 00 00
6 05 00 00
7 05 02 00
8 06 02 02
9 03 00 02
-------------------------------
TOT: 50 07 05

SPY DETECTOR BY PREDICTOR - <http://RAMCOLOTTO>

x filippok9
credo che alla fine ci sia il resoconto generale sia pqr le ambate che degli ambi ( in blu). Se ho capito bene quello che intendi dire

ciao da Francesco

[filippok9]

Ciao Francesco se confronti i due riepiloghi statistiche, ti accorgi che nel mio non sono incolonnate gli ambi a tutte e alla fine il
TOT: 38 solo ambate non considera gli ambi


RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 29 (filippo)
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 03
2 04 01
3 04 02
4 04 02 01
5 05 01
6 04 01
7 03 02
8 05 01
9 06 01
-------------------------------
TOT: 38

questo è quello mostrato a cozzio da parte tua

RIEPILOGO STATISTICHE RISULTATI
-------------------------------
Casi Totali : 29 (francesco)
Casi Neg. Ambata: 4
Colpi Ambate Ambi Ambi a tutte
1 03 00 00
2 04 00 01
3 04 00 02
4 04 02 01
5 05 00 01
6 04 01 00
7 03 00 02
8 05 01 00
9 06 01 00
-------------------------------
TOT: 38 05 07


Saluti Filippo

filippok9