Ambi in cadenza

[lottomoney]

Buongiorno, avevo già fatto una richiesta con questo titolo, ma in maniera totalmente diversa da quella attuale.
In pratica ricercare su qualsiasi ruota un ambo in cadenza che sia da spia a 3/4 numeri da mettere in gioco, sia
sulla ruota di ricerca e sia nella ruota diametrale.
Spero di non mettervi in difficoltà anche stavolta
Vi ringrazio anticipatamente e vi auguro Buone feste a tutti (nonostante il covid-19)
lottomoney

P.S.: vorrei precisare che questa ricerca è diversa dalle altre di Ambi in Cadenza.

[DjNomade]

Vedi questo
Ciauz

Codice: Seleziona tutto

'AMBATE + FREQUENTI DOPO AMBO IN Cadenza

Sub Main()
Dim num(90,2)
Dim ruota(10),ruote(2)

r1=CInt(InputBox("RUOTA DI RICERCA ?","List. by DjNomade",1))
totE=CInt(InputBox("QUANTE AMBATE VUOI VISUALIZZARE ?","List. by DjNomade",20))
ca=CInt(InputBox("QUANTI CASI A RITROSO ESAMINO ?","List. by DjNomade",10))
k=CInt(InputBox("COLPI DI VERIFICA ?","List. by DjNomade",10))
N2=CInt(InputBox("RICERCA AMBO IN CADENZA ?","List. by DjNomade",1))

casi=0
ini = EstrazioneFin - ca
fin = EstrazioneFin
For es= fin To 1 Step - 1
If casi < ca Then
For pos1= 1 To 4
For pos2= pos1+1 To 5

ruota(1)= r1
a=Estratto(es,r1,pos1)
b=Estratto(es,r1,pos2)
If Cadenza(a)=Cadenza(b) And Cadenza(a)=N2 Then

Scrivi String(58,"-"),1
Scrivi DataEstrazione(es)&"  "& SiglaRuota(r1)&" "& StringaEstratti(es,r1)&"  >>>  AMBO : "& Format2(a)&"."& Format2(b)&" in cadenza "&N2,1

casi = casi + 1
ess = es + k
If ess > fin Then ess = fin End If
cont=0
For x = es + 1 To ess

For p1 = 1 To 5

ruot= r1
c=Estratto(x,ruot,p1)

num(c,1)=c
num(c,2)=num(c,2)+1
cont=cont+1
Next

Next

End If

Next
Next
End If
Next
Scrivi String(58,"-"),1
OrdinaMatrice num,-1,1
Scrivi:ColoreTesto 1
Scrivi "LE "& totE &" AMBATE PIU' FREQUENTI DOPO L'USCITA DI UN AMBO CADENZA "
Scrivi "RUOTE DI RICERCA   : "& Ucase(NomeRuota(r1))
Scrivi "RUOTE DI CONTROLLO : "& Ucase(NomeRuota(r1))
Scrivi "COLPI DI VERIFICA  : "& k
Scrivi "CASI ESAMINATI     : "& casi
Scrivi:ColoreTesto 0
Scrivi  "NUM. *  FREQ. * TOT.CASI",1
ColoreTesto 0
For x = 1 To totE
riga= Format2(num(x,1))&"   *   "& Format2(num(x,2))&"   *    "& casi
Scrivi riga
riga=""
nstr = CStr(num(x,1))
If Len(nstr) < 2 Then nstr = "0" + nstr
stringa = stringa + nstr
If x < totE Then Stringa = Stringa + "."
Next
Scrivi :Scrivi String(100,"*"),1
 
Scrivi Stringa
End Sub

[lottomoney]

Direi fantastico!! Grazie DjNomade
Peccato non sia possibile la ricerca su tutte le ruote (11) perchè da un errore.

Buone Feste
lottomoney