Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Na parola se non conosco i parametri e le condizioni da applicare.Le stesse analisi fatte da mastrolettere si possono fare, con un po di lavoro, anche su spaziometria, basta andare in " Tabelloni/Quadro analitico estrazioni per ruota" sciegliere la ruota ed il tipo di ricerca, certo non ci sono le letteren
previsionali, ma con un poco di lavoro ci si può arrivare...
Condivido ma non è un metodo è solo un tabulato, non dà previsioni.Non fa parte dei miei metodi di ricerca, ovviamente se viene venduto a certe cifre.... ci sarà un motivo, anche se penso sia un metodo semplicemente statistico.
ma se qualche scripter ha idee, cosa di cui dubito, è ben accetta qualsiasi idea.
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Ini = EstrazioneFin - 25
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1)
For es = Ini To fin
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) =(es)
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 2700,es))
kk = kk + 1
V(xx + 2) = aN(xx)
' If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin - 2700,fin)
freq(1) = "Freq"
freq(2) = " <> "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " <> "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " <> "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr
Next
Call AddRigaTabella(V,,,1)
For y = 1 To 92
If y < 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
Next
Next
'Next
Call AddRigaTabella(freq,,,1)
Call AddRigaTabella(rit,,,1)
Call AddRigaTabella(sto,,,1)
Call AddRigaTabella(Lettere,4,4,0)',,,1)
Call SetTableWidth("100%")
CreaTabella
End Sub
Topo segretoMa Tu come mai le hai? E pure aggiornate, ma....funzionano?