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
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto