ritardo dei ritardi ambata

[Roby]

buonasera a tutti volevo chidere parere su di un metodo inventato da me alcuni anni orsono appunto il ritardo dei ritardi cioe quando un numero a un rit e si mette in gioco lo stesso .
lo script illustra meglio la cosa.

Sub main()
Dim num(5)
Dim rit(5)
Dim rrit(5)
Dim tem(5)
Dim numeri(5)
Dim ruote(2)
Dim poste(1)
poste(1)=1

r=InputBox("RUOTA ???",,2)
ruote(1)=r

im=InputBox("A QUALE ESTRAZIONE DEL MESE ???"&Chr(13)&Chr(13)&_
"0 per l'ultima del mese"&Chr(13)&Chr(13)&"Da 1 in poi per"&_
" le altre",,1)
im=CInt(im+1)

If r<6 Then r1=r+5 End If
If r>5 Then r1=r-5 End If
ruote(2)=r1

fin=EstrazioneFin
For es=6500 To fin
Messaggio DataEstrazione (es)

If IndiceMensile(es+1)=im Then
For p=1 To 3
num(p)=Estratto(es,r,p)

For x=1 To 150
ex=es-x
If Posizione(ex,r,num(p))>0 Then
rit(p)=Fuori90(x)
x=150

For y=1 To 150
ey=es-y
If Posizione(ey,r,rit(p))>0 Then
rrit(p)=Fuori90
y=150

tem(p)=Abs(rit(p)-rrit(p))
numeri(p)=90-tem(p)

End If
Next
End If
Next
Next

'Scrivi "Estratti "& StringaNumeri(num)
'Scrivi "Ritardi "& StringaNumeri(rit)
'Scrivi "Rit dei rit "& StringaNumeri(rrit)
'Scrivi "Differenze "& StringaNumeri(tem)
'Scrivi "In gioco "& StringaNumeri(numeri)
EliminaRipetuti(numeri)

ImpostaGiocata 1,numeri,ruote,poste,33,1

Gioca es

Erase num
Erase rit
Erase rrit
Erase tem
Erase numeri

End If
Next
ScriviResoconto
End Sub

attendo vostre considerazioni in merito

massimiliano

 

[maxma62]

Solo da pos. 1 a pos. 3 ?

'-------------------------------
If IndiceMensile(es+1)=im Then
For p=1 To 3 '<<<<<<<<<<<
num(p)=Estratto(es,r,p)
'-------------------------------

-------------------------
audaces fortuna iuvat
max

 

[imported_n/a]

If IndiceMensile(es+1)=im Then
For p=1 To 3 '<<<<<<<<<<<
num(p)=Estratto(es,r,p)

se mettiamo 5 i numeri da 3 in gioco diventono 5 o messo il 3 per risringere la prev


massimiliano

 

[maxma62]

p sta per la quantità dei numeri in gioco.
Lasciando " For p=1 To 1 " mi sembra lo stesso un buon metodo.

-------------------------
audaces fortuna iuvat
max

 

[imported_n/a]

p sta per posizione
p1to1 prende solo il primo numero
p1to2 prende i primi 2 e via discorrendo
se fai p2 to 2 solo il secondo

massimiliano

 

[kermit]

Scusatemi una domanda, questi listati li usate con L8 vero?
per gli archivi come posso fare per trovarli aggiornati?
Grazie mille

 

[maxma62]

Bene, grazie.

-------------------------
audaces fortuna iuvat
max

 

[imported_n/a]

si per l8
questo ssript funziona con ogni ruota e indice mensile pensavo che vi fosse utile
per kermit che l8 ai la versione


massimiliano

 

[kermit]

Ciao la 5.1.18

Grazie

 

[imported_n/a]

se sei molto indietro trovi gli archivi aggiornati sul forum di tutylotto


massimiliano

 

[kermit]

Grazie 1000 bimbomixio