LottoGAM Forum

Posts written by mike58

view post Posted: 11/1/2024, 19:52 richiesta script x statistica ambo rimanente - Aiuto per Listati
Ciao LimoneVerde gli script ultimi si prestano alle varie raccolte che si vuole ottenere e visto che i tempi sono di tutto rispetto non ti resta che approfondire le varie tipologie statistiche.
Chiaro fa sempre piacere quando si arriva a performare una statistica genuina.
Un saluto a te e L'amministratore Gam oltre ad un grazie per il suo ottimo e performante algoritmo.

Ciao
Mike58
view post Posted: 10/1/2024, 13:33 richiesta script x statistica ambo rimanente - Aiuto per Listati
Bravo Gam hai velocizzato di tanto (senza indagare dove...) lo metto in matrice con l'ordina matrice i tempi restano validi.

Trovati.... 4560
00:00:20

SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(3),Ru(1),aN(5)
Dim eIni,eFin,es
Dim r,p1,p2,p3
Dim a,b,c,k,esito,caso,fine
Dim esa,clp,Testo,id
Dim Statistica_a_TUTTE,Colpi
Dim Mat(12000,10)

' 3575 = Archivio dal 08.07.1939 [Lotto a 10 Ruote]
' 3950 = Archivio dal 14.09.1946 [Archivio privo di buchi estrazionali]
' 7440 = Archivio dal 04.05.2005 [ruota N
' 8117 = Archivio dal 15.09.2009 [Tutte le estrazioni con Venus accentrate a MI-NA-RO]

' Max STO a TT = (dal 1871 al 10.10.2024) = 431
' Max STO a TT = (dal 1946 al 10.10.2024) = 323
' Max STO a TT = (dal 2009 al 10.10.2024) = 140

' Max STO a Ruota = (dal 1871 al 10.01.2024) = 3534
' Max STO a Ruota = (dal 1946 al 10.01.2024) = 2612 *** in corso (2600 precedente)

eIni = 3575'8117'10117' EstrazioneFin - 4800
eFin = EstrazioneFin
Tot = eFin-eIni+1
Statistica_a_TUTTE = 0 'se = 0 ==> Ricerca sortita ambo a Ruota | se = 1 ==> Ricerca sortita ambo a TUTTE

'Colpi = 3800 'rimodulare in base al max storico per velocizzare ricerca
Titolo = Space(12) & "Info Data di Rilevamento" & Space(10) & "Ru - Estratti" & Space(5) & "Terno in Cad" & Space(1) & "AmboRimasto" & Space(2) & "Colpo" & Space(3) & "ATT/STO"
Scrivi Titolo,1
For es = eIni To eFin
If ScriptInterrotto Then Exit Sub
Call Messaggio(es)
Call AvanzamentoElab(eIni,eFin,es)
For r = 1 To 12
If r = 11 Then r = 12
caso = 0
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
If caso > 0 Then Exit For
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If a = 0 Then Exit For
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
If Statistica_a_TUTTE = 0 Then
Ru(1) = r
Else
Ru(1) = 11
End If
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,tot,,esito,clp,esa,id)
If esito = "" Then Testo = "ATT" & vbTab & "***"
If esito <> "" Then Testo = "STO"
If esito = "" Then esa = "<> --.--.--.--.--"
'
If clp > 0 Then
kk = kk + 1
Mat(kk,1) = FormattaStringa(es,"00000")
Mat(kk,2) = GetInfoEstrazione(es) & " | "
Mat(kk,3) = SiglaRuota(r)
Mat(kk,4) = StringaEstratti(es,r,"-") & " | "
Mat(kk,5) = StringaNumeri(Nu,"-",1) & " | "
Mat(kk,6) = StringaNumeri(aN,"-",1) & " | "
Mat(kk,7) = FormattaStringa(clp,"0000")
Mat(kk,8) = " | " & Testo

'Scrivi FormattaStringa(es,"00000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,"-") & " " & StringaNumeri(Nu,"-",1) & " " & StringaNumeri(aN,"-",1) & " " & FormattaStringa(clp,"0000") & " " & Testo
caso = caso + 1
End If

End If
Next
Next
Next
Next
Next
Call OrdinaMatrice(Mat,-1,7)
ScriviMatrice(Mat)
Scrivi "Trovati.... " & kk,1
Scrivi TempoTrascorso
End Sub
view post Posted: 9/1/2024, 22:28 richiesta script x statistica ambo rimanente - Aiuto per Listati
Ciao Limone purtroppo con OrdinaMatrice e le raccolte in Matrice i tempi si allungano di tanto.
Pensando come rielaboralo ed in Tabella si può mettere un filtro di output i scrittura cosi da non far scrivere tutte le righe trovate ma solo quelle che vogliamo vedere ossia i massimi storici o attuali.
Cosi con pochi secondi elaboriamo delle risultanze gestendo il filtro magari min e massimo.
Con pochi secondi trova i tuoi 21 ambi rimanenti con filtro sup a 2000 e con inizio da 3950 (estrazione con tutte le ruote)
prova
SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(3),Ru(1),aN(5),T
Ini = 3950'EstrazioneFin - 6800
fin = EstrazioneFin
Tot = fin - Ini + 1
T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanente","Verifica","colpo","id","Rit.Att/Sto")
Call InitTabella(T,0,,,5,"Arial Black")
'
ResetTimer
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,Tot,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"
If clp > 2000 Then
kk = kk + 1
T = Array(T,kk,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo)
Call AddRigaTabella(T)
End If
End If
Next
Next
Next
Next
Next
'
Scrivi "Tempo di Elabrazione : " & TempoTrascorso & Space(20) & "Filtro Impostato = 2000"
Call SetTableTitle("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
CreaTabellaOrdinabile
End Sub


Senza-titolo
view post Posted: 5/1/2024, 19:07 richiesta script x statistica ambo rimanente - Aiuto per Listati
Chiaramente io ho impostato la Matrice che contiene i Dati a 4005 e chiaro che se forzi + estrazioni oltre questo limite va in errore, puoi vedere di impostarla a 117480 così... quanti sono le combinazioni per i terni da rilevare.

Mat(117480,10)

prova a vedere cosa ottien... è inteso che bisogna modificare anche gli altri parametri collegati quali i colpi etc.etc.
view post Posted: 4/1/2024, 20:51 richiesta script x statistica ambo rimanente - Aiuto per Listati
LimoneVerde prova il formato Txt , è chiaro ha bisogno di più tempo ma elabora le estrazioni volute.
Resta anche inteso che la scrittura va allineata alla meglio, ma intanto vedi se riesci a performarlo in output ed intanto prova i dati raccolti.
SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(3),Ru(1),aN(5),T,Mat(4005,10)
Ini = EstrazioneFin - 4800
fin = EstrazioneFin
'T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanente","Verifica","colpo","id","Rit.Att/Sto")
'Call InitTabella(T,0,,,5,"Arial Black")
'
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es + 1,2,5000,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"
If esito = "" Then esa = "<> --.--.--.--.--"
'
Mat(k,1) = k
Mat(k,2) = GetInfoEstrazione(es)
Mat(k,3) = SiglaRuota(r)
Mat(k,4) = StringaEstratti(es,r,"-")
Mat(k,5) = StringaNumeri(Nu,"-",1)
Mat(k,6) = StringaNumeri(aN,"-",1)
Mat(k,7) = esa
Mat(k,8) = clp
Mat(k,9) = GetInfoEstrazione(id)
Mat(k,10) = Testo

' T = Array(T,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo)
' Call AddRigaTabella(T)
End If
Next
Next
Next
Next
Call OrdinaMatrice(Mat,-1,8)
Next
'
ScriviMatrice(Mat)
'Call SetTableTitle("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
'CreaTabellaOrdinabile
End Sub
view post Posted: 4/1/2024, 19:52 richiesta script x statistica ambo rimanente - Aiuto per Listati
Si !!! Limoneverde non è un tuo errore, ho scelto di metterlo in tabella per agire meglio sugli ordinamenti, ma in tabella c'è un limite di righe che si possono produrre se non erro non oltre le 1300 righe.
Purtroppo riprodurlo in txt si può fare ma è molto più complesso in scrittura e poi gli ordinamenti si devono scegliere a monte dell'elaborazione.
Spero ti vada bene in Tabella altrimenti se ti necessita proverò a riprodurlo in txt per scrivere tutte le estrazioni che si vogliono vedere.


Ciao
view post Posted: 3/1/2024, 20:51 richiesta script x statistica ambo rimanente - Aiuto per Listati
Ciao A Tutti del forum e un buon anno 2024.
Limomeverde, ho fatto ex novo uno script che gira su spaziometria, che rintraccia il terno in cadenza e l'ambo rimanente, sul quale poi ne verifico la sortita e non , con i colpi di esito che deteminano lo srtorico o l'attuale ritardo.

Lo script è in Tabella ordinabile per filtrare i dati ricavati secondo l'uso che si vuole vedere.

SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(3),Ru(1),aN(5),T
Ini = EstrazioneFin - 800
fin = EstrazioneFin
T = Array(T,"Conta","Info Data","Ruota","Estratti","Terno In Cadenza","Ambo Rimanete","Verifica","colpo","id","Rit.Att/Sto")
Call InitTabella(T,0,,,5,"Arial Black")
'
For es = Ini To fin
For r = 1 To 10
For p1 = 1 To 3
For p2 = p1 + 1 To 4
For p3 = p2 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
c = Estratto(es,r,p3)
If Cadenza(a) = Cadenza(b) And Cadenza(a) = Cadenza(c) Then
k = k + 1
Nu(1) = a
Nu(2) = b
Nu(3) = c
Ru(1) = r
For p = 1 To 5
aN(p) = Estratto(es,r,p)
If aN(p) = a Or aN(p) = b Or aN(p) = c Then aN(p) = 0
Next
Call VerificaEsito(aN,Ru,es+1,2,1000,,esito,clp,esa,id)
If esito = "" Then Testo = "Rit.Attuale"
If esito <> "" Then Testo = "Rit.Storico"

T = Array(T,k,GetInfoEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(Nu,,1),StringaNumeri(aN,,1),esa,clp,GetInfoEstrazione(id),Testo )
Call AddRigaTabella(T)
End If
Next
Next
Next
Next
Next
'
Call SetTableTitle ("**** Cliccare sulle colonne per ordinamento ascendente - discendente **** ")
CreaTabellaOrdinabile
End Sub


Senza-titolo
view post Posted: 28/11/2023, 19:10 conoscete il max storico di 2 ambi secchi su tutte ? - Area libera
questo dovrebbe essere l'upLoad del plugin


www.mediafire.com/file/1bktzc2f8oitraz/Biambi.exe/file

Kabila potrebbe anche essere su 8 ruote infatti la ricerca parte da estrazione 1 , e sappiamo che le 1o ruote tutte partono da estrazione 3950
quindi se scarichi il plugin ( anche molto veloce) potresti impostare tu i parametri di ricerca.

Chiaramente il plugin è a corredo del programma spaziometria.

Ciao

con la ricerca da 3950 i dati corrispondono a quelli di Matteo.



Senza-titolo
view post Posted: 28/11/2023, 18:52 conoscete il max storico di 2 ambi secchi su tutte ? - Area libera
da altra raccolta dati ( con Plugin LuigiB x Bi-ambi) ottengo questa raccolta.
Ciao a tutti...
Senza-titolo
view post Posted: 28/11/2023, 16:48 conoscete il max storico di 2 ambi secchi su tutte ? - Area libera
Kabila.... Ciao

Un dato statistico simile è complicato da raggiungere con esattezza, in quanto si dovrebbe cercare il Ritardo storico per gruppo di ambi (1 x gruppo).

Incuriosito ho raccolto questi dati con controverifiche ed anche ritardo gruppo sull'ambo gruppo + ritardato come storico.
spero ti sia utile.

eccoti uno screenshot.

Senza-titolo
view post Posted: 28/10/2023, 12:51 DOPPIO VERTAMBO ROMA - Area libera
Ciao Ale, mi dispiaceva un pochetto che lo script precedente faceva un pochetto fatica in termini di elaborazione anche se ricco di tante opzioni utili alle ricerche, ma
Mi sono messo nel cercare soluzioni di costrutto più veloci anche se senza i dati che vuoi evidenziati.
Per quello devo ancora trovare via e soluzione.
Non so vedi questo script con delle mie vedute sicuramente velocissimo.
provate.

SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(2),Ru(1),sr(10)
Ini = EstrazioneFin - 700
fin = EstrazioneFin
r = 8
Ru(1) = r
scelta = CInt(InputBox("Quale Ritardo" & Chr(13) & Chr(13) & "1 - Ritardo Corrente" & Chr(13) & "2 - Ritardo Storico" & Chr(13) & _
"3 - Presenze Successive",,1))
If scelta = 1 Then TxAmbi = "Ritardi Correnti"
If scelta = 2 Then TxAmbi = "Ritardi Storici "
If scelta = 3 Then TxAmbi = "Presenze Succes."
T = "Estraz" & Space(2) & "Ru" & Space(6) & "Estratti" & Space(35) & " A M B I " & Space(35) & "RitC" & Space(5) & "Q" & Space(24) & TxAmbi & _
Space(22) & "Min" & Space(2) & "Max"
Scrivi T,1,,,1
For es = Ini To fin
Scrivi(Es) & vbTab,0,0
Scrivi SiglaRuota(r) & " - " & StringaEstratti(Es,r) & Space(5),0,0
'
For p1 = 1 To 4
For p2 = p1 + 1 To 5
kk = kk + 1
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
Nu(1) = a
Nu(2) = b
'
If scelta = 1 Then sr(kk) = SerieRitardo(es + 1,fin,Nu,Ru,2)
If scelta = 2 Then sr(kk) = SerieStorico(es + 1,fin,Nu,Ru,2)
If scelta = 3 Then sr(kk) = SerieFreq(es + 1,fin,Nu,Ru,2)
riga = riga & FormattaStringa(sr(kk),"000") & " | "
max = MassimoV(sr)
min = MinimoV(sr,1,- 1)
If SerieFreq(es + 1,fin,Nu,Ru,2) = 0 Then
k = k + 1
Scrivi StringaNumeri(Nu,,1) & Space(2),1,0
Else
'Scrivi "--.-- " & " ",0,0
Scrivi StringaNumeri(Nu,,1) & Space(2),0,0,,RGB(177,177,177)
End If
Next
Next
Scrivi " " & FormatSpace(fin - es,3,1) & " | " & FormatSpace(k,2,1) & " | " & riga & FormatSpace(min,3,1) & " | " & FormatSpace(max,3,1)
k = 0
kk = 0
riga = ""
Next
End Sub


x-ale
view post Posted: 27/10/2023, 15:14 DOPPIO VERTAMBO ROMA - Area libera
Ciao Ale, uno script del genere lo avevo fatto per le lotterie varie, ora per il lotto ottengo gli stessi tuoi ambi di raccolta.
Ci sono opzioni varie da valutare con il colpo d'occhio ma ahimè devo trovare il modus operandi per estrapolare la colonna con gli ambi consecutivi che ti interessa trovare.
Intanto visiona lo script e poi vedrò se mi riesce di trovare un qualche algoritmo per raccogliere quella condizione.

giusto per una prima risposta immediata.

Ciao

SPOILER (clicca per visualizzare)
Sub Main
Dim Nu(5),sFile,T,V,Ru(1)
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
Dim RsL(10),MaxRsL,nAmbi(10)
Ini = EstrazioniArchivio - 600
fin = EstrazioniArchivio
r = InputBox("Ruota",,8)
Ru(1) = r
Scrivi "Analitico Ambi non Sortiti - Cinquine Estratte - Vertambi - By Mike58",1,1,,1,3,,1
Scrivi
T = Array(T,"Data info","Estratti","FIN-ES","A1","A2","A3","A4","A5","A6","A7","A8","A9","A10","R1","R2","R3","R4","R5","R6","R7","R8","R9","R10","RsL","SerieUltima","RL/RC","Q.Tà Ambi","Diff")
Call InitTabella(T,1,,2,5)
For es = Ini To fin
For p1 = 1 To 5
a = Estratto(es,r,p1)
Nu(p1) = a
ambo1(1) = Nu(1)
ambo1(2) = Nu(2)
ambo2(1) = Nu(1)
ambo2(2) = Nu(3)
ambo3(1) = Nu(1)
ambo3(2) = Nu(4)
ambo4(1) = Nu(1)
ambo4(2) = Nu(5)
ambo5(1) = Nu(2)
ambo5(2) = Nu(3)
ambo6(1) = Nu(2)
ambo6(2) = Nu(4)
ambo7(1) = Nu(2)
ambo7(2) = Nu(5)
ambo8(1) = Nu(3)
ambo8(2) = Nu(4)
ambo9(1) = Nu(3)
ambo9(2) = Nu(5)
ambo10(1) = Nu(4)
ambo10(2) = Nu(5)
'a1 = StringaNumeri(ambo1)
Next
sf1 = SerieFreq(es + 1,fin,ambo1,Ru,2)
sr1 = SerieRitardo(es + 1,fin,ambo1,Ru,2)
If sf1 = 0 Then a1 = StringaNumeri(ambo1)
If sf1 > 0 Then a1 = " - "
sf2 = SerieFreq(es + 1,fin,ambo2,Ru,2)
sr2 = SerieRitardo(es + 1,fin,ambo2,Ru,2)
If sf2 = 0 Then a2 = StringaNumeri(ambo2)
If sf2 > 0 Then a2 = " - "
sf3 = SerieFreq(es + 1,fin,ambo3,Ru,2)
sr3 = SerieRitardo(es + 1,fin,ambo3,Ru,2)
If sf3 = 0 Then a3 = StringaNumeri(ambo3)
If sf3 > 0 Then a3 = " - "
sf4 = SerieFreq(es + 1,fin,ambo4,Ru,2)
sr4 = SerieRitardo(es + 1,fin,ambo4,Ru,2)
If sf4 = 0 Then a4 = StringaNumeri(ambo4)
If sf4 > 0 Then a4 = " - "
sf5 = SerieFreq(es + 1,fin,ambo5,Ru,2)
sr5 = SerieRitardo(es + 1,fin,ambo5,Ru,2)
If sf5 = 0 Then a5 = StringaNumeri(ambo5)
If sf5 > 0 Then a5 = " - "
sf6 = SerieFreq(es + 1,fin,ambo6,Ru,2)
sr6 = SerieRitardo(es + 1,fin,ambo6,Ru,2)
If sf6 = 0 Then a6 = StringaNumeri(ambo6)
If sf6 > 0 Then a6 = " - "
sf7 = SerieFreq(es + 1,fin,ambo7,Ru,2)
sr7 = SerieRitardo(es + 1,fin,ambo7,Ru,2)
If sf7 = 0 Then a7 = StringaNumeri(ambo7)
If sf7 > 0 Then a7 = " - "
sf8 = SerieFreq(es + 1,fin,ambo8,Ru,2)
sr8 = SerieRitardo(es + 1,fin,ambo8,Ru,2)
If sf8 = 0 Then a8 = StringaNumeri(ambo8)
If sf8 > 0 Then a8 = " - "
sf9 = SerieFreq(es + 1,fin,ambo9,Ru,2)
sr9 = SerieRitardo(es + 1,fin,ambo9,Ru,2)
If sf9 = 0 Then a9 = StringaNumeri(ambo9)
If sf9 > 0 Then a9 = " - "
sf10 = SerieFreq(es + 1,fin,ambo10,Ru,2)
sr10 = SerieRitardo(es + 1,fin,ambo10,Ru,2)
If sf10 = 0 Then a10 = StringaNumeri(ambo10)
If sf10 > 0 Then a10 = " - "
RsL(1) = sr1
RsL(2) = sr2
RsL(3) = sr3
RsL(4) = sr4
RsL(5) = sr5
RsL(6) = sr6
RsL(7) = sr7
RsL(8) = sr8
RsL(9) = sr9
RsL(10) = sr10
MaxRsL = MinimoV(RsL,1,- 1)
MaxRsLP = MassimoV(RsL,1,- 1)
Rap = Round(Dividi(MaxRsL,(fin - es)),3)
diff =(fin - es) - MaxRsL
If sf1 = 0 Then aa1 = 1
If sf1 > 0 Then aa1 = 0
If sf2 = 0 Then aa2 = 1
If sf2 > 0 Then aa2 = 0
If sf3 = 0 Then aa3 = 1
If sf3 > 0 Then aa3 = 0
If sf4 = 0 Then aa4 = 1
If sf4 > 0 Then aa4 = 0
If sf5 = 0 Then aa5 = 1
If sf5 > 0 Then aa5 = 0
If sf6 = 0 Then aa6 = 1
If sf6 > 0 Then aa6 = 0
If sf7 = 0 Then aa7 = 1
If sf7 > 0 Then aa7 = 0
If sf8 = 0 Then aa8 = 1
If sf8 > 0 Then aa8 = 0
If sf9 = 0 Then aa9 = 1
If sf9 > 0 Then aa9 = 0
If sf10 = 0 Then aa10 = 1
If sf10 > 0 Then aa10 = 0
maxAmbi = aa1 + aa2 + aa3 + aa4 + aa5 + aa6 + aa7 + aa8 + aa9 + aa10
Call VerificaEsito(Nu,Ru,fin - MaxRsL,2,1,,esito,clp,es1)
If esito = "Cinquina" Then
es1 = " Esito Non Verificato "
Else
es1 = es1
End If
V = Array(V,GetInfoEstrazione(es),StringaEstratti(es,r),fin - es,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,sr1,sr2,sr3,sr4,sr5,sr6,sr7,sr8,sr9,sr10,MaxRsL,es1,Rap,maxAmbi,diff)
Call AddRigaTabella(V)
For x = 14 To 23
If MaxRsL = V(X) Then Call SetColoreCella((X),3,0)
If MaxRsLP = V(X) Then Call SetColoreCella((X),4,0)
Next
For y = 4 To 13
Call SetColoreCella((y),6,0)
Next
Call SetColoreCella(24,7,5)
If MaxRsL = 0 Then Call SetColoreCella(25,2,4)
maxAmbi = 0
Next
Call SetTableWidth("100%")
CreaTabella
End Sub


x-ale
view post Posted: 24/10/2023, 19:41 Triambi consecutivi grazie a Mike58 - Area libera
Arn , allora se parti da 8117 i ritardi sono quasi identici per via del tuo conteggio che parte da 1.

Ciao
view post Posted: 24/10/2023, 19:06 Triambi consecutivi grazie a Mike58 - Area libera
Ciao Arn, i ritardi massimi o storici non corrispondono con le nostre risultanze raccolte.
ecco uno screenshot

x-arn

a me non risultano

x-arn
view post Posted: 24/10/2023, 07:14 Triambi consecutivi grazie a Mike58 - Area libera
BuonGiorno a Tutti.
Ciao Matteo.

Wow... Che analisi.... e che che livello di eccellenza.... sicuramente un approfondimento con raccolte mirate.

Grazie per le risultanze ed i casi giocabili con i quali mi trovo in accordo.

Ciao a tutti.
56 replies since 7/10/2010
Filter forums
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree