Fatene buon uso,anche se ci sono script diversi,ma questo e' in decine.
'Ciao Antonio1 questo dovrebbe andare bene.
'Se richiedi anche poche estrazioni, se non sono usciti i numeri
'ti restituisce 0.
'Ricerca frequenze dopo estratto in decina di appartenenza.
' X Antonio1 da pfca
Sub Main()
Dim num(90,3)
r = ScegliRuota
dec = InputBox("Quale Decina scegli di verificare:","",1)
colpi = InputBox("Quante Estrazioni successive o Colpi:","",13)
ric = InputBox("Su quante Estrazioni vuoi fare la ricerca:","",180)
ini = EstrazioneFin - ric
fin = EstrazioneFin
Scrivi " Analisi dal " & DataEstrazione(ini) & " al " & DataEstrazione(EstrazioneFin)
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia"
dec1 = dec * 10 + 1
dec2 = dec * 10 + 10
For sp = dec1 To dec2
casi = 0
For i = 1 To 90
num(i,1) = 0 : num(i,2) = 0 : num(i,3) = 0
Next
For es = ini To fin
Messaggio " Spia: " & sp & " Estrazione : " & es
If Posizione(es,r,sp) > 0 Then
casi = casi + 1
ess = es + colpi
If ess > fin Then ess = fin End If
For a = es + 1 To ess
segno = 0 : co = 0
For v = dec1 To dec2'1 To 90
co = co + 1
n1 = Estratto(a,r,1)
n2 = Estratto(a,r,2)
n3 = Estratto(a,r,3)
n4 = Estratto(a,r,4)
n5 = Estratto(a,r,5)
If n1 = v Or n2 = v Or n3 = v Or n4 = v Or n5 = v Then
num(co,1) = co
num(co,2) = v
num(co,3) = num(co,3) + 1
segno = 1
End If
If segno > 0 Then
Exit For
Exit For
End If
Next
Next
End If
Next
OrdinaMatrice num,- 1,3
per = Int((casi/100)*80)
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & casi & " entro i " & colpi & " colpi"
Scrivi
riga = " Num. "
riga1 = "Freq. "
For i = 1 To 10
riga = riga & FormatSpace(num(i,2),3) & " "
riga1 = riga1 & FormatSpace(Eval(num(i,3)),3) & " "
Next
Scrivi riga,1
Scrivi riga1
Next
End Sub
' Missione Impossibile