Sub Main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),nr(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1 = CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2 = CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",90))
r = CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",1))
rut = CInt(InputBox("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",1))
rt(1) = rut
ee = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",8616))
clp = CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",3))
ru1(1) = 11
fin = EstrazioneFin
ini = EstrazioneFin - ee
For cc = 1 To 90
For w = 1 To 2
n(cc,w) = 0 : nt(cc,w) = 0 : nrr(cc,w) = 0
Next
Next
co = 0 : casi = 0
For es = ini To fin
AvanzamentoElab Ini,fin,es
Messaggio " Spia: " & n1 & "-" & n2 & " -Estrazione : " & es
If(Posizione(es,r,n1) > 0 And Posizione(es,r,n2) > 0)Then
Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & n1 & " " & n2
casi = casi + 1
ess = es + clp
If ess > fin Then ess = fin End If
For x = es + 1 To ess
cc = 0
For pp = 1 To 5
d = Estratto(x,r,pp)
e = Estratto(x,rut,pp)
n(d,1) = d
nrr(e,1) = e
n(d,2) = n(d,2) + 1
nrr(e,2) = nrr(e,2) + 1 '<<<
Next
For rr = 1 To 10
For p1 = 1 To 5
g = Estratto(x,rr,p1)
nt(g,1) = g
nt(g,2) = nt(g,2) + 1
Next
Next
Next
co = 0
For x = 1 To 90
For y = x + 1 To 90
co = co + 1
nn(1) = x : nn(2) = y : ru(1) = r
ambi(co,1) = co : ambi(co,2) = x : ambi(co,3) = y
yy = SerieFreq(es + 1,ess,nn,ru,2)
ambi(co,4) = ambi(co,4) + yy
If yy > 0 Then
ambi(co,5) = ambi(co,5) + 1
Else
ambi(co,5) = ambi(co,5)
End If
nn1(1) = x : nn1(2) = y
ambi1(co,1) = co : ambi1(co,2) = x : ambi1(co,3) = y
xx = SerieFreq(es + 1,ess,nn1,ru1,2)
ambi1(co,4) = ambi1(co,4) + xx
If xx > 0 Then
ambi1(co,5) = ambi1(co,5) + 1
Else
ambi1(co,5) = ambi1(co,5)
End If
nr(1) = x : nr(2) = y
ambrr(co,1) = co : ambrr(co,2) = x : ambrr(co,3) = y
kk = SerieFreq(es + 1,ess,nr,rt,2)
ambrr(co,4) = ambrr(co,4) + kk
If kk > 0 Then
ambrr(co,5) = ambrr(co,5) + 1
Else
ambrr(co,5) = ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA " & CInt(n1) & " e " & CInt(n2) & " Su Ruota Unica",1
Scrivi
Scrivi NomeRuota(r),1
Scrivi "N° casi: " & CInt(casi),1 : Scrivi
Scrivi " Frequenti nei " & clp & " colpi successivi",1
OrdinaMatrice n,- 1,2
OrdinaMatrice ambi,- 1,5
OrdinaMatrice ambi1,- 1,5
OrdinaMatrice nt,- 1,2
OrdinaMatrice nrr,- 1,2
OrdinaMatrice ambrr,- 1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte | Nu. Tutte "
ColoreTesto 2
Scrivi " N°. Fr.| Ambo Freq.| Ambo Fr.| N°. Fr. "
ColoreTesto 0
For x = 1 To 30
Scrivi " " & Format2(n(x,1)) & "..." & Format2(n(x,2)) & " | " & Format2(ambi(x,2)) & "-" & Format2(ambi(x,3)) & "..." & Format2(ambi(x,5)) & " | " & Format2(ambi1(x,2)) & "-" & Format2(ambi1(x,3)) & "..." & ambi1(x,5) & " | " & Format2(nt(x,1)) & "..." & Format2(nt(x,2))
Scrivi ""
Scrivi ""
Next
Scrivi String(65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di " & NomeRuota(rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N°. Fr.| Ambo Freq "
ColoreTesto 0
For x = 1 To 10
Scrivi " " & Format2(nrr(x,1)) & "..." & Format2(nrr(x,2)) & " | " & Format2(ambrr(x,2)) & "-" & Format2(ambrr(x,3)) & "..." & Format2(ambrr(x,5))
Scrivi ""
Scrivi ""
Next
Scrivi String(65,"*")
End Sub