Option Explicit
Sub Main
Dim k,s
Dim nClasse,nColonneTot
ReDim aNumeri(55)
Dim aCol,Num
Dim sFile,Ini,fin
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
Scrivi "=========================="
Scrivi "Numero - Q.tà Ambi Vergini"
Scrivi "=========================="
For Num = 1 To 55
'Num = CInt(InputBox("Numero Fisso",,19))
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 55
aNumeri(k) = k
Next
'inizializza lo sviluppo
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
' ciclo che continua fiono a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
If SerieFreqFT(Ini,fin,aCol,2) = 0 Then
If aCol(1) = Num Or aCol(2) = Num Then
k = k + 1 ' conteggio colonna corrente
' costruisco la stringa che contiene la colonna
s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol)
' Call Scrivi(s)
End If
End If
Call Messaggio("Colonna " & Num )
If ScriptInterrotto Then Exit Do
Loop
Scrivi Num & vbTab & k
Next
End SubOption Explicit
Sub Main
Dim k,s
Dim nClasse,nColonneTot
ReDim aNumeri(55)
Dim aCol,Num
Dim sFile,Ini,fin
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
Num = CInt(InputBox("Numero Fisso",,19))
nClasse = 2 ' sviluppo in ambi
' inizializzo i numeri da sviluppare in questo caso 90
' ma potrebbero essere anche di meno
For k = 1 To 55
aNumeri(k) = k
Next
'inizializza lo sviluppo
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
' ciclo che continua fiono a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
If SerieFreqFT(Ini,fin,aCol,2) = 0 Then
If aCol(1) = Num Or aCol(2) = Num Then
k = k + 1 ' conteggio colonna corrente
' costruisco la stringa che contiene la colonna
s = FormatSpace(k,10,True) & "- " & StringaNumeri(aCol)
Call Scrivi(s)
End If
End If
Call Messaggio("Colonna " & k)
If ScriptInterrotto Then Exit Do
Loop
End Sub
Sub Main()
Dim sfile
Dim Nu(5)
sfile = GetDirectoryAppData & "ArchivioMillionDAY\MillionDay_ordinato.txt"
'sfile = ScegliFile("C:\.....\Desktop\.txt")
Call ApriBaseDatiFT(sfile,5,";",55)
ini = 1
fin = EstrazioniArchivioFT
Scrivi "==========================================================================="
Scrivi " Info Data Es Estratti Ambo Verifica Clp Ritardo Freq"
Scrivi "==========================================================================="
For es = Ini To fin
AvanzamentoElab ini,fin,es
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
sr = SerieRitardoFT(es,fin,Nu,2)
fr = SerieFreqFT(es + 1,fin,Nu,2)
If es = fin Then fr = 0
Next
Call VerificaEsitoFT(Nu,es + 1,2,100,esito,clp,es1,id)
Call VerificaEsitoFT(Nu,fin,2,100,esitoF,clpF,esF,idF)
'If fr = 0 Then
If esito <> "" Then
Scrivi GetInfoEstrazioneFT(es) & vbTab,0,0
Scrivi StringaEstrattiFT(es) & vbTab,0,0
'Scrivi "Rit... " & fin - es & vbTab,0,0
If fr = 1 Then ess = esF
Scrivi es1 & vbTab & clp & vbTab & sr & vbTab & fr & vbTab & esito & vbTab,0,0
Scrivi ess,1,0,2,4,3
If fr = 1 And sr = 0 Then
Scrivi " Al Colpo... " & clp
Else
Scrivi ""
End If
End If
ess = ""
If esito = "" Then
ColoreTesto 2
Scrivi GetInfoEstrazioneFT(es) & vbTab,1,0
Scrivi StringaEstrattiFT(es) & vbTab,1,0
'Scrivi "Rit... " & fin - es & vbTab,0,0
Scrivi ".. .. .. .. .." & vbTab & clp & vbTab & sr & vbTab & fr,1
End If
'End If
ColoreTesto 0
Next
Scrivi "==========================================================================="
Scrivi " Info Data Es Estratti Ambo Verifica Clp Ritardo Freq"
Scrivi "==========================================================================="
End SubSub Main
Dim Nu(5),sFile,T,V
Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2),ambo6(2),ambo7(2),ambo8(2),ambo9(2),ambo10(2)
Dim RsL(10),MaxRsL
sFile = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"
Call ApriBaseDatiFT(sFile,5,";",55)
Ini = 1
fin = EstrazioniArchivioFT
Scrivi "Analitico Ambi non Sortiti - Cinquine Estratte - Lotteria MillionDay - By Mike58",1,1,,1,3,,1
Scrivi
T = Array(T,"Data info","Estratti","FIN-ES","A1","A2","A3","A4","A5","A6","A7","A8","A9","A10","R1","R2","R3","R4","R5","R6","R7","R8","R9","R10","RsL","SerieUltima")
Call InitTabella(T,1,,2,5)
For es = Ini To fin
For p1 = 1 To 5
a = EstrattoFT(es,p1)
Nu(p1) = a
ambo1(1) = Nu(1)
ambo1(2) = Nu(2)
ambo2(1) = Nu(1)
ambo2(2) = Nu(3)
ambo3(1) = Nu(1)
ambo3(2) = Nu(4)
ambo4(1) = Nu(1)
ambo4(2) = Nu(5)
ambo5(1) = Nu(2)
ambo5(2) = Nu(3)
ambo6(1) = Nu(2)
ambo6(2) = Nu(4)
ambo7(1) = Nu(2)
ambo7(2) = Nu(5)
ambo8(1) = Nu(3)
ambo8(2) = Nu(4)
ambo9(1) = Nu(3)
ambo9(2) = Nu(5)
ambo10(1) = Nu(4)
ambo10(2) = Nu(5)
'a1 = StringaNumeri(ambo1)
Next
sf1 = SerieFreqFT(es + 1,fin,ambo1,2)
sr1 = SerieRitardoFT(es + 1,fin,ambo1,2)
If sf1 = 0 Then a1 = StringaNumeri(ambo1)
If sf1 > 0 Then a1 = " - "
sf2 = SerieFreqFT(es + 1,fin,ambo2,2)
sr2 = SerieRitardoFT(es + 1,fin,ambo2,2)
If sf2 = 0 Then a2 = StringaNumeri(ambo2)
If sf2 > 0 Then a2 = " - "
sf3 = SerieFreqFT(es + 1,fin,ambo3,2)
sr3 = SerieRitardoFT(es + 1,fin,ambo3,2)
If sf3 = 0 Then a3 = StringaNumeri(ambo3)
If sf3 > 0 Then a3 = " - "
sf4 = SerieFreqFT(es + 1,fin,ambo4,2)
sr4 = SerieRitardoFT(es + 1,fin,ambo4,2)
If sf4 = 0 Then a4 = StringaNumeri(ambo4)
If sf4 > 0 Then a4 = " - "
sf5 = SerieFreqFT(es + 1,fin,ambo5,2)
sr5 = SerieRitardoFT(es + 1,fin,ambo5,2)
If sf5 = 0 Then a5 = StringaNumeri(ambo5)
If sf5 > 0 Then a5 = " - "
sf6 = SerieFreqFT(es + 1,fin,ambo6,2)
sr6 = SerieRitardoFT(es + 1,fin,ambo6,2)
If sf6 = 0 Then a6 = StringaNumeri(ambo6)
If sf6 > 0 Then a6 = " - "
sf7 = SerieFreqFT(es + 1,fin,ambo7,2)
sr7 = SerieRitardoFT(es + 1,fin,ambo7,2)
If sf7 = 0 Then a7 = StringaNumeri(ambo7)
If sf7 > 0 Then a7 = " - "
sf8 = SerieFreqFT(es + 1,fin,ambo8,2)
sr8 = SerieRitardoFT(es + 1,fin,ambo8,2)
If sf8 = 0 Then a8 = StringaNumeri(ambo8)
If sf8 > 0 Then a8 = " - "
sf9 = SerieFreqFT(es + 1,fin,ambo9,2)
sr9 = SerieRitardoFT(es + 1,fin,ambo9,2)
If sf9 = 0 Then a9 = StringaNumeri(ambo9)
If sf9 > 0 Then a9 = " - "
sf10 = SerieFreqFT(es + 1,fin,ambo10,2)
sr10 = SerieRitardoFT(es + 1,fin,ambo10,2)
If sf10 = 0 Then a10 = StringaNumeri(ambo10)
If sf10 > 0 Then a10 = " - "
RsL(1) = sr1
RsL(2) = sr2
RsL(3) = sr3
RsL(4) = sr4
RsL(5) = sr5
RsL(6) = sr6
RsL(7) = sr7
RsL(8) = sr8
RsL(9) = sr9
RsL(10) = sr10
MaxRsL = MinimoV(RsL,1,- 1)
Call VerificaEsitoFT(Nu,fin - MaxRsL,2,1,esito,clp,es1)
If esito = "Cinquina" Then
es1 = " Esito Non Verificato "
Else
es1 = es1
End If
V = Array(V,GetInfoEstrazioneFT(es),StringaEstrattiFT(es),fin - es,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,sr1,sr2,sr3,sr4,sr5,sr6,sr7,sr8,sr9,sr10,MaxRsL,es1)
Call AddRigaTabella(V)
For x = 14 To 23
If MaxRsL = V(x) Then Call SetColoreCella((x),3,0)
Next
For y = 4 To 13
Call SetColoreCella((y),6,0)
Next
Call SetColoreCella(24,7,5)
If MaxRsL = 0 Then Call SetColoreCella(25,2,4)
Next
Call SetTableWidth("100%")
CreaTabella
End Sub
Mike58;n2113521 ha scritto:
Nikor;n2113665 ha scritto:
