Novità

Estrazione del Lotto

Su LottoCED puoi seguire le estrazioni del lotto in diretta tra

Script su Metodi Cabalistici, Ciclometrici & C.

tiberio1

Member
allora ce l'hai st'email puoi mettere una nuova ci scambiamo metodi ho diversi interessanti senno' ogni volta sul forum a postarli .......
 

salvo50

Advanced Member >PLATINUM PLUS<
allora ce l'hai st'email puoi mettere una nuova ci scambiamo metodi ho diversi interessanti senno' ogni volta sul forum a postarli .......


In questo forum non si possono mettere le mail è proibito, rischio bannamento, ma io non posseggo nessun metodo, ho solo qualche immagine della rivista -LottoPiù- e -Il Lotto Vincere è Facile-.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Ciao Tiberio1, ti ho già detto che li faccio quando ho tempo e voglia, io ho anche la mia vita privata, se hai premura (questo è un consiglio) postalo da un'altra parte e chiedi a Tutti gli scripters (non ti rivolgere solo a uno) di farti lo script, e un'altra cosa quando io ho bisogno di aiuto, lo chiedo io, non devi chiederlo tu per me.
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

ILegend, MarcoElle, Mister1729, Rudivall, Xeroxs

Grazie

Chiedo un favore a Tiberio1, le tue richieste in futuro di non postarle in questo topic, grazie.

IL METODO LIBRA

Codice:
Option Explicit
Sub Main
   Dim Fin,Ini,Es,Clp,Salvo50,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,E1,E2,X
   Dim Media,xMedia,DiamMedia,D1,D2,Sp
   Dim Somma,Ambata,S1,S2,So1,So2,Diag1
   Dim Diag2,DD1,DD2,DiVe1,DiVe2
   Dim Amba(1),Ruo(2),Posta(1)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9865)'6444
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(8) & "IL METODO LIBRA - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Posta(1) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
               xMedia = A + B
               Media = xMedia \ 2
               DiamMedia = Diametrale(Media)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  S1 = ""
                  S2 = ""
                  If C = Media Or C = DiamMedia Or D = Media Or D = DiamMedia Then
                     If C = Media Or C = DiamMedia Then X = C
                     If D = Media Or D = DiamMedia Then X = D
                     D1 = Fuori90(90 + X - A)
                     D2 = Fuori90(90 + B - X)
                     If D1 = D2 Then
                        S1 = Format2(A) & Space(10) & Format2(D1) & Space(10) & Format2(X) & Space(10) & Format2(D2) & Space(10) & Format2(B)
                        Somma = X + B : Ambata = Fuori90((90 + Somma) - A)
                        S2 = Format2(X) & " + " & Format2(B) & " = " & Format2(Somma)
                        S2 = S2 & Space(15) & Format2(Somma) & " - " & Format2(A) & " = " & Format2(Ambata)
                        So1 = Fuori90(Ambata + A) : So2 = Fuori90(X + B)
                        Diag1 = Distanza(Ambata,B) : Diag2 = Distanza(X,A)
                        DD1 = Diag1 * 2 : DD2 = Diag2 * 2
                        DiVe1 = Fuori90((90 + Ambata) - X) : DiVe2 = Fuori90((90 + A) - B)
                        If DiVe1 = DD1 Then DiVe1 = DiVe1 Else DiVe1 = ComplAdX(DiVe1)
                        If DiVe2 = DD2 Then DiVe2 = DiVe2 Else DiVe2 = ComplAdX(DiVe2)
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,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(" 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 = X Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi Space(8) & Format2(A) & " + " & Format2(B) & " = " & Format2(xMedia) & " / 2 = Media ",1,0
                        Scrivi Format2(Media),1,0,,2
                        Scrivi " Diamrtrale di ",1,0
                        Scrivi Format2(DiamMedia),1,,,2
                        Scrivi Space(10) & " LE DUE DISTANZE DEVONO ESSERE UGUALI",1,,,1
                        Scrivi Space(4) & "Primo" & Space(6) & "Prima" & Space(6) & "Diametrale" & Space(2) & "Seconda" & Space(5) & "Secondo",1
                        Scrivi Space(3) & "Estratto" & Space(3) & "Distanza" & Space(5) & "o Media" & Space(4) & "Distanza" & Space(4) & "Estratto",1
                        Scrivi Space(5) & S1,1
                        Scrivi
                        Scrivi Space(8) & S2,1
                        Scrivi
                        Scrivi Space(3) & " Quadrato " & Space(9) & "Somme " & Space(7),1,0
                        Scrivi "Distanze" & Space(6) & "Distanze",1
                        Scrivi Space(2) & "Equidistanze " & Space(3) & " Orizzontali" & Space(5),1,0
                        Scrivi "Diagonali     Verticali",1
                        Scrivi Space(5) & Format2(Ambata) & Sp & Format2(A) & Space(13),1,0
                        Scrivi Format2(So1) & Space(13) & Format2(Diag1) & Space(12) & Format2(DiVe1),1
                        Scrivi Space(5) & Format2(X) & Sp & Format2(B) & Space(13) & Format2(So2),1,0
                        Scrivi Space(13) & Format2(Diag2) & Space(12) & Format2(DiVe2),1
                        Scrivi
                        Amba(1) = Ambata
                        Ruo(1) = R1 : Ruo(2) = R2
                        ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                        Gioca Es
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Con controllo a ritroso

Codice:
Option Explicit
Sub Main
   Dim Fin,Ini,Es,Clp,Salvo50,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,E1,E2,X
   Dim Media,xMedia,DiamMedia,D1,D2,Sp
   Dim Somma,Ambata,S1,S2,So1,So2,Diag1
   Dim Diag2,DD1,DD2,DiVe1,DiVe2,Ind
   Dim Amba(1),Ruo(2),Posta(1)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9800)'6444
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,9)
   Ind = InputBox("Quante estrazioni vuoi andare a ritroso per controllo uscita ambata ?",,9)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(8) & "IL METODO LIBRA (con Controllo a ritroso) - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Posta(1) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
               xMedia = A + B
               Media = xMedia \ 2
               DiamMedia = Diametrale(Media)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  S1 = ""
                  S2 = ""
                  If C = Media Or C = DiamMedia Or D = Media Or D = DiamMedia Then
                     If C = Media Or C = DiamMedia Then X = C
                     If D = Media Or D = DiamMedia Then X = D
                     D1 = Fuori90(90 + X - A)
                     D2 = Fuori90(90 + B - X)
                     If D1 = D2 Then
                        S1 = Format2(A) & Space(10) & Format2(D1) & Space(10) & Format2(X)
                        S1 = S1 & Space(10) & Format2(D2) & Space(10) & Format2(B)
                        Somma = X + B : Ambata = Fuori90((90 + Somma) - A)
                        Amba(1) = Ambata
                        Ruo(1) = R1 : Ruo(2) = R2
                        If SerieFreq(Es - Ind,Es,Amba,Ruo,1) = 0 Then
                           S2 = Format2(X) & " + " & Format2(B) & " = " & Format2(Somma)
                           S2 = S2 & Space(15) & Format2(Somma) & " - " & Format2(A) & " = " & Format2(Ambata)
                           So1 = Fuori90(Ambata + A) : So2 = Fuori90(X + B)
                           Diag1 = Distanza(Ambata,B) : Diag2 = Distanza(X,A)
                           DD1 = Diag1 * 2 : DD2 = Diag2 * 2
                           DiVe1 = Fuori90((90 + Ambata) - X) : DiVe2 = Fuori90((90 + A) - B)
                           If DiVe1 = DD1 Then DiVe1 = DiVe1 Else DiVe1 = ComplAdX(DiVe1)
                           If DiVe2 = DD2 Then DiVe2 = DiVe2 Else DiVe2 = ComplAdX(DiVe2)
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,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(" 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 = X Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(8) & Format2(A) & " + " & Format2(B) & " = " & Format2(xMedia) & " / 2 = Media ",1,0
                           Scrivi Format2(Media),1,0,,2
                           Scrivi " Diamrtrale di ",1,0
                           Scrivi Format2(DiamMedia),1,,,2
                           Scrivi Space(10) & " LE DUE DISTANZE DEVONO ESSERE UGUALI",1,,,1
                           Scrivi Space(4) & "Primo" & Space(6) & "Prima" & Space(6) & "Diametrale" & Space(2) & "Seconda" & Space(5) & "Secondo",1
                           Scrivi Space(3) & "Estratto" & Space(3) & "Distanza" & Space(5) & "o Media" & Space(4) & "Distanza" & Space(4) & "Estratto",1
                           Scrivi Space(5) & S1,1
                           Scrivi
                           Scrivi Space(8) & S2,1
                           Scrivi
                           Scrivi Space(3) & " Quadrato " & Space(9) & "Somme " & Space(7),1,0
                           Scrivi "Distanze" & Space(6) & "Distanze",1
                           Scrivi Space(2) & "Equidistanze " & Space(3) & " Orizzontali" & Space(5),1,0
                           Scrivi "Diagonali     Verticali",1
                           Scrivi Space(5) & Format2(Ambata) & Sp & Format2(A) & Space(13),1,0
                           Scrivi Format2(So1) & Space(13) & Format2(Diag1) & Space(12) & Format2(DiVe1),1
                           Scrivi Space(5) & Format2(X) & Sp & Format2(B) & Space(13) & Format2(So2),1,0
                           Scrivi Space(13) & Format2(Diag2) & Space(12) & Format2(DiVe2),1
                           Scrivi
                           ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                           Gioca Es
                        End If
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:

tiberio1

Member
Ciao a Tutti.

Ciao Tiberio1, ti ho già detto che li faccio quando ho tempo e voglia, io ho anche la mia vita privata, se hai premura (questo è un consiglio) postalo da un'altra parte e chiedi a Tutti gli scripters (non ti rivolgere solo a uno) di farti lo script, e un'altra cosa quando io ho bisogno di aiuto, lo chiedo io, non devi chiederlo tu per me.

Ciao a Tutti.

ILegend, MarcoElle, Mister1729, Rudivall, Xeroxs

Grazie

Chiedo un favore a Tiberio1, le tue richieste in futuro di non postarle in questo topic, grazie.

IL METODO LIBRA

Codice:
Option Explicit
Sub Main
   Dim Fin,Ini,Es,Clp,Salvo50,Caso,Casi
   Dim R1,R2,A,B,C,D,P1,P2,P3,P4,E1,E2,X
   Dim Media,xMedia,DiamMedia,D1,D2,Sp
   Dim Somma,Ambata,S1,S2,So1,So2,Diag1
   Dim Diag2,DD1,DD2,DiVe1,DiVe2
   Dim Amba(1),Ruo(2),Posta(1)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9865)'6444
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(8) & "IL METODO LIBRA - SCRIPT SALVO50",1,,4,,3,,1
   Sp = " "
   Posta(1) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If(pari(A) And pari(B)) Or(dispari(A) And dispari(B)) Then
               xMedia = A + B
               Media = xMedia \ 2
               DiamMedia = Diametrale(Media)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  C = Estratto(Es,R2,P1)
                  D = Estratto(Es,R2,P2)
                  S1 = ""
                  S2 = ""
                  If C = Media Or C = DiamMedia Or D = Media Or D = DiamMedia Then
                     If C = Media Or C = DiamMedia Then X = C
                     If D = Media Or D = DiamMedia Then X = D
                     D1 = Fuori90(90 + X - A)
                     D2 = Fuori90(90 + B - X)
                     If D1 = D2 Then
                        S1 = Format2(A) & Space(10) & Format2(D1) & Space(10) & Format2(X) & Space(10) & Format2(D2) & Space(10) & Format2(B)
                        Somma = X + B : Ambata = Fuori90((90 + Somma) - A)
                        S2 = Format2(X) & " + " & Format2(B) & " = " & Format2(Somma)
                        S2 = S2 & Space(15) & Format2(Somma) & " - " & Format2(A) & " = " & Format2(Ambata)
                        So1 = Fuori90(Ambata + A) : So2 = Fuori90(X + B)
                        Diag1 = Distanza(Ambata,B) : Diag2 = Distanza(X,A)
                        DD1 = Diag1 * 2 : DD2 = Diag2 * 2
                        DiVe1 = Fuori90((90 + Ambata) - X) : DiVe2 = Fuori90((90 + A) - B)
                        If DiVe1 = DD1 Then DiVe1 = DiVe1 Else DiVe1 = ComplAdX(DiVe1)
                        If DiVe2 = DD2 Then DiVe2 = DiVe2 Else DiVe2 = ComplAdX(DiVe2)
                        Caso = Caso + 1
                        Casi = Casi + 1
                        Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,2
                        Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,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(" 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 = X Then
                              ColoreTesto 2
                           Else
                              ColoreTesto 0
                           End If
                           Scrivi Format2(E2) & " ",1,0
                           ColoreTesto 0
                        Next
                        Scrivi
                        Scrivi
                        Scrivi Space(8) & Format2(A) & " + " & Format2(B) & " = " & Format2(xMedia) & " / 2 = Media ",1,0
                        Scrivi Format2(Media),1,0,,2
                        Scrivi " Diamrtrale di ",1,0
                        Scrivi Format2(DiamMedia),1,,,2
                        Scrivi Space(10) & " LE DUE DISTANZE DEVONO ESSERE UGUALI",1,,,1
                        Scrivi Space(4) & "Primo" & Space(6) & "Prima" & Space(6) & "Diametrale" & Space(2) & "Seconda" & Space(5) & "Secondo",1
                        Scrivi Space(3) & "Estratto" & Space(3) & "Distanza" & Space(5) & "o Media" & Space(4) & "Distanza" & Space(4) & "Estratto",1
                        Scrivi Space(5) & S1,1
                        Scrivi
                        Scrivi Space(8) & S2,1
                        Scrivi
                        Scrivi Space(3) & " Quadrato " & Space(9) & "Somme " & Space(7),1,0
                        Scrivi "Distanze" & Space(6) & "Distanze",1
                        Scrivi Space(2) & "Equidistanze " & Space(3) & " Orizzontali" & Space(5),1,0
                        Scrivi "Diagonali     Verticali",1
                        Scrivi Space(5) & Format2(Ambata) & Sp & Format2(A) & Space(13),1,0
                        Scrivi Format2(So1) & Space(13) & Format2(Diag1) & Space(12) & Format2(DiVe1),1
                        Scrivi Space(5) & Format2(X) & Sp & Format2(B) & Space(13) & Format2(So2),1,0
                        Scrivi Space(13) & Format2(Diag2) & Space(12) & Format2(DiVe2),1
                        Scrivi
                        Amba(1) = Ambata
                        Ruo(1) = R1 : Ruo(2) = R2
                        ImpostaGiocata 1,Amba,Ruo,Posta,Clp
                        Gioca Es
                     End If
                  End If
               Next
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
Il metodo da me postato era incompleto ecco gli altri pezzi
 

Allegati

  • 1606146615.jpg
    1606146615.jpg
    100,6 KB · Visite: 20
  • 1606906755.jpg
    1606906755.jpg
    92,9 KB · Visite: 20
  • 1607346353.jpg
    1607346353.jpg
    105,3 KB · Visite: 14

salvo50

Advanced Member >PLATINUM PLUS<
Nelle ultime pagine per completare il metodo, ci sono ulteriori esempi, il controllo a ritroso dell'ambata (pronostico), il controllo in avanti della eventuale uscita di almeno 2 dei 3 numeri base, ed i consigli per come giocare.

Per il controllo a ritroso ho messo un altro script, il controllo per default l'ho impostato a 9 colpi, come chiede il metodo, ma dato che ho messo un InputBox si può anche cambiare a piacere.

Per il controllo in avanti di almeno 2 dei numeri base, ed eventualmente interrompere il gioco , non so se si può fare e
NON MI INTERESSA SAPERLO

Saluti
 

tiberio1

Member
Nelle ultime pagine per completare il metodo, ci sono ulteriori esempi, il controllo a ritroso dell'ambata (pronostico), il controllo in avanti della eventuale uscita di almeno 2 dei 3 numeri base, ed i consigli per come giocare.

Per il controllo a ritroso ho messo un altro script, il controllo per default l'ho impostato a 9 colpi, come chiede il metodo, ma dato che ho messo un InputBox si può anche cambiare a piacere.

Per il controllo in avanti di almeno 2 dei numeri base, ed eventualmente interrompere il gioco , non so se si può fare e
NON MI INTERESSA SAPERLO

Saluti
Ok ti ringrazio tanto
 

Marco-elle

Advanced Member
Buona Domenica Salvo50 e tutti....
ho dato una sbirciatina al listato che ho inserito e ho notato che la scorsa estrazione ha dato la Quaterna in decina.Per chi non crede a questa metodologia,
dico che è un metodo come altri visto che la certezza non esiste ma.....4 numeri su 10,non sono mica bruscolini!
quaterna.png
 

Matematico

Advanced Member
Buongiorno a tutti , e un saluto particolare a salvo50 , non sò se questi metodi son ostati realizzati in script....li allego .
 

Allegati

  • FEDE450.jpg
    FEDE450.jpg
    262,1 KB · Visite: 14
  • FEDEDANEVAL.jpg
    FEDEDANEVAL.jpg
    290 KB · Visite: 15
  • NICRUS.jpg
    NICRUS.jpg
    267,8 KB · Visite: 17
  • NICRUS2.jpg
    NICRUS2.jpg
    241,3 KB · Visite: 21
  • img202.jpg
    img202.jpg
    199,3 KB · Visite: 29

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti.

Mister1729, Rudivall, Tiberio1, Xeroxs.
Grazie.

SEQUENZA CICLOMETRICA

Codice:
Option Explicit
Sub Main
   Dim FIn,Ini,A,B,C,Clp,Es1,Salvo50,R1,R2
   Dim P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi,Diam_M3
   Dim SAB,SAC,SBC,DM1M2,DM2M3,FA,FB,FC,Diam_M1,Diam_M2
   Dim Amba(1),Ambo1(2),Ambo2(2),Terno(3)
   Dim Ruo(2),Po1(1),Po2(2),L(4),M(3)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9863))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " La Sequenza Ciclometrica - Angelo Gargiulo - Script Salvo50",1,,4,,3,,1
   Po1(1) = 1
   Po2(2) = 1
   For Es1 = Ini To FIn
      Messaggio Es1
      AvanzamentoElab Ini,FIn,Es1
      Caso = 0
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es1,R1,P1)
               B = Estratto(Es1,R1,P2)
               For R2 = 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 5
                     If P3 = P1 Or P3 = P2 Then
                        C = Estratto(Es1,R2,P3)
                        If A > 0 And C > 0 Then
                           If A <> C And B <> C Then
                              FA = Figura(A) : FB = Figura(B) : FC = Figura(C)
                              If FA = FB And FA = FC Then
                                 M(1) = A : M(2) = B : M(3) = C
                                 Call OrdinaMatrice(M,1)
                                 DM1M2 = Distanza(M(1),M(2)) : DM2M3 = Distanza(M(2),M(3))
                                 If DM1M2 = DM2M3 Then
                                    Diam_M1 = Diametrale(M(1)): Diam_M2 = Diametrale(M(2)) : Diam_M3 = Diametrale(M(3))
                                    '
                                    Amba(1) = Diam_M2
                                    Ambo1(1) = Diam_M2 : Ambo1(2) = M(1)
                                    Ambo2(1) = Diam_M2 : Ambo2(2) = M(3)
                                    Terno(1) = Diam_M2 : Terno(2) = Diam_M1 : Terno(3) = Diam_M3
                                    Caso = Caso + 1
                                    Casi = Casi + 1
                                    Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                    Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                    Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R1) & " ",1,0
                                    For P5 = 1 To 5
                                       E1 = Estratto(Es1,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(Es1) & " del " & DataEstrazione(Es1)),1,0
                                    Scrivi "  " & SiglaRuota(R2) & " ",1,0
                                    For P6 = 1 To 5
                                       E2 = Estratto(Es1,R2,P6)
                                       If E2 = C Then
                                          ColoreTesto 2
                                       Else
                                          ColoreTesto 0
                                       End If
                                       Scrivi Format2(E2) & " ",1,0
                                       ColoreTesto 0
                                    Next
                                    Scrivi
                                    Scrivi
                                    Scrivi Space(19) & " Figura " & FA,1,,,7,4
                                    Scrivi Space(19) & "Distanza " & Format2(DM1M2) & Space(6) & "Distanza " & Format2(DM2M3),1,,,1
                                    Scrivi Space(15) & Format2(M(1)) & String(15,"-") & Format2(M(2)) & String(15,"-"),1,0,,2
                                    Scrivi Format2(M(3)),1,,,2
                                    Scrivi
                                    Scrivi Space(18) & "Diametrale di " & Format2(M(2)) & " = Ambata " & Format2(Diam_M2),1
                                    Scrivi
                                    Ruo(1) = R1
                                    Ruo(2) = R2
                                    ImpostaGiocata 1,Amba,Ruo,Po1,Clp
                                    ImpostaGiocata 2,Ambo1,Ruo,Po2,Clp
                                    ImpostaGiocata 3,Ambo2,Ruo,Po2,Clp
                                    ImpostaGiocata 4,Terno,Ruo,Po2,Clp
                                    Gioca Es1,1
                                 End If
                              End If
                           End If
                        End If
                     End If
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Regola per avere un numero solo per estratto
Regola per Rinvenire Due Numeri Infallibili

