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(estrazione)&")"
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

 

[firefox]

Ciao Filippo

se ho capito bene a te interessa conoscere il solo resoconto delle ambate. Se è così basta cambiare questa riga del codice
Scrivi "TOT: "& Space(2)& Format2(StatTotAmbate)'& space(6)& Format2(StatTotAmbi)&space(6)&_
Format2(StatTotAmbiTutte)

in rosso c'è l'apostrofo che come il famoso rem fa si che la riga non venga elaborata.
Questo ripeto se ho capito bene.
Se ti riferisci all'incolonnamento preciso nn saprei dirti in tutta onestà dove mettere le mani.
Ciao da Francesco

 

[filippok9]

No Francesco forse mi sono spiegato male a me interessa anche il riepilogo ambi a ruota e a tutte, questo era l'esempio.
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 che compare nella mia videata


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 questo è quello tuo postato a cozzio


Saluti Filippo



filippok9

 

[firefox]

Ciao Filippo

a me il resoconto generale funziona non capisco a te perchè non viene evidenziato.
Ecco a riprova l'output della ricerca in automatico

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

NUMERO SPIA 19 Ge-To(18.08.2011)

AMBATA IN GIOCO: 38
AMBO IN GIOCO : 38.7

CONDIZIONI VERIFICATESI ED ESITI OTTENUTI
-----------------------------------------
20.04.2005: [Fi-Na]
Ambata 38 Na (7ºc)
Ambo Tutte 38.7 Ba (8ºc)

21.02.2006: [Na-Pa]
Ambata 38 Pa (2ºc)
Ambata 38 Pa (5ºc)
Ambo Tutte 38.7 Ca (2ºc)

26.04.2006: [Ge-To]
Negativo
Ambo Tutte 38.7 Ca (1ºc)

27.07.2006: [Fi-To]
Ambata 38 Fi (5ºc)

19.08.2006: [Fi-To]
Ambata 38 Fi (2ºc)

19.12.2006: [Mi-To]
Ambata 38 To (7ºc)

08.01.2007: [Ba-To]
Ambata 38 To (6ºc)

20.02.2007: [Ba-Ve]
Ambata 38 Ve (3ºc)

09.06.2007: [Ge-Pa]
Negativo

19.07.2007: [Ba-Fi]
Ambata 38 Ba (4ºc)
Ambata 38 Fi (4ºc)
Ambata 38 Fi (5ºc)

18.08.2007: [Ca-Ge]
Ambata 38 Ge (2ºc)

25.08.2007: [Ro-To]
Ambata 38 Ro (2ºc)

30.08.2007: [Fi-Mi]
Ambata 38 Mi (9ºc)

11.09.2007: [Ge-Pa]
Negativo

06.10.2007: [Ge-Pa]
Ambata 38 Pa (9ºc)
Ambo Tutte 38.7 Fi (5ºc)

17.01.2008: [Ro-To]
Ambata 38 Ro (2ºc)
Ambo 38.7 Ro (2ºc)

24.05.2008: [Ba-To]
Ambata 38 Ba (6ºc)
Ambo Tutte 38.7 Ve (6ºc)

05.06.2008: [Ca-Ve]
Ambata 38 Ve (1ºc)
Ambata 38 Ve (4ºc)
Ambo 38.7 Ve (1ºc)

20.01.2009: [Ba-Ge]
Ambata 38 Ba (5ºc)
Ambo 38.7 Ba (5ºc)

26.03.2009: [Mi-Na]
Ambata 38 Mi (3ºc)
Ambata 38 Mi (6ºc)
Ambata 38 Na (9ºc)

26.09.2009: [Ca-Mi]
Ambata 38 Ca (2ºc)

13.10.2009: [Fi-Mi]
Negativo

17.12.2009: [Ba-Ro]
Negativo
Ambo Tutte 38.7 Na (8ºc)

23.03.2010: [Fi-To]
Ambata 38 To (8ºc)

20.07.2010: [Ca-Pa]
Ambata 38 Ca (5ºc)

14.08.2010: [Ge-To]
Ambata 38 Ge (6ºc)

23.09.2010: [Ge-To]
Ambata 38 Ge (8ºc)

25.11.2010: [Ba-To]
Ambata 38 To (1ºc)
Ambata 38 To (5ºc)
Ambo 38.7 To (5ºc)

25.06.2011: [Ca-Mi]
Ambata 38 Ca (8ºc)
Ambata 38 Ca (9ºc)


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

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

Ricordati che funziona con lottodesk mentre in Spaziometria da degli errori.
Ripeto non capisco come mai a te non vengano evidenziati i vari resoconti degli ambi.
Spero di esserti stato d'aiuto.
Ciao da Francesco

 

[filippok9]

Grazie lo stesso Francesco, sei stato di ottimo aiuto, se c'è qualche altro amico di questo forum che ha il programma spaziometria e può migliorare la videata della statistica lo ringrazio anticipatamente, vorrei dare un contributo a tutto il forum con questo metodo e apportare dei miglioramenti, se ero capace di farlo lo avrei fatto io, ma al momento sto cercando di studiare e volevo qualche aiuto per capire meglio come muovermi, a quanto sembra tranne Francesco non importa niente a nessuno, forse mi sbaglio a valure il metodo e non viene preso in considerazione.
Saluti Filippo

filippok9

 

[firefox]

Ciao Filippo

è periodo di ferie e i BIG sono a riposo. Aspettiamo il loro ritorno.

Ciao da Francesco

 

[filippok9]

Ciao Francesco, sicuramente è come dici tu.

Saluti Filippo

filippok9

 

[claudio8]

quote:Originally posted by filippok9

Ciao Francesco, sicuramente è come dici tu.

Saluti Filippo

filippok9

Sostitusci queste righe finali dello script per migliorarne il prospetto finale.

	Scrivi "RIEPILOGO STATISTICHE RISULTATI"
	Scrivi String(31,"-")
	ColoreTesto 0
	Scrivi "Casi Totali :        " & TotCasi
	Scrivi "Casi Neg. di Ambata: " & CasiNeg
	StatTotAmbate = 0
	StatTotAmbi = 0
	StatTotAmbiTutte = 0
	Scrivi " Colpi | Ambate | Ambi | Ambi a tutte"
	For a = 1 To 9
		Scrivi FormatSpace(a,3,- 1) & "    |  " & FormatSpace(StatAmbate(a),4,- 1) & "  | " & FormatSpace(StatAmbi(a),4,- 1) & " |  " & FormatSpace(StatAmbiTutte(a),4,- 1)
		StatTotAmbate = StatTotAmbate + StatAmbate(a)
		StatTotAmbi = StatTotAmbi + StatAmbi(a)
		StatTotAmbiTutte = StatTotAmbitutte + StatAmbiTutte(a)
	Next
	ColoreTesto 1
	Scrivi String(31,"-")
	Scrivi "TOTALI : " & Space(3) & Format2(StatTotAmbate) & Space(6) & Format2(StatTotAmbi) & Space(6) & Format2(StatTotAmbiTutte)

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"

 

[bergie]

provate questo + le modifiche di claudio8
funziona anche su spaziometria
FATE COPIA INCOLLA SU UN DOCUMENTO DI TESTO
E POI METTETELO SU SPAZIOMETRIA.

'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 - RAMCOLOTTO <http://RAMCOLOTTO> <http://RAMCOLOTTO>"
Scrivi "---------------------------------------------"
Scrivi
ColoreTesto 2
Scrivi "NUMERO SPIA "&Format2(num1)&" "&Left(NomeRuota(r1),2)&_
"-"&Left(NomeRuota(r2),2)&"("&DataEstrazione(estrazione)&")"
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 - ini

 

[firefox]

GRAZIE

Ciao da Francesco

 

[filippok9]

Un grosso Grazie.
Saluti Filippo

filippok9