come fare questo script ?

[fillotto]

Potrei chiamarlo "SincroDeterminati" overo come fare un script che mi scopra quale coppia meglio se unita che sia sincrona che abbia il maggiore ritardo dei 2 numeri ma esclusivamente nelle 2 colonne originarie non importa che(nell'esempio sotto) il 21 esca nella colonna del 63 e viceversa insomma è come giocare i 2 numeri x 2 colonne (posizioni).In una ruota scelta dall'utente trovare la coppia con più ritardo relativo ,l'uscita in una colonna non conta

 

[Cinzia27]

Ciao, Fillotto.
Prova a vedere se fa al caso tuo e controlla che sia corretto.

Sub main()
'Per Fillotto: ritardo ambo nelle due posizioni ultimamente occupate (Cinzia)
Dim n(1),n1(1),ru(1)
For p=1 To 4
p1=p+1
For es=3950 to EstrazioneFin-1
c=0
for r=1 to 10
c=0
ru(1)=r
a=estratto(es,r,p)
b=estratto(es,r,p1)
For ex=es+1 to EstrazioneFin
a1=estratto(ex,r,p)
b1=estratto(ex,r,p1)
If (a=a1 And b=b1) Or (a=b1 And b=a1) Then
c=c+1
End If
Next
If c=0 Then
rt=EstrazioneFin-es
Scrivi FormatSpace(es,4,1)&" "&p&"-"&p1&" "&siglaruota(r)&" "&format2(a)&" "&format2(b)&" "&FormatSpace(rt,4,1)
End If
Next
next
next
End Sub

Cinzia

 

[fillotto]

Grazie Cinzia ma non va ho ciuso dopo 10 minuti dice che il programma non risponde

 

[fillotto]

 

[Cinzia27]

Su Spaziometria e Lottodesk funziona.
Prova questo : ho ridotto l' intervallo di estrazione e ho messo il messaggio di avanzamento elaborazione.

Sub Main()
'Per Fillotto: ritardo ambo nelle due posizioni ultimamente occupate (Cinzia)
Dim n(1),n1(1),ru(1)
For p=1 To 4
p1=p+1
For es=9500 To EstrazioneFin-1
c=0
For r=1 To 10
c=0
ru(1)=r
a=Estratto(es,r,p)
b=Estratto(es,r,p1)
For ex=es+1 To EstrazioneFin
a1=Estratto(ex,r,p)
b1=Estratto(ex,r,p1)
If (a=a1 And b=b1) Or (a=b1 And b=a1) Then
c=c+1
End If
Next
If c=0 Then
rt=EstrazioneFin-es
Messaggio FormatSpace(es,4,1)&" "&p&"-"&p1&" "&SiglaRuota(r)&" "&Format2(a)&" "&Format2(b)&" "&FormatSpace(rt,4,1)

Scrivi FormatSpace(es,4,1)&" "&p&"-"&p1&" "&SiglaRuota(r)&" "&Format2(a)&" "&Format2(b)&" "&FormatSpace(rt,4,1)
End If
Next
Next
Next
End Sub

 

[fillotto]

buongiorno Cinzia lo script ora gira ma non fa quello che intendevo. io intendevo che una volta che esce un ambo unito che so ,facendo girare lo script di cui sopra con 9500, troviamo la graduatoria su BA al 1° e 2° estratto al 9500 63 e 81 ora non devo aspettare che riescano tutti e due ma basta che escano uno dei due nelle 2 colonne (1° e 2° )occupate in precedenza infatti il 63 che era 1^ posiz esce dopo 11 estrazioni in 2^ posizione . Quindi per me la questione è chiusa non mi interessa che tutti e due escano contemporaneamente al 1 e 2 posto. La giocata è da fare nel caso specifico i num. 63 e 81come estratti determinati su BA 1° e 2° .E' come giocare 4 num su una posizione (premio netto 12,65)

 

[joe]

Ciao Cinzia, se ho capito bene è più simile a quello che avevi fatto

relativamente agli "ambi puri".

Buona giornata a tutte/i.

 

[fillotto]

Ho fatto una modifica anzi 2 al posto di
"If (a=a1 And b=b1) Or (a=b1 And b=a1)Then" ho messo "If(a=a1 Or b = b1) Or (a=b1 Or b =a1)Then" e al posto di 9500 ho messo 9300 per prendere ritardi eventualmente + consistenti.In questa maniera vengono i ritardi auspicati da me il più alto trovato è Roma 4° e 5° posiz ritardo 195 (num 13 e 63) ma come se fosse 243,75 di un singolo su 5 estratti infatti 195/4*5 =243,75 Cinzia, Joe è giusto il ragionamento?