Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Buon di
Ho letto il suggerimento del Post 680......effettivamente e riflettendo ho deciso che non è il caso di addentrarmi in una
ricerca molto difficile per me,quindi LASCIO PERDERE.
Non è il caso di spendere e rischiare neanche UN EURO SU QUESTA METODO
Grazie dell'intervento
Saluti
Serpico
 
Ultima modifica:
Buon pomeriggio..

Salvo scusa spero di incontrarti in linea per chiederti un chiarimento in merito a dei script.
a stasera.
..........
 
Ultima modifica:
Per Salvo 50
Cortesemente ti chiedo se nello script al post 672 potresti aggiungere altre due ruote per il riscontro dell'esito
ed aggiungere al risultato del gioco n.2 i numeri fissi 45---90--- in modo da formare una quartina.
Spero che sia possibile
In attesa di una tua gradita risposta
saluti
Serpico
 
Ciao a Tutti

Ho aggiunto i numeri fissi 45 e 90 dimmi quali ruote vuoi aggiungere

Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,P1,Caso,Salvo50,Somma,Clp1,Clp2,S
   Dim A(5),B(5),C(5),D(5),F(7)
   Dim Ruo(1),Ru(2),Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10292))'8257 esempio nelle spiegazioni
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo?",Salvo50,10))
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         Somma = Fuori90(Somma)
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Fuori90(A(P1) * 13)
            D(P1) = Fuori90((A(P1)* 6) +(B(P1) * 3) +(Somma * 7))
         Next
         If A(1) > 0 Then
            F(1) = D(1) : F(2) = D(2) : F(3) = D(3) : F(4) = D(4) : F(5) = D(5)
            F(6) = 45
            F(7) = 90
            S = " Con l'aggiunta dei numeri fissi " & F(6) & " e " & F(7) & " i numeri In gioco sono "
            Caso = Caso + 1
            Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            '
            Scrivi Space(39) & StringaNumeri(D," ",True),1,,,2
            EliminaRipetuti D
            EliminaRipetuti F
            Scrivi
            Scrivi S,1,0
            Scrivi StringaNumeri(F," ",True),1,,,1
            Scrivi
            Ruo(1) = R1
            Ru(1) = TT_
            Ru(2) = NZ_
            ImpostaGiocata 1,D,Ruo,Posta,Clp1,1
            ImpostaGiocata 2,F,Ru,Poste,Clp2,1
            Gioca Es,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ne metto un altro con le ruote richieste così puoi usarli tutti e due
Codice: 
Option Explicit
Sub Main
   Dim Fin,Es,Ini,R1,P1,Caso,Salvo50,Somma,Clp1,Clp2,S
   Dim A(5),B(5),C(5),D(5),F(7)
   Dim Ruo(1),Ru(5),Posta(1),Poste(2)
   Posta(1) = 1
   Poste(2) = 1
   Fin = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10292))'8257 esempio nelle spiegazioni
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Clp1 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambata?",Salvo50,5))
   Clp2 = CInt(InputBox(" Per quanti colpi vuoi giocare l'ambo?",Salvo50,10))
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      For R1 = 1 To 12
         If R1 = 11 Then R1 = 12
         Somma = SommaEstratti(Es,R1)
         Somma = Fuori90(Somma)
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            B(P1) = Fuori90(A(P1) * 13)
            D(P1) = Fuori90((A(P1)* 6) +(B(P1) * 3) +(Somma * 7))
         Next
         If A(1) > 0 Then
            F(1) = D(1) : F(2) = D(2) : F(3) = D(3) : F(4) = D(4) : F(5) = D(5)
            F(6) = 45
            F(7) = 90
            S = " Con l'aggiunta dei numeri fissi " & F(6) & " e " & F(7) & " i numeri In gioco sono "
            Caso = Caso + 1
            Scrivi String(92,"O") & " Caso " & FormattaStringa(Caso,"0000"),1,,,1
            Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
            '
            Scrivi Space(39) & StringaNumeri(D," ",True),1,,,2
            EliminaRipetuti D
            EliminaRipetuti F
            Scrivi
            Scrivi S,1,0
            Scrivi StringaNumeri(F," ",True),1,,,1
            Scrivi
            Ruo(1) = R1
            Ru(1) = MI_
            Ru(2) = NA_
            Ru(3) = PA_
            Ru(4) = RO_
            Ru(5) = NZ_

            ImpostaGiocata 1,D,Ruo,Posta,Clp1,1
            ImpostaGiocata 2,F,Ru,Poste,Clp2,1
            Gioca Es,1
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
salvo50 ha scritto:
Fatto

Codice: 
 'Progetto - BYRON - by LORD BYRON
'Con modifica proposta da Matematico, eliminare l'EQUAZIONE PERFETTA
'Script   - by Salvo50
Option Explicit
Sub Main
   Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11,D12,D13
   Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Num1,Num2
   Dim S1,S2,S3,S4,S5,S6,S7,S8,S10,S11,S12,Ambata,S
   Num1 = InputBox("Inserisci i primi 5 numeri separati da un punto"," 76.28.65.77.33")
   Num2 = InputBox("Inserisci i secondi 5 numeri separati da un punto"," 41.60.61.59.63")
   Num1 = "0." & Num1
   S7 = Split(Num1,".")
   A1 = CInt(S7(1))
   A2 = CInt(S7(2))
   A3 = CInt(S7(3))
   A4 = CInt(S7(4))
   A5 = CInt(S7(5))
   Num2 = "0." & Num2
   S8 = Split(Num2,".")
   B1 = CInt(S8(1))
   B2 = CInt(S8(2))
   B3 = CInt(S8(3))
   B4 = CInt(S8(4))
   B5 = CInt(S8(5))
   '-----------------------------------------
   S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
   S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
   S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
   S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
   S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
   S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
   D1 = Fuori90(90 +(A1 - A2))
   D2 = Fuori90(90 +(A2 - A3))
   D3 = Fuori90(90 +(A3 - A4))
   D4 = Fuori90(90 +(A4 - A5))
   D5 = Fuori90(90 +(A5 - B1))
   D6 = Fuori90(90 +(B1 - B2))
   '----------------------------
   D7 = Fuori90(90 +(S1 - S2)) : If D7 < 10 Then D7 = D7 + 90
   D8 = Fuori90(90 +(S2 - S3)) : If D8 < 10 Then D8 = D8 + 90
   D9 = Fuori90(90 +(S3 - S4)) : If D9 < 10 Then D9 = D9 + 90
   D10 = Fuori90(90 +(S4 - S5)) : If D10 < 10 Then D10 = D10 + 90
   D11 = Fuori90(90 +(S5 - S6)) : If D11 < 10 Then D11 = D11 + 90
   S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
   Ambata = Fuori90(S10 + B1)
   S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
   S12 = Fuori90(S11 + S10)
   Scrivi Space(20) &(" Primi   5 Numeri inseriti ") & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1
   Scrivi Space(20) &(" Secondi 5 Numeri inseriti ") & Format2(B1) & " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
   Scrivi
   Scrivi
   Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
   Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " -  Distanze " & Format2(D1),1,0
   Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
   Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
   Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
   Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
   Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
   ColoreTesto 1
   Scrivi Format2(S10),1
   ColoreTesto 0
   Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
   Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
   Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
   Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
   ColoreTesto 2
   Scrivi " " & Format2(Ambata),1,0
   ColoreTesto 0
   Scrivi " -  Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
   Scrivi Space(20) & String(20,"-")
   Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
   Scrivi " " & Format2(S5) & " " & Format2(S6) & "    -  Somma delle somme ",1,0
   ColoreTesto 1
   Scrivi Format2(S11),1
   ColoreTesto 0
   Scrivi
   Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " Risultato Equazione ",1
   Scrivi
End Sub
Clicca per espandere...
Buongiorno ho scoperto un fatto su questo metodo l'ambata che equivale alla distanza esce a colpo.
si devono mettere nei numeri due estrazioni consecutive esempio ho scritto bari estrazioni del 2 e quella successiva vi incollo da somme 56 c'è la nostra ambata uscita a colpo se andate indietro fa lo stesso. per ambi unite i numeri somma se vedete c'è terno.
1702387241383.png
 
Allora questa non è uscita calcolo su bari napoli palemo e tutte 10 ambata per ambo 14..74..47..48 49 21 calcolato al 7 /12/2023.Chi vuole ed ha convergenze verifichi.Buon giorno a tutti
 
Ciao Salvo,
ti domandavo se fosse possibile realizzare uno script, ove inserendo a proprio piacimento 12 numeri, si formino le terzine per poterle giocare ed evitare che ne salti alcune, ti ringrazio indipendentemente.
 
Ciao Mister1729

Ti posto uno script di LottoTom75 che fa splendidamente quello che chiedi

Codice: 
Option Explicit
Sub Main
   Dim sFile
   Dim k,y
   Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
   Dim coltot,acol,Classe,i
   'Script by lotto_tom75 x generare semplicemente e integralmente tutte
   'le classi integrali desiderate partendo dal gruppo numerico desiderato. Limite di classe 20
   'Lo script non genera alcun pronostico. Serve solo a generare le formazioni desiderate.
   'Per le classi maggiori di 3 elementi potrebbe impiegare moltissimo tempo e quindi
   'è nettamente sconsigliabile utilizzarlo per gruppi numerici corposi e classi elevate.
   'Per classi di formazione elevate dalla 4ina alla 20ina (limite max di sviluppo
   'integrale insito nel programma) è consigliabile non operare con gruppi numerici superiori ai 22 elementi.
   ReDim anum(0)
   QuantitaNumeriscelti = ScegliNumeri(anum)
   Classe = 3
   coltot = InitSviluppoIntegrale(anum,Classe)
   If coltot > 0 Then
      Do While GetCombSviluppo(acol) = True
         i = i + 1
         Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol))
         Call AvanzamentoElab(1,coltot,i)
         Call Messaggio("Colonna " & i)
         If ScriptInterrotto Then Exit Do
      Loop
   End If
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto