Novità

Script su metodi di Fabarri

Enplein

Super Member >PLATINUM<
Enplein;n2113506 ha scritto:
Un saluto a Tutti ed in particolare a Cerberus, che ha inserito tantissimi procedimenti di autorevoli autori.
Mi ha colpito questo procedimento del laser 50 di Fabarri, e provo ad inserire un caso per capire se i
calcoli sono giusti ed in particolare se rispettano tutte le regole...grazie.

19.04.2018 Mi 22.12.73.06.88 --> 73.06 Som. 79 Dist. 23 Pos. 3^ 4^
19.04.2018 Ro 16.07.10.33.38 --> 10.33 Som. 43 Dist. 23 Pos. 3^ 4^

Quadrato
79 23 = 79*3=237=57 - 45 = Diam. del T.S. = 12
43 23 = SOMMA Somme 32 Somma X [(12+90)-32]=70 Dist. (79-70)=09 Dist.X [23-09]=14

--------
70 14
...84
--------
42 28 Trasposizione 48 22
87 73 Trasposizione 83 77

Ciao, Enplein.

Ambo 87.73 su Mi [9466/03.05.2018]

Ciao, Enplein.
 

Enplein

Super Member >PLATINUM<
HTML:
02.05.2018 Na 85.88.23.47.75 --> 23.47  Som. 70  Dist. 24  Pos. 3^ 4^ 
02.05.2018 Nz 16.18.05.29.10 --> 05.29  Som. 34  Dist. 24  Pos. 3^ 4^ 

Quadrato 
Som.  Dist.
70    24
34    24 =  SOMMA Somme 14  Diam. del T.S. = 75  Somma X [61]  Dist. X [15]

Prospetto
61   15
  76
--------
Ambi Principali     Ambi Trasposti    Ambi Incrociati
38  23              33  28            38  68
83  68              88  63            83  23

Nuova previsione,, Enplein.
 

salvo50

Advanced Member >PLATINUM PLUS<
Enplein;n2113965 ha scritto:
HTML:
02.05.2018 Na 85.88.23.47.75 --> 23.47 Som. 70 Dist. 24 Pos. 3^ 4^
02.05.2018 Nz 16.18.05.29.10 --> 05.29 Som. 34 Dist. 24 Pos. 3^ 4^

Quadrato
Som. Dist.
70 24
34 24 = SOMMA Somme 14 Diam. del T.S. = 75 Somma X [61] Dist. X [15]

Prospetto
61 15
76
--------
Ambi Principali Ambi Trasposti Ambi Incrociati
38 23 33 28 38 68
83 68 88 63 83 23

Nuova previsione,, Enplein.

Ciao Enplein

Quindi io ho fatto un po di confusione tra principali è trasposti, appena posso lo correggo

Grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
Corretto


Ho corretto anche lo script che inserivo i 2 ambi iniziali tramite tastiera.
pagina 7 foglio 95
 
Ultima modifica:

salvo50

Advanced Member >PLATINUM PLUS<
chicco3;n2114384 ha scritto:
Ciao Salvo per caso hai uno script "le distanze spia infallibili di Fabarri" grazie e buona serata.

Ciao

No, non ce l'ho, non ho neanche le spiegazioni, se me le procuri posso vedere se riesco a fare lo script
 

chicco3

Advanced Member
Ciao Salvo grazie lo stesso è, che lo perso per quello che lo chiedevo a te.Se trovo il metodo te lo dico ok grazie mille e buona giornata chicco
 

salvo50

Advanced Member >PLATINUM PLUS<
Ho cercato e in un sito ho trovato le spiegazioni, non dovrebbe essere difficile farlo, appena posso lo faccio
 

salvo50

Advanced Member >PLATINUM PLUS<
LE DISTANZE SPIA INFALLIBILI

Codice:
 'PROGETTO - Le distanze spia infallibili - by FABARRI
'SCRIPT BY SALVO50
'Rintracciare su due ruote consecutive la Differenza aritmetica in Posizione isotopa.
'Si giocano i numeri corrispondenti per ambata
'In Posizione predeterminata (quella degli ambi che abbiamo rintracciato).
Option Explicit
Sub Main
   Dim FIn,Es,Esq,Clp,Col,Esqcol
   Dim Posta(10),Ruote(2),Amb(2)
   Dim Caso,Casi,R1,R2,P1,P2,A,B,C,D,E1,E2
   Dim PP1,PP2,Dab,Dcd
   'Posta(1) = 1
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",,9400)
   Clp = InputBox("Per quanti colpi vuoi giocare le ambate?",,6)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
   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 10
         R2 = R1 + 1
         If R2 = 11 Then R2 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1) : If A > 0 Then
               B = Estratto(Es,R1,P2)
               C = Estratto(Es,R2,P1) : If C > 0 Then
               D = Estratto(Es,R2,P2)
               Dab = Differenza(A,B)
               Dcd = Differenza(C,D)
               If Dab = Dcd Then
                  Amb(1) = Fuori90(Dab + 25)
                  Amb(2) = Fuori90(Dab + 65)
                  Posta(6) = 0 : Posta(7) = 0 : Posta(8) = 0 : Posta(9) = 0 : Posta(10) = 0
                  Posta(P1 + 5) = 1
                  Posta(P2 + 5) = 1
                  Ruote(1) = R1
                  Ruote(2) = R2
                  Caso = Caso + 1
                  Casi = Casi + 1
                  ColoreTesto 1
                  Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
                  ColoreTesto 2
                  Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                  ColoreTesto 0
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For PP1 = 1 To 5
                     E1 = Estratto(Es,R1,PP1)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R2) & " ",1,0
                  For PP2 = 1 To 5
                     E2 = Estratto(Es,R2,PP2)
                     If E2 = C Or E2 = D Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi " Ambi Isot." & Space(6) & "Differenze" & Space(7) & "Pronostico" & Space(7) & "Pos. di Gioco",1
                  Scrivi "   " & Format2(A) & " " & Format2(B) & Space(12) & Format2(Dab) & Space(16) & Format2(Amb(1)),1,0
                  Scrivi Space(16) & Format2(P1),1
                  Scrivi "   " & Format2(C) & " " & Format2(D) & Space(12) & Format2(Dcd) & Space(16) & Format2(Amb(2)),1,0
                  Scrivi Space(16) & Format2(P2),1
                  ImpostaGiocata 1,Amb,Ruote,Posta,Clp
                  Gioca Es
               End If
            End If
         End If
      Next
   Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
 

Enplein

Super Member >PLATINUM<
Enplein;n2113965 ha scritto:
HTML:
02.05.2018 Na 85.88.23.47.75 --> 23.47 Som. 70 Dist. 24 Pos. 3^ 4^
02.05.2018 Nz 16.18.05.29.10 --> 05.29 Som. 34 Dist. 24 Pos. 3^ 4^

Quadrato
Som. Dist.
70 24
34 24 = SOMMA Somme 14 Diam. del T.S. = 75 Somma X [61] Dist. X [15]

Prospetto
61 15
76
--------
Ambi Principali Ambi Trasposti Ambi Incrociati
38 23 33 28 38 68
83 68 88 63 83 23

Nuova previsione,, Enplein.

G 1: A 38.23 Na Tu Nz 5/13
A 38.23 su Tu (Mi) 3° colpo [9468/08.05.2018]
A 38.23 su Tu (Pa) 3° colpo [9468/08.05.2018]
 

salvo50

Advanced Member >PLATINUM PLUS<
No, ho anche cercato in altri siti, in un sito ci sono le immagini che spiegano il metodo, ma si vedono malissimo, non si capisce niente
 

kubes

Senior Member
FABARRI E “I SIMBOLI BINARI”

