X Daniel o Ben o chi per loro..

[Roby]

Riuscite a sviluppare questo script di un metodo postato in questo forum tempo fà.

Ad ogni estrazione
sulla ruota di Roma
si prende il 1° estratto
nella successiva estrazione si gioca lo stesso numero col +1 (quindi 2 numeri)
e si deve vedere se si posiziona in 4^ posizione determinata.

"Identico modo (ma questo riesco a modificarlo io, avendo la base sopra)"
sempre ruota di Roma
si prende il 5° estratto
nella successiva estrazione si gioca lo stesso numero col +1 (quindi 2 numeri)
e si deve vedere se si posiziona in 2^ posizione determinata.

N.B.: ora ha un bel ritardo quello del 5° estratto


ciao e grazie

 

[imported_n/a]

quote:Originally posted by parmando

Riuscite a sviluppare questo script di un metodo postato in questo forum tempo fà.

Ad ogni estrazione
sulla ruota di Roma
si prende il 1° estratto
nella successiva estrazione si gioca lo stesso numero col +1 (quindi 2 numeri)
e si deve vedere se si posiziona in 4^ posizione determinata.
se ho ben capito ti serve solamente se uno di quei due numeri è uscito nell'estrazione successiva in quarta posizione
"Identico modo (ma questo riesco a modificarlo io, avendo la base sopra)"
sempre ruota di Roma
si prende il 5° estratto
nella successiva estrazione si gioca lo stesso numero col +1 (quindi 2 numeri)
e si deve vedere se si posiziona in 2^ posizione determinata.

N.B.: ora ha un bel ritardo quello del 5° estratto


ciao e grazie

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

 

[Ben8]

Ok, credo di aver capito.
Questo dovrebbe essere quello giusto.

quote:
Sub main()
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=8 To 8
For p1=1 To 1
For p2=4 To 4
a=Estratto (es,r,p1)
b=Estratto(es+1,r,p2)
If b=(a) Or b=(a+1) Then
Scrivi "------------------------------"
Scrivi DataEstrazione(es)&" "&NomeRuota(r)&" 1°estratto["& Format2(a)&"]"
Scrivi DataEstrazione(es+1) &" "&NomeRuota(r)& " 4°estratto["& Format2(b)&"]"
Scrivi "------------------------------"
End If
Next
Next
Next
Next
End Sub

Ciao Parmando!
Ciao Daniel!!

Ben[8] </u>

 

[Roby]

Perfetto Ben.


grazie mille ancora.