ricerca script

[barone]

Ricerco propgramma script il quale mi trovi un numero uguale su due ruote con lo stesso ritardo e se possibile isotopo (es.numero 50 su NA-PA(anche non consecutive) ritardo 20 estratto in 3^ posizione).Grazie a quanti collaboreranno alla costruzione di questo script.

 

[Membro cancellato 16574]

Buonasera,
Le postiamo il listato richiesto , veda se e' quello che cerca .

Option Explicit
'http://forum.lottoced.com/forum/lottoced/metodi/1986791-ricerca-script
'ricerca script di barone
Sub Main()
    Dim ex,Ini,Fin,es
    Dim r01,r02,p01,a,b
    Dim Rit01,Rit02
    Dim Casi
    ex = InputBox("Quante estrazioni controllo?",,200)
    Ini = EstrazioneFin - ex
    Fin = EstrazioneFin
    For es = Ini To Fin
        Messaggio(es)
        For r01 = 01 To 11
            If r01 = 11 Then r01 = 12
            For p01 = 01 To 05
                a = Estratto(es,r01,p01)
                For r02 = r01 + 01 To 11
                    If r02 = 11 Then r02 = 12
                    b = Estratto(es,r02,p01)
                    If a = b Then
                        Rit01 = RitardoEstrattoTurbo(a,es - 01,r01)
                        Rit02 = RitardoEstrattoTurbo(b,es - 01,r02)
                        If Rit01 = Rit02 Then
                            Casi = Casi + 01
                            Scrivi String(105,"-") & " Caso n° " & Format2(Casi),01
                            Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r01) & " -  estratto il numero " & Format2(a) & " in (" & p01 & "°) posizione - ritardo " & Format2(Rit01),01
                            Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(r02) & " -  estratto il numero " & Format2(b) & " in (" & p01 & "°) Posizione-  ritardo " & Format2(Rit02),01
                        End If
                    End If
                Next
            Next
        Next
    Next
End Sub

 

[barone]

Grazie mille

 

[barone]

comunque sono riuscito a farlo lo script anche se qualcosa non torna ora lo confronto con questo grazie ancora magia.

 

[barone]

questo è il listato che sono riuscito a fare che gira su lottodesk si potrebbe ancora migliorare per esempoi eliminando tutte le sortite ed evidenziando solo i numeri in ritardo sincrono ed isotopi ancora da sfaldare.

Sub main()
Dim k(3),k1(3),k2(3)
Dim rt(4),rtt(4)
Dim pt(5),ptt(5)
pt(1)=1 : ptt(3)=1 : clp=35
ini=EstrazioneFin -50
co=0
For es= ini To EstrazioneFin
Messaggio (es)
For t= 15 To 33
et=es-t
For r=1 To 10
rt(1)=r : rtt(1)=r
For p1=1 To 5
n1=Estratto(et,r,p1)
For r1=r+1 To 10
If r1=11 Then r1=12
rt(2)=r1 : rtt(2)=r1
n2=Estratto(et,r1,p1)
If n1=n2 Then
co=co+1
rrt=(es-et)
ColoreTesto 2
Scrivi String (70,"=")
Scrivi DataEstrazione (et)&" "& SiglaRuota(r)&"-"& SiglaRuota (r1)&_
" Numero isotopo "& n1 &"-"& n2 &" estratto isotopo al "&p1&"° posto - ritardo sincrono ="&Format2(es-et)&"",1
Scrivi
ColoreTesto 0
k(1)=(n1)
ImpostaGiocata 1,k,rt,pt,clp,1
Gioca et
End If
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Rilevati Compatibili "& CInt (co)
'ScriviResoconto
ColoreTesto 1
Scrivi"===================================="
Scrivi"Metodo e listato by Barone di Aversa"
Scrivi"************************************"
End Sub