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
    giovedì 24 luglio 2025
    Bari
    71
    27
    87
    61
    39
    Cagliari
    69
    17
    79
    09
    04
    Firenze
    32
    13
    25
    58
    22
    Genova
    24
    41
    61
    66
    16
    Milano
    55
    59
    33
    80
    38
    Napoli
    18
    52
    32
    12
    72
    Palermo
    49
    77
    78
    90
    60
    Roma
    35
    04
    30
    02
    44
    Torino
    19
    79
    56
    77
    26
    Venezia
    82
    59
    68
    24
    21
    Nazionale
    81
    32
    19
    60
    38
    Estrazione Simbolotto
    Nazionale
    32
    07
    29
    37
    28

Ultimi Messaggi

Indietro
Alto