Novità

Script su Metodi Cabalistici, Ciclometrici & C.

S

Serpico 90

Advanced Member
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:
S

Serpico 90

Advanced Member
Buon pomeriggio..

Salvo scusa spero di incontrarti in linea per chiederti un chiarimento in merito a dei script.
a stasera.
..........
 
Ultima modifica:
S

Serpico 90

Advanced Member
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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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:
adeleadele

adeleadele

Advanced Member >GOLD<
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
 
adeleadele

adeleadele

Advanced Member >GOLD<
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
 
M

mister1729

Banned
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.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
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
    sabato 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto