Novità

Per luigib su spaziometria script x superenalotto

lotto_tom75

Advanced Premium Member
Codice:
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
 
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

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

in

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

come evidenziato sopra :).

Il mio codice funzionante comunque è questo :

Codice:
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 ;)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08

Ultimi Messaggi

Indietro
Alto