perchè non dà risultati

....a proposito di super frequenze....ho trvato uno script di luigib...gira ....ma non dà alcun risultato



'SCRIPT DI ESEMPIO PER TROVARE LE FORMAZIONI SUPERFREQUENTI
'LAVORA SOLO SU RUOTA SINGOLA O TUTTE
'PER RENDERLO COMPATIBILE CON ALTRI SOFTWARE E' SUFFICIENTE CAMBIARE ALCUNE ISTRUZIONI
'VARIABILI GLOBALI
Dim Freq(90)
Dim Num(90)
Dim DataIni,DataFin
Dim Ciclo,TotCicli,Sorte,Ruota,FreqMin
Dim R1,R2,R3,R4,ruota1,ruota2,ruota3,ruota4,fine
Sub Main()
Ciclo = CInt(InputBox("Durata del ciclo",,10))
TotCicli = CInt(InputBox("Cicli totali",,6))
FreqMin = CInt(InputBox("Frequenze minime dei singoli numeri per ciclo",,2))
Sorte = CInt(InputBox("Sorte di ricerca" + Chr(13) + "1=estratto; 2=ambo; 3=terno; 4=quat; 5=cinq",,2))
ruota1 = CInt(InputBox("Ruota di ricerca 1" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,4))
ruota2 = CInt(InputBox("Ruota di ricerca 2" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,5))
ruota3 = CInt(InputBox("Ruota di ricerca 3" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,9))
ruota4 = CInt(InputBox("Ruota di ricerca 4" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,10))
fine = InputBox("Estrazione finale",,EstrazioniArchivio)
If Ruota <> 11 Then
R1 = ruota1
R2 = ruota2
R3 = ruota3
R4 = ruota4
Else
R1 = 1
R2 = 10
End If
DataFin = fine
DataIni = DataFin -(Ciclo*TotCicli)
CalcolaFrequenze()
OrdinaFrequenze()
TrovaFormazione()
End Sub
Sub CalcolaFrequenze()
Dim a,e,n,r
For a = DataIni To DataFin
For r = R1 To R2
For e = 1 To 5
n = Estratto(a,r,e)
Freq(n) = Freq(n) + 1
Next
Next
Next
End Sub
Sub OrdinaFrequenze()
Dim a,b,k
For a = 1 To 90
Num(a) = a
Next
For a = 1 To 89
For b = a + 1 To 90
If Freq(a) < Freq(b) Then
k = Freq(a)
Freq(a) = Freq(b)
Freq(b) = k
k = Num(a)
Num(a) = Num(b)
Num(b) = k
End If
Next
Next
End Sub
Sub TrovaFormazione()
Dim t
Dim numForm()
Dim numRichiesti
numRichiesti = 0
For t = 1 To 90
ReDim numForm(90)
If Verifica(t) = True Then
numRichiesti = t
Exit For
End If
Next
Dim strNum
For t = 1 To numRichiesti
strNum = strNum & Num(t) & "."
Next
If Right(strNum,1) = "." Then strNum = Left(strNum,Len(strNum) - 1)
Call Scrivi("SuperFrequenze")
Call Scrivi
Call Scrivi("Data iniziale: " & GetInfoEstrazione(DataFin -(Ciclo*TotCicli)))
Call Scrivi("Data finale: " & GetInfoEstrazione(DataFin))
Call Scrivi("Ruota/e: " & SiglaRuota(R1) & "-" & SiglaRuota(R2) & "-" & SiglaRuota(R3) & "-" & SiglaRuota(R4))
Call Scrivi("Durata ciclo: " & Ciclo)
Call Scrivi("Cicli totali: " & TotCicli)
Call Scrivi("Frequenze min. dei singoli numeri per ciclo: " & FreqMin)
Call Scrivi("Sorte di ricerca: " & NomeSorte(Sorte))
Scrivi
Call Scrivi("Formazione trovata (" & numRichiesti & " NR):",True)
Call Scrivi(strNum,,,,Rosso_)
End Sub
Function Verifica(totNum)
Dim a,b,c,e,n,k,r
Dim esatti
Dim fr
k = DataIni
For c = 1 To TotCicli
fr = 0
For r = R1 To R4
For a = 0 To(Ciclo - 1)
esatti = 0
For e = 1 To 5
n = Estratto(k + a,r,e)
esatti = esatti + ControllaFormazione(n,totNum)
Next
If esatti >= Sorte Then
fr = fr + Combinazioni(esatti,Sorte)
End If
Next
Next
If fr < FreqMin Then
Verifica = False
Exit Function
End If
k = k + Ciclo
Next
Verifica = True
End Function
Function ControllaFormazione(n,tot)
Dim a
For a = 1 To tot
If Num(a) = n Then
ControllaFormazione = 1
Exit Function
End If
Next
ControllaFormazione = 0
End Function



