Mike58
Advanced Member >PLATINUM PLUS<
Incuriosito da questa nuova Lotteria, ho voluto creare uno script Griglia Visiva, in modo da vedere e analizzare in modo per ora visivo i numeri estratti, con una loro statistica in presenze e ritardi.
Vi posto il file fi testo delle estrazioni, da aggiornare seguendo la logica dei 3 punti
Numero estrazione Progressiva.
Data
Estratti
separati da carattere ","
Con lo script della Griglia Tabella.
Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).
Immagine
File di Testo.
Ciao
Vi posto il file fi testo delle estrazioni, da aggiornare seguendo la logica dei 3 punti
Numero estrazione Progressiva.
Data
Estratti
separati da carattere ","
Con lo script della Griglia Tabella.
Fatene buon uso e soprattutto si accettano idee e suggerimenti sulla Lotteria (solo basi Statistiche).
Codice:
Sub Main
Dim nu(5),T,V,aN(55)
Dim sFileBd
Dim sChrSep
sChrSep = ","
sFileBd = ScegliFile("C:\Mike58\Desktop\.txt") ' Percorso FileTesto
'Call ApriBaseDatiFT(sFileBd,6,sChrSep,90) ' x Sivicetutto
'Call ApriBaseDatiFT(sFileBd,5,sChrSep,40) ' x VinciCasa
Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
Ini = 1' EstrazioniArchivioFT - 20
fin = EstrazioniArchivioFT - 1
fine = EstrazioniArchivioFT
ReDim T(57)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 55
T(x + 2) = Format2(x)
Next
Call InitTabella(T)
For es = Ini To fine
'For r = 1 To 1
ReDim V(57)'------------------------------------------------------
V(1) = GetInfoEstrazioneFT(es)
V(2) = StringaEstrattiFT(es)
For xx = 1 To 55
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = EstrattoFT(es,p)
If nu(p) = xx Then aN(xx) = aN(xx) & nu(p)
If nu(p) = xx Then kk = kk + 1
V(xx + 2) = aN(xx)
Next
Next
Call AddRigaTabella(V)
Next
ReDim VV(57)
For xxx = 1 To 55
aa = EstrattoFrequenzaFT(xxx,Ini,fine)
VV(1) = "Presenze"
VV(xxx + 2) = aa
Next
Call AddRigaTabella(VV,3)
ReDim VVV(57)
For xxx = 1 To 55
aa = EstrattoRitardoFT(xxx,Ini,fine)
VVV(1) = "Ritardo"
VVV(xxx + 2) = aa
Next
Call AddRigaTabella(VVV,6)
ReDim VVVv(57)
For xxx = 1 To 55
aa = EstrattoStoricoFT(xxx,Ini,fine)
VVVv(1) = "Rit Storico"
VVVv(xxx + 2) = aa
Next
Call AddRigaTabella(VVVv,7)
Call SetTableWidth("100%")
CreaTabella
For y = 1 To 40
n = EstrattoFrequenzaFT(y,Ini,fin)
m = EstrattoRitardoFT(y,Ini,fin)
o = EstrattoStoricoFT(y,Ini,fin)
If n > 0 And m = o Then
kn = kn + 1
ReDim Preserve aNum(kn)
aNum(kn) = y
ReDim Preserve aRit(kn)
aRit(kn) = m
Call VerificaEsitoFT(aNum,fine,1,1,esito,,es1)
End If
Next
Scrivi "Numeri per Gioco : " & StringaNumeri(aNum,,1) & " ( " & kn & " )" & vbTab & esito & vbTab & es1,1
Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
End SubImmagine
File di Testo.
Ciao
