Cerca
 
 

Risultati secondo:
 


Rechercher Ricerca avanzata

ESTRAZIONI LOTTO
Ultimi argomenti
» Napoli
Ven Feb 16, 2018 8:25 pm Da Blackmore

» Vediamo se mi ripago le ferie
Ven Feb 16, 2018 5:11 pm Da spike5

» Da Ambo spia 09-90 a tutte
Ven Feb 16, 2018 8:40 am Da spike5

» Ultima del Mese BARI
Sab Feb 10, 2018 9:12 pm Da vinci

» Palermo-Torino
Lun Feb 05, 2018 8:12 pm Da Blackmore

» 2 ambi a BARI
Mar Gen 30, 2018 8:12 am Da spike5

» Firenze-Genova (chiusa)
Gio Gen 18, 2018 1:09 pm Da Lory

» ambo a tutte
Lun Gen 08, 2018 9:50 pm Da Mara*

» 2 ambi a Venezia
Lun Gen 08, 2018 1:49 pm Da spike5


perchè non dà risultati

Andare in basso

perchè non dà risultati

Messaggio Da roy62 il Ven Dic 19, 2014 3:46 pm

....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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Ven Dic 19, 2014 9:59 pm

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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da roy62 il Ven Dic 19, 2014 10:41 pm

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

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

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Sab Dic 20, 2014 12:22 am

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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da roy62 il Sab Dic 20, 2014 7:46 am

ok grazie ci provo...
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da roy62 il Sab Dic 20, 2014 7:55 am

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
avatar
roy62

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Sab Dic 20, 2014 12:30 pm

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 ?

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da roy62 il Sab Dic 20, 2014 2:28 pm

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

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Sab Dic 20, 2014 5:01 pm

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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da roy62 il Sab Dic 20, 2014 9:13 pm

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

Messaggi : 268
Data d'iscrizione : 18.03.14
Località : Barletta BT

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Dom Dic 21, 2014 12:18 am

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

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Blackmore il Dom Dic 21, 2014 12:48 pm

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


[Devi essere iscritto e connesso per vedere questo link]

Blackmore

Messaggi : 384
Data d'iscrizione : 11.06.14

Vedi il profilo dell'utente

Tornare in alto Andare in basso

Re: perchè non dà risultati

Messaggio Da Contenuto sponsorizzato


Contenuto sponsorizzato


Tornare in alto Andare in basso

Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum