Ciao antonio, come promesso ti posto il listato modificato.
Aancora non è come richiesto da te, ma ti farà vedere i migliori abbinamenti alle ambate, basati sulla ricerca dei numeri più frequenti, usciti dopo i numeri utilizzati per il rilevamento.
Ho visto che possono andare ugualmente bene.
Fai qualche prova e controlla nelle estrazioni successive il comportamento degli stessi.
'Listato modificato e integrato con la ricerca dei numeri più frequenti
'usciti dopo i numeri utilizzati per elaborare le Ambate.
'Listato del 23-06-2011 modificato da pfca x Antonio1
Sub Main()
Dim pt(2),rt(2),nn(2),pta(2),sp(2)
Dim num(90,2)
Dim uscito(90,2)
pt(1) = 1
pt(2) = 1
pta(1) = 1
pta(2) = 1
rt(1) = InputBox("Scegli la prima ruota di gioco? ",,1)
rt(2) = InputBox("Scegli la seconda ruota di gioco? ",,2)
es = InputBox("Scegli l'estrazione che vuoi analizzare? 0 ultima, 1 prima, 2 seconda ...:",,0)
ini = InputBox("Quante Estrazioni precedenti vuoi controllare? ",,200)
fin = EstrazioneFin
colpi = InputBox("Per quanti colpi vuoi giocare? ",,12)
co = 0
For n = fin - ini To fin
Messaggio
![Thumbs down (n) (n)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile
![Thumbs down (n) (n)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
= eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
casi = casi + 1
Scrivi String(60,"=") & " Caso n° " & casi,1
co = co + 1
a = Estratto(n,rt(1),1)
b = Estratto(n,rt(2),1)
nn(1) = Fuori90(a + b)
nn(2) = Vert(Fuori90(a + b))
ImpostaGiocata 1,nn,rt,pt,colpi,2
Gioca n
End If
Next
sp(1) = a
sp(2) = b
For y = 1 To 2
'For w = 1 To 2
Scrivi " Analisi dal " & DataEstrazione(EstrazioneFin - ini) & " ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
'sp = 12
Messaggio " Spia: " & sp
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
For i = 1 To 90
num(i,1) = 0
num(i,2) = 0
Next
co = 0
For es = fin - ini To fin
If Posizione(es,rt
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
,sp
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
) > 0 Then
co = co + 1
ess = es + colpi + 1
If ess > fin Then ess = fin End If
For a = es + 1 To ess
For v = 1 To 90
uscito(v,2) = 0
Next
For e = 1 To 5
n = Estratto(a,rt
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
,e)
num(n,1) = n
num(n,2) = num(n,2) + 1
uscito(n,1) = n
uscito(n,2) = uscito(n,2) + 1
If uscito(n,2) > 1 Then
num(n,2) = num(n,2) - 1
uscito(n,2) = 1
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
Scrivi "_________________________________________________________________"
Scrivi "Numero spia: " & sp
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
& " su " & FormatSpace(NomeRuota(rt
![Thumbs up (y) (y)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
),10) & " casi = " & co & " colpi " & colpi
Scrivi
riga = "Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,1),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Scrivi
Scrivi "Casi Rilevati " & CInt(co)
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub
Francesco