script lotto

antonioquagliozzi · 21 Dicembre 2023

sript metodo lotto geronimo grazie

Codicebinario · 21 Dicembre 2023

antonioquagliozzi ha scritto:
sript metodo lotto geronimo grazie

ma chiedilo a lui no? ECHINENALTRO......19....19....19....19....

claudio8 · 21 Dicembre 2023

antonioquagliozzi ha scritto:
sript metodo lotto geronimo grazie

Sevizio in camera o scende in hall

*blacklotto* · 21 Dicembre 2023

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 · 21 Dicembre 2023

Codicebinario ha scritto:
ma chiedilo a lui no? ECHINENALTRO......19....19....19....19....

codicebinario ma te pare che a pochi mesi dai 70 anni posso mettermi a farvi uno script

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

claudio8 · 21 Dicembre 2023

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

antonioquagliozzi · 22 Dicembre 2023

lo script non va' bene,grazie lo stosso

*blacklotto* · 22 Dicembre 2023

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 · 22 Dicembre 2023

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 · 22 Dicembre 2023

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

antonioquagliozzi · 22 Dicembre 2023

ottimo script grazie e buone feste

rudivall · 22 Dicembre 2023

Grazie caro Salvo, sempre pronto ad aiutare il prossimo, sei veramente una bella persona, buone festività...

Codicebinario · 22 Dicembre 2023

rudivall ha scritto:
Grazie caro Salvo, sempre pronto ad aiutare il prossimo, sei veramente una bella persona, buone festività...

Mi associo al pensiero di rudivall...BUON ss NATALE Salvo, che sia di serenità e prospero felicita'.Grazie Salvo.

geronimo · 22 Dicembre 2023

Grazie Salvo a nome di tutti, con l'augurio di buone vincite per tutti

salvo50 · 22 Dicembre 2023

Grazie a Tutti

Serpico 90 · 23 Dicembre 2023

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

Cerca

Cerca

script lotto

antonioquagliozzi

Super Member >GOLD<

Codicebinario

Advanced Member >PLATINUM<

claudio8

Premium Member

blacklotto

Super Member >PLATINUM<

GERONIMO'S METODO INOSSIDABILE ......

geronimo

Premium Member

claudio8

Premium Member

Allegati

antonioquagliozzi

Super Member >GOLD<

blacklotto

Super Member >PLATINUM<

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

antonioquagliozzi

Super Member >GOLD<

rudivall

Advanced Member >PLATINUM<

Codicebinario

Advanced Member >PLATINUM<

geronimo

Premium Member

salvo50

Advanced Member >PLATINUM PLUS<

Serpico 90

Advanced Member >GOLD<

Ultima estrazione Lotto

Ultimi Messaggi

script lotto

Super Member >GOLD<

Advanced Member >PLATINUM<

Premium Member

Super Member >PLATINUM<

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

Premium Member

Premium Member

Allegati

Super Member >GOLD<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >GOLD<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >GOLD<

GERONIMO'S METODO INOSSIDABILE ......