I 90 numeri del lotto comprendono vari raggruppamenti tipici: decine, cadenze, figure ed altri. Ai fini della nostra classificazione interessano però soltanto e precisamente le figure e le cadenze. Come tutti sanno, le figure sono 9, mentre le cadenze o finali sono 10. Ogni numero appartiene ad una figura e ad una cadenza: ad esempio il N° 23 fa parte della figura 5 e della cadenza 3.

Ora, se noi vogliamo esprime ciascun numero in funzione del suo valore figurale e del suo valore cadenzale, dobbiamo necessariamente rappresentarlo con due cifre. Così diciamo che gli indici di figura e di cadenza di ogni numero ha un simbolo binario (il proprio simbolo binario) e tutti questi simboli formano una serie che ha come primo termine il valore 10 (Figura 1 e cadenza 0) e come ultimo termine il valore 99 (Figura 9 cadenza 9). Si tratta dunque di una serie di 90 numeri che si differenzia da quella naturale per alcuni aspetti.
Pubblicità

Con il presente articolo noi ci siamo proposti di additare ai lettori una particolare tecnica che si può adottare esprimendo i 90 numeri secondo la rispettiva struttura figurale e cadenzale e quindi attraverso i propri simboli binari di cui abbiamo detto. Dal punto di vista pratico, tale tecnica vene utilizzata per elaborare, per qualsiasi coppia o ambo, una previsione che si articola in due distinte forme. La prima forma riguarda 2 ambate valide per la ruota da cui si trae la coppia base; la seconda forma riguarda 2 ambi secchi validi per tutte le ruote.

Ed ecco ora la descrizione del procedimento.

Dall’estrazione del 13 Aprile 1968 prendiamo la coppia seguente:

FIRENZE 80.63. Esprimiamo ciascuno dei numeri con i rispettivi simboli binari ed abbiamo:

80 = 80: 63 = 93.

A questo punto teniamo presente che la somma media di due indici di figura è uguale a 10, mentre la somma media per le cadenze è 11 (e per brevità non ci attardiamo a spiegarne le ragioni matematiche). Allora operiamo come segue: prima sulla figure, poi sulle cadenze: 8 per arrivare a 10 occorre 2 e scriviamo 2 sotto l’8; o (che rappresenta 10), per arrivare a 11 = 1 che scriviamo sotto lo 0. Similmente per il secondo numero e disponendo le operazioni in colonna:

80.93

21.18

Ora dobbiamo trasformare questa nuova coppia 21.18 nei numeri corrispondenti. 21 significa figura 2 finale 1, quindi è il N° 11; 18 significa figura 1 e finale 8, quindi = 28. Vediamo dunque che la coppia elaborata si compone dei numeri 11.28, che costituiscono la previsione di ambata.

Per la previsione dei due ambi dobbiamo ancora aggiungere il coefficiente fisso 45 a ciascun numero ed abbiamo: 11+45=56; 28+45=73. Ed ecco quindi i due ambi validi per tutte le ruote: 11.28 – 56.73. La risposta è alternativa: nella maggior parte dei casi si verifica l’uscita di un’ambata nella ruota un termine di 6/7 estrazioni; altre volte invece si vede sortire un ambo per tutte presso a poco nello stesso termine. Si comprende bene che la sortita dell’ambata elimina il gioco degli ambi e viceversa. Nell’esempio riportato si presentava dopo due estrazioni l’ambo 11.28 a Napoli.

Altro esempio: 8 Giugno 1968 – Palermo 26.31

Operazioni 26=86; 31=41 25.70=65.70 ambate; 65.70+45=20.65 ambi 65.70 e 20. 25.

Esito: Palermo 65 ambata dopo 4 estrazioni (dopo 9 settimane si presentava anche l’ambo principale 65.70 a Torino).

Bisogna precisare che non sempre la previsione riesce vincente in breve termine. Questa speciale rappresentazione dei numeri in simboli binari ha uno scopo prevalentemente descrittivo ed informativo circa la struttura numerica, che senza dubbio riveste una notevole importanza per comprendere ed interpretare gli eventi delle estrazioni. Quante volte, perseguendo per esempio la previsione del N° 8, vediamo uscire al suo posto l’88, che è il suo simbolo binario: oppure, aspettando il 33 vediamo la sortita del 3, che è il suo corrispondente numerale?

In atri termini, diciamo che sussiste un legame fra i numeri ed i loro simboli binari, legami o correlazione che non è cosa molto semplice n’è facile descrivere compiutamente. Questo è però un campo di studio, una speciale prospettiva che non deve essere trascurata soprattutto dagli studiosi dell’evoluzione numerica, e noi siamo convinti che l’avanzamento ed il progresso in questa ardua materia d’indagine potrà condurre a ritrovamenti molto interessanti.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Questo lo devo leggere con calma, perchè con una rapida lettura non ci ho capito niente
 

salvo50

Advanced Member >PLATINUM PLUS<
kubes;n2176941 ha scritto:
FABARRI E “I SIMBOLI BINARI”

I 90 numeri del lotto comprendono vari raggruppamenti tipici: decine, cadenze, figure ed altri. Ai fini della nostra classificazione interessano però soltanto e precisamente le figure e le cadenze. Come tutti sanno, le figure sono 9, mentre le cadenze o finali sono 10. Ogni numero appartiene ad una figura e ad una cadenza: ad esempio il N° 23 fa parte della figura 5 e della cadenza 3.

Ora, se noi vogliamo esprime ciascun numero in funzione del suo valore figurale e del suo valore cadenzale, dobbiamo necessariamente rappresentarlo con due cifre. Così diciamo che gli indici di figura e di cadenza di ogni numero ha un simbolo binario (il proprio simbolo binario) e tutti questi simboli formano una serie che ha come primo termine il valore 10 (Figura 1 e cadenza 0) e come ultimo termine il valore 99 (Figura 9 cadenza 9). Si tratta dunque di una serie di 90 numeri che si differenzia da quella naturale per alcuni aspetti.
Pubblicità

Con il presente articolo noi ci siamo proposti di additare ai lettori una particolare tecnica che si può adottare esprimendo i 90 numeri secondo la rispettiva struttura figurale e cadenzale e quindi attraverso i propri simboli binari di cui abbiamo detto. Dal punto di vista pratico, tale tecnica vene utilizzata per elaborare, per qualsiasi coppia o ambo, una previsione che si articola in due distinte forme. La prima forma riguarda 2 ambate valide per la ruota da cui si trae la coppia base; la seconda forma riguarda 2 ambi secchi validi per tutte le ruote.

Ed ecco ora la descrizione del procedimento.

Dall’estrazione del 13 Aprile 1968 prendiamo la coppia seguente:

FIRENZE 80.63. Esprimiamo ciascuno dei numeri con i rispettivi simboli binari ed abbiamo:

80 = 80: 63 = 93.

A questo punto teniamo presente che la somma media di due indici di figura è uguale a 10, mentre la somma media per le cadenze è 11 (e per brevità non ci attardiamo a spiegarne le ragioni matematiche). Allora operiamo come segue: prima sulla figure, poi sulle cadenze: 8 per arrivare a 10 occorre 2 e scriviamo 2 sotto l’8; o (che rappresenta 10), per arrivare a 11 = 1 che scriviamo sotto lo 0. Similmente per il secondo numero e disponendo le operazioni in colonna:

80.93

21.18

Ora dobbiamo trasformare questa nuova coppia 21.18 nei numeri corrispondenti. 21 significa figura 2 finale 1, quindi è il N° 11; 18 significa figura 1 e finale 8, quindi = 28. Vediamo dunque che la coppia elaborata si compone dei numeri 11.28, che costituiscono la previsione di ambata.

Per la previsione dei due ambi dobbiamo ancora aggiungere il coefficiente fisso 45 a ciascun numero ed abbiamo: 11+45=56; 28+45=73. Ed ecco quindi i due ambi validi per tutte le ruote: 11.28 – 56.73. La risposta è alternativa: nella maggior parte dei casi si verifica l’uscita di un’ambata nella ruota un termine di 6/7 estrazioni; altre volte invece si vede sortire un ambo per tutte presso a poco nello stesso termine. Si comprende bene che la sortita dell’ambata elimina il gioco degli ambi e viceversa. Nell’esempio riportato si presentava dopo due estrazioni l’ambo 11.28 a Napoli.

Altro esempio: 8 Giugno 1968 – Palermo 26.31

Operazioni 26=86; 31=41 25.70=65.70 ambate; 65.70+45=20.65 ambi 65.70 e 20. 25.

Esito: Palermo 65 ambata dopo 4 estrazioni (dopo 9 settimane si presentava anche l’ambo principale 65.70 a Torino).

Bisogna precisare che non sempre la previsione riesce vincente in breve termine. Questa speciale rappresentazione dei numeri in simboli binari ha uno scopo prevalentemente descrittivo ed informativo circa la struttura numerica, che senza dubbio riveste una notevole importanza per comprendere ed interpretare gli eventi delle estrazioni. Quante volte, perseguendo per esempio la previsione del N° 8, vediamo uscire al suo posto l’88, che è il suo simbolo binario: oppure, aspettando il 33 vediamo la sortita del 3, che è il suo corrispondente numerale?

In atri termini, diciamo che sussiste un legame fra i numeri ed i loro simboli binari, legami o correlazione che non è cosa molto semplice n’è facile descrivere compiutamente. Questo è però un campo di studio, una speciale prospettiva che non deve essere trascurata soprattutto dagli studiosi dell’evoluzione numerica, e noi siamo convinti che l’avanzamento ed il progresso in questa ardua materia d’indagine potrà condurre a ritrovamenti molto interessanti.

Ciao Kubes, i calcoli non sono semplici, parecchie volte mi sono incasinato, ma alla fine sono riuscito a farli tutti senza errore, ed ho potuto constatare che nel primo esempio i calcoli sono giusti, ma nel secondo esempio sono sbagliati le 2 ambate finali sono 65 e 60 non 65 e 70.

Ho lanciato lo script, e subito mi è saltato agli occhi un particolare, le ambate da giocare non erano altro che il complemento a 91 degli estratti, cioè si sono fatti un mucchio di calcoli astrusi, quando bastava fare il complemento a 91, naturalmente io non penso che il Fabarri abbia fatto il furbo, perche non aveva gli script a disposizione, magari prima che si accorgeva di questo particolare ne doveva fare di calcoli.

Di script ne ho fatto 2, il primo è con tutti i calcoli originali, il secondo invece l'ho fatto con il complemento a 91, quindi dato che ci sono pochi calcoli, è più veloce


primo script calcoli originali

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Clp,Es,Salvo50,Amba,Abb1,Abb2
   Dim R1,P1,P2,P3,A,B,Caso,Casi,E1,E2
   Dim FiA,FiB,CaA,CaB,A1,B1,A2,B2,A3,B3
   Dim CaA2,CaB2,DeA2,DeB2,A4,B4
   Dim CaA3,CaB3,DeA3,DeB3
   Dim Ambo1(2),Ambo2(2),Ru(2),Po1(2),Po2(2)
   Po1(1) = 1
   Po1(2) = 1
   Po2(2) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9630)) '5075 ESEMPIO NELL'ARTICOLO 13-04-1968 RUOTA FIRENZE
   Clp = CInt(InputBox(" Per quanti colpi vuoi fare il controllo?",Salvo50,5))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & "METODO FABARRI ED I SIMBOLI BINARI - SCRIPT SALVO50",1,,4,,3,,1'CALCOLI ORIGINALI
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         'K = 0
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If A > 0 Then
                  FiA = Figura(A) : FiB = Figura(B)
                  CaA = Cadenza(A) : CaB = Cadenza(B)
                  A1 = FiA & CaA : B1 = FiB & CaB
                  DeA2 = 10 - FiA : If DeA2 = 10 Then DeA2 = 0
                  DeB2 = 10 - FiB : If DeB2 = 10 Then DeB2 = 0
                  CaA2 = 11 - CaA : If CaA2 = 11 Then CaA2 = 1
                  If CaA2 = 10 Then CaA2 = 0
                  CaB2 = 11 - CaB : If CaB2 = 11 Then CaB2 = 1
                  If CaB2 = 10 Then CaB2 = 0
                  A2 = DeA2 & CaA2 : B2 = DeB2 & CaB2
                  DeA3 = FuoriX(9 +(DeA2 - CaA2),9)
                  DeB3 = FuoriX(9 +(DeB2 - CaB2),9)
                  A3 = DeA3 & CaA2 : B3 = DeB3 & CaB2
                  A3 = Fuori90(A3) : B3 = Fuori90(B3)
                  A4 = Diametrale(A3) : B4 = Diametrale(B3)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(20) & " COPPIA ESTRATTI   " & Format2(A) & " " & Format2(B),1
                  Scrivi Space(20) & " RISPETTIVI BINARI " & Format2(A1) & " " & Format2(B1),1
                  Scrivi Space(20) & " INDICI DEI BINARI " & Format2(A2) & " " & Format2(B2),1
                  Scrivi Space(20) & " AMBATE PRINCIPALI " & Format2(A3) & " " & Format2(B3),1
                  Scrivi Space(20) & " AMBATE SECONDARIE " & Format2(A4) & " " & Format2(B4),1
                  Ru(1) = R1
                  Ambo1(1) = A3 : Ambo1(2) = B3
                  ImpostaGiocata 1,Ambo1,Ru,Po1,Clp
                  Ambo2(1) = A4 : Ambo2(2) = B4
                  ImpostaGiocata 2,Ambo2,Ru,Po2,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

secondo script calcoli non originali

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,Clp,Es,Salvo50,Amba,Abb1,Abb2
   Dim R1,P1,P2,P3,A,B,A1,B1,A2,B2,Caso,Casi,E1,E2
   Dim Ambo1(2),Ambo2(2),Ru(2),Po1(2),Po2(2)
   Po1(1) = 1
   Po1(2) = 1
   Po2(2) = 1
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9630)) '5075 ESEMPIO NELL'ARTICOLO 13-04-1968 RUOTA FIRENZE
   Clp = CInt(InputBox(" Per quanti colpi vuoi fare il controllo?",Salvo50,5))
   Call ScegliRange(EstrazioneIni,FIn,Ini,EstrazioneFin)
   Scrivi Space(12) & "METODO FABARRI ED I SIMBOLI BINARI - SCRIPT SALVO50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         'K = 0
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = CInt(Estratto(Es,R1,P1))
               B = CInt(Estratto(Es,R1,P2))
               If A > 0 Then
                  A1 = 91 - A : B1 = 91 - B

                  A2 = Diametrale(A1) : B2 = Diametrale(B1)
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                  Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " ",1,0
                  For P3 = 1 To 5
                     E1 = Estratto(Es,R1,P3)
                     If E1 = A Or E1 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E1) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi
                  Scrivi Space(20) & " COPPIA ESTRATTI   " & Format2(A) & " " & Format2(B),1
                  Scrivi Space(20) & " AMBATE PRINCIPALI " & Format2(A1) & " " & Format2(B1),1
                  Scrivi Space(20) & " AMBATE SECONDARIE " & Format2(A2) & " " & Format2(B2),1
                  Ru(1) = R1
                  Ambo1(1) = A1 : Ambo1(2) = B1
                  ImpostaGiocata 1,Ambo1,Ru,Po1,Clp
                  Ambo2(1) = A2 : Ambo2(2) = B2
                  ImpostaGiocata 2,Ambo2,Ru,Po2,Clp
                  Gioca Es
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto