Per luigib su spaziometria script x superenalotto

[lotto_tom75]

Option Explicit
Sub Main
'queste righe dichiarano le variabili che sono richiamate nello script.




Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim sorte,ritardo,ritardomax,Incrritmax,frequenza
Dim ColTot
'ReDim aRuote(1)




ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)




'Assegno alla sorte ricercata il valore 3
sorte = 5


'Assegno al valore k i possibili numeri da 1 a 90 e ci costruisco un array aNum
'For k = 1 To 90
'aNum(k) = k
'Next




'Assegno alla variabile classe il valore 5 ovvero chiedo di generare le cinquine
Classe = 10




ColTot = InitSviluppoIntegrale(aNum,Classe)




'Si chiede di sviluppare tutte le combinazioni
If ColTot > 0 Then




Do While GetCombSviluppo(aCol) = True




i = i + 1






'AL POSTO DI QUESTA PROVO A METTERCI QUELLA USATA PER LA STATISTICA SUL FILE...
'Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)


Call StatisticaFormazioneSE(aNum,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)




Dim Diff
Diff = ritardomax - ritardo


'Se questi ritardi sono maggiori di 1830 estrazioni
'If RetFreq > 0 Then
'If RetIncrRitMax > 0 Then


'If(RetRit1 >= 0) Then


If(ritardo >= 0 And Diff < 800) Then' And RetIncrRitMax = 0) Then
'If(RetRit1 >= 0 And Diff < 10 And RetIncrRitMax = 0) Then


'Call Scrivi("---QUI CI ANDREBBE IL NOME DELLA RUOTA ANALIZZATA---")
'si scrive a video il numero di combinazione generata , la combinazione generata e il suo RA
'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RUOTA: " & NomeRuota(aRuoteSel(k)))


Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & ritardo & " RS: " & ritardomax & " INCMAX: " & Incrritmax & " FQ: " & frequenza & " DIFF " & Diff)


End If




'---Procedura analoga per la ruota di CA e FI
'fine procedura analoga per CA e FI




'Si genera una barra verde... che ci segnala dove siamo e quanto manca per il termine dell'elaborazione...




Call AvanzamentoElab(1,ColTot,i) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR




'Si scrive insieme alla barra il numero di colonna in fase di elaborazione...
Call Messaggio("Colonna " & i)
'Se si preme lo "STOP" del bottone apposito durante l'esecuzione dello script questo s'interrompe.
If ScriptInterrotto Then Exit Do
'Next
Loop
End If
End Sub

Non totalmente appagato dallo script che ho fatto per leggere dal file txt ho provato a cimentarmi anche nella creazione dello script analogo a quanto già abbiamo fatto per il lotto con il tabellone colorato... ed è venuto fuori questo... che non da errore... ma in compenso... non da nemmeno risultati corretti...

Ho provato a guardare e riguardare dove fosse il bug ma non riesco a trovarlo... mi daresti una mano nell'identificarlo?

Grazie infinite luigi

 

[lotto_tom75]

Come non detto! Trovato il baco!!!
Acol al posto di Anum!

 

[giluge]

ciao
scusa a che serve questo script?
grazie

 

[lotto_tom75]

ciao
scusa a che serve questo script?
grazie

A gestire tutti i parametri come RA, RS, INC, FRQ, DIFF riguardo il superenalotto. ciao

 

[giluge]

A gestire tutti i parametri come RA, RS, INC, FRQ, DIFF riguardo il superenalotto. ciao

ciao
ma con la nuova spaziometria funziona? a me sembra di no
ciao

 

[lotto_tom75]

A me funziona

A me funziona

ciao
ma con la nuova spaziometria funziona? a me sembra di no
ciao

A me funziona.

Probabilmente non hai modificato la riga

Call StatisticaFormazioneSE(Anum,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)

in

Call StatisticaFormazioneSE(Acol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)

come evidenziato sopra .

Il mio codice funzionante comunque è questo :

Option Explicit
Sub Main
'queste righe dichiarano le variabili che sono richiamate nello script.


'By Lotto_tom75 Script (x spaziometria) per Superenalotto Rilevazione Parametri di Ritardo 
'su Combinazioni Integrali dato Gruppo di Numeri Scelti da Pannello.



Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim sorte,ritardo,ritardomax,Incrritmax,frequenza
Dim ColTot
'ReDim aRuote(1)








ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)




'Assegno alla sorte ricercata il valore 3
sorte = 3




'Assegno al valore k i possibili numeri da 1 a 90 e ci costruisco un array aNum
'For k = 1 To 90
'aNum(k) = k
'Next








'Assegno alla variabile classe il valore 5 ovvero chiedo di generare le cinquine
Classe = 6








ColTot = InitSviluppoIntegrale(aNum,Classe)








'Si chiede di sviluppare tutte le combinazioni
If ColTot > 0 Then








Do While GetCombSviluppo(aCol) = True








i = i + 1












'AL POSTO DI QUESTA PROVO A METTERCI QUELLA USATA PER LA STATISTICA SUL FILE...
'Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)




Call StatisticaFormazioneSE(aCol,sorte,ritardo,ritardomax,Incrritmax,frequenza,Inizio,Fine)








Dim Diff
Diff = ritardomax - ritardo




'Se questi ritardi sono maggiori di 1830 estrazioni
'If RetFreq > 0 Then
'If RetIncrRitMax > 0 Then




'If(RetRit1 >= 0) Then




If(ritardo >= 0) Then' And RetIncrRitMax = 0) Then
'If(RetRit1 >= 0 And Diff < 10 And RetIncrRitMax = 0) Then




'Call Scrivi("---QUI CI ANDREBBE IL NOME DELLA RUOTA ANALIZZATA---")
'si scrive a video il numero di combinazione generata , la combinazione generata e il suo RA
'Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RUOTA: " & NomeRuota(aRuoteSel(k)))




Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & ritardo & " RS: " & ritardomax & " INCMAX: " & Incrritmax & " FQ: " & frequenza & " DIFF " & Diff)




End If








'---Procedura analoga per la ruota di CA e FI
'fine procedura analoga per CA e FI








'Si genera una barra verde... che ci segnala dove siamo e quanto manca per il termine dell'elaborazione...








Call AvanzamentoElab(1,ColTot,i) 'QUESTO E' IL TENTATIVO PER LA PROGRESS BAR








'Si scrive insieme alla barra il numero di colonna in fase di elaborazione...
Call Messaggio("Colonna " & i)
'Se si preme lo "STOP" del bottone apposito durante l'esecuzione dello script questo s'interrompe.
If ScriptInterrotto Then Exit Do
'Next
Loop
End If
End Sub

Ciao e Good Luck