adispo2000
Super Member >PLATINUM<
cliccate sul link....i metodi sono piu' di uno chi capisce ...puo' relizzare
https://www.youtube.com/watch?v=ry6P4wmduH4
				
			https://www.youtube.com/watch?v=ry6P4wmduH4
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
 'Progetto - chiesto da Adispo2000  -
'Script   - by Salvo50
Option Explicit
Sub Main
    Dim r1,p1,p2,es,r2,estr1,estr2,estr3,estr4,p3,p4
    Dim fin,Ini,caso,casi,clp,esq,somma1,somma2,idestr,col,esqcol
    Dim ru(1),posta(4),num(6)
    Dim Sove1,Sove2,d1,d2,d3,d4,c1,c2,c3,c4,e1,e2,e3,e4,f1,f2,f3,f4
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9350)
    clp = InputBox("Per quanti colpi vuoi fare la ricerca",,10)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,100))
    posta(2) = 1
    'posta(3) = 1
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    estr1 = Estratto(es,r1,p1)
                    estr2 = Estratto(es,r1,p2)
                    For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5
                                estr3 = Estratto(es,r2,p3)
                                estr4 = Estratto(es,r2,p4)
                                e1 = estr1 : e2 = estr2 : e3 = estr3 : e4 = estr4
                                If Figura(e1) = Figura(e2)And Figura(e1) = Figura(e3) And Figura(e1) = Figura(e4) Then
                                    d1 = Decina(e1) : d2 = Decina(e2) : d3 = Decina(e3) : d4 = Decina(e4)
                                    c1 = Cadenza(e1) : c2 = Cadenza(e2) : c3 = Cadenza(e3) : c4 = Cadenza(e4)
                                    If(d1) = 0 Then
                                        d1 = c1 : c1 = 0
                                    End If
                                    If(d2) = 0 Then
                                        d2 = c2 : c2 = 0
                                    End If
                                    If(d3) = 0 Then
                                        d3 = c3 : c3 = 0
                                    End If
                                    If(d4) = 0 Then
                                        d4 = c4 : c4 = 0
                                    End If
                                    e1 = d1 & c1 : e2 = d2 & c2 : e3 = d3 & c3 : e4 = d4 & c4
                                    f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
                                    f1 = Figura(f1) : f2 = Figura(f2) : f3 = Figura(f3) : f4 = Figura(f4)
                                    If c1 = 0 And c3 = 0 Then f2 = 0    'End If
                                    If c2 = 0 And c4 = 0 Then f4 = 0 'End If
                                    somma1 = f1 & f2
                                    somma2 = f3 & f4
                                    somma1 = Fuori90 (somma1)
                                     somma2 = Fuori90 (somma2)
                                    Scrivi
                                    caso = caso + 1
                                    casi = casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
                                    ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                                    Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
                                    Scrivi "                     Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2)
                                    Scrivi
                                    Scrivi Space(30) & Format2(e1) & " " & Format2(e2)
                                    Scrivi Space(30) & Format2(e3) & " " & Format2(e4)
                                    Scrivi Space(30) & String(5,"-")
                                    Scrivi Space(30) & Format2(somma1) & " " & Format2(somma2)
                                    Scrivi
                                    ru(1) = TU_
                                    num(1) = estr1
                                    num(2) = estr2
                                    num(3) = estr3
                                    num(4) = estr4
                                    num(5) = somma1
                                    num(6) = somma2
                                    EliminaRipetuti num
                                    ImpostaGiocata 1,num,ru,posta,clp
                                    Gioca es
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
	adispo2000;n2083450 ha scritto:scusa salvo...ma il file e solo per verifica....non per creazioni prono?
 'Progetto - chiesto da Adispo2000  -
'Script   - by Salvo50
Option Explicit
Sub Main
    Dim r1,p1,p2,es,r2,estr1,estr2,estr3,estr4,p3,p4
    Dim fin,Ini,caso,casi,clp,esq,somma1,somma2,idestr,col,esqcol
    Dim ru(1),posta(4),num(6)
    Dim Sove1,Sove2,d1,d2,d3,d4,c1,c2,c3,c4,e1,e2,e3,e4,f1,f2,f3,f4
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
    clp = InputBox("Per quanti colpi vuoi fare la ricerca",,10)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,100))
    posta(2) = 1
    posta(3) = 1
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    estr1 = Estratto(es,r1,p1)
                    estr2 = Estratto(es,r1,p2)
                    For r2 = r1 + 1 To 11
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5
                                estr3 = Estratto(es,r2,p3)
                                estr4 = Estratto(es,r2,p4)
                                e1 = estr1 : e2 = estr2 : e3 = estr3 : e4 = estr4
                                If Figura(e1) = Figura(e2)And Figura(e1) = Figura(e3) And Figura(e1) = Figura(e4) Then
                                    d1 = Decina(e1) : d2 = Decina(e2) : d3 = Decina(e3) : d4 = Decina(e4)
                                    c1 = Cadenza(e1) : c2 = Cadenza(e2) : c3 = Cadenza(e3) : c4 = Cadenza(e4)
                                    If(d1) = 0 Then
                                        d1 = c1 : c1 = 0
                                    End If
                                    If(d2) = 0 Then
                                        d2 = c2 : c2 = 0
                                    End If
                                    If(d3) = 0 Then
                                        d3 = c3 : c3 = 0
                                    End If
                                    If(d4) = 0 Then
                                        d4 = c4 : c4 = 0
                                    End If
                                    e1 = d1 & c1 : e2 = d2 & c2 : e3 = d3 & c3 : e4 = d4 & c4
                                    f1 = d1 + d3 : f2 = c1 + c3 : f3 = d2 + d4 : f4 = c2 + c4
                                    f1 = Figura(f1) : f2 = Figura(f2) : f3 = Figura(f3) : f4 = Figura(f4)
                                    If c1 = 0 And c3 = 0 Then f2 = 0    'End If
                                    If c2 = 0 And c4 = 0 Then f4 = 0 'End If
                                    somma1 = f1 & f2
                                    somma2 = f3 & f4
                                    somma1 = Fuori90(somma1)
                                 somma2 = Fuori90(somma2)
                                    Scrivi
                                    caso = caso + 1
                                    casi = casi + 1
                                    ColoreTesto 1
                                    Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(casi,"0000")
                                    ColoreTesto 2
                                    Scrivi String(80,"o") & " Estrazione " &(es) & " caso " & FormattaStringa(caso,"0000")
                                    ColoreTesto 0
                                    Scrivi
                                    Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                                    Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),0,0
                                    Scrivi " Numeri scelti " & Format2 (estr1) &" "& Format2 (estr2)
                                    Scrivi "                     Seconda Ruota " & Left(NomeRuota(r2),2) & " " & StringaEstratti(es,r2),0,0
                                    Scrivi " Numeri scelti " & Format2 (estr3) &" "& Format2 (estr4)
                                    Scrivi
                                    Scrivi Space(30) & Format2(e1) & " " & Format2(e2)
                                    Scrivi Space(30) & Format2(e3) & " " & Format2(e4)
                                    Scrivi Space(30) & String(5,"-")
                                    Scrivi Space(30) & Format2(somma1) & " " & Format2(somma2)
                                    Scrivi
                                    ru(1) = TU_
                                    num(1) = estr1
                                    num(2) = estr2
                                    num(3) = estr3
                                    num(4) = estr4
                                    num(5) = somma1
                                    num(6) = somma2
                                    EliminaRipetuti num
                                    ImpostaGiocata 1,num,ru,posta,clp
                                    Gioca es
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub
	adispo2000;n2083519 ha scritto:SCUSA SALVO AVEVO CONFUSO I NUMERI SELEZIONATI CON LE ESTRAZIONI PER ORA HO LA MENTE CONFUSA..E SEMPRE UN GRAZIE
HA DIMENTICAVO SEMPRE SE NON DISTURBO MA SI PUOì APLICCARE ANCHE AL 10ELOTTO5M PRENDENDO IN CONSIDERAZIONE LE ULTIME 2 ESTRAZIONI ?
CIAO
salvo50;n2083517 ha scritto:Le somme vanno fatte col fuori 9 non col riporto
stupl;n2083565 ha scritto:Visto che mi trovo, vedo che sei bravo negli script potresti per favore dare un'occhiata al secondo metodo che ho postato in area download, il primo me l'ha già fatto magia ma e sto aspettando qualcuno che mi faccia il secondo.
Grazie
salvo50;n2083571 ha scritto:Ci provo, tempo permettendo
Ho visto che hai completamente eliminato il tuo post, non sapevo si potesse fare,
mi spieghi come si fà
Grazie
stupl;n2083588 ha scritto:Per lo script ci ha pensato magia, grazie cmq per l'interessamento.
Per eliminare il post basta che clicchi su modifica e appaiono 4 tasti: "Resetta" " Elimina" "Anteprima" e "Salva"