Con solo Estrazione del 1842

Codice:
Option Explicit
Sub Main
   Dim A,B,C,D,E,F,G,H,I,Sp
   Dim S1,S2,D1,DD,EE,FF,GG,HH,II
   Sp = " "
   Scrivi Space(5) & " Regola per Rinvenire Due Numeri Infallibili - Felice Davenal ",1,,4,,3,,1
   Scrivi Space(13) & " Procedimento Originale - Script Salvo50" & Space(13),1,,4,,3,,1
   A = 72
   B = 12
   C = 27
   'Calcoli per Quadro 1
   D = Differenza(A,B)
   E = Differenza(A,C)
   S1 = Fuori90(A + B + C)
   S1 = Fuori90(S1 * 3)
   S1 = ComplAdX(S1)
   D1 = Differenza(D,E)
   F = Fuori90(S1 + D1)
   G = Differenza(B,F)
   H = Fuori90((90 + C) - F)
   I = Fuori90((90 + G) - E)
   'Calcoli per Quadro 2
   S2 = Fuori90(E + E)
   FF = S2 - B
   GG = Differenza(B,FF)
   HH = Fuori90((90 + C) - FF)
   II = Differenza(D,HH)
   Scrivi "Estrazione del 22.01.1842  NAPOLI 10 23 58 06",1,0
   Scrivi " 72",1,,,2
   Scrivi "Estrazione del 29.01.1842  NAPOLI",1,0
   Scrivi " 12 ",1,0,,2
   Scrivi "08 33 22",1,0
   Scrivi " 27",1,,,2
   Scrivi Space(5) & "Quadro 1" & Space(15) & "Quadro 2",1,,,1,5
   Scrivi Space(5) & Format2(A),1,0,,2,5
   Scrivi Sp & Format2(D),1,0,,,5
   Scrivi Sp & Format2(B),1,0,,2,5
   Scrivi Space(15) & Format2(A),1,0,,2,5
   Scrivi Sp & Format2(D),1,0,,,5
   Scrivi Sp & Format2(B),1,,,2,5
   Scrivi Space(5) & Format2(E) & Sp & Format2(I) & Sp & Format2(G),1,0,,,5
   Scrivi Space(15) & Format2(E) & Sp & Format2(II) & Sp & Format2(GG),1,,,,5
   Scrivi Space(5) & Format2(C),1,0,,2,5
   Scrivi Sp & Format2(H) & Sp,1,0,,,5
   Scrivi Format2(F),1,0,,2,5
   Scrivi Space(15) & Format2(C),1,0,,2,5
   Scrivi Sp & Format2(HH) & Sp,1,0,,,5
   Scrivi Format2(FF),1,,,2,5
   Scrivi
   Scrivi
