' Ambate più frequenti dopo 2 numeri spia su Ruota a scelta
Sub Main()
Dim mt(4005,5),n(2),ru(2),ruote(2)
ColoreTesto 2
Scrivi " Ambate più frequenti dopo 2 numeri spia su Ruota a scelta ",1
Scrivi ""
ColoreTesto 2
Scrivi String(66,"="),1
a = InputBox("Digita 1° Numero Spia "," SPIA","12")
b = InputBox("Digita 2° Numero Spia "," SPIA","21")
r = CInt(InputBox("Su che Ruota è uscito la spia ?","RUOTA",1))
cl = CInt(InputBox("Per quanti colpi ?","COLPI",12))
ca = CInt(InputBox("QUANTI CASI A RITROSO ESAMINO ?","",1000))
ru(1) = r
ruote(1) = r
caso = 0
ini = EstrazioneFin - ca
fin = EstrazioneFin
cc = 0
For es = ini To 1 Step - 1
If(Posizione(es,r,a) > 0 Or(Posizione(es,r,b) > 0)) Then
caso = caso + 1
If caso < ca + 1 Then
cc = cc + 1
co = 0
For i = 1 To 90
n(1) = i
co = co + 1
mt(co,1) = co
mt(co,2) = n(1)
mt(co,3) = NomeRuota(r)
fr = SerieFreq(es + 1,es + cl,n,ru,1)
mt(co,5) = mt(co,5) + fr
Next
'P***
ColoreTesto 0
End If
End If
Next
OrdinaMatrice mt,- 1,5
Scrivi "NUMERI SPIA " & Format2(a) & "-" & Format2(b) & " sulla ruota di " & NomeRuota(r)
Scrivi "Uscito " & cc & " volte dal " & DataEstrazione(cl - 1) & " al " & DataEstrazione(fin)
Scrivi "NUMERI più Frequenti usciti in colpi: " & cl & " sulla ruota " & NomeRuota(r)
ColoreTesto 2
Scrivi String(64,"="),2
ColoreTesto 1
Scrivi"Numero Ruota Tot. "
For xx = 1 To 90
Scrivi Format2(mt(xx,2)) & " " & mt(xx,3) & " " & mt(xx,4) & " " & mt(xx,5)
Next
ColoreTesto 2
Scrivi String(66,"="),1
'P***
caso = 0
iniz = EstrazioneFin - ca
fine = EstrazioneFin
For es1 = iniz To fine
If(Posizione(es1,r,a) > 0 Or(Posizione(es1,r,b) > 0)) Then
caso = caso + 1
If caso < ca + 1 Then
End If
End If
Next
Scrivi ""
Scrivi " I primi cinque sono i migliori da mettere in gioco ",1
Scrivi""
ColoreTesto 2
Scrivi String(66,"="),1
End Sub