X LuigiB o chi lo sa....richiesta script

maumau · 16 Ottobre 2015

Ciao, questo sotto è uno script incluso nel programma che crea la tabella RDP.....chiedevo gentilmente se era possibile crearne uno che al posto degli estratti considera le singole 90 posizioni...Grazie

Dim num(1),numero(10),ruota(1),sorte,k
nstart = Timer
Ini = EstrazioneFin - 300
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri Ritardatari + RDL1 & RDL2 " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
atitoli(2) = " Ritardatario "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Rit.Att. "
atitoli(9) = " Rit.Sto "
atitoli(10) = " incr.sto "
atitoli(11) = " Freq. "
atitoli(12) = " RDL1 "
atitoli(13) = " RDL2 "
atitoli(14) = "Pos.N "
atitoli(15) = " RDL1/RC "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 11
If r = 11 Then r = 12
For k = 1 To 90
ruota(1) = r
num(1) = k
For p = 1 To 1
If k = NumeroPosRit(fin,r,p) Then
'Next
Call Messaggio("Ruota... " & NomeRuota(r))
Call AvanzamentoElab(1,11,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = RitPos(k,r,fin)
avalori(13) = RitPos(k,r,fin - avalori(12))
avalori(14) = PosNumeroRit(fin,r,k) & "°"
avalori(15) = Int(avalori(12)*10/avalori(8)*10)/100
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(8,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(12,vbMagenta)
Call SetColoreCella(13,vbYellow)
If rit > 100 Then Call SetColoreCella(8,vbGreen)
End If
Next
Next
Next
Call CreaTabella(15)
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella By Mike58 ",1,- 1,6
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr

maumau · 17 Ottobre 2015

Ho visto che due di voi hanno risposto ....ma sono stati cancellati??

maumau · 17 Ottobre 2015

Richiesta per gli Admin.....perchè sono state cancellate due risposte???.....qualcosa non va???....Grazie per la gentile risposta

Mike58 · 17 Ottobre 2015

Visto che questo era un mio script con degli errori di concetto vedi RDL2, e non capendo cosa intenti per

[/QCiao, questo sotto è uno script incluso nel programma che crea la tabella RDP.....chiedevo gentilmente se era possibile crearne uno che al posto degli estratti considera le singole 90 posizioni...Grazie
UOTE]

estratti( quelli sono i numero ritardatari), ti posto uno script ex-novo che tiene conto di tutti i tipi di statistiche che puoi raccogliere e filtrare con la tabella ordinabile, analisi da farsi ruota x ruota.

P,s, le cancellazioni penso che siano volute dagli utenti altromenti avresti visto banned o cancelled.

Ciao

Codice:

Sub Main

ru = InputBox("QUALE RUOTA",,1)

qt = InputBox("Quante Estrazioni Analizzo",,180)

ReDim aPos(5)

Dim k,num(1),rtt(1)

Ini = EstrazioneFin - qt

fin = EstrazioneFin

Tot = fin - Ini

Scrivi "Script By Mike58",1,,,2,3,,1

Scrivi "Ruota analizzata " & SiglaRuota(ru),1

Scrivi "Estrazioni in esame.... " & Tot,1

Scrivi

Dim T,V

T = Array(T,"Numero","Ritardo TT Pos","Freq. TT Pos","storico TT","Data Storico","RD1","RD2","RD3","RD4","RD5","FrD1","FrD2","FrD3","FrD4","FrD5","St1","St2","St3","St4","st5","RRel","RsL","RR%","RSL%","PosNumRit")

Call InitTabella(T,1,,3,5,"Arial Black")

For nu = 1 To 90

num(1) = nu

rtt(1) = ru

For k = 1 To 5

aPos(k) = True

Next

rt = EstrattoRitardo(ru,nu,Ini,fin)

ft =(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos))

ReDim ff(5),rr(5),st(5)

For k = 1 To 5

ReDim aPos(5)

aPos(k) = True

rr(k) =(EstrattoRitardo(ru,nu,ini,fin,,,aPos))

ff(k) =(EstrattoFrequenza(ru,nu,Ini,fin,,,aPos))

st(k) =(EstrattoStorico(ru,nu,Ini,fin,,,aPos))

rl = RitPosCrono(num(1),ru,fin)

rsl = RitSincDiLiv(num(1),ru,fin,nliv)

Next

sto = EstrattoStorico(ru,nu,Ini,fin)

datasto = SerieEstrazioneStorico(Ini,fin,num,rtt,1)

data = DataEstrazione(datasto)

V = Array(V,nu,rt,ft,sto,data,rr(1),rr(2),rr(3),rr(4),rr(5),ff(1),ff(2),ff(3),ff(4),ff(5),st(1),st(2),st(3),st(4),st(5),RL,RSL,Round(Dividi(rl,rt),2),Round(Dividi(rsl,rt),2),PosNumeroRitTurbo(fin,ru,nu))

Call AddRigaTabella(V,,,3,0,"Arial Black")

For x = 6 To 10

Call SetColoreCella((x),4,1)

Next

For y = 11 To 15

Call SetColoreCella((y),3,0)

Next

For z = 16 To 20

Call SetColoreCella((z),7,5)

Next

If rt = rr(1) Then Call SetColoreCella((6),2,4)

If rt = rr(2) Then Call SetColoreCella((7),2,4)

If rt = rr(3) Then Call SetColoreCella((8),2,4)

If rt = rr(4) Then Call SetColoreCella((9),2,4)

If rt = rr(5) Then Call SetColoreCella((10),2,4)

Call Messaggio(" . . . . A T T E N D E R E . . . . . . Script By Mike58 ")

Call AvanzamentoElab(Ini,fin,Tot)

Next

Call SetTableWidth("100%")

'Call CreaTabellaOrdinabile(2)

scegliTabella

End Sub

Function scegliTabella()

ReDim Voci(2)

Voci(1) = "Tabella Normale"

Voci(2) = "tabella Ordinabile"

scegliTabella = ScegliOpzioneMenu(Voci,2,"seleziona tabella")

If scegliTabella = 1 Then Call CreaTabella(3)

If scegliTabella = 2 Then Call CreaTabellaOrdinabile(2)

End Function

i legend · 17 Ottobre 2015

Ciao a tutti

X mike
Per fare li stesso script
Per i ritardi nelle posizioni
Ho dichiarato 5 array apos validato 5 volte le posizioni
Tu fai questo con un ciclo
Grandissimo

Grazie

Finché c'è da imparare e si è in grado di farlo
Non ci si annoia mai

Bella ' sta cosa

maumau · 17 Ottobre 2015

Ciao Mike, grazie per il tuo intervento. Scusami ma non sapevo fosse tuo il listato altrimenti avrei cercato di contattare direttamente te. Tento di farmi capire per quello che cerco. I numeri di ogni ruota sono 90 e conseguentemente anche le posizioni ordinate in base al ritardo saranno 90 ( il max ritardatario avrà la posizione numero 1, il secondo ritardatario la numero 2 e cosi via fino alla 90° posizione che sarà l'ultimo numero uscito della ruota. A me interessa la classifica dei ritardi delle posizioni e nel listato in questione dei capilista delle posizioni ritardatarie ( non degli estratti ritardatari)......non so se mi sono spiegato, è un pò contorto.

P.S. il listato che hai messo si blocca all'immissione della ruota

Mike58 · 17 Ottobre 2015

Ciao I Legend, anch'io imparo sempre da altri e mi confronto in materia, anche se ognuno ha un suo iter e approccio personalizzato.

X maumau, strano che non leggi lo script l'ho ricopiato dal forum ed è perfettamente leggibile ed elabora correttamente.
Mi raccomando sempre di eseguire i miei script con l'ultima versione in quanto sfrutta sempre i nuovi codici e funzioni creati da Luigi ( Vedi RSL).
Poi magari se usi OPTION Explicit metti apice in quanto io non dichiaro tutte le variabili e quindi lo script può andare in errore.

questa è una videata e mi sembra che faccia ampiamente quello che chiedi.
Script By Mike58
Ruota analizzata FI
Estrazioni in esame.... 180

[TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #0000ff, align: center"]Numero [/TD]
[TD="bgcolor: #0000ff, align: center"]Ritardo TT Pos [/TD]
[TD="bgcolor: #0000ff, align: center"]Freq. TT Pos [/TD]
[TD="bgcolor: #0000ff, align: center"]storico TT [/TD]
[TD="bgcolor: #0000ff, align: center"]Data Storico [/TD]
[TD="bgcolor: #0000ff, align: center"]RD1 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD2 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD3 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD4 [/TD]
[TD="bgcolor: #0000ff, align: center"]RD5 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD1 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD2 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD3 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD4 [/TD]
[TD="bgcolor: #0000ff, align: center"]FrD5 [/TD]
[TD="bgcolor: #0000ff, align: center"]St1 [/TD]
[TD="bgcolor: #0000ff, align: center"]St2 [/TD]
[TD="bgcolor: #0000ff, align: center"]St3 [/TD]
[TD="bgcolor: #0000ff, align: center"]St4 [/TD]
[TD="bgcolor: #0000ff, align: center"]st5 [/TD]
[TD="bgcolor: #0000ff, align: center"]RRel [/TD]
[TD="bgcolor: #0000ff, align: center"]RsL [/TD]
[TD="bgcolor: #0000ff, align: center"]RR% [/TD]
[TD="bgcolor: #0000ff, align: center"]RSL% [/TD]
[TD="bgcolor: #0000ff, align: center"]PosNumRit [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]5 [/TD]
[TD="bgcolor: #ffffff, align: center"]99 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"]99 [/TD]
[TD="bgcolor: #ffffff, align: center"]15.10.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]171 [/TD]
[TD="bgcolor: #ff0000, align: center"]99 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]140 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #ff00ff, align: center"]171 [/TD]
[TD="bgcolor: #ff00ff, align: center"]99 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]140 [/TD]
[TD="bgcolor: #ffffff, align: center"]18 [/TD]
[TD="bgcolor: #ffffff, align: center"]72 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,18 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,73 [/TD]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]69 [/TD]
[TD="bgcolor: #ffffff, align: center"]55 [/TD]
[TD="bgcolor: #ffffff, align: center"]13 [/TD]
[TD="bgcolor: #ffffff, align: center"]55 [/TD]
[TD="bgcolor: #ffffff, align: center"]15.10.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]148 [/TD]
[TD="bgcolor: #ffff00, align: center"]68 [/TD]
[TD="bgcolor: #ffff00, align: center"]60 [/TD]
[TD="bgcolor: #ff0000, align: center"]55 [/TD]
[TD="bgcolor: #ffff00, align: center"]131 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]3 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]3 [/TD]
[TD="bgcolor: #00ff00, align: center"]4 [/TD]
[TD="bgcolor: #ff00ff, align: center"]148 [/TD]
[TD="bgcolor: #ff00ff, align: center"]101 [/TD]
[TD="bgcolor: #ff00ff, align: center"]120 [/TD]
[TD="bgcolor: #ff00ff, align: center"]67 [/TD]
[TD="bgcolor: #ff00ff, align: center"]131 [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[TD="bgcolor: #ffffff, align: center"]11 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,07 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,2 [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]60 [/TD]
[TD="bgcolor: #ffffff, align: center"]48 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[TD="bgcolor: #ffffff, align: center"]48 [/TD]
[TD="bgcolor: #ffffff, align: center"]15.10.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]102 [/TD]
[TD="bgcolor: #ffff00, align: center"]83 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ff0000, align: center"]48 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]4 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]102 [/TD]
[TD="bgcolor: #ff00ff, align: center"]83 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]132 [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[TD="bgcolor: #ffffff, align: center"]10 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,08 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,21 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]90 [/TD]
[TD="bgcolor: #ffffff, align: center"]40 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]44 [/TD]
[TD="bgcolor: #ffffff, align: center"]24.02.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]144 [/TD]
[TD="bgcolor: #ff0000, align: center"]40 [/TD]
[TD="bgcolor: #ffff00, align: center"]91 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]5 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]144 [/TD]
[TD="bgcolor: #ff00ff, align: center"]58 [/TD]
[TD="bgcolor: #ff00ff, align: center"]91 [/TD]
[TD="bgcolor: #ffffff, align: center"]3 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,08 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,8 [/TD]
[TD="bgcolor: #ffffff, align: center"]4 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]39 [/TD]
[TD="bgcolor: #ffffff, align: center"]37 [/TD]
[TD="bgcolor: #ffffff, align: center"]9 [/TD]
[TD="bgcolor: #ffffff, align: center"]53 [/TD]
[TD="bgcolor: #ffffff, align: center"]22.01.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]167 [/TD]
[TD="bgcolor: #ff0000, align: center"]37 [/TD]
[TD="bgcolor: #ffff00, align: center"]55 [/TD]
[TD="bgcolor: #ffff00, align: center"]83 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]6 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #ff00ff, align: center"]167 [/TD]
[TD="bgcolor: #ff00ff, align: center"]67 [/TD]
[TD="bgcolor: #ff00ff, align: center"]125 [/TD]
[TD="bgcolor: #ff00ff, align: center"]97 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ffffff, align: center"]1 [/TD]
[TD="bgcolor: #ffffff, align: center"]12 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,03 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,32 [/TD]
[TD="bgcolor: #ffffff, align: center"]5 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]56 [/TD]
[TD="bgcolor: #ffffff, align: center"]35 [/TD]
[TD="bgcolor: #ffffff, align: center"]16 [/TD]
[TD="bgcolor: #ffffff, align: center"]35 [/TD]
[TD="bgcolor: #ffffff, align: center"]15.10.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]54 [/TD]
[TD="bgcolor: #ffff00, align: center"]38 [/TD]
[TD="bgcolor: #ffff00, align: center"]85 [/TD]
[TD="bgcolor: #ff0000, align: center"]35 [/TD]
[TD="bgcolor: #ffff00, align: center"]55 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]4 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]5 [/TD]
[TD="bgcolor: #00ff00, align: center"]3 [/TD]
[TD="bgcolor: #ff00ff, align: center"]110 [/TD]
[TD="bgcolor: #ff00ff, align: center"]90 [/TD]
[TD="bgcolor: #ff00ff, align: center"]85 [/TD]
[TD="bgcolor: #ff00ff, align: center"]65 [/TD]
[TD="bgcolor: #ff00ff, align: center"]94 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]24 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,69 [/TD]
[TD="bgcolor: #ffffff, align: center"]6 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]61 [/TD]
[TD="bgcolor: #ffffff, align: center"]34 [/TD]
[TD="bgcolor: #ffffff, align: center"]12 [/TD]
[TD="bgcolor: #ffffff, align: center"]38 [/TD]
[TD="bgcolor: #ffffff, align: center"]09.05.2015 [/TD]
[TD="bgcolor: #ff0000, align: center"]34 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]49 [/TD]
[TD="bgcolor: #ffff00, align: center"]106 [/TD]
[TD="bgcolor: #ffff00, align: center"]143 [/TD]
[TD="bgcolor: #00ff00, align: center"]3 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]4 [/TD]
[TD="bgcolor: #00ff00, align: center"]3 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #ff00ff, align: center"]88 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]55 [/TD]
[TD="bgcolor: #ff00ff, align: center"]106 [/TD]
[TD="bgcolor: #ff00ff, align: center"]143 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]2 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,06 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]78 [/TD]
[TD="bgcolor: #ffffff, align: center"]33 [/TD]
[TD="bgcolor: #ffffff, align: center"]10 [/TD]
[TD="bgcolor: #ffffff, align: center"]36 [/TD]
[TD="bgcolor: #ffffff, align: center"]09.04.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]117 [/TD]
[TD="bgcolor: #ffff00, align: center"]80 [/TD]
[TD="bgcolor: #ffff00, align: center"]166 [/TD]
[TD="bgcolor: #ff0000, align: center"]33 [/TD]
[TD="bgcolor: #ffff00, align: center"]51 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]4 [/TD]
[TD="bgcolor: #ff00ff, align: center"]117 [/TD]
[TD="bgcolor: #ff00ff, align: center"]80 [/TD]
[TD="bgcolor: #ff00ff, align: center"]166 [/TD]
[TD="bgcolor: #ff00ff, align: center"]112 [/TD]
[TD="bgcolor: #ff00ff, align: center"]66 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]12 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,36 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]15 [/TD]
[TD="bgcolor: #ffffff, align: center"]32 [/TD]
[TD="bgcolor: #ffffff, align: center"]5 [/TD]
[TD="bgcolor: #ffffff, align: center"]81 [/TD]
[TD="bgcolor: #ffffff, align: center"]27.06.2015 [/TD]
[TD="bgcolor: #ff0000, align: center"]32 [/TD]
[TD="bgcolor: #ffff00, align: center"]128 [/TD]
[TD="bgcolor: #ffff00, align: center"]153 [/TD]
[TD="bgcolor: #ffff00, align: center"]181 [/TD]
[TD="bgcolor: #ffff00, align: center"]46 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]0 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #ff00ff, align: center"]112 [/TD]
[TD="bgcolor: #ff00ff, align: center"]128 [/TD]
[TD="bgcolor: #ff00ff, align: center"]153 [/TD]
[TD="bgcolor: #ff00ff, align: center"]181 [/TD]
[TD="bgcolor: #ff00ff, align: center"]134 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]7 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0,22 [/TD]
[TD="bgcolor: #ffffff, align: center"]9 [/TD]
[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"]41 [/TD]
[TD="bgcolor: #ffffff, align: center"]31 [/TD]
[TD="bgcolor: #ffffff, align: center"]8 [/TD]
[TD="bgcolor: #ffffff, align: center"]42 [/TD]
[TD="bgcolor: #ffffff, align: center"]27.04.2015 [/TD]
[TD="bgcolor: #ffff00, align: center"]136 [/TD]
[TD="bgcolor: #ffff00, align: center"]36 [/TD]
[TD="bgcolor: #ffff00, align: center"]73 [/TD]
[TD="bgcolor: #ffff00, align: center"]116 [/TD]
[TD="bgcolor: #ff0000, align: center"]31 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #00ff00, align: center"]1 [/TD]
[TD="bgcolor: #00ff00, align: center"]2 [/TD]
[TD="bgcolor: #ff00ff, align: center"]136 [/TD]
[TD="bgcolor: #ff00ff, align: center"]113 [/TD]
[TD="bgcolor: #ff00ff, align: center"]73 [/TD]
[TD="bgcolor: #ff00ff, align: center"]116 [/TD]
[TD="bgcolor: #ff00ff, align: center"]137 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]0 [/TD]
[TD="bgcolor: #ffffff, align: center"]10 [/TD]
[/TR]
[/TABLE]

FABIO60 · 17 Ottobre 2015

Ciao maumau, ciao a tutti

avevo suggerito (e poi cancellato ) di far girare il listato con l' Archivio superiore L1

che è l' archivio delle posizioni di ritardo

maumau · 17 Ottobre 2015

FABIO60;n1926947 ha scritto:
Ciao maumau, ciao a tutti

avevo suggerito (e poi cancellato ) di far girare il listato con l' Archivio superiore L1

che è l' archivio delle posizioni di ritardo

azzz.....e perchè mai lo hai cancellato??....a prima vista potrebbe essere quello che cerco

maumau · 17 Ottobre 2015

E' proprio quello, grazie a tutti per la partecipazione.....il problema è di trovare ora il numero corrispondente alla posizione di ritardo. Ho letto che ci doveva essere uno script NumParToNumReale ma ho solo trovato la funzione Test nel programma......dove posso trovare lo script finale?

Mike58 · 18 Ottobre 2015

Si effettivamente c'è

Codice:

Option Explicit

Sub Main

Dim k,j,idArchivio,idEstr,Ruota,s,nReale,numPadre,nTmpPadre

ReDim aTable(90,9)

Ruota = ScegliRuota

idEstr = EstrazioneFin

Scrivi "Ruota Analizzata : " & NomeRuota(Ruota),1,,,,,,1

Scrivi

For idArchivio = 0 To 3

Call AlimentaTable(idArchivio,idEstr,Ruota,aTable)

Next

ScriviTabClassificaRit(aTable)

idArchivio = 3

For k = 1 To 90

nReale = NumParToNumReale(k,Ruota,idEstr,idArchivio)

s = "Il numero " & k & " dell'archivio L" & idArchivio & " Corrisponde al numero "

s = s & nReale

s = s & " dell'archivio reale"

Call Scrivi(s)

s = ""

numPadre = k

For j = idArchivio To 1 Step - 1

nTmpPadre = NumParToNumPadre(numPadre,Ruota,idEstr,j)

s = s & numPadre & "[L" & j & "]" & " ---> " & nTmpPadre & "[L" & j - 1 & "]"

numPadre = nTmpPadre

Next

Call Scrivi(s)

Next

End Sub

Sub AlimentaTable(idArchivio,idEstr,Ruota,aTable)

Dim pos

Dim nCol

nCol =(idArchivio * 2) + 2

For pos = 1 To 90

aTable(pos,1) = pos

aTable(pos,nCol) = NumeroPosRit(idEstr,Ruota,pos,idArchivio)

aTable(pos,nCol + 1) = RitardoEstratto(aTable(pos,nCol),idEstr,Ruota,,,idArchivio)