End Sub

Con archivio Attuale

Codice:
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,R1,Caso,Casi
   Dim A,B,C,D,E,F,G,H,I,P1,E1,S1,S2,D1
   Dim FF,GG,HH,II,Sp
   Dim Posta(2),Ruota(1),Amba(2)
   Sp = " "
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9868)
   Clp = InputBox("Per quanti colpi vuoi giocare?",,10)
   Posta(1) = 1
   Posta(2) = 1
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(5) & " Regola per Avere un Numero Solo per Estratto - Felice Davenal - Script Salvo50",1,,4,,3,,1
   Scrivi Space(5) & " Regola per Rinvenire Due Numeri Infallibili - Felice Davenal - Script Salvo50",1,,4,,3,,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
         A = Estratto(Es - 1,R1,5)
         B = Estratto(Es,R1,1)
         C = Estratto(Es,R1,5)
         'Calcoli per Quadro 1
         D = Differenza(A,B)
         E = Differenza(A,C)
         S1 = Fuori90(A + B + C)
         S1 = Fuori90(S1 * 3)
         S1 = ComplAdX(S1)
         D1 = Differenza(D,E)
         F = Fuori90(S1 + D1)
         G = Differenza(B,F)
         H = Fuori90((90 + C) - F)
         I = Fuori90((90 + G) - E)
         'Calcoli per Quadro 2
         S2 = Fuori90(E + E)
         FF = Fuori90((90 + S2) - B)
         GG = Differenza(B,FF)
         HH = Fuori90((90 + C) - FF)
         II = Differenza(D,HH)
         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 - 1) & " del " & DataEstrazione(Es - 1)),1,0
         Scrivi "  " & SiglaRuota(R1) & " ",1,0
         For P1 = 1 To 5
            E1 = Estratto(Es - 1,R1,P1)
            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(R1) & " ",1,0
         For P1 = 1 To 5
            E1 = Estratto(Es,R1,P1)
            If E1 = B Or E1 = C Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E1) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi
         Scrivi
         Scrivi Space(5) & "Quadro 1" & Space(15) & "Quadro 2",1,,,1,5
         Scrivi Space(5) & Format2(A),1,0,,2,5
         Scrivi Sp & Format2(D),1,0,,,5
         Scrivi Sp & Format2(B),1,0,,2,5
         Scrivi Space(15) & Format2(A),1,0,,2,5
         Scrivi Sp & Format2(D),1,0,,,5
         Scrivi Sp & Format2(B),1,,,2,5
         Scrivi Space(5) & Format2(E) & Sp & Format2(I) & Sp & Format2(G),1,0,,,5
         Scrivi Space(15) & Format2(E) & Sp & Format2(II) & Sp & Format2(GG),1,,,,5
         Scrivi Space(5) & Format2(C),1,0,,2,5
         Scrivi Sp & Format2(H) & Sp,1,0,,,5
         Scrivi Format2(F),1,0,,2,5
         Scrivi Space(15) & Format2(C),1,0,,2,5
         Scrivi Sp & Format2(HH) & Sp,1,0,,,5
         Scrivi Format2(FF),1,,,2,5
         Scrivi
         Ruota(1) = R1
         Amba(1) = F : Amba(2) = FF
         ImpostaGiocata 1,Amba,Ruota,Posta,Clp
         Gioca Es
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub

Riguardo al -Metodo per Scegliere 5 Numeri- di Nicola Russo, non ci ho capito una mazza, se me lo spiegate bene, numero per numero come è ottenuto, proverò a fare lo script
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 marzo 2021
    Bari
    80
    51
    06
    35
    76
    Cagliari
    17
    84
    66
    64
    67
    Firenze
    18
    83
    51
    04
    64
    Genova
    45
    39
    62
    67
    11
    Milano
    15
    51
    70
    21
    48
    Napoli
    73
    10
    04
    54
    03
    Palermo
    59
    41
    83
    21
    22
    Roma
    07
    56
    66
    15
    24
    Torino
    51
    46
    19
    18
    01
    Venezia
    04
    73
    38
    36
    13
    Nazionale
    38
    11
    44
    31
    17
    Estrazione Simbolotto
    Firenze
    26
    19
    31
    03
    41
Alto