grazie a chi mi risolve il problema ciaooo

Gira perfettamente, lasciandolo così com'era
forse hai inserito dei parametri che non si possono trovare, mi spiego meglio, le superfrequenze per quello che cerchi tu non ci sono
ciao

Codice:

SuperFrequenze

Data iniziale: [08879] [ 90] 31.07.2014
Data finale: [08939] [150] 18.12.2014
Ruota/e: GE-MI-TO-VE
Durata ciclo: 10
Cicli totali: 6
Frequenze min. dei singoli numeri per ciclo: 2
Sorte di ricerca: Ambo

Formazione trovata (5 NR):
40.81.80.68.83

Codice:

'SCRIPT DI ESEMPIO PER TROVARE LE FORMAZIONI SUPERFREQUENTI
'LAVORA SOLO SU RUOTA SINGOLA O TUTTE
'PER RENDERLO COMPATIBILE CON ALTRI SOFTWARE E' SUFFICIENTE CAMBIARE ALCUNE ISTRUZIONI
'VARIABILI GLOBALI
Dim Freq(90)
Dim Num(90)
Dim DataIni,DataFin
Dim Ciclo,TotCicli,Sorte,Ruota,FreqMin
Dim R1,R2,R3,R4,ruota1,ruota2,ruota3,ruota4,fine
Sub Main()
 Ciclo = CInt(InputBox("Durata del ciclo",,10))
 TotCicli = CInt(InputBox("Cicli totali",,6))
 FreqMin = CInt(InputBox("Frequenze minime dei singoli numeri per ciclo",,2))
 Sorte = CInt(InputBox("Sorte di ricerca" + Chr(13) + "1=estratto; 2=ambo; 3=terno; 4=quat; 5=cinq",,2))
 ruota1 = CInt(InputBox("Ruota di ricerca 1" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,4))
 ruota2 = CInt(InputBox("Ruota di ricerca 2" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,5))
 ruota3 = CInt(InputBox("Ruota di ricerca 3" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,9))
 ruota4 = CInt(InputBox("Ruota di ricerca 4" + Chr(13) + "1=BA...10=VE; 11=NAZ; 11=TUTTE",,10))
 fine = InputBox("Estrazione finale",,EstrazioniArchivio)
 If Ruota <> 11 Then
 R1 = ruota1
 R2 = ruota2
 R3 = ruota3
 R4 = ruota4
 Else
 R1 = 1
 R2 = 10
 End If
 DataFin = fine
 DataIni = DataFin -(Ciclo*TotCicli)
 CalcolaFrequenze()
 OrdinaFrequenze()
 TrovaFormazione()
End Sub
Sub CalcolaFrequenze()
 Dim a,e,n,r
 For a = DataIni To DataFin
 For r = R1 To R2
 For e = 1 To 5
 n = Estratto(a,r,e)
 Freq(n) = Freq(n) + 1
 Next
 Next
 Next
End Sub
Sub OrdinaFrequenze()
 Dim a,b,k
 For a = 1 To 90
 Num(a) = a
 Next
 For a = 1 To 89
 For b = a + 1 To 90
 If Freq(a) < Freq(b) Then
 k = Freq(a)
 Freq(a) = Freq(b)
 Freq(b) = k
 k = Num(a)
 Num(a) = Num(b)
 Num(b) = k
 End If
 Next
 Next
End Sub
Sub TrovaFormazione()
 Dim t
 Dim numForm()
 Dim numRichiesti
 numRichiesti = 0
 For t = 1 To 90
 ReDim numForm(90)
 If Verifica(t) = True Then
 numRichiesti = t
 Exit For
 End If
 Next
 Dim strNum
 For t = 1 To numRichiesti
 strNum = strNum & Num(t) & "."
 Next
 If Right(strNum,1) = "." Then strNum = Left(strNum,Len(strNum) - 1)
 Call Scrivi("SuperFrequenze")
 Call Scrivi
 Call Scrivi("Data iniziale: " & GetInfoEstrazione(DataFin -(Ciclo*TotCicli)))
 Call Scrivi("Data finale: " & GetInfoEstrazione(DataFin))
 Call Scrivi("Ruota/e: " & SiglaRuota(R1) & "-" & SiglaRuota(R2) & "-" & SiglaRuota(R3) & "-" & SiglaRuota(R4))
 Call Scrivi("Durata ciclo: " & Ciclo)
 Call Scrivi("Cicli totali: " & TotCicli)
 Call Scrivi("Frequenze min. dei singoli numeri per ciclo: " & FreqMin)
 Call Scrivi("Sorte di ricerca: " & NomeSorte(Sorte))
 Scrivi
 Call Scrivi("Formazione trovata (" & numRichiesti & " NR):",True)
 Call Scrivi(strNum,,,,Rosso_)
End Sub
Function Verifica(totNum)
 Dim a,b,c,e,n,k,r
 Dim esatti
 Dim fr
 k = DataIni
 For c = 1 To TotCicli
 fr = 0
 For r = R1 To R4
 For a = 0 To(Ciclo - 1)
 esatti = 0
 For e = 1 To 5
 n = Estratto(k + a,r,e)
 esatti = esatti + ControllaFormazione(n,totNum)
 Next
 If esatti >= Sorte Then
 fr = fr + Combinazioni(esatti,Sorte)
 End If
 Next
 Next
 If fr < FreqMin Then
 Verifica = False
 Exit Function
 End If
 k = k + Ciclo
 Next
 Verifica = True
End Function
Function ControllaFormazione(n,tot)
 Dim a
 For a = 1 To tot
 If Num(a) = n Then
 ControllaFormazione = 1
 Exit Function
 End If
 Next
 ControllaFormazione = 0
End Function

ahhhh ok black....avevo letto che funzionava su ruota singola o tutte

......ma unica ruota non dà risultati.....grazie lo stesso della spiegazione ciaooo

Prova a mettere in r2 r3 r4 la stessa ruota di r1
Ora non ricordo
Ps: questo script fu fatto per visual lotto 7
Luigi l'ha poi convertito per spaziometria

ok grazie ci provo...

ciao black,non dà risultati giusti....

Codice:

SuperFrequenze

Data iniziale: [08927] [138] 18.11.2014
Data finale: [08940] [151] 18.12.2014
Ruota/e: TO-TO-TO-TO
Durata ciclo: 13
Cicli totali: 1
Frequenze min. dei singoli numeri per ciclo: 2
Sorte di ricerca: Ambo

Formazione trovata (2 NR):
38.79

I risultati sono giusti

38.79 sortito 3 volte

38.90 sortito 2 volte

79.90 sortito 2 volte

qual'è la formazione che ha avuto una frequenza maggiore per ambo nelle 13 estrazioni ?

ciao black,non li doveva segnalare visto che ho richiesto la frequenza minima di sortita ...2 ?

No, lo script ti segnala la combinazione con frequenza maggiore cercando nella Frequenza minima  2, non tutte le combinazioni
ciao

ciao,ma non sarebbe possibile modificare ...x evidenziarli?...

Non avrebbe senso per questo script, è stato creato apposta
e comunque è molto complesso

Visto che io non sono un esperto in materia e...
visto che mi assenterò per parecchio dai forum
tranne sporadiche apparizioni....
sul web si trovano un po' di guide sul vbscript
anche se ormai è un linguaggio datato...

questa è una delle tante....  ciao

Guida VBscript