Per cinzia27

[solare]

Ciao, sempre che sia possibile :
vorrei che il listato mi chiedesse elabora le ultime x estrazioni !
questo è il tuo listato
Sub Main
Dim aRetAbb,Ru(2),aN(1),Num(2)
Dim k,r
Ini = EstrazioneIni
fin = EstrazioneFin
Call ScegliRange(Ini,fin,Inizio,fine)
r = InputBox("Quale 1° Ruota Analizzo",,1)
r1 = InputBox("Quale 2° Ruota Analizzo",,2)

qtAbb = CInt(InputBox("Quanti Abbinamenti",,2))
ReDim Nu(0)
Call ScegliNumeri(Nu)
aa = UBound(Nu)
Scrivi "Range Inizio.......... " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine............ " & GetInfoEstrazione(fin),1
Scrivi "Totali Estrazioni..... " &(fin - Ini) + 1,1
Scrivi
For n = 1 To aa
aN(1) = Nu
T = Array(T,"Ruote","Ambo","Freq","Rit","Max","Incr")
Call InitTabella(T)
Scrivi "CapoGioco Scelto " & aN(1),1,,,1,3,,1
Call Abbinamenti(aN(1),aRetAbb,Ini,fin,r,0)
Ru(1) = r
Ru(2) = r1
For k = 1 To qtAbb
ReDim Preserve abb(k)
abb(0) = aN(1)
abb(k) = aRetAbb(k,1)
Num(1) = aN(1)
Num(2) = aRetAbb(k,1)
er = EstrattoRitardo(r,abb(k),Ini,fin)
er1 = EstrattoRitardo(r,abb(0),Ini,fin)
ef = EstrattoFrequenza(r,abb(k),Ini,fin)
ef1 = EstrattoFrequenza(r,abb(0),Ini,fin)
eer = EstrattoRitardo(r1,abb(k),Ini,fin)
eer1 = EstrattoRitardo(r1,abb(0),Ini,fin)
eef = EstrattoFrequenza(r1,abb(k),Ini,fin)
eef1 = EstrattoFrequenza(r1,abb(0),Ini,fin)

ReDim Preserve ritk(k)
riga = riga + FormattaStringa(er,"000") & " "
rigo = rigo + FormattaStringa(ef,"000") & " "
Call StatisticaFormazione(Num,Ru,2,rit,max,Incr,fre,Ini,fin)
V = Array(v,StringaRuote(Ru),StringaNumeri(Num,,1),fre,rit,max,Incr)
Call AddRigaTabella(V)
Scrivi aN(1) & "-" & Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2) & " rit " & rit & " Max " & Max & " incr " & Incr & " Fr " & fre
Next
Call VerificaEsito(abb,Ru,EstrazioneFin,2,1,,Esito,,es1)
Scrivi SiglaRuota(r) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(abb,". ",1),1
Scrivi "Rit. " & vbTab & FormattaStringa(er1,"000") & " " & riga
Scrivi "Fre. " & vbTab & FormattaStringa(ef1,"000") & " " & rigo

If Esito <> "" Then Scrivi es1,1,,,1
If Esito = "" Then Scrivi "Nessun Esito",,,,2
Scrivi "============================================"
CreaTabella
riga = ""
rigo = ""
Next
End Sub

 

[Cinzia27]

Non è mio ma lo guardo più tardi.

 

[solare]

Grazie infinite

 

[Cinzia27]

Al posto di
Ini = EstrazioneIni
metti
Ini =EstrazioneFin-50 ( così hai le ultime 50, se al posto di 50 metti 100 avrai le ultime 100, se metti 200 le ultime 200, ecc.)

 

[solare]

Grazie Cinzia
Pero' pur facendo secondo le tue indicazioni non funziona !

 

[trivellatomariotretre33]

ecco solare



Sub Main
Dim aRetAbb,Ru(2),aN(1),Num(2)
Dim k,r
Ini =EstrazioneFin-50
fin = EstrazioneFin
'Call ScegliRange(Ini,fin,Inizio,fine)
r = InputBox("Quale 1° Ruota Analizzo",,1)
r1 = InputBox("Quale 2° Ruota Analizzo",,2)
qtAbb = CInt(InputBox("Quanti Abbinamenti",,2))
ReDim Nu(0)
Call ScegliNumeri(Nu)
aa = UBound(Nu)
Scrivi "Range Inizio.......... " & GetInfoEstrazione(Ini),1
Scrivi "Range Fine............ " & GetInfoEstrazione(fin),1
Scrivi "Totali Estrazioni..... " &(fin - Ini) + 1,1
Scrivi
For n = 1 To aa
aN(1) = Nu
T = Array(T,"Ruote","Ambo","Freq","Rit","Max","Incr")
Call InitTabella(T)
Scrivi "CapoGioco Scelto " & aN(1),1,,,1,3,,1
Call Abbinamenti(aN(1),aRetAbb,Ini,fin,r,0)
Ru(1) = r
Ru(2) = r1
For k = 1 To qtAbb
ReDim Preserve abb(k)
abb(0) = aN(1)
abb(k) = aRetAbb(k,1)
Num(1) = aN(1)
Num(2) = aRetAbb(k,1)
er = EstrattoRitardo(r,abb(k),Ini,fin)
er1 = EstrattoRitardo(r,abb(0),Ini,fin)
ef = EstrattoFrequenza(r,abb(k),Ini,fin)
ef1 = EstrattoFrequenza(r,abb(0),Ini,fin)
eer = EstrattoRitardo(r1,abb(k),Ini,fin)
eer1 = EstrattoRitardo(r1,abb(0),Ini,fin)
eef = EstrattoFrequenza(r1,abb(k),Ini,fin)
eef1 = EstrattoFrequenza(r1,abb(0),Ini,fin)
ReDim Preserve ritk(k)
riga = riga + FormattaStringa(er,"000") & " "
rigo = rigo + FormattaStringa(ef,"000") & " "
Call StatisticaFormazione(Num,Ru,2,rit,max,Incr,fre,Ini,fin)
V = Array(v,StringaRuote(Ru),StringaNumeri(Num,,1),fre,rit,max,Incr)
Call AddRigaTabella(V)
Scrivi aN(1) & "-" & Format2(aRetAbb(k,1)) & " con presenze " & aRetAbb(k,2) & " rit " & rit & " Max " & Max & " incr " & Incr & " Fr " & fre
Next
Call VerificaEsito(abb,Ru,EstrazioneFin,2,1,,Esito,,es1)
Scrivi SiglaRuota(r) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(abb,". ",1),1
Scrivi "Rit. " & vbTab & FormattaStringa(er1,"000") & " " & riga
Scrivi "Fre. " & vbTab & FormattaStringa(ef1,"000") & " " & rigo
If Esito <> "" Then Scrivi es1,1,,,1
If Esito = "" Then Scrivi "Nessun Esito",,,,2
Scrivi "============================================"
CreaTabella
riga = ""
rigo = ""
Next
End Sub

 

[solare]

Ciao Trivellato
Grazie

 

[solare]

Ciao cinzia, con la modifica riportata da trivellato adesso si può analizzare x estrazioni.
Però io ho notato un errore sul listato relativo alle presenze.
Es. se io metto sul listato:
Ini = EstrazioneFin - 0
Avvio ruota 1 Bari con capogioco 74 e ruota 2 Cagliari con capogioco 11 essendo che stiamo analizzando l'ultima estrazione ossia dopo sono presenti i capogiochi analizzati, questo mi dovrebbe riportare le presenze seguenti: con il 74 a bari ........41-15-69-9 con l'11 a cagliari 50-53-70 -24 ovviamente tutti con una sola presenza.

 

[solare]

 

[solare]

Scusami, penso di aver capito
bisogna inserire un solo capogioco !

 

[trivellatomariotretre33]

Santo non va bene neanche con un capogioco qui ci vuole Cinzia per risolvere