'<http://forum.lottoced.com/newreply.php?do=postreply&t=92458>
'Ver 1.0 RAMCO
' Rev 1.1 Blackmore; 12-03-2012 X joi_lotto
'Rev 1.2 DjNomade X joi_lotto
'Rev 1.3 Baffoblu X Filotto
'Ver 2.0 ricerca Spia-Consecutiva-MultiRuote & Auto-Load By Joe 16/03/2012
'--------------------------------------------------------------------------
Sub Main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
Ini = 3950 : Fin = EstrazioneFin
'AutoLoad Add by Joe
For R = 1 To 10 : R1=R+1 : If R1= 11 Then R1=1
E1 = Estratto (Fin,R,5) : E2 = Estratto (Fin,R1,1)
If E1 = E2 Then
ColoreTesto 1
Scrivi "La spia consecutiva " & E1 & " è presente il :",1
Scrivi : Call informa(Fin,r,a,r1,b)
AA = E1
End If
Next
Scrivi : Scrivi "CASI PRECEDENTI : ",1 : Scrivi : ColoreTesto 0
'
If AA = "" Then aa = InputBox("Quale numero controllo?","SPIA NON PRESENTE il "& Dataestrazione(fin),"36")
n(1) = CInt(aa) : n(2) = CInt(aa) : rtt(1) = 11
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
For es = Ini To fin
Messaggio " Spia " & n(1) & " Data " & DataEstrazione(es)
For r = 1 To 9 : r1 = r+1
x(1) = n(1)
x(2) = n(2)
a = Estratto(es,r,5)
If a = n(1) Or a = n(2) Then
If a = n(1) Then x(1) = 0 Else x(2) = 0
b = Estratto(es,r1,1)
If b = x(1) Or b = x(2) Then
Call informa(es,r,a,r1,b)
casi = casi + 1
ess = es + ww
If ess > fin Then ess = fin End If
co = 0
For x1 = 1 To 89
For y1 = x1 + 1 To 90
co = co + 1
nu1(co,1) = co
nu1(co,2) = x1
nu1(co,3) = y1
nn(1) = x1
nn(2) = y1
ru(1) = r
ru(2) = r1
k1 = SerieFreq(es + 1,ess,nn,ru,2)
nu1(co,4) = nu1(co,4) + k1
nu2(co,1) = co
nu2(co,2) = x1
nu2(co,3) = y1
nn1(1) = x1
nn1(2) = y1
k2 = SerieFreq(es + 1,ess,nn1,ru,2)
If k2 > 1 Then k2 = 1
nu2(co,4) = nu2(co,4) + k2
mat(co,1) = co
mat(co,2) = x1
mat(co,3) = y1
ne(1) = x1
ne(2) = y1
xf = SerieFreq(es + 1,ess,ne,rtt,2)
mat(co,4) = mat(co,4) + xf
Next
Next
co = 0
For xx = 1 To 90
co = co + 1
nu3(co,1) = co
nu3(co,2) = xx
nn2(1) = xx
ru(1) = r
ru(2) = r1
k3 = SerieFreq(es + 1,ess,nn2,ru,1)
If k3 > 1 Then k3 = 1
nu3(co,3) = nu3(co,3) + k3
nu4(co,1) = co
nu4(co,2) = xx
nn2(1) = xx
k4 = SerieFreq(es + 1,ess,nn2,ru,1)
nu4(co,3) = nu4(co,3) + k4
Next
End If
End If
Next
Next
Messaggio ("Organizzazione DATI")
OrdinaMatrice mat,- 1,4
OrdinaMatrice nu1,- 1,4
OrdinaMatrice nu2,- 1,4
OrdinaMatrice nu3,- 1,3
OrdinaMatrice nu4,- 1,3
ColoreTesto 2
Scrivi : Scrivi "SPIA " & n(1) & " CONSECUTIVA (in due ruote) dal " & _
DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
ColoreTesto 1
Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
"estrazioni sucessive "
ColoreTesto 2
Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE la SPIA"
ColoreTesto 1
Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
"+presenti nei c. / Estratti+frequenti "
Scrivi
ColoreTesto 2
Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
ColoreTesto 0
For wx = 1 To 10
riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
Format2(nu4(wx,3))
Scrivi Space(7) & riga,1
riga = ""
Next
Scrivi String(70,"*") & " By Joe",1
Scrivi
ColoreTesto 1
Scrivi Space(4) & "Ambi + frequenti a TUTTE",1
ColoreTesto 0
For wx = 1 To 10
riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
Scrivi Space(8) & riga,1
riga = ""
Next
End Sub
Function informa(es,r,a,r1,b) ' V.2.0. by Joe
Scrivi "["& ES & "] " & Dataestrazione (es) & " ",1,0
Scrivi SiglaRuota (R) & " " & StringaEstratti(Es,R) & " >< ",0,0
Scrivi StringaEstratti (Es,R1)& " " & SiglaRuota(R1)
End Function
