Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

IL QUADRATO DIAMETRALE a cura di LUCIANA GIORGETTI

Anticipazione (Spoiler)

Option Explicit
Sub Main
Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50
Dim A,B,C,D,E1,E2,DAB,DCD
Dim DistAC,DistBD,DistAD,DistBC
Dim Amba(2),Otto(8),Ruo(2),Post1(1),Post2(5)
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9670)'7210 ESTRAZIONE DI ESEMPIO NELL'ARTICOLO
Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare l'ambo e il terno?",,10)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi "IL QUADRATO DIAMETRALE a cura di LUCIANA GIORGETTI - Script Salvo50",1,,4,,3,,1
Post1(1) = 1
Post2(2) = 1
Post2(3) = 1
'Post2(4) = 1
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1) : B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3) : D = Estratto(Es,R2,P4)
If C > 0 Then
DAB = Distanza(A,B) : DCD = Distanza(C,D)
If DAB = DCD And DAB = 45 Then
'A--B
'| |
'C--D
DistAC = Distanza(A,C)
DistBD = Distanza(B,D)
DistAD = Distanza(A,D)
DistBC = Distanza(B,C)
If DistAC = DistBD And DistAD = DistBC Then
Amba(1) = DistAC : Amba(2) = DistAD
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
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 P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = C Or E2 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi Space(37) & " Nei tre gruppi le distanze devono essere uguali",1,,,1 ',3,,1
Scrivi " Estratti con " & Space(22) & " Distanze " & Space(6),1,0
Scrivi " Distanze" & Space(8) & " Distanze",1
Scrivi " Stessa Dist. Or. " & Space(19) & " Orizontali" & Space(7),1,0
Scrivi "Verticali Diagonali",1
Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(30),1,0
Scrivi Format2(DAB) & Space(15) & Format2(DistAC),1,0
Scrivi Space(15) & Format2(DistAD),1
Scrivi Space(8) & Format2(C) & " " & Format2(D) & Space(30),1,0
Scrivi Format2(DCD) & Space(15) & Format2(DistBD),1,0
Scrivi Space(15) & Format2(DistBC),1
Scrivi
Ruo(1) = R1 : Ruo(2) = R2
ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
Otto(1) = DistAC : Otto(2) = DistAD : Otto(3) = 18 : Otto(4) = 27
Otto(5) = 72 : Otto(6) = 45 : Otto(7) = 54 : Otto(8) = 36
EliminaRipetuti Otto
ImpostaGiocata 2,Otto,Ruo,Post2,Clp2
Gioca Es
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub

 

[virtualhuman]

Ogni volta che visito il Forum non posso fare a meno di ammirare il grande lavoro che hai svolto per tutti noi utenti! Grazie e COMPLIMENTI Salvo50 !!

 

[salvo50]

Ciao Virtualhuman, Rudivall, Grazie.

 

[antoR]

Buon Anno a tutti i partecipanti al forum... propongo un metodo, da implementare con uno script, da me ricavato da studi su alcuni libri scritti da monaci tibetani e tradotti. Ho dato come titolo " La prova del 9 ".
Bisogna rintracciare in terza posizione di una qualsiasi ruota la figura 9. Una volta rintracciato la figura, il numero va sommato col fuori 90, ai primi 12 estratti che si trovano a sx del numero rintracciato e ai primi 12 estratti che si trovano a dx, si hanno così un max di 25 numeri, eliminare i numeri uguali. Questa lunghetta va giocata sulla ruota dove si è rintracciato la figura. Dai test fatti a mano la lunghetta dà l'ambo in meno di 5 colpi su ruota. Molto semplice come metodo. Solo per ricerca l'imput per il range di estrazione/ricerca deve essere dato di volta in volta. Ringrazio chi può elaborare questo script.
Esempio: rintracciato su roma il 16/11/2019 la figura 9 con il numero 63 6+3=9 i numeri estratti a dx e sx, cioè le estrazioni sono tutte in orizzontale e non in tabella verticale.
(NA) 14 56 22 6 80 (PA) 42 18 34 52 38 (RO) 73 61 63 21 15 (TO) 74 10 72 60 32 (VE) 27 50 42 38 41
Ogni numero va sommato al 63 col fuori 90 e dà questa lunghetta da giocare a roma
77 29 85 69 53 15 81 7 25 11 46 34 36 84 78 47 73 45 33 5 90 23 14
alla seconda estrazione 21/11/2019 sortiva il terno 7 - 47 -73
Sto cercando di ridurre il numero della lunghetta senza ridurre le probabilità di vincita..

 

[salvo50]

Ciao AntoR, ma questo metodo lo hai già proposto qui

aiuto per uno script vincente

Chiedo aiuto agli esperti di script per formulare uno script credo complicato. Bisogna rintracciare in terza posizione di una qualsiasi ruota il numero 9 o che dia somma 9. Una volta rintracciato il numero, va sommato col fuori 90, ai primi 12 estratti che si trovano a sx, al numero rintracciato...

forum.lottoced.com

e Magia ha già fatto lo script

 

[Serpico 90]

CIAO Salvo ......sono stato fuori sede .....e scusa il mio ritardo TI FACCIO GLI AUGURI PER UN BUON ANNO 2020 E GRAZIE SEMPRE PER IL LAVORO CHE SVOLGI FACENDOCI CONTENTI PER TUTTI GLI SCRIPT CHE COSTRUISCI
UN LODEVOLE LAVORO
GRAZIE

 

[salvo50]

CIAO Salvo ......sono stato fuori sede .....e scusa il mio ritardo TI FACCIO GLI AUGURI PER UN BUON ANNO 2020 E GRAZIE SEMPRE PER IL LAVORO CHE SVOLGI FACENDOCI CONTENTI PER TUTTI GLI SCRIPT CHE COSTRUISCI
UN LODEVOLE LAVORO
GRAZIE

Grazie Serpico e Auguroni anche a Te.

 

[antoR]

Ciao AntoR, ma questo metodo lo hai già proposto qui

aiuto per uno script vincente

Chiedo aiuto agli esperti di script per formulare uno script credo complicato. Bisogna rintracciare in terza posizione di una qualsiasi ruota il numero 9 o che dia somma 9. Una volta rintracciato il numero, va sommato col fuori 90, ai primi 12 estratti che si trovano a sx, al numero rintracciato...

forum.lottoced.com

e Magia ha già fatto lo script

Scusatemi ma non avendo trovato nessuno script l'ho riproposto. Mi date indicazioni? Grazie

 

[salvo50]

Scusatemi ma non avendo trovato nessuno script l'ho riproposto. Mi date indicazioni? Grazie

Ciao AntoR, vai nel topic che hai aperto e nel post di Magia, clicca su Anticipazione Spoiler, ed apparirà lo script.

 

[antoR]

ok… grazie….

 

[salvo50]

IL VERTIBILE MAGICO di M. ARCHIDIACONO

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,R1,Caso,Casi
   Dim A,B,P1,P2,P3,E1,Clp2,Ok,Salvo50
   Dim AmbPr,AmbSe,Abb1,Abb2,Abb3,Abb4,ABb5
   Dim Posta(1),Ruota(1),Poste(2),Ambata(1),Post(5)
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Penta(5)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9613)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,13)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "IL VERTIBILE MAGICO di M. ARCHIDIACONO - Script Salvo50",1,,4,,3,,1
   Posta(1) = 1
   Poste(2) = 1
   Post(2) = 1
   'Post(3) = 1
   'Post(4) = 1
   'Post(5) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            For P2 = 1 To 5
               If P1 <> P2 Then
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R1,P2)
                  Ok = 0
                  If A = 18 And B = 81 Then AmbPr = 9 : Ok = 1
                  If A = 27 And B = 72 Then AmbPr = 9 : Ok = 1
                  If A = 36 And B = 63 Then AmbPr = 9 : Ok = 1
                  If A = 45 And B = 54 Then AmbPr = 9 : Ok = 1
                  If A = 28 And B = 82 Then AmbPr = 20 :Ok = 1
                  If A = 37 And B = 73 Then AmbPr = 20 :Ok = 1
                  If A = 46 And B = 64 Then AmbPr = 20 :Ok = 1
                  If A = 38 And B = 83 Then AmbPr = 31 :Ok = 1
                  If A = 47 And B = 74 Then AmbPr = 31 :Ok = 1
                  If A = 56 And B = 65 Then AmbPr = 31 :Ok = 1
                  If A = 48 And B = 84 Then AmbPr = 42 :Ok = 1
                  If A = 57 And B = 75 Then AmbPr = 42 :Ok = 1
                  If A = 58 And B = 85 Then AmbPr = 53 :Ok = 1
                  If A = 67 And B = 76 Then AmbPr = 53 :Ok = 1
                  If A = 68 And B = 86 Then AmbPr = 64 :Ok = 1
                  If A = 78 And B = 87 Then AmbPr = 75 :Ok = 1
                  If Ok = 1 Then
                     AmbSe = Vert(AmbPr) : Abb1 = A : Abb2 = B : Abb3 = Diametrale(AmbPr)
                     Ambata(1) = AmbPr
                     Ambo1(1) = AmbPr : Ambo1(2) = Abb1
                     Ambo2(1) = AmbPr : Ambo2(2) = Abb2
                     Ambo3(1) = AmbPr : Ambo3(2) = Abb3
                     Ambo4(1) = AmbSe : Ambo4(2) = Abb1
                     Ambo5(1) = AmbSe : Ambo5(2) = Abb2
                     Penta(1) = AmbPr : Penta(2) = AmbSe : Penta(3) = Abb1 : Penta(4) = Abb2 : Penta(5) = Abb3
                     Caso = Caso + 1
                     Casi = Casi + 1
                     ColoreTesto 1
                     Scrivi String(105,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
                     ColoreTesto 2
                     Scrivi String(95,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
                     ColoreTesto 0
                     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 "Ambata Principale    " & Format2(AmbPr),1
                     Scrivi "Ambata Secondaria    " & Format2(AmbSe),1
                     Scrivi "Abbinamenti per Ambo ",1,0
                     Scrivi Format2(Abb1) & " " & Format2(Abb2),1,0,,2
                     Scrivi " " & Format2(Abb3),1
                     Scrivi "Cinquina             " & Format2(AmbPr) & " " & Format2(AmbSe),1,0
                     Scrivi " " & Format2(Abb1) & " " & Format2(Abb2) & " " & Format2(Abb3),1
                     Scrivi
                     Ruota(1) = R1
                     ImpostaGiocata 1,Ambata,Ruota,Posta,Clp,1
                     ImpostaGiocata 2,Ambo1,Ruota,Poste,Clp,2
                     ImpostaGiocata 3,Ambo2,Ruota,Poste,Clp,2
                     ImpostaGiocata 4,Ambo3,Ruota,Poste,Clp,2
                     ImpostaGiocata 5,Ambo4,Ruota,Poste,Clp,2
                     ImpostaGiocata 6,Ambo5,Ruota,Poste,Clp,2
                     EliminaRipetuti Penta
                     ImpostaGiocata 7,Penta,Ruota,Post,Clp
                     Gioca Es,,,1
                  End If
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[antoR]

Ho trovato nei miei cassetti un metodo del 1993 risalante a Studio Scaramagli. Gioco per ambo e terno. Se riesco lo allego sono 5 schermate

 

[antoR]

Ciao Salvo, Se riesci a produrre lo script fai in modo da poter scegliere la ruota per la previsione…. e per quante estrazioni giocare. Il metodo originale usa Bari come ruota e l' ultima estrazione del mese, ma all'epoca erano solo 1 estrazione settimanale. Io direi di scegliere la ruota e l'estrazione da dove incominciare... e per quante estrazioni giocare. E la verifica finale.

 

[salvo50]

Ciao Salvo, Se riesci a produrre lo script fai in modo da poter scegliere la ruota per la previsione…. e per quante estrazioni giocare. Il metodo originale usa Bari come ruota e l' ultima estrazione del mese, ma all'epoca erano solo 1 estrazione settimanale. Io direi di scegliere la ruota e l'estrazione da dove incominciare... e per quante estrazioni giocare. E la verifica finale.

Ciao a Tutti.

La prima parte, in pg1 come scegliere i tre numeri, non è complicato per me, ma continuando con come procedere per gli ambi e i terni, ogni volta che lo rileggo ci capisco sempre di meno, quindi non credo di riuscire a fare lo script per questo metodo.

 

[salvo50]

Ho fatto uno script solo sulla primissima parte di questo metodo, la prima pagina, dove l'unica
condizione oltre ai filtri per ogni numero, è la partenza dall'ultimo estratto e se il numero cercato non si trova, passare al quarto estratto, quindi al terzo ecc. finchè non si arriva al numero consensito dal metodo. I numeri da cercare per stabilire quale terna giocare non sono 90 ma 73
ne mancano 17 di cui 8 sono i gemelli e poi ci sono ancora 9 numeri che non sono riuscito a
capire con quale criterio l'autore li ha tolti, i numeri sono: 2 - 13 - 38 - 47 - 49 - 65 - 82 - 87 - 90,
forse l'autore ha sbagliato qualcosa, oppure è un errore di stampa, non l'ho capito, comunque la
ricerca del numero parte dal quinto estratto se lo script trova uno dei gemelli oppure uno di
questi numeri menzionati sopra salta al quarto estratto ecc.

Nello script ho predisposto 4 inputbox:

Prima domanda, il numero dell'estrazione di partenza

Seconda domanda, i colpi di ricerca del pronostico

Terza domanda, se si vuole fare la ricerca nel pronostico del terno

Quarta domanda, si può scegliere se si può fare pronostico e ricerca per una ruota qualsiasi o
per tutte le ruote contemporaneamente, inserire il numero singolo di una ruota - da 1 a 10 per le ruote, 12 per la Nazionale - 11 per tutte le ruote contemporaneamente, per default è impostato
su 1 Bari come chiede il metodo

Option Explicit
Sub Main
   Dim FIn,Es,Clp,Salvo50,Ruota,U
   Dim Ini,Num,Ok,IniR,FInR,Ter
   Dim R1,Caso,Casi,A,P,P1,P2,E1
   Dim Posta(3),Ruo(1),Num1(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("INSERISCI IL NUMERO DELL'ESTRAZIONE CHE VUOI INIZIARE",Salvo50,9000))
   Clp = CInt(InputBox("PER QUANTI COLPI VUOI GIOCARE?",,13))
   Ter = CInt(InputBox("SE VUOI GIOCARE ANCHE PER IL TERNO METTI 1, ALTRIMENTI METTI UN ALTRO NUMERO",,0))
   Ruota = CInt(InputBox("Vuoi fare la ricerca per Tutte le Ruote - Si = 11 - Per Ruota Singola Indica il Numero - da 1 A 10 Per Nazionale 12 ?",Salvo50,1))
   If Ruota = 11 Then
      IniR = 1
      FInR = 12
   Else
      IniR = Ruota
      FInR = Ruota
   End If
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "PER ANTOR - L'AMBO SECCO SU RUOTA DETERMINATA studio di SCARAMAGLI ",1,,4,,3,,1
   Scrivi "CALCOLI SOLO NELLA TERZINA BASE  - Script (INCOMPLETO) di Salvo50",1,,4,,3,,1

   Posta(1) = 1
   Posta(2) = 1
   If Ter = 1 Then Posta(3) = 1
   For Es = Ini To FIn
      If IsUltimaDelMese(Es) Then
         Messaggio Es
         AvanzamentoElab Ini,FIn,Es
         Caso = 0
         For R1 = IniR To FInR
            If R1 = 11 Then R1 = 12
            For P1 = 5 To 1 Step - 1
               A = Estratto(Es,R1,P1)
               Ok = 0
               If A = 41 Or A = 81 Then Num = 1 : Ok = 1
               If A = 3 Or A = 6 Or A = 9 Or A = 50 Then Num = 2 : Ok = 1
               If A = 10 Or A = 52 Or A = 58 Or A = 83 Then Num = 3 : Ok = 1
               If A = 12 Or A = 15 Or A = 18 Or A = 60 Then Num = 4 : Ok = 1
               If A = 20 Or A = 62 Or A = 68 Or A = 70 Then Num = 5 : Ok = 1
               If A = 25 Or A = 28 Or A = 86 Then Num = 6 : Ok = 1
               If A = 30 Or A = 72 Or A = 75 Or A = 78 Then Num = 7 : Ok = 1
               If A = 32 Or A = 35 Or A = 80 Then Num = 8 : Ok = 1
               If A = 40 Or A = 89 Then Num = 9 : Ok = 1
               If A = 42 Or A = 45 Or A = 48 Then Num = 11 : Ok = 1
               If A = 5 Or A = 8 Then Num = 12 : Ok = 1
               If A = 53 Or A = 56 Or A = 59 Then Num = 13 : Ok = 1
               If A = 16 Or A = 19 Then Num = 14 : Ok = 1
               If A = 63 Or A = 69 Or A = 85 Then Num = 15 : Ok = 1
               If A = 23 Or A = 26 Or A = 29 Then Num = 16 : Ok = 1
               If A = 73 Or A = 76 Or A = 79 Then Num = 17 : Ok = 1
               If A = 36 Or A = 39 Then Num = 18 : Ok = 1
               If A = 43 Or A = 46 Then Num = 21 : Ok = 1
               If A = 1 Or A = 4 Or A = 7 Then Num = 22 : Ok = 1
               If A = 51 Or A = 54 Or A = 57 Then Num = 23 : Ok = 1
               If A = 14 Or A = 17 Then Num = 24 : Ok = 1
               If A = 61 Or A = 64 Or A = 67 Then Num = 25 : Ok = 1
               If A = 21 Or A = 24 Or A = 27 Then Num = 26 : Ok = 1
               If A = 71 Or A = 74 Then Num = 27 : Ok = 1
               If A = 31 Or A = 34 Or A = 37 Then Num = 28 : Ok = 1
               If Ok = 1 Then Exit For
            Next
            If Ok = 1 Then
               Num1(1) = Num
               Num1(2) = Num + 30
               Num1(3) = Num + 60
               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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),0,0
               Scrivi "  " & SiglaRuota(R1) & " ",1,0
               For P = 1 To 5
                  E1 = Estratto(Es,R1,P)
                  If E1 = A Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi
               Scrivi
               Scrivi
               Ruo(1) = R1
               ImpostaGiocata 1,Num1,Ruo,Posta,Clp
               Gioca Es,,,1
            End If
         Next
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[antoR]

Ciao, lo so è complicato anche farlo a mano, pure per me alcuni passaggi non erano e non sono chiari. Ma ho voluto condividerlo con voi con la speranza che non fossi solo io a non capirlo...LO rileggo e ti faccio sapere almeno per formare gli ambi..

 

[salvo50]

Ciao a Tutti.

Mi sono riletto tutto il metodo con moooolta calma e mi sono accorto che per la ricerca della TERZINA BASE come ho proceduto nello script è sbagliato. Se il 5° estratto non è compreso nei
numeri della tabella non bisogna vedere il 4° estratto come ho fatto io, ma bisogna andare a cercare il 5° estratto della penultima estrazione, solo dopo aver testato almeno 5 estrazioni
a ritroso e non si trova un numero valido si procedere a vedere i quarti, i terzi ecc... estratti.

Ma una volta trovato un numero, non è ancora valido bisogna vedere che nessuno dei tre numeri della TERZINA BASE che rappresenta sia uscito nell'estrazione del mese contenente il 5°
estratto e che nelle ultime 12 estrazioni non sia uscito più di uno dei 3 numeri della terzina, solo dopo aver superato questi filtri è un numero valido con la sua TERZINA BASE.

In questo caso prendendo l'estrazione del 17 Gennaio 1987 su Bari gli estratti sono 55-88-80-34-11, andando a ritroso testando i quinti estratti il numero valido 80 e scaturito solo
all'estrazione del 20 Dicembre 1986, 4 estrazioni a ritroso, al numero 80 è assegnata la terzina 8,38,68 questa terzina rispetta tutte le condizioni esposte.

PER LA PREPARAZIONE DEGLI AMBI, nell'estrazione iniziale, non l'estrazione dove si è trovato il numero valido, si guarda quali sono le cadenze e si escludono, si devono prendere le cadenze
che non ci sono nell'estrazione, ne servono solo 5 se sono di più si tolgono le più basse. Nell'esempio riportato le cadenze rimaste sono esattamente 5 quelle che servono,
"2","3","6","7","9", ogni cadenza sappiamo che ha 9 numeri, bisogna ridurli a 4, la spiegazione procede, si inizia con la cadenza "2" a seguire fino alla ultima rimasta che è la "9" l'esempio per capire come procedere lo faccio solo con questa cadenza,che comprende le 3 terne 9-39-69 - 19-49-79 - 29-59-89 le terne sono quelle a distanza 30, si va indietro a ritroso ed il primo numero che si incontra si toglie la terna che lo contiene, per primo si incontra il 59, quindi si toglie la terna 29-59-89 e restano le 2 terne 9-39-69 e 19-49-79 si devono eliminare ancora 2 numeri, si va indietro a ritroso per max 6 estrazione i primi numeri che si incontrano si tolgono, se nelle 6 estrazioni a ritroso non si incontra nessuno di questi 6 numeri, si procede eliminando i numeri più bassi, in questo caso 9 e 19, quindi restano per la cadenza 9, i numeri 39,69,49,79, questo procedimento si deve fare con tutte le 5 cadenze, un'altra regola è che quando si va a ritroso se un numero si trova in 2 estrazioni consecutive, invece di scartarlo si deve tenere perchè a detta dell'autore è molto probabile che esca.
Ottenuti i 20 numeri bisogna accoppiarli a 2 dei numeri della TERZINA BASE si prendono i 2 numeri più alti ed il numero più piccolo si gioca da solo per ambata, la terzina base era
composta da 8,38,68 quindi in numero 8 si gioca come ambata ed i numeri 38 e 68 si devono accoppiare ognuno con i 20 numeri rimasta dall'operazione delle cadenze e si hanno in totale 40
ambi, e questa è la versione integrale.

Per la versione semi integrale si possono accoppiare i 20 numeri solo con uno dei numeri 38 e 68, per scegliere quale si deve prendere, si va indietro a ritroso per max 12 estrazioni e si
scarta il numero che si trova per primo, se nelle ultime 12 estrazione non c'è nessuno dei 2 numeri si scegli il più alto, ma alla decima estrazione a ritroso c'è il 68, quindi bisogna scartare il 68 e prendere il numero 38, colpo di scena sceglie il numero 68, perchè nella ruota di Cagliari la ruota vicino a quella di Bari, sono usciti i numeri 38 e 83 quindi il 38 non è attendibile e si deve scegliere il 68, (questa regola mi sembra proprio tirata per i capelli).


IL TERNO SECCO SU RUOTA DETERMINATA

IMPOSTAZIONE DEL GIOCO

Si deve prendere il metodo dei 20 ambi e lo si riduce a 8 o 12 ambi,(a secondo dei casi), come esempio prendiamo i 20 ambi ottenuti nell'estrazione del 17-Gennaio-1987, cioe:

(68-32) (68-62) (68-52) (68-82) (68-33) (68-63) (68-43) (68-73) (68-46) (68-76) (68-56) (68-86) (68-07) (68-67) (68-47) (68-77) (68-39) (68-69) (68-49) (68-79), gli ambi si riducono in questo modo
(regole sempre valide)

Se il CAPOGIOCO AMBI è PARI, eliminiamo TUTTI I NUMERI PARI usati col capogioco.
Se il CAPOGIOCO AMBI è DISPARI, eliminiamo TUTTI I NUMERI DISPARI usati col capogioco.
Nel nostro caso dato che il capogioco è pari "68" si eliminano tutti i numeri pari cioè le cadenze 2 e 6, con l'eccezione del numero 32 perchè era in 2 ruote consecutive (regola già menzionata) e dei 20 ambi si lasciano solo (68-33) (68-63) (68-43) (68-73) (68-07) (68-67) (68-47) (68-77) (68-39) (68-49) (68-79) e per fare posto a (68-32) per via della frequenza del 32 si elimina (68-69) perchè l'autore dice che è improvabile dato che è consecutivo. TOTALE 12 AMBI

A questo punto bisogna trovare 4 CAPIGIOCO, con questa tecnica, si prendono le cadenze dei numeri dell'estrazione (le cadenze che si erano eliminate) e si scelgono 2 cadenze medio-basse di cui una dispari e una pari, gli estratti su Bari erano 55-88-80 -34-11 quindi cadenze 5-8-0-4-1, le medio-basse sono la "4" e la "5", ora bisogna ridurre a due i nove numeri di queste cadenze,
si procede col solito sistema usato nel gioco degli ambi, quindi andando a ritroso nella ruota di Bari il primo numero della cadenza 5 è 55 quindi si elimina la terna 25-55-85, si procede ed il secondo numero che si incontra a ritroso è il 65 quindi si elimina la terna 5-35-65, ci resta la terna 15-45-75 a questo punto si elimina il più piccolo 15 e restano 45-75 due dei quattro capigioco, stesso procedimento per la cadenza "4" per primo si incontra il 34 che elimina la terna 4-34-64, poi si incontra il 24 si dovrebbe eliminare la terna 24-54-84 ma non si elimina questa perche il 24 è in 2 estrazioni consecutive, quindi si tiene questa terna è si elimina l'altra 14-44-74 della terna rimasta si dobrebbe eliminare il numero più piccolo ma dato che era quello su 2 estrazioni consecutive, si elimina il 54 che è pure uscito a ritroso, quindi i 4 CAPIGIOCO sono 45-75-24-84, quando gli ambi rimasti sono 12 come in questo caso, bisogna ridurre i 4 CAPIGIOCO a 3 e si toglie uno dei capigioco con la cadenza pari o dispari dipende dalla cadenza del capogioco degli ambi che è il "68" pari quindi si deve eliminare uno dei 2 capigioco pari precisamente 24-84, si scarta 84 perchè è presente nelle ultime 8 estrazioni, ed anche perche il numero 24 è salvaguardato dalla legge di frequenza consecutiva, se invece gli ambi rimasti sono 8 i capigioco restano quattro.

Ecco i terni:

(68-45-32) (68-75-32) (68-24-32)

(68-45-33) (68-75-33) (68-24-33)

(68-45-63) (68-75-63) (68-24-63)

(68-45-43) (68-75-43) (68-24-43)

(68-45-73) (68-75-73) (68-24-73)

(68-45-07) (68-75-07) (68-24-07)

(68-45-67) (68-75-67) (68-24-67)

(68-45-47) (68-75-47) (68-24-47)

(68-45-77) (68-75-77) (68-24-77)

(68-45-39) (68-75-39) (68-24-39)

(68-45-49) (68-75-49) (68-24-49)

(68-45-79) (68-75-79) (68-24-79)


Giocare per 8 estrazioni ed interrompere il gioco appena esce anche un solo numeri di quelli pronosticati.


Poi in ultimo CASO RARO lo scrivo così come perche non ho capito cosa vuole dire l'autore.


CASO RARO: Quando il Capogioco - Ambi è il numero medio o quello
piccolo della terzina, agli 8 (o 12) numeri d'accoppiamento, si
aggiungono anche 2-3 numeri dello STESSO SEGNO (pari se la
Terzina è pari e dispari se la terzina è dispari); tali 2-3
numeri servono a meglio bilanciare il gioco e vanno scelti tra
le cadenze ALTE

Comunque a parte questultima regola che non ho capito, il metodo è pieno di regole, regolette, regoline che non ho la più pallida idea di come impostarle in uno script, quindi non sono in grado di fare questo script.

 

[salvo50]

I QUADRATI SOMMA DI POSIZIONE a cura di LUCIANA GIORGETTI

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,E1,E2
   Dim R1,R2,Caso,Casi,P1,P2,P3,P4,A,B
   Dim AP,BP,SomP,ABP,BAP
   Dim Amba(1),Posta(1),Ruo(2)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9750)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "IL QUADRATO SOMMA DI POSIZIONE a cura di LUCIANA GIORGETTI - SCRIPT Salvo50",1,,4,,3,,1
   Posta(1) = 1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 5
               For P2 = 1 To 5
                  A = Estratto(Es,R1,P1)
                  B = Estratto(Es,R2,P2)
                  If Distanza(A,B) = 18 Then
                     SomP = P1 + P2
                     AP = Fuori90(A + SomP)
                     BP = Fuori90(B + SomP)
                     ABP = Fuori90(A + BP)
                     BAP = Fuori90(B + AP)
                     If ABP = BAP Then
                        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(" 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 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 P4 = 1 To 5
                           E2 = Estratto(Es,R2,P4)
                           If E2 = B Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi "     Chiave " & SomP & " = Pos " & P1 & " + Pos " & P2,1,,,1
                        Scrivi
                        Scrivi "Estratti" & Space(3) & "Estr. più." & Space(3) & "  Somme ",1
                        Scrivi "Dist. 18" & Space(3) & "  Chiave  " & Space(3) & "Diagonali",1
                        Scrivi Space(3) & Format2(A) & Space(9) & Format2(AP) & Space(11) & Format2(ABP),1
                        Scrivi Space(3) & Format2(B) & Space(9) & Format2(BP) & Space(11) & Format2(BAP),1
                        Scrivi
                        Ruo(1) = R1 : Ruo(2) = R2
                        Amba(1) = ABP
                        ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                        Gioca Es
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[salvo50]

CICLOMETRIA FACILE di GIACOMO SCIONTI

L'autore per questo metodo, dice che le 2 ruote devono essere consecutive o diametrali, poi alla fine dice che se non si trovano le condizioni per questo procedimento si possono cercare le condizioni anche nelle ruote non consecutive o diametrali, quindi ho deciso di fare 2 script, il primo tratta solo ruote consecutive o diametrali, nel secondo tutti gli accoppiamenti delle 2 ruote e quindi ho messo anche la Nazionale.



Solo con ruote consecutive o diametrali

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp1,Es,Cer,Salvo50
   Dim R1,R2,P1,P2,P5,P6,E1,E2,Caso,Casi,Clp2
   Dim SAB,SCD,DAC,DBD,DAB,DCD,S1,XS1,G,X
   Dim S_SABSCD,S_DABDBD,S_DCDDAC,S_DABDCD,S_DACDBD
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Amba(1),Ambo(2),Num(4),Ruo(3),Po1(1),Po2(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9720)) '6472 Esempio nell'articolo
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CICLOMETRIA FACILE - GIACOMO SCIONTI - 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 9
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 10
                  If(R2 = R1 + 1) Or(R2 = R1 + 5) Then
                     C = Estratto(Es,R2,P1)
                     D = Estratto(Es,R2,P2)
                     If A > 0 And C > 0 Then
                        'A---B
                        '|   |
                        'C---D
                        If A <> C And A <> D And B <> C And B <> D Then
                           DAB = Distanza(A,B) : DCD = Distanza(C,D) : SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
                           DAC = Distanza(A,C) : DBD = Distanza(B,D) : S_DABDCD = Fuori90(DAB + DCD) : S_DACDBD = Fuori90(DAC + DBD)
                           If S_DABDCD = S_DACDBD Then
                              If SAB = SCD Then
                                 If DAC = DBD Then
                                    S_SABSCD = Fuori90(SAB + SCD) : S_DABDBD = Fuori90(DAB + DBD)
                                    S_DCDDAC = Fuori90(DCD + DAC) : XS1 =(DAC + DBD)
                                    S1 = Fuori90(XS1 * 2)
                                    If S_SABSCD = DAC Then S_SABSCD = Vert(S_SABSCD)
                                    If S_DABDBD = DAC Then S_DABDBD = Vert(S_DABDBD)
                                    If S_DCDDAC = DAC Then S_DCDDAC = Vert(S_DCDDAC)
                                    If S1 = DAC Then S1 = Vert(S1)
                                    If S_SABSCD = S_DABDBD Or S_SABSCD = S_DCDDAC Or S_SABSCD = S1 Then S_SABSCD = Vert(S_SABSCD)
                                    If S_DABDBD = S_SABSCD Or S_DABDBD = S_DCDDAC Or S_DABDBD = S1 Then S_DABDBD = Vert(S_DABDBD)
                                    If S_DCDDAC = S_SABSCD Or S_DCDDAC = S_DABDBD Or S_DCDDAC = S1 Then S_DCDDAC = Vert(S_DCDDAC)
                                    If S1 = S_SABSCD Or S1 = S_DABDBD Or S1 = S_DCDDAC Then S1 = Vert(S1)
                                    Ambo1(1) = DAC : Ambo1(2) = S_SABSCD
                                    Ambo2(1) = DAC : Ambo2(2) = S_DABDBD
                                    Ambo3(1) = DAC : Ambo3(2) = S_DCDDAC
                                    Ambo4(1) = DAC : Ambo4(2) = S1
                                    Ruo(1) = R1
                                    Ruo(2) = R2
                                    If SerieFreq(Es - 6,Es,Ambo1,Ruo,2) = 0 Then
                                       If SerieFreq(Es - 6,Es,Ambo2,Ruo,2) = 0 Then
                                          If SerieFreq(Es - 6,Es,Ambo3,Ruo,2) = 0 Then
                                             If SerieFreq(Es - 6,Es,Ambo4,Ruo,2) = 0 Then
                                                Num(1) = S_SABSCD : Num(2) = S_DABDBD : Num(3) = S_DCDDAC : Num(4) = S1
                                                EliminaRipetuti Num
                                                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 P5 = 1 To 5
                                                   E1 = Estratto(Es,R1,P5)
                                                   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 P6 = 1 To 5
                                                   E2 = Estratto(Es,R2,P6)
                                                   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 Space(16) & "Tre gruppi Con Somme e Distanze Uguali",1,0,,2
                                                Scrivi Space(23) & " Ambata =        " & Format2(DAC),1,,,1
                                                Scrivi Space(1) & "Estratti " & Space(6) & " Somme " & Space(8) & "Distanze ",1,0
                                                Scrivi Space(3) & " Somme Dist." & Space(5) & " Distanze ",1,0
                                                Scrivi Space(8) & "Abbinamento 1 = " & Format2(S_SABSCD),1,,,1
                                                Scrivi " Isotopi      Orizzontali" & Space(5),1,0
                                                Scrivi "Verticali     Vert. Oriz.     Orizzontali",1,0
                                                Scrivi Space(7) & "Abbinamento 2 = " & Format2(S_DABDBD),1,,,1
                                                Scrivi Space(2) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                                                Scrivi Space(13) & Format2(DAC) & Space(12) & Format2(S_DABDCD) & Space(15) & Format2(DAB),1,0
                                                Scrivi Space(12) & "Abbinamento 3 = " & Format2(S_DCDDAC),1,,,1
                                                Scrivi Space(2) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                                                Scrivi Space(13) & Format2(DBD) & Space(12) & Format2(S_DACDBD) & Space(15) & Format2(DCD),1,0
                                                Scrivi Space(12) & "Abbinamento 4 = " & Format2(S1),1,,,1
                                                Scrivi
                                                Amba(1) = DAC
                                                G = 1
                                                ImpostaGiocata G,Amba,Ruo,Po1,Clp1,1
                                                For X = 1 To UBound(Num)
                                                   If Amba(1) <> Num(X)Then
                                                      Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                                      If Ambo(2) > 0 Then
                                                         G = G + 1
                                                         ImpostaGiocata G,Ambo,Ruo,Po2,Clp2,2
                                                      End If
                                                   End If
                                                Next
                                                Gioca Es,1
                                             End If
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Anche con Ruote non consecutive o diametrali e con la Nazionale

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,D,Clp1,Es,Cer,Salvo50
   Dim R1,R2,P1,P2,P5,P6,E1,E2,Caso,Casi,Clp2
   Dim SAB,SCD,DAC,DBD,DAB,DCD,S1,XS1,G,X
   Dim S_SABSCD,S_DABDBD,S_DCDDAC,S_DABDCD,S_DACDBD
   Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
   Dim Amba(1),Ambo(2),Num(4),Ruo(3),Po1(1),Po2(2)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9720)) '6472 Esempio nell'articolo
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare gli ambi?",Salvo50,10))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & " CICLOMETRIA FACILE - GIACOMO SCIONTI - 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 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  If A > 0 And C > 0 Then
                     'A---B
                     '|   |
                     'C---D
                     If A <> C And A <> D And B <> C And B <> D Then
                        DAB = Distanza(A,B) : DCD = Distanza(C,D) : SAB = Fuori90(A + B) : SCD = Fuori90(C + D)
                        DAC = Distanza(A,C) : DBD = Distanza(B,D) : S_DABDCD = Fuori90(DAB + DCD) : S_DACDBD = Fuori90(DAC + DBD)
                        If S_DABDCD = S_DACDBD Then
                           If SAB = SCD Then
                              If DAC = DBD Then
                                 S_SABSCD = Fuori90(SAB + SCD) : S_DABDBD = Fuori90(DAB + DBD)
                                 S_DCDDAC = Fuori90(DCD + DAC) : XS1 =(DAC + DBD)
                                 S1 = Fuori90(XS1 * 2)
                                 If S_SABSCD = DAC Then S_SABSCD = Vert(S_SABSCD)
                                 If S_DABDBD = DAC Then S_DABDBD = Vert(S_DABDBD)
                                 If S_DCDDAC = DAC Then S_DCDDAC = Vert(S_DCDDAC)
                                 If S1 = DAC Then S1 = Vert(S1)
                                 If S_SABSCD = S_DABDBD Or S_SABSCD = S_DCDDAC Or S_SABSCD = S1 Then S_SABSCD = Vert(S_SABSCD)
                                 If S_DABDBD = S_SABSCD Or S_DABDBD = S_DCDDAC Or S_DABDBD = S1 Then S_DABDBD = Vert(S_DABDBD)
                                 If S_DCDDAC = S_SABSCD Or S_DCDDAC = S_DABDBD Or S_DCDDAC = S1 Then S_DCDDAC = Vert(S_DCDDAC)
                                 If S1 = S_SABSCD Or S1 = S_DABDBD Or S1 = S_DCDDAC Then S1 = Vert(S1)
                                 Ambo1(1) = DAC : Ambo1(2) = S_SABSCD
                                 Ambo2(1) = DAC : Ambo2(2) = S_DABDBD
                                 Ambo3(1) = DAC : Ambo3(2) = S_DCDDAC
                                 Ambo4(1) = DAC : Ambo4(2) = S1
                                 Ruo(1) = R1
                                 Ruo(2) = R2
                                 If SerieFreq(Es - 6,Es,Ambo1,Ruo,2) = 0 Then
                                    If SerieFreq(Es - 6,Es,Ambo2,Ruo,2) = 0 Then
                                       If SerieFreq(Es - 6,Es,Ambo3,Ruo,2) = 0 Then
                                          If SerieFreq(Es - 6,Es,Ambo4,Ruo,2) = 0 Then
                                             Num(1) = S_SABSCD : Num(2) = S_DABDBD : Num(3) = S_DCDDAC : Num(4) = S1
                                             EliminaRipetuti Num
                                             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 P5 = 1 To 5
                                                E1 = Estratto(Es,R1,P5)
                                                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 P6 = 1 To 5
                                                E2 = Estratto(Es,R2,P6)
                                                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 Space(16) & "Tre gruppi Con Somme e Distanze Uguali",1,0,,2
                                             Scrivi Space(23) & " Ambata =        " & Format2(DAC),1,,,1
                                             Scrivi Space(1) & "Estratti " & Space(6) & " Somme " & Space(8) & "Distanze ",1,0
                                             Scrivi Space(3) & " Somme Dist." & Space(5) & " Distanze ",1,0
                                             Scrivi Space(8) & "Abbinamento 1 = " & Format2(S_SABSCD),1,,,1
                                             Scrivi " Isotopi      Orizzontali" & Space(5),1,0
                                             Scrivi "Verticali     Vert. Oriz.     Orizzontali",1,0
                                             Scrivi Space(7) & "Abbinamento 2 = " & Format2(S_DABDBD),1,,,1
                                             Scrivi Space(2) & Format2(A) & " " & Format2(B) & Space(11) & Format2(SAB),1,0
                                             Scrivi Space(13) & Format2(DAC) & Space(12) & Format2(S_DABDCD) & Space(15) & Format2(DAB),1,0
                                             Scrivi Space(12) & "Abbinamento 3 = " & Format2(S_DCDDAC),1,,,1
                                             Scrivi Space(2) & Format2(C) & " " & Format2(D) & Space(11) & Format2(SCD),1,0
                                             Scrivi Space(13) & Format2(DBD) & Space(12) & Format2(S_DACDBD) & Space(15) & Format2(DCD),1,0
                                             Scrivi Space(12) & "Abbinamento 4 = " & Format2(S1),1,,,1
                                             Scrivi
                                             Amba(1) = DAC
                                             G = 1
                                             ImpostaGiocata G,Amba,Ruo,Po1,Clp1,1
                                             For X = 1 To UBound(Num)
                                                If Amba(1) <> Num(X)Then
                                                   Ambo(1) = Amba(1): Ambo(2) = Num(X)
                                                   If Ambo(2) > 0 Then
                                                      G = G + 1
                                                      ImpostaGiocata G,Ambo,Ruo,Po2,Clp2,2
                                                   End If
                                                End If
                                             Next
                                             Gioca Es,1
                                          End If
                                       End If
                                    End If
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

 

[Serpico 90]

Buon giorno Salvo,spero tutto bene,stiamo riprendendo piano piano le consuetudini della vita, anche se mascherati,ma dobbiamo risalire e vincere questo virus......
.dicono che dobbiamo conviverci,
sara dura ma se sarà il modo migliore per vivere pazienza.
Ti chiedo cortesemente se tra tutti i bei lavori che hai costruito con gli script hai fatto lavori del compianto Antonio Longo..........per me grande e studioso lottologo.
Ho trovato tra le mie carte una pagina di un buon mensile dal titolo LOTTO VINCERE E FACILE era un mensile molto seguito ma poi come le cose buone finiscono presto.
il mensile era del mese di GIUGNO 1999 .
Il titolo del procedimento ...Dominato il Lotto........
.Gentilmente puoi verificare se hai gia fatto questo lavoro?
Grazie in attesa ti saluto