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
    martedì 21 gennaio 2025
    Bari
    78
    09
    70
    03
    23
    Cagliari
    32
    88
    30
    13
    45
    Firenze
    87
    23
    15
    39
    86
    Genova
    71
    48
    67
    59
    23
    Milano
    58
    50
    80
    85
    29
    Napoli
    90
    81
    79
    82
    62
    Palermo
    70
    33
    90
    05
    10
    Roma
    15
    71
    55
    85
    76
    Torino
    89
    09
    18
    33
    69
    Venezia
    44
    80
    82
    73
    58
    Nazionale
    80
    25
    13
    63
    17
    Estrazione Simbolotto
    Bari
    39
    36
    34
    14
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto