aiuto listato

[Roby]

Buon pomeriggio a tutti chiedo umilmente chi puo' fare un listato che cerca due numeri isotopi su due ruote consecutive uno doppio dell'altro es napoli 1 palermo o milano 2 oppure 81 su una ruota e 72 su un'altra.Questa ricerca mi serve solo per studiare qualche calcolo che dia in gioco pochi ambi da giocare grazie spero che mi fate questo favore se poi riusciro' a estrapolare previsioni vincenti postero' il metodo per un listato ciao

francolotto

 

[imported_n/a]

Sub main()
tmp=InputBox("Quante estrazioni controllo?",,60)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
r1=r+1
For p=1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r1,p)
c=Fuori90(a*2)
If b=c Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(b)&"]"
Scrivi"*****************************"
End If
Next
Next
Next
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[franco]

Sub main()
tmp=InputBox("Quante estrazioni controllo?",,60)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 9
r1=r+1
For p=1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r1,p)
c=Fuori90(a*2)
If b=c Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(b)&"]"
Scrivi"*****************************"
End If
Next
Next
Next
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!
GRAZIE MOLTO PER LA TUA DISPONIBILITA' DANIEL
GRAZIE ANCORA ora speriamo che riesco a formulare qualche previsione attendibile CIAO

francolotto