lotto_tom75
Advanced Premium Member
Codice:
Sub Main()
Dim art(1)
Dim nu(90)
Dim an
r = CInt(InputBox("Ruota ricerca ",,1))
Ord = InputBox("Ordina tabella per ritardo attuale ",,3)
art(1) = r
Call ScegliNumeri(nu)
For h = 1 To UBound(nu)
numeri = numeri & nu(h) & " "
Next
ColoreTesto 1
Scrivi " Situazione ultimi 14 ritardi sulla ruota di " & NomeRuota(r)
Scrivi " Per i numeri richiesti...." & numeri
ColoreTesto 0
Scrivi "_____________________________________________________________________"
ReDim atitoli(35)
' preimposto i titoli delle colonne
atitoli(1) = "Ruota "
atitoli(2) = "Numeri "
atitoli(3) = "R.att "
atitoli(4) = "R.sto "
atitoli(5) = " R01 "
atitoli(6) = " RS1 "
atitoli(7) = " R02 "
atitoli(8) = " RS2 "
atitoli(9) = " R03 "
atitoli(10) = " RS3 "
atitoli(11) = " R04 "
atitoli(12) = " RS4 "
atitoli(13) = " R05 "
atitoli(14) = " RS5 "
atitoli(15) = " R06 "
atitoli(16) = " RS6 "
atitoli(17) = " R07 "
atitoli(18) = " RS7 "
atitoli(19) = " R08 "
atitoli(20) = " RS8 "
atitoli(21) = " R09 "
atitoli(22) = " RS9 "
atitoli(23) = " R10 "
atitoli(24) = " RS10 "
atitoli(25) = " R11 "
atitoli(26) = " RS11 "
atitoli(27) = " R12 "
atitoli(28) = " RS12 "
atitoli(29) = " R13 "
atitoli(30) = " RS13 "
atitoli(31) = " R14 "
atitoli(32) = " RS14 "
atitoli(33) = " SomRit."
atitoli(34) = " SomRitSto."
atitoli(35) = " Diff.Somma-SommaSTO.RC-Somma-RC."
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
For q = 1 To UBound(nu)
ReDim rit(15)
ReDim ritsto(15)
fine = EstrazioneFin
'ini = fine - 1000
somrit = 0
somritsto = 0
diffritstorit = 0
For z = 1 To UBound(rit)
'For y = 1 To UBound(ritsto)
an = nu(q)
rit(z) = EstrattoRitardo(r,an,ini,fine)
ritsto(z) = EstrattoStorico(r,an,ini,fine)
fine = fine -(rit(z) + 1)
'fine = fine -(ritsto(z) + 1)
If z >= 2 Then
somrit = somrit + rit(z)
somritsto = somritsto + ritsto(z)
diffritstorit =somritsto-somrit
End If
'Next
Next
riga = NomeRuota(r) & " nr. " & an & " "
ReDim aValori(35) '
aValori(1) = NomeRuota(r)
aValori(2) = an
aValori(3) = rit(1)
aValori(4) = ritsto(1)
aValori(5) = rit(2)
aValori(6) = ritsto(2)
aValori(7) = rit(3)
aValori(8) = ritsto(3)
aValori(9) = rit(4)
aValori(10) = ritsto(4)
aValori(11) = rit(5)
aValori(12) = ritsto(5)
aValori(13) = rit(6)
aValori(14) = ritsto(6)
aValori(15) = rit(7)
aValori(16) = ritsto(7)
aValori(17) = rit(8)
aValori(18) = ritsto(8)
aValori(19) = rit(9)
aValori(20) = ritsto(9)
aValori(21) = rit(10)
aValori(22) = ritsto(10)
aValori(23) = rit(11)
aValori(24) = ritsto(11)
aValori(25) = rit(12)
aValori(26) = ritsto(12)
aValori(27) = rit(13)
aValori(28) = ritsto(13)
aValori(29) = rit(14)
aValori(30) = ritsto(15)
aValori(31) = rit(15)
aValori(32) = ritsto(15)
aValori(33) = somrit
aValori(34) = somritsto
aValori(35) = diffritstorit
Call AddRigaTabella(aValori,Bianco_,"center",2)
Next
Call CreaTabella(Int(ord))
End SubHo costruito questo script, partendo da uno che ne prevedeva l'analisi del solo RA che credo abbia realizzato a suo tempo il grande Rubino, per cercare di calcolare sia l'RA che l'RS dinamici per gli ultimi RC desiderati (in questo caso gli ultimi 14 RC (Ritardi Consecutivi) + Rit Att e Sto + attuali. E di calcolarne ala fine la SOMMA dei rispettivi valori e la differenza di queste due somme.
Sembra tornare tutto... tranne l'RS dinamico appunto che se si prova ad eseguire lo script da sempre il valore RS ultimo ovvero valutando l'intero range dal 1871 all'ultima estrazione + attuale mentre dovrebbe riportare per ogni casella relativa solo l'RS riferito a quella data estrazione...
es. "visivo" per cercare di spiegarmi meglio...
Se si prova a scegliere come estratto da analizzare l'1 su BA viene fuori:
Ruota Numeri R.att R.sto R01 RS1 R02 RS2 R03 RS3 R04 RS4 R05 RS5 R06 RS6 R07 RS7 R08 RS8 R09 RS9 R10 RS10 R11 RS11 R12 RS12 R13 RS13 R14 RS14 SomRit. SomRitSto. Diff.Somma-SommaSTO.RC-Somma-RC.
Bari 1 6 90 3 90 10 90 4 90 1 90 19 90 15 90 24 90 12 90 18 90 6 90 14 90 21 90 11 90 52 90 210 1260 1050
E quindi al posto del RS "dinamico" appunto esce sempre l'RS attuale (nell'es rs=90) anzichè valori diversi per le varie fasce di ritardo esaminato... analogamente all'RA dinamico che invece esce regolarmente diverso per ogni fascia temporale esaminata...
Sono sicuro di stare affogando in un bicchier d'acqua ma al momento non riesco a trovare assolutamente la ciambella...
Thanks alle buone, ed esperte in script, anime in ascolto...
PS: per qualsiasi ulteriore eventuale chiarimento I'm here...
PS2: W le Donne
Ultima modifica:
Thanks! 
