Per MIKE 58

[Serpico 90]

Buon di, chiedo cortesemente se tra i tuoi lavori ,ti trovi Script che riguardano le CINQUINE SINCRONE PARTICOLARI,di A.Cretella.
Grazie
Saluti
Serpico 90

 

[Mike58]

Ciao Serpico, premetto che non lo conosco per intero, però tempo addietro si è tentato di capire insieme al richiedente di svilupparlo insieme, sono stato lasciato con il lavoro a metà ed è meglio fermarci qua.

Da come l'ho capito io sembra che sia la ripetizione di un ambo di una cinquina già uscita e rintracciata questa condizione giocare i 2 numeri per ambata.

A me è sembrato cosi, ma il richiedente non ha dato conferma, pertanto non ho problemi a ripostarlo senza pretesa di perfezione.

Ciao e scusa lo sfogo.

Sub Main
Dim aNum(2),aNum2(2)
Dim aRuota(1)
r = InputBox("Quale ruota ","RUOTA",5)
rp = CInt(InputBox("Quante estrazioni a ritroso cerco l'ambo ripetuto ?","AMBO RIPETUTO",10))
sorte = CInt(InputBox("QUALE SORTE CERCO ESITO",,1))
aRuota(1) = r
ReDim t(8)
t(1) = " Range inizio "
t(2) = " Range Fine "
t(3) = " Tot. Estr "
t(4) = " Ruota "
t(5) = " Ricerca a Ritroso "
t(6) = " Richiesta "
t(7) = " Autor script "
t(8) = " Sorte Esito "
Call InitTabella(t,2,,3,5)
Ini = EstrazioneFin - 200
fin = EstrazioneFin
Tot = fin - Ini
ReDim v(8)
v(1) = Ini
v(2) = fin
v(3) = Tot
v(4) = NomeRuota(r)
v(5) = rp
v(6) = " Serpico90 "
v(7) = " Mike58 "
v(8) = NomeSorte(sorte)
Call AddRigaTabella(v,4,,3,1)
Call CreaTabella()
ReDim at(14)
at(1) = " Info Estraz. Prec "
at(2) = " Ambo Ripetuto "
at(3) = " Posizioni "
at(4) = " Estratti "
at(5) = " Info estraz. corr "
at(6) = " Ambo Ripetuto "
at(7) = " Posizioni "
at(8) = " Estratti "
at(9) = " Rit Prec "
at(10) = " Posiz,DET."
at(11) = " Esito "
at(12) = " colpo "
at(13) = " Ret_estratti "
at(14) = " Info Estraz.Esito "
Call InitTabella(at,1,,2,5)
For es = fin To Ini Step - 1
Messaggio "Elaboro Estrazioni............ " & es
Call AvanzamentoElab(Ini,fin,es)
dal = es - rp
al = es - 1
For ex = dal To al
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(ex,r,p1)
n2 = Estratto(ex,r,p2)
aNum(1) = n1
aNum(2) = n2
sr = SerieRitardo(dal,al,aNum,aRuota,2)
For p3 = 1 To 4
For p4 = p3 + 1 To 5
n3 = Estratto(es,r,p3)
n4 = Estratto(es,r,p4)
aNum2(1) = n3
aNum2(2) = n4
If aNum(1) = aNum2(1) Or aNum(1) = aNum2(2) Then
If aNum(2) = aNum2(1) Or aNum(2) = aNum2(2) Then
If sr < rp Then
ReDim av(14)
av(1) = GetInfoEstrazione(es - sr - 1)
av(2) = StringaNumeri(aNum,,True)
av(3) = p1 & "-" & p2
av(4) = StringaEstratti(es - sr - 1,r)
av(5) = GetInfoEstrazione(es)
av(6) = StringaNumeri(aNum2,,True)
av(7) = p3 & "-" & p4
av(8) = StringaEstratti(es,r)
av(9) = sr + 1
For x = 1 To 5
If x = p1 And x = p2 And x = p3 And x = p4 Then av(10) = ""
If x <> p1 And x <> p2 And x <> p3 And x <> p4 Then av(10) = x
Call VerificaEsito(aNum2,aRuota,es + 1,sorte,,Nothing,esito,colpo,estratti,id)
Next
av(11) = esito
av(12) = colpo
av(13) = estratti
av(14) = GetInfoEstrazione(id)
Call AddRigaTabella(av,,,2)
Call SetColoreCella(2,,1)
Call SetColoreCella(6,,1)
Call SetColoreCella(4,,7)
Call SetColoreCella(8,,7)
If esito = "" Then Call SetColoreCella(12,2,4)
End If
End If
End If
Next
Next
Next
Next
Next
Next
Call SetTableWidth("100%")
Call CreaTabella()
End Sub

 

[Mike58]

X TUTTI..... sarebbe meglio non fare richieste nominative, cosi da non tagliare e scoraggiare dall'intervenire altri aspiranti scripter.

In questo modo tutti potrebbere intervenire e magari mettere a disposizioni + idee.

Ciao

 

[Serpico 90]

Grazie Mike, sempre gentile.
Ho letto questo argomento cosi per caso e per forza maggiore ho dovuto indicare il nominativo .
Con lo script che hai postato cerchero di capire di che cosa si tratta.
Per me è un argomento nuovo .....vediamo ........
Ti ringrazio nuovamente.
Saluti
Serpico