Next

End Sub

Sub ScriviTabClassificaRit(aTable)

Dim pos,i

ReDim aV(9)

ReDim aColori(9)

ReDim aColSpan(9)

aColori(1) = vbWhite

aColori(2) = vbYellow

aColori(3) = vbYellow

aColori(4) = vbWhite

aColori(5) = vbWhite

aColori(6) = vbYellow

aColori(7) = vbYellow

aColori(8) = vbWhite

aColori(9) = vbWhite

aColSpan(1) = 1

aColSpan(2) = 2

aColSpan(3) = 0

aColSpan(4) = 2

aColSpan(5) = 0

aColSpan(6) = 2

aColSpan(7) = 0

aColSpan(8) = 2

aColSpan(9) = 0

aV(1) = ""

aV(2) = " Reale "

aV(3) = ""

aV(4) = " L1 "

aV(5) = ""

aV(6) = " L2 "

aV(7) = ""

aV(8) = " L3 "

aV(9) = ""

Call InitTabella(aV,aColori,,,,,aColSpan)

aV(1) = " Posizione "

aV(2) = " Numero "

aV(3) = " Ritardo "

aV(4) = " Numero "

aV(5) = " Ritardo "

aV(6) = " Numero "

aV(7) = " Ritardo "

aV(8) = " Numero "

aV(9) = " Ritardo "

Call AddRigaTabella(aV,aColori)

For pos = 1 To 90

For i = 1 To 9

aV(i) = aTable(pos,i)

Next

Call AddRigaTabella(aV,aColori)

Next

Call CreaTabella

End Sub

maumau · 18 Ottobre 2015

Grazie Mike e buona domenica

Cerca

Cerca

X LuigiB o chi lo sa....richiesta script

maumau

Advanced Member >GOLD<

maumau

Advanced Member >GOLD<

maumau

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

i legend

Premium Member

maumau

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

FABIO60

Super member

maumau

Advanced Member >GOLD<

maumau

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

maumau

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi