Ciao Mike58
Sto script è una tortura mentale....
Sarà che io ancora non sono proprio esperto, ma....
Ho notato che se anche vengono "remmate" le linee
che dici tu, lo script non gira lo stesso,
per la sorte di ambo con 2 numeri (12-21).
con questo ambo bisogna remmare anche quella con "last4"
Codice:
'-------------------------------------
'last4 = UBound(aretritardi) - 4
'For xxxx = last4 To UBound(aretritardi) - 4
'avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
'Next
'last5 = UBound(aretritardi) - 5
'For xxxxx = last5 To UBound(aretritardi) - 5
'avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
'Next
'------------------------------------
------------------------------------------------------
Poi ho notato che ci sono righe di codice superflue,
cioè se le cancello, lo script gira lo stesso e mi da
i stessi identici risultati.
Le righe sono :
Dim numero(10
numero(x) = num(x)
**********************************************
Poi una spiegazione su questa linea di codice
ed altre simili.
Questa è la linea incriminata :
RD1 = RitardoCombinazione(ruota,num,1,0,pos)
***********************************************
Adesso dato che già mi fuma il cervello
vorrei sapere, perchè se leggo l'help funzioni
mi dice :
La funzione
RitardoCombinazione:
(aRuote,aNumeri,sorte,Opt-fine,Opt-aPosizioni)
-----------------------------------------------
Perchè al posto di " Sorte " tu metti " 1 " ?
" 1 " non stà per sorte Estratto ?
-----------------------------------------------
Ripeto, io ne so meno di te e sto andando in confusione
ma vorrei provare a capirci di più....
*************************************************
Metto lo script con le seguenti linee remmate :
'Dim numero(10
'numero(x) = num(x)
remmate anche quelle con last4 e last5....
e messo " Sorte " al posto di " 1 ".
nelle righe con :
RitardoCombinazione(ruota,num,1,0,pos)
diventano :
RitardoCombinazione(ruota,num,sorte,0,pos)
lo script gira lo stesso, ma i risultati
li dirà Giulio..........
tutto questo sui 2 numeri 12-21
ricordando che "last4" e "last5" sono remmate.
Codice:
Sub Main()
Dim num(10)
'Dim numero(10)
Dim ruota(1)
Dim sorte
Dim x
qt = InputBox("quanti numeri",,3)
sorte = InputBox("Quale sorte verificare ",,1)
nStart = Timer ' partenza tempo di elaborazione
ScegliNumeri(num)
For x = 1 To qt
'numero(x) = num(x)
Call Messaggio("script by Mike58 ---> elaboro N. " & num(x))
Next
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",1,0,6
Scrivi" Per sorte..." & " " & NomeSorte(sorte),1,- 1,3
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " totali ESTRAZ. " & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = " Ruota "
atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
atitoli(14) = " Estratti ultimi "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incr,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(19)
avalori(1) = NomeRuota(r)
avalori(2) = StringaNumeri(num)
ReDim pos(5)
pos(1) = True
RD1 = RitardoCombinazione(ruota,num,sorte,0,pos)
avalori(3) = RD1
ReDim pos(5)
pos(2) = True
RD2 = RitardoCombinazione(ruota,num,sorte,0,pos)
avalori(4) = RD2
ReDim pos(5)
pos(3) = True
RD3 = RitardoCombinazione(ruota,num,sorte,0,pos)
avalori(5) = RD3
ReDim pos(5)
pos(4) = True
RD4 = RitardoCombinazione(ruota,num,sorte,0,pos)
avalori(6) = RD4
ReDim pos(5)
pos(5) = True
RD5 = RitardoCombinazione(ruota,num,sorte,0,pos)
avalori(7) = RD5
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = Incr
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(num,ruota,sorte,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
'last4 = UBound(aretritardi) - 4
'For xxxx = last4 To UBound(aretritardi) - 4
'avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
'Next
'last5 = UBound(aretritardi) - 5
'For xxxxx = last5 To UBound(aretritardi) - 5
'avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
'Next
Call AddRigaTabella(avalori)
Next
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
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
End Function
***************************************************
Questa immagine ricavata con lo script normale
remmando solo le righe "last4" e "last5".
2 numeri per Estratto (12-21).
Ps: click destro e scegli visualizza immagine per ingrandire
----------------------------------------------
Questa immagine ricavata con lo script normale
remmando solo le righe "last4" e "last5".
2 numeri per Ambo (12-21).
Ps: click destro e scegli visualizza immagine per ingrandire
---------------------------------------------
Questa immagine ricavata con lo script
che ho modificato che ho messo qui sopra
2 numeri per Estratto (12-21).
Ps: click destro e scegli visualizza immagine per ingrandire
----------------------------------------------
Questa immagine ricavata con lo script
che ho modificato che ho messo qui sopra
2 numeri per Ambo (12-21).
Ps: click destro e scegli visualizza immagine per ingrandire
**********************************************
**********************************************
**********************************************
Si nota che i risultati per Ambo
cambiano visibilmente fra i due script.
Quali sono i risultati più attendibili ?
A voi la palla !
