Per gli scripter

[Y10]

Mille grazie grande Baffo , sei come la mitica Panda "...se non ci fossi bisognerebbe inventarti" . Solo un problema (non da poco) Il listato mi da controlli fino al 08.03.2012 mentre dopo quella data ci sono altre previsioni da estrapolare con ambi distanza 45 , puoi cortesemente controllare ?.

 

[Baffoblu]

Mille grazie grande Baffo , sei come la mitica Panda "...se non ci fossi bisognerebbe inventarti" . Solo un problema (non da poco) Il listato mi da controlli fino al 08.03.2012 mentre dopo quella data ci sono altre previsioni da estrapolare con ambi distanza 45 , puoi cortesemente controllare ?.

Si è vero, è un problema noto con gli script, adesso non mi ricordo come si fa.....
dammi tempo.....

 

[Y10]

Grazie e buona giornata.

 

[Baffoblu]

Lo sai che non mi viene in mente....

ci fu una discussione tempo fa
su questo problema, non la trovo.....

mi ricordo che era per una fesseria.....

Ti faccio sapere......

 

[Baffoblu]

Non era quello che pensavo....

era una questione di ruote.

ecco lo script rivisto e corretto.

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim t,r1,r2,n1,n2,n3,n4
    Dim am(1)
    Dim amb1(2)
    Dim amb2(2)
    Dim amb3(2)
    Dim ruote(10)
    Dim posta(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    posta(1) = 1
    poste(2) = 1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    ab1 = CInt(InputBox(" Inserisci il 1° numero da abbinare ",,"2"))
    ab2 = CInt(InputBox(" Inserisci il 2° numero da abbinare ",,"3"))
    ab3 = CInt(InputBox(" Inserisci il 3° numero da abbinare ",,"15"))
    ' I 10 Abbinamenti migliori : 02,03,15,42,53,55,71,77,86,90
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        t = 1
        Do While DISAMBO(idEstr,t,r1,n1,n2,r2,n3,n4) = True
            ruote(1) = r1
            ruote(2) = r2
            co = co + 1
            Scrivi String(100,"°") & " Caso n°" & co,1
            Scrivi
            Scrivi NomeRuota(r1) & " " & CInt(n1) & " " & CInt(n2) & "  " & NomeRuota(r2) & " " & CInt(n3) & " " & CInt(n4)
            z1 = Fuori90(n1 + n3)
            z2 = Fuori90(n2 + n4)
            If z1 = z2 Then
                am(1) = z1
                amb1(1) = am(1)
                amb1(2) = ab1
                amb2(1) = am(1)
                amb2(2) = ab2
                amb3(1) = am(1)
                amb3(2) = ab3
            End If
            ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco
            ImpostaGiocata 2,amb1,ruote,poste,nColpiDiGioco
            ImpostaGiocata 3,amb2,ruote,poste,nColpiDiGioco
            ImpostaGiocata 4,amb3,ruote,poste,nColpiDiGioco
            For a = 1 To 10
                For b = 1 To 10
                    ImpostaInterruzioni a,b,2
                Next
            Next
            Gioca idEstr,1
            t = t + 1
        Loop
        If ScriptInterrotto Then Exit For
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub
Function DISAMBO(estrazione,tentativo,byref ruota1,byref numero1,byref numero2,byref ruota2,byref numero3,byref numero4)
    Dim trovati,r,rr,i,ii,j,jj
    trovati = 0
    For r = 1 To 10
        For i = 1 To 4
            For j = i + 1 To 5
                a = Estratto(estrazione,r,i)
                b = Estratto(estrazione,r,j)
                c = Distanza(a,b)
                If c = 45 Then
                    For rr = r + 1 To 11
                        If rr = 11 Then
                            rr = 12
                        End If
                        For ii = 1 To 4
                            For jj = ii + 1 To 5
                                aa = Estratto(estrazione,rr,ii)
                                bb = Estratto(estrazione,rr,jj)
                                cc = Distanza(aa,bb)
                                If c = cc Then
                                    trovati = trovati + 1
                                    If trovati = tentativo Then
                                        numero1 = Estratto(estrazione,r,i)
                                        numero2 = Estratto(estrazione,r,j)
                                        numero3 = Estratto(estrazione,rr,ii)
                                        numero4 = Estratto(estrazione,rr,jj)
                                        ruota1 = r
                                        ruota2 = rr
                                        DISAMBO = True
                                        Exit Function
                                    End If
                                End If
                            Next
                        Next
                    Next
                End If
            Next
        Next
    Next
    DISAMBO = False
End Function

 

[Y10]

Scusami Baffo , non c'è più la funzione abbinamenti. Scusa il disturbo e buona giornata.

 

[Baffoblu]

Per la fretta avevo preso il primo script.......

Corretto !