Novità

Script su metodi di Fabarri

salvo50

Advanced Member >PLATINUM PLUS<
LA STRUTTURA DEI NUMERI

I calcoli vengono fatti su 2 numeri, l'unica condizione è che i 2 numeri devono essere consecutivi, quindi in ogni estrazione ci sono sempre 44 pronostici 4 per ogni ruota.

La struttura dei numeri (Fabarri).jpg

Codice:
 'Progetto - LA STRUTTURA DEI NUMERI - by Fabarri
'Scrit by Salvo50
Option Explicit
Sub Main
    Dim fin,esq,clp1,clp2,col,esqcol,es,idestr
    Dim posta(1),ruota(1),ruote(1),ambata(2),ambo(2),poste(2)
    Dim r1,p1,p2,caso,casi
    Dim estr1,estr2,estr1a,estr2a
    Dim figestr1,figestr2,cadestr1,cadestr2
    fin = EstrazioneFin
    esq = InputBox("Inserisci l'estrazione che vuoi iniziare",idestr,9300)
    clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
    clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo?",,20)
    col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,30))
    posta(1) = 1
    poste(2) = 1
    esqcol = esq + col
    If esqcol > fin Then esqcol = fin
    For es = esq To esqcol
        Messaggio es
        AvanzamentoElab esq,esqcol,es
        caso = 0
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            ruota(1) = r1
            For p1 = 1 To 4
                p2 = p1 + 1
                estr1 = Estratto(es,r1,p1)
                estr2 = Estratto(es,r1,p2)
                figestr1 = Figura(estr1)
                cadestr1 = Cadenza(estr1)
                figestr2 = Figura(estr2)
                cadestr2 = Cadenza(estr2)
                estr1a = figestr1 & cadestr1
                estr2a = figestr2 & cadestr2
                ambata(1) = Fuori90(109 - estr1a)
                ambata(2) = Fuori90(109 - estr2a)
                ambo(1) = ambata(1)
                ambo(2) = ambata(2)
                ruote(1) = TU_
                caso = caso + 1
                casi = casi + 1
                ColoreTesto 1
                Scrivi String(90,"*") & " Caso N " & Format2(caso) & " Estraz. ",0,0
                ColoreTesto 2
                Scrivi Format2(es)
                ColoreTesto 1
                Scrivi String(90,"*") & " Casi Totali  N " & Format2(casi)
                Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es)),0,0
                Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1),1
                Scrivi
                Scrivi " Estr.Cons " & Space(10) & " Indice Binario " & Space(10) & " Pronostico "
                Scrivi Space(3) & Format2(estr1) & Space(1) & Format2(estr2),0,0
                Scrivi Space(18) & Format2(estr1a) & Space(1) & Format2(estr2a),0,0
                Scrivi Space(19) & Format2(ambata(1)) & Space(1) & Format2(ambata(2))
                ColoreTesto 0
                ImpostaGiocata 1,ambata,ruota,posta,clp1
                ImpostaGiocata 2,ambo,ruote,poste,clp2
                Gioca es
            Next
        Next
    Next
    ScriviResoconto
End Sub
 
Ultima modifica:

Serpico 90

Advanced Member
Buona sera Salvo, complimenti per il grande lavoro che stai facendo.......mi permetto di chiederti una cortesia, sul lavoro
IL PUNTO DIAMETRALE 2° script ho notato che tutte le previsioni iniziano con la ruota di BARI,,,,,,è proprio cosi il metodo?
oppure le previsioni possono anche iniziare con altra ruota?
se si gentilmente mi potresti dire come fare per avere previsioni con altre ruote.......in sostanza invece di iniziare con Bari iniziare con altra ruota dove ci sono le condizioni espresse dal metodo.....grazie se mi rispondi
In attesa
saluti
Serpico
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!
Ciao Serpico 90!

Le previsioni iniziano da dove ci sono le condizioni, ma penso che volendo posso iniziare da dove voglio, sempre che ci siano le condizioni, adesso gli dò un occhiata e cercherò di aggiungerne un altro modificato.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao Adispo2000!

Non saprei da che parte iniziare, penso che la differenza con il lotto sia solo nell'archivio, ma non ne sono sicuro, mi dispiace.


Per Serpico 90,
ho inserito un nuovo script, in cui puoi decidere la ruota di partenza, però fà coppia solo con le ruote dopo, cioè se per esempio scegli Venezia, l'accoppiamento lo fa solo con la ruota Nazionale, lo script l'ho inserito dopo lo script del punto diametrale 2
 
Ultima modifica:

Serpico 90

Advanced Member
Grazie Salvo........il nuovo script e ottimo per poter fare le ricerche su due ruote possibilmente consecutive,....ora farò diverse prove ,e ti faccio sapere ...in ogni caso grazie della tua disponibilità ..........
saluti
Serpico.
 

salvo50

Advanced Member >PLATINUM PLUS<
Serpico 90;n2068868 ha scritto:
Grazie Salvo........il nuovo script e ottimo per poter fare le ricerche su due ruote possibilmente consecutive,....ora farò diverse prove ,e ti faccio sapere ...in ogni caso grazie della tua disponibilità ..........
saluti
Serpico.

Grazie a te che hai notato questo errore, perchè è un errore, cioè quando finisce con la prima ruota che ha le condizioni, lo script, prima di passare ad un'altra estrazione, dovrebbe iniziare con un altra ruota che ha le condizioni ed invece non lo fa, cioè se parte con Bari e trovando le condizioni esempio tra BA-CA, BA-GE, quando ha finito il ciclo di BARI, dovrebbe iniziare con un'altra ruota, esempio GENOVA ed invece passa direttamente ad un'altra estrazione, quindi alla fine come prima ruota ha solo Bari. Cercherò di trovare dove ho sbagliato.
 

adispo2000

Super Member >PLATINUM<
scusa salvo, quello che avevo in mente e quello di ricercare i terni mancati cercando a ritroso nell'archivio 10elotto5m potendo indicare su quante estrazioni ricercare potendo scegliere tra i range partendo dall'ultima estrazione utile, ad esempio:
13927/06/11.3514141718282932414549505458596571738486
13827/06/11.30910111719252732333546576567717273748385
13727/06/11.252461417222736435572767778808384868890

in questo caso 14-17/11-17/14-17 terno mancato 11-14-17...ecc si puo' fare....penso che puo' essere applicato al lotto....
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao!
Scusa Adispo2000, ma perchè non apri un nuovo topic ed esponi quello che ti serve, ci sono dei bravissimi scripters tipo Mike58, Joe, I Leggend, Magia, ecc..., che le tue richieste te le risolvono in quattro e quattrotto, IO SONO UN DILETTANTE, poi hai letto il titolo di questo topic, SCRIPT SU METODI DI FABARRI, è un metodo di Fabarri quello che stai esponendo?
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

Ho corretto il secondo script del - IL PUNTO DIAMETRALE - a pagina 20, adesso come prima ruota, ci sono tutte quelle che hanno le condizioni.
 

Serpico 90

Advanced Member
Buon giorno ,grazie per il tuo lavoro........sono rientrato stamattina ora scarico il nuovo script.....
.e inizio a smanettare.....per vedere se con il tuo lavoro e le mie idee.....possiamo mettere assieme il tutto
e ti faccio sapere ....
scusa sul mio e sul tuo Nik.... in basso a sinistra di chi guarda
spunta un puntino verde chiaro significa che siamo collegati ?
Se e cosi allora magari se devo chiederti qualcosa discutiamo in diretta...
Sempre grato del tuo lavoro messo a disposizione di tutti
a rileggerci al più presto
Saluti
Serpico.
 

Serpico 90

