Sub Main
qt = InputBox("Quante Estrazioni Analizzo",,10)
cl = CInt(InputBox("Quanti colpi in verifica",,10))
arch = CInt(InputBox("Quale Archivio" & Chr(13) & Chr(13) & "1 = 10 e Lotto Serale " & Chr(13) & "2 = 10 e Lotto 5 Min",,1))
scel = CInt(InputBox("Quale operazione" & Chr(13) & Chr(13) & "1 = Sottrazione" & Chr(13) & "2 = Addizione",,1))
Dim Nu(90),T,V,ru(1),vetR,vetQ
Ini = EstrazioniArchivio - qt
fin = EstrazioniArchivio
For Np = 1 To 90
If Primo(Np) Then
kn = kn + 1
Nu(Np) = Np
End If
Next
Scrivi "Numeri Primi : " & StringaNumeri(Nu) & " ---> " & kn,1
Scrivi
For es = Ini To fin
kn = 0
T = Array(T,"Id Data Trovata","Ruota","Estratti","Numeri Primi","Q,Tà","Numeri Lato-Primi","Num Prono")
Call InitTabella(T,1,,,5)
For r = 1 To 10
ru(1) = r
' ..............calcolo Numeri Primi ...........................................
If scel = 1 Then
For p = 2 To 5
n = Estratto(es,r,p)
If Primo(n) Then
k = k + 1
ReDim Preserve nPrimi(k)
nPrimi(k) = n
'End If
'...................................................................
' ...... calcolo numeri precedenti in posizione ai numeri primi...........
If Primo(n) Then
kk = kk + 1
ReDim Preserve NoPrimiPrec(kk)
NoPrimiPrec(kk) = Estratto(es,r,p - 1)
'End If
'.........................................................................
' calcolo differenze per pronostico.......................................
If k = kk Then
kkk = kkk + 1
kn = kn + 1
ReDim Preserve nProno(kkk)
nProno(kkk) = Differenza(nPrimi(k),Estratto(es,r,p - 1))
EliminaRipetuti(nProno)
'Call VerificaEsito(nProno,ru,es + 1,1,cl,,,clp,es1,id)
ReDim Preserve Npp(kn)
Npp(kn) = Differenza(nPrimi(k),Estratto(es,r,p - 1))
End If
End If
End If
Next
End If
If scel = 2 Then
For p = 1 To 4
n = Estratto(es,r,p)
If Primo(n) Then
k = k + 1
ReDim Preserve nPrimi(k)
nPrimi(k) = n
'End If
'...................................................................
' ...... calcolo numeri precedenti in posizione ai numeri primi...........
If Primo(n) Then
kk = kk + 1
ReDim Preserve NoPrimiPrec(kk)
NoPrimiPrec(kk) = Estratto(es,r,p + 1)
'End If
'.........................................................................
' calcolo differenze per pronostico.......................................
If k = kk Then
kkk = kkk + 1
kn = kn + 1
ReDim Preserve nProno(kkk)
nProno(kkk) = Differenza(nPrimi(k),Estratto(es,r,p + 1))
EliminaRipetuti(nProno)
'Call VerificaEsito(nProno,ru,es + 1,1,cl,,clp,es1,id)
'........... accorporo numeri per gioco ............
ReDim Preserve Npp(kn)
Npp(kn) = Differenza(nPrimi(k),Estratto(es,r,p + 1))
End If
End If
End If
Next
End If
If kkk > 0 Then
V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),StringaNumeri(nPrimi),k,StringaNumeri(NoPrimiPrec),StringaNumeri(nProno))
Call AddRigaTabella(V)
End If
If kkk = 0 Then
V = Array(V,DataEstrazione(es),SiglaRuota(r),StringaEstratti(es,r),"",k,"","")
Call AddRigaTabella(V)
End If
Call SetColoreCella(7,3,0)
k = 0
kk = 0
kkk = 0
'kn = 0
Next
'Call SetTableWidth("100%")
CreaTabella
Scrivi
aa = NumeriRipetuti(Npp)
EliminaRipetuti(Npp)
Scrivi "Dettaglio spoglio estrazioni"
Scrivi "Numeri Prono Accorpati : " & StringaNumeri(Npp) & " ( " & kn - aa & " )",1
kn = 0
esx = es + 1
esf = EstrazioneFin
ImpostaArchivio10ELotto(arch)
For ess = esx To esf
Call VerificaEsitoDL(Npp,ess,1,1,esito2,colpi2,es2,id2)
Scrivi GetInfoEstrazioneDL(id2) & vbTab,0,0
Scrivi es2 & vbTab,0,0
Scrivi esito2
Next
Scrivi
Scrivi String(160,"=")
Scrivi
Next
Scrivi
End Sub
