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.
Mike58;n2114748 ha scritto:Purtroppo per errore è capitato anche a me.
Ho ripristinato il tutto.
1 > cancellando completamente i 2 file nella directory di scarico
2 > tengo aperto internet Explorer
3 > lancio il plugin
4 > spunta Ricrea File
Tutte le estrazioni sono state scaricate ed i file è completo di tutte le estrazioni.
P.s. Nessun messaggio di permission Denied
Come diceva Luigi bisogna aver Internet Explorer come broser.
Ciao
Mike58;n2114894 ha scritto:Ok ecco i File, prova a metterli nella directory e poi cerca di aggirnarli.
Nikor;n2114814 ha scritto:Salutando Tutti gli intervenuti in questo Thread , posto un veloce aggiornamento dopo la data del 10/05/2018 ; Range 93 estrazioni !
L'Ambo 03-34 scatta a ben 6 Presenze !!!
Decine Vergini = 12 !
21ine vergini = 06 !
Tabella Lunghette di 21 numeri :
Aggiornamento:
Decine Vergini = 11 !
21ine vergini = 2 !
Ciao.
Sub Main
Dim sFile,Nu(5),sommaChiave(5)
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
For chiave = 0 To 55
For es = Ini To fin
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
sommaChiave(p) = FuoriX((Nu(p) + chiave),55)
Next
If VerificaEsitoFT(sommaChiave,es + 1,3,100,esito,clp,es1,id) = True Then
k = k + 1
If esito = "Terno" Then kT = kT + 1
If esito = "Quaterna" Then kQ = kQ + 1
Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
Scrivi " + " & chiave & vbTab,0,0
Scrivi StringaNumeri(sommaChiave,,1) & vbTab,0,0
Scrivi es1 & vbTab & "Colpo... " & clp & vbTab & GetInfoEstrazioneFT(id) & vbTab & " Estratti [ " & StringaEstrattiFT(id) & " ]"
'End If
End If
'Next
Next
Scrivi "Chiave " & FormatSpace(chiave,2) & " esito............................................................................................... " & k,1,1,,1
Scrivi "Terni = " & kT
Scrivi "Quaterne = " & kQ
k = 0
kT = 0
kQ = 0
Scrivi
Next
End Sub
Sub Main
Dim sFile,Nu(5),sommaChiave(5)
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
T = Array(T,"Sommativo","Totali","Terni","Quaterne","Ritardo","ColpoMin","ColpoMax","ColpoMedio")
Call InitTabella(T)
For chiave = 0 To 55
For es = Ini To fin
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
sommaChiave(p) = FuoriX((Nu(p) + chiave),55)
Next
If VerificaEsitoFT(sommaChiave,es + 1,3,100,esito,clp,es1,id) = True Then
k = k + 1
ReDim Preserve ColpoMedio(k)
ColpoMedio(k) = clp
clpMedio = (clpMedio + clp)
ColpoMed = Round((clpMedio / k),2)
colpoMin = MinimoV(ColpoMedio,1,-1)
colpoMax = MassimoV(ColpoMedio,1,-1)
If esito = "Terno" Then kT = kT + 1
If esito = "Quaterna" Then kQ = kQ + 1
Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
Scrivi " + " & chiave & vbTab,0,0
Scrivi StringaNumeri(sommaChiave,,1) & vbTab,0,0
Scrivi es1 & vbTab & "Colpo... " & clp & vbTab & GetInfoEstrazioneFT(id) & vbTab & " Estratti [ " & StringaEstrattiFT(id) & " ]"
'End If
ess = fin - Id
End If
Next
V = Array(V,"+ " & chiave,k,kT,kQ,ess,colpoMin,colpoMax,colpoMed)
Call AddRigaTabella(V)
Scrivi "Chiave " & FormatSpace(chiave,2) & " esito............................................................................................... " & k,1,1,,1
Scrivi "Terni = " & kT
Scrivi "Quaterne = " & kQ
Scrivi "Ritarda da ...... " & ess,1
Scrivi "Colpo Minimo : " & colpoMin
Scrivi "Colpo massimo : " & colpoMax
Scrivi "Colpo Medio : " & ColpoMed
k = 0
kT = 0
kQ = 0
clpMedio = 0
Scrivi
Next
Scrivi "Riepilogo finale Ordinabile",1,,,1,3
CreaTabellaOrdinabile
End Sub