Advanced Member
Ciao...........Salvo io sullo script ultimo che hai postato sto facendo delle ricerche ....e per capire se le mie idee possono portare a qualche cosa di utile..ti chiedo cortesemente se potresti aggiungere qualcosa al tuo script..... ti premetto che io non sono per niente pratico a costruire script quindi se puoi mi dai un cenno .
spero piu tardi verso le 19.00 di poterti trovare collegato e ne parliamo..
saluti
Serpico
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao!
Se è uno script che ho fatto in questo topic, non ci sono impedimenti, chiedi pure, se riesco ben volentieri, invece se è uno script che non ha niente a che vedere con - script su metodi di Fabarri, - possiamo aprire un altro topic, come ho scritto prima ben volentieri, se non ci riesco, chiediamo aiuto.
 

Serpico 90

Advanced Member
Ciao si tratta dello script IL PUNTO DIAMETRALE CHE HAI CORRETTO E REINSERITO A PAG.20.....proprio perche si tratta di punto diametrale .desidero sapere se puoi aggiungere ..alla previsione che scaturisce .
..tre numeri fissi e cioe 45.---54---90.....in modo che oltre alle ambate da giocare si possa giocare una cinquina....faccio un esempio .....concorso n.72 del 17/06/2017......previsione venezia nazionale 67.22 prima previsione
seconda previsione venezia nazionale 67.22.45.54.90........esito comc.n.77 nazionale 67.90.......questo esmpio è uno a caso ........ora controllando con carta e penna...viene un po stancante fare la ricerca ..quindi se ti e possibile aggiungere allo script questa seconda previsione e poi vediamo...se è il caso di approfondire.....
sei in linea in questo momento?
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti!

A pagina 20 ho inserito un altro script, con l'aggiunta di tre numeri fissi, l'ho fatto con inserimento da tastiera, tramite - Inputbox - così i tre numeri li puoi cambiare a piacere.
 
Ultima modifica:

Serpico 90

Advanced Member
Ciao.....ho provato lo script .... ora va bene tutto ok......
andro a fare le verifiche e ti faccio sapere se è il caso di metterlo in pratica e non spendere euri senza la dovuta vincita....come al solito complimenti per la tua disponibilità e bravura...
Saluti
Serpico
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
PROCEDIMENTO EINS-FAB

Nel primo esempio i calcoli sono risultati esatti, nel secondo e terzo esempio i dati non corrispondono con quelli dell'articolo perchè qualche dato nell'articolo è sbagliato, nel secondo esempio quel resto 106 è sbagliato, infatti il resto giusto è 104, che risulta da 26624/136 = 195 resto 104 quindi quasi tutti i calcoli che vengono dopo sono sbagliati, nel terzo esempio il dato sbagliato nell'articolo è il numero 8 che sta sotto il numero 30, il numero giusto è il 6, questo numero si ottiene facendo 04(la seconda somma) meno 42(la seconda distanza), quindi 94-42=52 dato che questo numero è superiore a 46, si deve togliere il 46, quindi 52-46=06, quindi anche qui quasi tutti i calcoli dopo sono sbagliati. I 3 numeri che sono alla sinistra del numero 25 (nel primo esempio)non li ho messi perchè anche l'autore dice che non servono, infatti li calcola ma non li usa, nella terza parte dell'articolo, in basso a destra, dice - in questo caso,data la presenza del 22, è opportuno aggiungere l'ambo 13-2 - . non ho capito perchè, si deve aggiungere l'ambo 13-2. A riguardo delle condizioni della terna, il punto (a) è in contrasto col punto (f), quindi l'ho scartato, il punto (f) è impossibile che si verifica perchè è in contrasto con il punto (b), quindi l'ho modificato con distanza 2 invece di distanza 1.
Di script ne ho fatti 2, nel primo i 3 numeri si inseriscono da <inputbox> se nei 3 numeri inseriti da tastiera non si rispettano le condizioni impostate ad inizio script, nell'output non appare niente, il secondo script è con le estrazioni, e con la ricerca, quindi i tre numeri vengono presi direttamente dalle ruote.

Procedimento Eins-Fab - 1a parte - Delear.jpg
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
Procedimento Eins-Fab - 2a parte - Delear.jpg

Procedimento Eins-Fab - 3a parte - Delear.jpg

Procedimento Eins-Fab - 4a parte - Delear.jpg



Primo script

Codice:
 'Progetto - PROCEDIMENTO EINS-FAB - BY FABARRI
'Script - by Salvo50
'Condizioni dei 3 numeri da inserire
'1) Devono essere tutti dispari o tutti pari
'2) Devono essere di valore progressivamente crescente o decrescente
'3) la terna non deve avere nè il 90 nè il 45
'4) La terna non deve contenere nè somme nè differenze di valore 17 o 45
'5) La distanza 2 non deve figurare più di una volta
Option Explicit
Sub Main
    Dim A,B,C,s1,s2,s3,d1,d2,d3,d4,d5
    Dim sd1,sd2,sd3,sd4a,sd4b,sd5,sd6a,sd6b
    Dim sdd1,co46,mo1,qmo1,Tot1,tot2,rsd
    Dim smsdd1,sdsd
    Dim Amb1a,Amb2a,Amb3a,Amb4a,Amb1b,Amb2b,Amb3b,Amb4b
    A = CInt(InputBox("Inserisci il primo numero ",,18))
    B = CInt(InputBox("Inserisci il secondo numero ",,26))
    C = CInt(InputBox("Inserisci il terzo numero ",,38))
    ' Condizioni
    If pari(A) And pari(B) And pari(C) Or dispari(A) And dispari(B) And dispari(C) Then
        If(B) >(A) And(C) >(B) Or(B) <(A) And(C) <(B) Then
            If(A) <> 45 And(B) <> 45 And(C) <> 45 And(A) <> 90 And(B) <> 90 And(C) <> 90 Then
                If Differenza(A,B) = 2 And Differenza(B,C) <> 2 Then
                Else
                    If Differenza(B,C) = 2 And Differenza(A,B) <> 2 Then
                    Else
                        If Differenza(A,B) <> 2 And Differenza(B,C) <> 2 Then
                            'Calcoli Comuni, primo quadro
                            s1 = Fuori90(A + B)
                            s2 = Fuori90(B + C)
                            d1 = Distanza(A,B)
                            d2 = Distanza(B,C)
                            If s1 <> 17 And s2 <> 17 And d1 <> 17 And d2 <> 17 Then
                                If s1 <> 45 And s2 <> 45 And d1 <> 45 And d2 <> 45 Then
                                    sd1 = Fuori90(s1 + d1)
                                    sd2 = Fuori90(s2 + d2)
                                    sdsd = Fuori90(sd1 + sd2)
                                    If sdsd > 46 Then     sdsd =(sdsd - 46)
                                    'Calcoli comuni secondo quadro
                                    d3 = Fuori90(90 +(s1 - d1))
                                    d4 = Fuori90(90 +(s2 - d2))
                                    If d3 > 46 Then d3 =(d3 - 46)
                                    If d4 > 46 Then d4 =(d4 - 46)
                                    sdd1 = Fuori90(d3 + d4)
                                    smsdd1 =(sdd1 \ 2)
                                    co46 =(46 - smsdd1)
                                    d5 = Differenza(co46,smsdd1)
                                    mo1 =(d5 * 2)
                                    qmo1 = mo1 * mo1
                                    Tot1 = qmo1 * sdsd
                                    rsd = Tot1 Mod 136
                                    If rsd <= sd1 Or rsd <= sd2 Then rsd =(rsd + 136)
                                    'Calcoli per ambo 1 e ambo 2
                                    sd4a = Fuori90(rsd - sd1)
                                    sd3 = Differenza(sd4a,sd1)
                                    If sd3 < d3 Then sd3 = 90 - sd3
                                    sd4b = Fuori90(90 +(sd3 - d3))
                                    If sd4a <> sd4b Then
                                        Amb1a = sd4a \ 2
                                        Amb1b = sd4b \ 2
                                        Amb2a = Diametrale(Amb1a)
                                        Amb2b = Diametrale(Amb1b)
                                        'Calcoli per ambo 3 e ambo 4
                                        sd6a = Fuori90(rsd - sd2)
                                        sd5 = Differenza(sd6a,sd2)
                                        If sd5 < d4 Then sd5 = 90 - sd5
                                        sd6b = Fuori90(90 +(sd5 - d4))
                                        If sd6a <> sd6b Then
                                            Amb3a = sd6a \ 2
                                            Amb3b = sd6b \ 2
                                            Amb4a = Diametrale(Amb3a)
                                            Amb4b = Diametrale(Amb3b)
                                            'output
                                            Scrivi Space(23) & Format2(s1) & Space(3) & Format2(s2),1
                                            Scrivi Space(20) & Format2(A) & "   " & Format2(B) & "   " & Format2(C)
                                            Scrivi Space(23) & Format2(d1) & Space(3) & Format2(d2),1
                                            Scrivi Space(20) & String(12,"-")
                                            Scrivi Space(23) & Format2(sd1) & Space(3) & Format2(sd2),1
                                            Scrivi Space(25) & FormattaStringa(sdsd,"000"),1
                                            Scrivi Space(25) & FormattaStringa(rsd,"000") & "      " & Format2(sd4a) & " " & Format2(sd4b)_
                                             & "      " & Format2(Amb1a) & " " & Format2(Amb1b),1
                                            Scrivi Space(16) & "|" & Format2(d3) & "|" & Space(25)_
                                             & Format2(Amb2a) & " " & Format2(Amb2b),1
                                            Scrivi Space(16) & "|" & Format2(d4) & "|" & Format2(sdd1) & "|" & Format2(smsdd1)_
                                             & "|" & Format2(d5) & "|" & "     " & Format2(sd6a) & " " & Format2(sd6b)_
                                             & "      " & Format2(Amb3a) & " " & Format2(Amb3b),1
                                            Scrivi Space(16) & String(12,"-") & Space(17) & Format2(Amb4a) & " " & Format2(Amb4b),1
                                            Scrivi Space(13) & "|  " & "|  " & "|  " & "|" & Format2(co46) & "|" & Format2(mo1) & "|",1
                                            Scrivi String(50,"-")
                                            Scrivi "Ambi       " & Format2(Amb1a) & " " & Format2(Amb1b) & " - " & Format2(Amb2a) & " " & Format2(Amb2b)_
                                             & " - " & Format2(Amb3a) & " " & Format2(Amb3b) & " - " & Format2(Amb4a) & " " & Format2(Amb4b),1
                                            Scrivi
                                            Scrivi "Quartine   " & Format2(Amb1a) & " " & Format2(Amb1b) & " " & Format2(Amb2a) & " " & Format2(Amb2b)_
                                             & " - " & Format2(Amb3a) & " " & Format2(Amb3b) & " " & Format2(Amb4a) & " " & Format2(Amb4b),1
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End Sub


Secondo script
Codice:
 'Progetto - PROCEDIMENTO EINS-FAB - BY FABARRI
'Modifica, inserimento direttamente dalle ruote e ricerca. By Salvo50
'Script - by Salvo50
'Condizioni dei 3 numeri da inserire
'1) Devono essere tutti dispari o tutti pari
'2) Devono essere di valore progressivamente crescente o decrescente
'3) la terna non deve avere nè il 90 nè il 45
'4) La terna non deve contenere nè somme nè differenze di valore 17 o 45
'5) La distanza 2 non deve figurare più di una volta
Option Explicit
Sub Main
    Dim fin,idestr,ruota,Ini,es,r1,caso,casi
    Dim A,B,C,s1,s2,s3,d1,d2,d3,d4,d5,p1,p2,p3
    Dim sd1,sd2,sd3,sd4a,sd4b,sd5,sd6a,sd6b
    Dim sdd1,co46,mo1,qmo1,Tot1,rsd,clp1,clp2,smsdd1,sdsd
    Dim Amb1a,Amb2a,Amb3a,Amb4a,Amb1b,Amb2b,Amb3b,Amb4b
    Dim ruote(1),posta(2),post4(4)
    Dim num1(2),num2(2),num3(2),num4(2),num5(4),num6(4)
    fin = EstrazioneFin
    Ini = InputBox("Inserisci numero di inizio estrazione",idestr,9300)
    clp1 = InputBox("inserisci per quanti colpi vuoi giocare l'ambo )",,4)
    clp2 = InputBox("inserisci per quanti colpi vuoi giocare la quartina)",,8)
    Scrivi ""
    posta(1) = 1
    posta(2) = 1
    post4(2) = 1
    'post4(3) = 1
    'post4(4) = 1
    For es = Ini To fin
        AvanzamentoElab Ini,fin,es
        caso = 0
        For r1 = 1 To 12
            If r1 = 11 Then r1 = 12
            ruote(1) = r1
            For p1 = 1 To 3
                p2 = p1 + 1
                p3 = p2 + 1
                A = Estratto(es,r1,p1)
                B = Estratto(es,r1,p2)
                C = Estratto(es,r1,p3)
                ' Condizioni
                If pari(A) And pari(B) And pari(C) Or dispari(A) And dispari(B) And dispari(C) Then
                    If(B) >(A) And(C) >(B) Or(B) <(A) And(C) <(B) Then
                        If(A) <> 45 And(B) <> 45 And(C) <> 45 And(A) <> 90 And(B) <> 90 And(C) <> 90 Then
                            If Differenza(A,B) = 2 And Differenza(B,C) <> 2 Or Differenza(B,C) = 2 And Differenza(A,B) <> 2 Or Differenza(A,B) <> 2 And Differenza(B,C) <> 2 Then
                                'Calcoli Comuni, primo quadro
                                s1 = Fuori90(A + B)
                                s2 = Fuori90(B + C)
                                d1 = Distanza(A,B)
                                d2 = Distanza(B,C)
                                If s1 <> 17 And s2 <> 17 And d1 <> 17 And d2 <> 17 Then
                                    If s1 <> 45 And s2 <> 45 And d1 <> 45 And d2 <> 45 Then
                                        sd1 = Fuori90(s1 + d1)
                                        sd2 = Fuori90(s2 + d2)
                                        sdsd = Fuori90(sd1 + sd2)
                                        If sdsd > 46 Then     sdsd =(sdsd - 46)
                                        'Calcoli comuni secondo quadro
                                        d3 = Fuori90(90 +(s1 - d1))
                                        d4 = Fuori90(90 +(s2 - d2))
                                        If d3 > 46 Then d3 =(d3 - 46)
                                        If d4 > 46 Then d4 =(d4 - 46)
                                        sdd1 = Fuori90(d3 + d4)
                                        smsdd1 =(sdd1 \ 2)
                                        co46 =(46 - smsdd1)
                                        d5 = Differenza(co46,smsdd1)
                                        mo1 =(d5 * 2)
                                        qmo1 = mo1 * mo1
                                        Tot1 = qmo1 * sdsd
                                        rsd = Tot1 Mod 136
                                        If rsd <= sd1 Or rsd <= sd2 Then rsd =(rsd + 136)
                                        'Calcoli per ambo 1 e ambo 2
                                        sd4a = Fuori90(rsd - sd1)
                                        sd3 = Differenza(sd4a,sd1)
                                        If sd3 < d3 Then sd3 = 90 - sd3
                                        sd4b = Fuori90(90 +(sd3 - d3))
                                        If sd4a <> sd4b Then
                                            Amb1a = sd4a \ 2
                                            Amb1b = sd4b \ 2
                                            Amb2a = Diametrale(Amb1a)
                                            Amb2b = Diametrale(Amb1b)
                                            'Calcoli per ambo 3 e ambo 4
                                            sd6a = Fuori90(rsd - sd2)
                                            sd5 = Differenza(sd6a,sd2)
                                            If sd5 < d4 Then sd5 = 90 - sd5
                                            sd6b = Fuori90(90 +(sd5 - d4))
                                            If sd6a <> sd6b Then
                                                Amb3a = sd6a \ 2
                                                Amb3b = sd6b \ 2
                                                Amb4a = Diametrale(Amb3a)
                                                Amb4b = Diametrale(Amb3b)
                                                'output
                                                casi = casi + 1
                                                caso = caso + 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(" Estrazione n." & Format2(es) &     " del " & DataEstrazione(es)),0,0
                                                Scrivi "  " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1)
                                                Scrivi Space(23) & Format2(s1) & Space(3) & Format2(s2),1
                                                Scrivi Space(20) & Format2(A) & "   " & Format2(B) & "   " & Format2(C)
                                                Scrivi Space(23) & Format2(d1) & Space(3) & Format2(d2),1
                                                Scrivi Space(20) & String(12,"-")
                                                Scrivi Space(23) & Format2(sd1) & Space(3) & Format2(sd2),1
                                                Scrivi Space(25) & FormattaStringa(sdsd,"000"),1
                                                Scrivi Space(25) & FormattaStringa(rsd,"000") & "      " & Format2(sd4a) & " " & Format2(sd4b)_
                                                 & "      " & Format2(Amb1a) & " " & Format2(Amb1b),1
                                                Scrivi Space(16) & "|" & Format2(d3) & "|" & Space(25)_
                                                 & Format2(Amb2a) & " " & Format2(Amb2b),1
                                                Scrivi Space(16) & "|" & Format2(d4) & "|" & Format2(sdd1) & "|" & Format2(smsdd1)_
                                                 & "|" & Format2(d5) & "|" & "     " & Format2(sd6a) & " " & Format2(sd6b)_
                                                 & "      " & Format2(Amb3a) & " " & Format2(Amb3b),1
                                                Scrivi Space(16) & String(12,"-") & Space(17) & Format2(Amb4a) & " " & Format2(Amb4b),1
                                                Scrivi Space(13) & "|  " & "|  " & "|  " & "|" & Format2(co46) & "|" & Format2(mo1) & "|",1
                                                Scrivi String(106,"-")
                                                num1(1) = Amb1a
                                                num1(2) = Amb1b
                                                ImpostaGiocata 1,num1,ruote,posta,clp1
                                                num2(1) = Amb2a
                                                num2(2) = Amb2b
                                                ImpostaGiocata 2,num2,ruote,posta,clp1
                                                num3(1) = Amb3a
                                                num3(2) = Amb3b
                                                ImpostaGiocata 3,num3,ruote,posta,clp1
                                                num4(1) = Amb4a
                                                num4(2) = Amb4b
                                                ImpostaGiocata 4,num4,ruote,posta,clp1
                                                num5(1) = Amb1a
                                                num5(2) = Amb1b
                                                num5(3) = Amb2a
                                                num5(4) = Amb2b
                                                EliminaRipetuti num5
                                                ImpostaGiocata 5,num5,ruote,post4,clp2
                                                num6(1) = Amb3a
                                                num6(2) = Amb3b
                                                num6(3) = Amb4a
                                                num6(4) = Amb4b
                                                EliminaRipetuti num6
                                                ImpostaGiocata 6,num6,ruote,post4,clp2
                                                Gioca es
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            Next
        Next
    Next
    ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto