Novità

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: 42
  • 1606906755.jpg
    1606906755.jpg
    92,9 KB · Visite: 41
  • 1607346353.jpg
    1607346353.jpg
    105,3 KB · Visite: 37

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 >PLATINUM PLUS<
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 >PLATINUM<
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: 36
  • FEDEDANEVAL.jpg
    FEDEDANEVAL.jpg
    290 KB · Visite: 37
  • NICRUS.jpg
    NICRUS.jpg
    267,8 KB · Visite: 37
  • NICRUS2.jpg
    NICRUS2.jpg
    241,3 KB · Visite: 46
  • img202.jpg
    img202.jpg
    199,3 KB · Visite: 61

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
    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