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 27 aprile 2024
    Bari
    02
    74
    34
    72
    78
    Cagliari
    60
    62
    43
    58
    38
    Firenze
    88
    70
    85
    38
    50
    Genova
    18
    61
    70
    08
    80
    Milano
    85
    81
    16
    03
    26
    Napoli
    34
    31
    01
    41
    51
    Palermo
    52
    59
    54
    35
    05
    Roma
    34
    83
    23
    67
    61
    Torino
    86
    59
    61
    62
    48
    Venezia
    69
    50
    40
    05
    79
    Nazionale
    31
    30
    85
    45
    67
    Estrazione Simbolotto
    Genova
    37
    02
    21
    34
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto