Novità

Questo script dovrebbe prelevare da file txt una formazione alla volta...

lotto_tom75

Advanced Premium Member
Codice:
Sub Main
   Dim L,Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,3)
   ResetTimer
   Ru(1) = r
   so = NomeSorte(s)
   L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)
   T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneTurbo(L,Ru,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaRuote(Ru),StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoTurbo(L,Ru,es,s,1,,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
         Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Estrazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
      End If
   Next
   Scrivi String(130,".")
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

In pratica questo interessantissimo script, che dallo stile piuttosto ermetico credo abbia realizzato il grande Joe, verifica per qualsiasi formazione messa su dopo lo 0 su questa riga:

L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61) gli eventuali esiti nell'arco delle estrazioni desiderate su tutte le ruote separate o anche su una sola specifica evidenziando in alto anche i relativi ra, rs e incmax generali dell'intero range temporale analizzato.

Ora se possibile chiedo a magia o a qualunque altro scripter in grado di farlo di modificarlo al fine di poter analizzare non una formazione alla votla, come in questo caso, bensì ogni riga di formazioen presentee in un relativo file txt formazioni-da-analizzare.txt indipendentemente dalla classe di ciascuna di esse.

Es.

Il file txt formazioni-da-analizzare.txt potrebbe contenere qualcosa del tipo:

64,74,81
59,60,81
02,09,17,45,51,56,81
02,09,17,45,54,55,59
02,09,17,45,55,56,74
02,09,17,45,55,59,64
13,17,18,22,31,34,59,64,81
13,17,18,22,31,37,45,60,74
13,17,18,22,31,37,46,57,74
01,13,23,40,43,46,51,54,57,60,64
01,13,23,40,43,46,51,54,57,60,74

ecc...

ovvero appunto qualsiasi tipo di formazione desiderata e di numero di elementi vario... (nell'es. da 3 a 11 ma dovrebbe essere senza limite di classe appunto)

Se non sono stato troppo chiaro dite che provo a rispiegarmi.

Grazie anticipate a tutti/e gli eventuali "realizzatori della modifica in oggetto".

:)
 

Alien.

Advanced Premium Member
è a me non funziona lo script di magia,perchè? mi cerca l'archivio nelle mie cartelle,perchè ?mi sa che mi son perso.....qualche cosa,grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
Alien.;n2159948 ha scritto:
è a me non funziona lo script di magia,perchè? mi cerca l'archivio nelle mie cartelle,perchè ?mi sa che mi son perso.....qualche cosa,grazie

Ciao a Tutti.

Dentro la cartella dove ti cerca l'archivio devi mettere un file con estensione TXT (un file di testo) , per fare una prova nel file puoi inserire i numeri che ha postato Lotto_Tom75

64,74,81
59,60,81
02,09,17,45,51,56,81
02,09,17,45,54,55,59
02,09,17,45,55,56,74
02,09,17,45,55,59,64
13,17,18,22,31,34,59,64,81
13,17,18,22,31,37,45,60,74
13,17,18,22,31,37,46,57,74
01,13,23,40,43,46,51,54,57,60,64
01,13,23,40,43,46,51,54,57,60,74
 

fillotto

Advanced Member >PLATINUM<
Ottimo script , ma non si potrebbe fare una sorta di riepilogo tipo prima o in coda tutte le specifiche celle varie lunghette perchè cosi facendo si confronterebbero tutte le lunghette o , meglio ancora una tablla ordinabile avente per righe i dati sottostanti?
Codice:
     [TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Ruota [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Lunghetta [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Freq [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Rit.Att [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Max Sto [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]InCr [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Sorte di Verifica [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]BA [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000].70. 88. 40. 57. 52 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]51 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]65 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]203 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Ambo [/COLOR][/SIZE][/FONT]

[/TD]
 		[/TR]
[/TABLE]
 

fillotto

Advanced Member >PLATINUM<
purtroppo non funziona, con l'occasione si potrebbe aggiungere un'ulteriore colonna con la data dell'ultima uscita e un altra del punteggio ottenuto in quest'ultima?
 

Allegati

  • nuovocatt.jpg
    nuovocatt.jpg
    68,8 KB · Visite: 3

fillotto

Advanced Member >PLATINUM<
lo strumento di cattura è cambiato enon riesco a togliere il pannello superiore a dx comunque penso si capisca
 

joe

Advanced Member >PLATINUM PLUS<
Buona Giornata a tutte (con gli auguri) / i.

E' necessario "uniformarsi" al formato dei dati contenuti nel file di testo proposto ad esempio,

perché, altrimenti, esso non viene interpretato correttamente.

Così pure, di esso, verrebbe escluso dai calcoli, il primo pronostico.

Ho apportato dunque alcune semplici modifiche allo script ...

... al quale andrebbero ancora aggiunte le richieste di filotto.

Codice:
Option Explicit
'https://forum.lottoced.com/forum/lottoced/area-download/2159791-questo-script-dovrebbe-prelevare-da-file-txt-una-formazione-alla-volta
Sub Main
   Dim Ini,Fin,Es : Ini = EstrazioneIni : Fin = EstrazioneFin
   Dim R : R = InputBox("Quale ruota",,1)
   Dim S : S = InputBox("Quale Sorte di Verifica",,2)
   Dim Ru(1),So,Q : Ru(1) = R :  So = NomeSorte(S)
   Dim sFile : sFile = ScegliFile(GetDirectoryAppData & ".txt")
   Call ResetTimer() : Call Scrivi() : Call Messaggio("Lettura file di testo")
   ReDim aRighe(00) : Call LeggiRigheFileDiTesto(sFile,aRighe)
   Dim T : T = Array(T,"","Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica","Ultimi 10 ritardi")
   Call InitTabella(T)
   For Q = 0 To UBound(aRighe)
      If aRighe(Q) <> "" Then
         Dim rit,max,Incr,fre : ReDim L(90) : Call SplitByChar(aRighe(Q),",",L)
         ' L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)
         Call StatisticaFormazioneTurbo(L,Ru,S,rit,max,Incr,fre,Ini,Fin)
         '------------- calcolo ritardi precedenti --------------
         ReDim rp(10) : Dim Inizio,Fine,z : Inizio = Ini : Fine = Fin
         For z = 1 To 10 : rp(z) = SerieRitardoTurbo(Inizio,Fine,L,Ru,S)
            Fine = Fine -(rp(z) + 1)
         Next
         '--------------------- fine calcolo --------------------
         Dim V : V = Array(V,Q,SiglaRuota(R),aRighe(Q),fre,rit,max,Incr,So,StringaNumeri(rp,,True))
         Call AddRigaTabella(V)
      End If
      Call AvanzamentoElab(0,UBound(aRighe),Q) : Call Messaggio("Lettura Colonna : " & Q)
   Next
   Call CreaTabellaOrdinabile() : Call Scrivi(String(130,".")) : Call Scrivi("Tempo Trascorso : " & TempoTrascorso)
End Sub
:)
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
Grazie Joe, adesso viene giusto... sarebbe utile però sel'etichetta " Sorte di verifica " fosse trasformata in " Ultima sorte verificata " quindi con Ambo,Terno ecc e l'ulteriore colonna " Numeri sortiti ultimo esito".Il fatto che ci sia sritto "Ambo" è irrilevante per un osservazione perchè questo lo so già apriori.

Poi una curiosità come mai la seconda lunghetta, nella tabella, ha una diversa formattazione? cosi come l'ultima ?
 

Allegati

  • catt2.JPG
    catt2.JPG
    66,1 KB · Visite: 3

fillotto

Advanced Member >PLATINUM<
magia;n2160152 ha scritto:
Buonanotte,
Salutando gli intervenuti .
Ci scusiamo per gli errori , dovuti alla distrazione .
Per cui ringraziamo joe , per la correzzione e la modifiche apportate ,
Abbiamo , altresi , modificato ed aggiornato il listato , con le aggiunte richieste .
Controllare Sempre .
Salvo Errori ed Omissis .

Grazie Magia, in questa maniera(con l'ultima modifica) è possibile controllare l'ipotetica messa in gioco di un gruppo di 23 cinquine(nel mio caso) e controllare se si avesse avuto un guadagno
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Ciao Magia,

ringrazio per aver accolto il suggerimento.

Filotto per controlli sul genere di quanto hai proposto, alcuni anni fa, con Luigi,

s'erano ampliate le potenzialità dell'agenda giocate.

Con questa si possono monitorare egregiamente i pronostici multipli.

E ... come vedi è particolarmente utile per monitorare gli esiti.

In esempio furono parecchi Terni Secchi a tutte,nell'anno che si era considerato.

:)

xbesuh.jpg
 

fillotto

Advanced Member >PLATINUM<
joe;n2160174 ha scritto:
Ciao Magia,

ringrazio per aver accolto il suggerimento.

Filotto per controlli sul genere di quanto hai proposto, alcuni anni fa, con Luigi,

s'erano ampliate le potenzialità dell'agenda giocate.

Con questa si possono monitorare egregiamente i pronostici multipli.

E ... come vedi è particolarmente utile per monitorare gli esiti.

In esempio furono parecchi Terni Secchi a tutte,nell'anno che si era considerato.

:)

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i65.tinypic.com\/xbesuh.jpg"}[/IMG2]

Sera Joe ,potresti mettere il link della discussione dove si parla dell'agenda giocate. per ripassare l'argomento?
Per quanto mi riguarda io ho provato ad analizzare questo file su BA:(sempre prove :)) a partire dal 24/1/19 e avtrei beccato due terni (se avessi giocato he he:)) Vediamo se si capisce il perchè di questi numeri non sono presi a caso :
Codice:
70,    88,    40,    57,    52
70,     82,     07,     04,     55
04,    80,    77,    85,    52
55,    80,    74,    82,    70
74,    07,    82,    58,    50
70,    82,    45,    80,    75
28,    55,    80,    70,    47
82,    58,    04,    75,    70
40,    75,    58,    07,    28
07,    55,    82,    70,    84
47,    85,    80,    70,    25
04,    28,    75,    58,    07
88,    47,    55,    02,    07
75,    57,    28,    40,    80
47,    50,    82,    07,    58
50,    77,    42,    80,    85
70,    58,    85,    70,    42
50,    28,    87,    40,    75
58,    80,    57,    02,    74
75,    02,    45,    07,    88
48,    50,    87,    07,    52
02,    47,    80,    87,    55
70,    75,    28,    80,     45
 
Ultima modifica:

fillotto

Advanced Member >PLATINUM<
sbaglio.JPG PURTROPPO NON FUNZIONA !!! O MEGLIO FUNZIONA MALE .
Es: Prendiamo la cinquina n° 6 " 70.82,45,80,75 " la tabella mi segnala che il suo ultimo esito è stato 82 estrazioni fa ovvero il 28/8/18 con l'ambo 80-45 ciò è vero ma 45 e 70 facente parte della cinquina suddetta è più recente (24 estraz. fa il 10/1/19) ci sono cinquine che sono giuste e altre che sono sbagligliate,
Magia, Joe.... non si può rivedere la faccenda ?
 

fillotto

Advanced Member >PLATINUM<
scusa per il messaggio di prima, ho capito il file è stato modificato e non me n'ero accorto:(
 
Ultima modifica:

joe

Advanced Member >PLATINUM PLUS<
Nel primo messaggio si usa questa linea:

L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)

Ove si vede chiaramente che ci sono (diversi) numeri di cui il primo è "zero".

Per rimanere "allineati" a questo formato

o si inserisce uno zero prima di ogni formazione, quando la si andrà a scrivere sul disco.

(perdonate il francesismo)

Oppure la si scrive nei suoi soli numeri significativi ... sul disco.

In questo secondo caso, che è il più comune, quando le si va a leggere ...

si deve poi aggiungere (e anteporre) questo zero prima di ognuna di esse

per poterne poi calcolarne le statistiche con le istruzioni che si si sono utilizzate.

Così facendo ... tutto funziona correttamente.

:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto