Mike58
Advanced Member >PLATINUM PLUS<
Ecco per chi vuole lo script in posizione usando il file Millionday_ordinato.
Per un corretto utilizzo
Creare una Cartella io l'ho chiamata "ArchivioMillionDAY"
e qui ricreare gli archivi sia in modo estrattivi che ordinati con il proprio nome voluto, utilizzando il plugin in oggetto.
script
Per un corretto utilizzo
Creare una Cartella io l'ho chiamata "ArchivioMillionDAY"
e qui ricreare gli archivi sia in modo estrattivi che ordinati con il proprio nome voluto, utilizzando il plugin in oggetto.
Codice:
sFile = GetDirectoryAppData & "ArchivioMillionDAY\MillionDay_ordinato.txt"
Call ApriBaseDatiFT(sFile,5,";",55)script
Codice:
Sub Main
Dim sFile,T,V,nEsiti
sFile = GetDirectoryAppData & "ArchivioMillionDAY\MillionDay_ordinato.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
T = Array(T,"Numero","P1","P2","P3","P4","P5","Pres","Rit","Sto","InCr")
Call InitTabella(T,1,,2,5)
For x = 1 To 55
ReDim ff(5)
For y = 1 To 5
ReDim pos(5)
pos(y) = True
ff(y) = EstrattoFrequenzaFT(x,Ini,fin,pos)
fft = EstrattoFrequenzaFT(x,Ini,fin)
rit = EstrattoRitardoFT(x,Ini,fin)
sto = EstrattoStoricoFT(x,Ini,fin)
If ff(y) = 0 Then ff(y) = "-"
Incr = EstrattoIncrStoricoFT(x,Ini,fin)
If Incr = 0 Then Incr = "-"
Next
V = Array(V,Format2(x),ff(1),ff(2),ff(3),ff(4),ff(5),fft,rit,sto,Incr)
Call AddRigaTabella(V)
Call SetColoreCella(7,3,0)
Call SetColoreCella(8,7,5)
Call SetColoreCella(9,4,0)
Call SetColoreCella(1,1,5)
If rit = 0 Then Call SetColoreCella(8,2,4)
If rit = 0 Then Call SetColoreCella(1,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella(,,,,1)
aP = Array(aP,"Posizioni","Numeri Presenti","Min","Max","Q.Tà","Ritardo","Verifica")
Call InitTabella(aP)
For xx = 1 To 5
ReDim aPos(5)
aPos(xx) = True
'aPos(2) = True
'aPos(3) = True
'aPos(4) = True
'aPos(5) = True
For nn = 1 To 55
'Nu(1) = n
'If SerieFreqFT(Ini,fin,Nu,1,aPos) > 0 Then
If EstrattoFrequenzaFT(nn,Ini,fin,aPos) > 0 Then
kk = kk + 1
ReDim Preserve rigaP(kk)
rigaP(kk) = nn
min = MinimoV(rigaP,1,- 1)
max = MassimoV(rigaP)
sr = SerieRitardoFT(ini,fin,rigaP,1)
Call VerificaEsitoFT(rigaP,fin,1,,esito1,,es2)
End If
Next
If kk > 0 Then
aV = Array(aV,xx,StringaNumeri(rigaP),min,max,kk,sr,es2)
Call AddRigaTabella(aV)
End If
'riga = ""
kk = 0
Next
Call CreaTabella()
For yy = 1 To 55
n = EstrattoFrequenzaFT(yy,Ini,fin)
m = EstrattoRitardoFT(yy,Ini,fin)
o = EstrattoStoricoFT(yy,Ini,fin)
i = EstrattoIncrStoricoFT(yy,Ini,fin)
If n > 5 Then
kn = kn + 1
ReDim Preserve aNum(kn)
aNum(kn) = yy
ReDim Preserve aRit(kn)
'aRit(kn) = m
riga = riga & Format2(m) & " "
End If
Next
Scrivi "Numeri per Gioco : " & StringaNumeri(aNum,,1) & " ( " & kn & " )",1
'Scrivi "Numeri in Ritardo : " & StringaNumeri(aRit,,1),1,,,1
Scrivi "Numeri in Ritardo : " & riga,1,,,1
ess = fin - 30
Scrivi
Scrivi "Ultimi Esiti Numeri in Esame"
Scrivi String(60,"-")
Scrivi "Pr Info Data Esiti Esito "
Scrivi String(60,"-")
For ex = ess To fin
Call VerificaEsitoFT(aNum,ex,1,1,esito,clp,es1,id)
If esito <> "" Then
k = k + 1
Scrivi k & vbTab,0,0
Scrivi GetInfoEstrazioneFT(id) & vbTab,0,0
Scrivi es1 & vbTab,0,0
Scrivi esito
If esito = "Ambo" Then am = am + 1
If esito = "Terno" Then Ter = Ter + 1
If esito = "Quaterna" Then qua = qua + 1
End If
Next
Scrivi
Scrivi "Ambi.......... " & am
Scrivi "Terni......... " & Ter
Scrivi "Quaterne...... " & qua
End Sub
Ultima modifica:
