piccolo aiuto

[gamberorosso]

Volevo che lo script si fermasse appena trova una situazione favorevole e non quella impostata.... praticamente se nei 10 colpi trova al 2 colpo la situazione si deve fermare.... e se si potesse mettere anche quelle non isotope grazie

Sub Main()
Dim nu(3)

ini = EstrazioneFin - 50
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 9
For p = 1 To 4
For pp = p3 + 1 To 5
a = Estratto(es-10,r,p)  'estrazioni indietro
b = Estratto(es-10,r,pp)
di1 = Distanza(a,b)

If di1 = 5 Then
For rr = r + 1 To 10
c = Estratto(es,rr,p)
d = Estratto(es,rr,pp)
di2 = Distanza(c,d)
If di2 = di1 Then
Scrivi String(110,"$")
ColoreTesto 2
ColoreTesto 1
Scrivi DataEstrazione(es-10) & " " & SiglaRuota(r) & " " & StringaEstratti(es-10,r) & " [" & a & "-" & b & "] ",0,0
Scrivi " 1^ ambo " & nu(2),1
Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " [" & c & "-" & d & "] ",0,0
Scrivi " 2^ ambo " & nu(3),1
End If
Next
End If
Next
Next
Next
Next
end sub

 

[Lanfranco60]

Ciao, vedi se ti va bene così, sei tu che decidi quante estrazioni a ritroso vuoi controllare.....

Sub Main()
    Dim es
    Dim Ini
    Dim Fin
    Dim ee
    Dim exx
    Dim nu(3)
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    exx = CInt(InputBox("Quante estrazioni a ritroso vuoi controllare ?",,1))
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        For r = 1 To 9
            For p1 = 1 To 4
                For p2 = p + 1 To 5
                    a = Estratto(es - exx,r,p1)
                    b = Estratto(es - exx,r,p2)
                    di1 = Distanza(a,b)
                    If di1 = 5 Then
                        For rr = r + 1 To 10
                            c = Estratto(es,rr,p1)
                            d = Estratto(es,rr,p2)
                            di2 = Distanza(c,d)
                            If di2 = di1 Then
                                co = co + 1
                                ColoreTesto 0
                                Scrivi String(110,"°") & " Caso n°" & co,1
                                ColoreTesto 1
                                Scrivi DataEstrazione(es - exx) & " " & SiglaRuota(r) & " " & StringaEstratti(es - exx,r) & " [" & a & "-" & b & "] ",0,0
                                Scrivi " 1^ ambo " & nu(2),1
                                Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " [" & c & "-" & d & "] ",0,0
                                Scrivi " 2^ ambo " & nu(3),1
                            End If
                        Next
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
End Sub

 

[gamberorosso]

ok grazie va bene cosi

 

[Lanfranco60]

Ciao, mi sono accorto che c'erano alcune cosette da sistemare e ti ho aggiunto anche quelle non isotope come da te richiesto

Sub Main()
    Dim es
    Dim Ini
    Dim Fin
    Dim ee
    Dim exx
    ee = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
    exx = CInt(InputBox("Quante estrazioni a ritroso vuoi controllare ?",,1))
    Ini = EstrazioneFin - ee
    Fin = EstrazioneFin
    co = 0
    For es = Ini To Fin
        Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
        Call AvanzamentoElab(Ini,Fin,es)
        For r = 1 To 9
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    a = Estratto(es - exx,r,p1)
                    b = Estratto(es - exx,r,p2)
                    di1 = Distanza(a,b)
                    If di1 = 5 Then
                        For rr = r + 1 To 10
                            For p3 = 1 To 4
                                For p4 = p3 + 1 To 5
                                    c = Estratto(es,rr,p3)
                                    d = Estratto(es,rr,p4)
                                    di2 = Distanza(c,d)
                                    If di2 = di1 Then
                                        co = co + 1
                                        ColoreTesto 0
                                        Scrivi String(110,"°") & " Caso n°" & co,1
                                        ColoreTesto 1
                                        Scrivi DataEstrazione(es - exx) & " " & SiglaRuota(r) & " " & StringaEstratti(es - exx,r) & " [" & Format2(a) & "-" & Format2(b) & "] ",0,0
                                        Scrivi " 1^ ambo " & " in " & p1 & " e in " & p2 & " Pos.",1
                                        Scrivi DataEstrazione(es) & " " & SiglaRuota(rr) & " " & StringaEstratti(es,rr) & " [" & Format2(c) & "-" & Format2(d) & "] ",0,0
                                        Scrivi " 2^ ambo " & " in " & p3 & " e in " & p4 & " Pos.",1
                                    End If
                                Next
                            Next
                        Next
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
End Sub