Novità

Per gli scripter

  • Creatore Discussione Creatore Discussione Y10
  • Data di inizio Data di inizio
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 ?.:)
 
Ultima modifica:
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.....:)
 
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......
:)
 
Non era quello che pensavo....

era una questione di ruote.

ecco lo script rivisto e corretto.

Codice:
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
 
Ultima modifica di un moderatore:
Scusami Baffo , non c'è più la funzione abbinamenti. Scusa il disturbo e buona giornata.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03
Indietro
Alto