Novità

script lotto

*blacklotto*

*blacklotto*

Super Member >PLATINUM<
Vergognatevi, siete irriconoscibili.

GERONIMO'S METODO INOSSIDABILE ......​


I vecchi amici del forum già lo conoscono .... magari quelli più recenti non ne hanno conoscenza ......... fin dal lontano 2008 iniziai a calcolare una previsione sugli ambi ripetuti nella medesima estrazione e di recente leggendo del metodo pari e dispari del grande MANARA sugli ambi ripetuti, ho fatto un riscontro sul mio metodo per vedere come funzionava ancora oggi e beh devo dire che sono piacevolmente sorpreso dai risultati che ho riscontrato

Prova vedere questo listato per avere un' idea.

ColoreTesto 1
Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----",1
Scrivi
Scrivi " List. DjNomade "
Scrivi
ColoreTesto 0
Sub Main()
Dim num(10)
Dim nu1(7)
Dim nu2(7)
Dim nu3(8)
Dim nu4(8)
Dim nu5(8)
Dim ruote(10)
Dim ruote2(10)
ruote2(10) = 11
Dim posta(2),poste(2)
posta(1) = 11
poste(2) = 1
Dim post(4)
post(2) = 1.5
post(3) = 0.5
fin = EstrazioneFin
ini = fin - 15
t = 0
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
k = 12
For r = 1 To 10
For p = 1 To 4
For q = p + 1 To 5
n1 = Estratto(es,r,p)
b = Estratto(es,r,q)
For r1 = r + 1 To 12
If r1 = 11 Then r1 = 12
For pp = 1 To 4
For qq = pp + 1 To 5
c = Estratto(es,r1,pp)
d = Estratto(es,r1,qq)
sm1 = Fuori90(n1 + b)
b2 = sm1/2
a2 = Fuori90(45 + b2)'58
a3 = Distanza(a2,n1)'58-24=34
a4 = Distanza(a2,b)'58-2=34'ambata
a5 = Abs(n1 - b)
If((c = n1 And d = b) Or(c = b And d = n1)) And pari(sm1) = True And a3 = a4 Then ' se i numeri sono uguali
t = t + 1
Scrivi String(44,"=") & " caso n° " &(t),1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),3) & " " & Format2(n1) & " " & Format2(b) & " * " & Left(NomeRuota(r1),3) & " " & _
Format2(c) & " " & Format2(d) & " Somma " & Format2(sm1)
Scrivi
ruote(1) = r
ruote(2) = r1
nu1(1) = a4
ImpostaGiocata 1,nu1,ruote,posta,k
nu2(1) = a4
nu2(2) = n1
ImpostaGiocata 2,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = b
ImpostaGiocata 3,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = sm1
ImpostaGiocata 4,nu2,ruote,poste,k
nu2(1) = a4
nu2(2) = a5
ImpostaGiocata 5,nu2,ruote,poste,k
Gioca es,1
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto,0
ColoreTesto 1 :Scrivi "------------ L'ambo ripetuto PARI O DISPARI di Osvaldo Manara -----",1
Scrivi
Scrivi " List. DjNomade "
Scrivi
End Sub
 
geronimo

geronimo

Premium Member
Codicebinario ha scritto:
ma chiedilo a lui no? ECHINENALTRO......19....19....19....19....
Clicca per espandere...
codicebinario ma te pare che a pochi mesi dai 70 anni posso mettermi a farvi uno script :unsure: 🤣 🤣 🤣 🤣 🤣 🤣 🤣 ... sto provando con mia figlia che ha appena iniziato l'università e fa informatica ... è riuscita a fare uno script inserendo i numeri dell'estrazione e funziona , ma non sa come fare a mettere e soprattutto se si può mettere l'archivio delle estrazioni ... potete darmi dritte che gliele giro
 
C

claudio8

Premium Member
L'archivio lotto x Spaziometria si chiama BaseDati.dat
te lo invio con estensione modificata nel senso che ho aggiunto una estensione .txt ( BaseDati.dat.txt) in modo che possa postarlo qui su Lottoced perchè con l'estensione .dat non lo fa caricare.
Dopo averlo scaricato bisogna rinominarlo cancellando la estensione ".txt" metterlo nella cartella "Spaziometria" ( lì, trovi presente lo stesso file non aggiornato che va sostituito).
La cartella Spaziometria è rintracciabile cliccando sui comandi BaseDati e Apri directory dati.
ps: questo mio file è aggiornato al 19/12/2023 ( i modi per aggiornare l'archivio sono presenti nei post correnti in area Download).
Spero di essere stato chiaro.
saluti


Ps: qui trovi un modo di aggiornamento manuale
https://forum.lottoced.com/threads/archivio-spaziometria-dal-2005.2214246/#post-2596339
 

Allegati

  • BaseDati.dat.txt
    677,5 KB · Visite: 5
Ultima modifica:
*blacklotto*

*blacklotto*

Super Member >PLATINUM<
Certo che non va bene il listato,
se leggi Geronimo dice che è in parte uguale alla ricerca del Manara.
Io ti ho mandato il listato tanto per avere un' idea del procedimento.
Geronimo " ci ha messo del suo ", intuizioni proprie, e modifiche varie.
Prendi il listato, e se sei capace prova a mettere tue modifiche, magari ottieni di più.
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Buon Natale e Felice Anno Nuovo

Ecco lo script
salvo errori e dimenticanze

Codice: 
'il 04 11 23 esce l'ambo 13 17 su Bari Torino
'BA To NAZ prev. 04 ambata secca / 30 03 / 75 34
'esiti
'10 11 To ambata 04
'16 11 To ambo 03 34
'18 11 Ba ambo 03 75
'23 11 Nz ambata 04 ( tt ambo secco 03 30 )
'24 11 Ba ambata 04 / ambo secco 04 75 - tt ambo secco 04 34
'mbata data dalla Differenza tra i due N° estratti quindi 17 - 13 = 4
'Primo ambo dato dalla somma e dal vertibile 17 +13 = 30 Vert, 03
'Secondo ambo dato dal Diametrale della somma 30 + 45 = 75 e dalla somma + la Differenza dei 2 N° estratti 30 + 04 = 34
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50,Tutte
   Dim E1,E2,SAB,DAB,Vert_So,Diam_So,Som2
   Dim A1,B1,C1,D1,Estr(2)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ruo(4),Post1(1),Post2(2)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10330)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare sorte maggiore?",,13)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(5)& " Ambo Ripetuto in Due Ruote - Autore Geronimo - Script Salvo50" & Space(5),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C1 = Estratto(Es,R2,P3) :
                        D1 = Estratto(Es,R2,P4)
                        If A1 > 0 And C1 > 0 And(A1 = C1 Or A1 = D1) And(B1 = C1 Or B1 = D1) Then
                           SAB = Fuori90(A1 + B1)
                           DAB = Differenza(A1,B1)' Ambata
                           Vert_So = Vert(SAB)
                           Som2 = Fuori90(SAB + DAB)
                           Estr(1) = A1 : Estr(2) = B1
                           OrdinaMatrice Estr,1
                           Amba(1) = DAB
                           Diam_So = Diametrale(SAB)
                           Ambo1(1) = SAB : Ambo1(2) = Vert_So
                           Ambo2(1) = Diam_So : Ambo2(2) = Som2
                           'A1--B1
                           '|   |
                           'C1--D1
                           Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = NZ_ : Ruo(4) = TT_
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A1 Or E1 = B1 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 P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C1 Or E2 = D1 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(30) & " Pronostico ",1,,,1
                           Scrivi Space(27) & Format2(Estr(2)) & " - " & Format2(Estr(1)) & " = ",1,0
                           Scrivi Format2(DAB),1,0,,2
                           Scrivi " Ambata",1
                           Scrivi Space(30) & " Primo Ambo ",1,,,1
                           Scrivi Space(30) & Format2(A1) & " + " & Format2(B1) & " = ",1,0
                           Scrivi Format2(SAB),1,,,2
                           Scrivi Space(27) & "Vert di " & Format2(SAB) & " = ",1,0
                           Scrivi Format2(Vert_So),1,,,2
                           Scrivi Space(29) & " Secondo Ambo ",1,,,1
                           Scrivi Space(26) & "Diametrale di " & Format2(SAB) & " = ",1,0
                           Scrivi Format2(Diam_So),1,,,2
                           Scrivi Space(25) & " Somma di " & Format2(SAB) & " + " & Format2(DAB) & " = ",1,0
                           Scrivi Format2(Som2),1,,,2
                           Scrivi
                           _
                           ImpostaGiocata 1,Amba,Ruo,Post1,Clp1
                           ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                           ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                           Gioca Es,1
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
salvo50

salvo50

Advanced Member >PLATINUM PLUS<
Mi sono accorto che ho messo anche l'ambata per tutte le ruote, volevo correggerla ma non me lo permette quindi metto un altro script,


Codice: 
'il 04 11 23 esce l'ambo 13 17 su Bari Torino
'BA To NAZ prev. 04 ambata secca / 30 03 / 75 34
'esiti
'10 11 To ambata 04
'16 11 To ambo 03 34
'18 11 Ba ambo 03 75
'23 11 Nz ambata 04 ( tt ambo secco 03 30 )
'24 11 Ba ambata 04 / ambo secco 04 75 - tt ambo secco 04 34
'mbata data dalla Differenza tra i due N° estratti quindi 17 - 13 = 4
'Primo ambo dato dalla somma e dal vertibile 17 +13 = 30 Vert, 03
'Secondo ambo dato dal Diametrale della somma 30 + 45 = 75 e dalla somma + la Differenza dei 2 N° estratti 30 + 04 = 34
Option Explicit
Sub Main
   Dim Fin,Es,Ini,Clp1,Clp2,Caso,Casi
   Dim R1,R2,P1,P2,P3,P4,P5,P6,Salvo50,Tutte
   Dim E1,E2,SAB,DAB,Vert_So,Diam_So,Som2
   Dim A1,B1,C1,D1,Estr(2)
   Dim Amba(1),Ambo1(2),Ambo2(2),Ru(3),Ruo(4),Post1(1),Post2(2)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10330)
   Clp1 = InputBox("Per quanti colpi vuoi giocare l'ambata?",,3)
   Clp2 = InputBox("Per quanti colpi vuoi giocare sorte maggiore?",,13)
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(5)& " Ambo Ripetuto in Due Ruote - Autore Geronimo - Script Salvo50" & Space(5),1,,4,,3,,1
   Post1(1) = 1
   Post2(2) = 1
   For Es = Ini To Fin
      Messaggio Es
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A1 = Estratto(Es,R1,P1)
               B1 = Estratto(Es,R1,P2)
               For R2 = R1 + 1 To 12
                  If R2 = 11 Then R2 = 12
                  For P3 = 1 To 4
                     For P4 = P3 + 1 To 5
                        C1 = Estratto(Es,R2,P3) :
                        D1 = Estratto(Es,R2,P4)
                        If A1 > 0 And C1 > 0 And(A1 = C1 Or A1 = D1) And(B1 = C1 Or B1 = D1) Then
                           SAB = Fuori90(A1 + B1)
                           DAB = Differenza(A1,B1)' Ambata
                           Vert_So = Vert(SAB)
                           Som2 = Fuori90(SAB + DAB)
                           Estr(1) = A1 : Estr(2) = B1
                           OrdinaMatrice Estr,1
                           Amba(1) = DAB
                           Diam_So = Diametrale(SAB)
                           Ambo1(1) = SAB : Ambo1(2) = Vert_So
                           Ambo2(1) = Diam_So : Ambo2(2) = Som2
                           'A1--B1
                           '|   |
                           'C1--D1
                           Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = NZ_ : Ruo(4) = TT_
                           Ru(1) = R1 : Ru(2) = R2 : Ru(3) = NZ_
                           Caso = Caso + 1
                           Casi = Casi + 1
                           Scrivi String(90,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                           Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P5 = 1 To 5
                              E1 = Estratto(Es,R1,P5)
                              If E1 = A1 Or E1 = B1 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 P6 = 1 To 5
                              E2 = Estratto(Es,R2,P6)
                              If E2 = C1 Or E2 = D1 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi Space(30) & " Pronostico ",1,,,1
                           Scrivi Space(27) & Format2(Estr(2)) & " - " & Format2(Estr(1)) & " = ",1,0
                           Scrivi Format2(DAB),1,0,,2
                           Scrivi " Ambata",1
                           Scrivi Space(30) & " Primo Ambo ",1,,,1
                           Scrivi Space(30) & Format2(A1) & " + " & Format2(B1) & " = ",1,0
                           Scrivi Format2(SAB),1,,,2
                           Scrivi Space(27) & "Vert di " & Format2(SAB) & " = ",1,0
                           Scrivi Format2(Vert_So),1,,,2
                           Scrivi Space(29) & " Secondo Ambo ",1,,,1
                           Scrivi Space(26) & "Diametrale di " & Format2(SAB) & " = ",1,0
                           Scrivi Format2(Diam_So),1,,,2
                           Scrivi Space(25) & " Somma di " & Format2(SAB) & " + " & Format2(DAB) & " = ",1,0
                           Scrivi Format2(Som2),1,,,2
                           Scrivi
                           _
                           ImpostaGiocata 1,Amba,Ru,Post1,Clp1
                           ImpostaGiocata 2,Ambo1,Ruo,Post2,Clp2
                           ImpostaGiocata 3,Ambo2,Ruo,Post2,Clp2
                           Gioca Es,1
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
End Sub
 
S

Serpico 90

Advanced Member
Buon Giorno a Tutti,,,e auguri ,
Mi intrometto in questa Discussione
Anche io Salvo ti faccio tanti Auguri di buone e serene Festività .
Grazie sempre per la tua generosità ad aiutare tutti.
Saluti
Serpico
 
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