Novità

Richiesta script

phil79

Junior Member
Buongiorno a tutti.
Vorrei chiedere a qualche programmatore uno script di questo metodo suggeritomi.
  1. Nel quadro estrazionale verificare i numeri pari e dispari nelle posizioni 1-3 , 2-4 , 1-5: quindi se in tali posizioni alternate si verificano due numeri pari o due numeri dispari la prima condizione è stabilita, altrimenti tutto si ferma.
  2. Una volta trovati due numeri pari o dispari altra condizione da verificare è la distanza tra i due numeri che deve essere maggiore di 8 sennò tutto si ferma.
  3. trovati i due numeri pari o dispari e la distanza 8 si procede alla somma dei due numeri col fuori 90 se necessario, tale somma va divisa per 2 e il numero a metà va sommato al primo numero a sinistra della condizione: il risultato di questa somma deve trovarsi nel mezzo in altra ruota......
  4. altra condizione da rispettare è.... "nel quadro estrazionale deve essere presente una sola volta la somma dei due numeri pari o dispari" sennò tutto si ferma.
  5. Rispettate tutte queste condizioni il numero sortito nel mezzo e la somma dei due numeri formano l'ambo principale poi per il terno si sommano entrambi
Estrazione nº 188 del 23/11/2024
Bari 33 80 86 52 25
Cagliari 67 57 59 5 80
Firenze 31 32 58 88 77
Genova 40 39 23 36 81
Milano 28 58 45 25 38
Napoli 20 82 23 44 57
Palermo 76 56 88 62 31
Roma 12 81 59 74 72
Torino 46 53 72 45 23
Venezia 4 12 42 64 20
Nazionale 63 44 78 10 55
In questo quadro Palermo 1° e 3° sono pari;
distanza 12; 12/2=6;
76+6=82 che troviamo nel mezzo a napoli in 2°....quindi a formare una piramide;
76+88=74 tale somma orizzontale è presente una sola volta nel quadro estrazionale; quindi la previsione è 82-74 ambo principale, per terno la somma 82-74-66
Grazie spero di essere stato chiaro.
 
Vorrei chiede

Buongiorno a tutti.
Vorrei chiedere a qualche programmatore uno script di questo metodo suggeritomi.
  1. Nel quadro estrazionale verificare i numeri pari e dispari nelle posizioni 1-3 , 2-4 , 1-5: quindi se in tali posizioni alternate si verificano due numeri pari o due numeri dispari la prima condizione è stabilita, altrimenti tutto si ferma.
  2. Una volta trovati due numeri pari o dispari altra condizione da verificare è la distanza tra i due numeri che deve essere maggiore di 8 sennò tutto si ferma.
  3. trovati i due numeri pari o dispari e la distanza 8 si procede alla somma dei due numeri col fuori 90 se necessario, tale somma va divisa per 2 e il numero a metà va sommato al primo numero a sinistra della condizione: il risultato di questa somma deve trovarsi nel mezzo in altra ruota......
  4. altra condizione da rispettare è.... "nel quadro estrazionale deve essere presente una sola volta la somma dei due numeri pari o dispari" sennò tutto si ferma.
  5. Rispettate tutte queste condizioni il numero sortito nel mezzo e la somma dei due numeri formano l'ambo principale poi per il terno si sommano entrambi
Estrazione nº 188 del 23/11/2024
Bari 33 80 86 52 25
Cagliari 67 57 59 5 80
Firenze 31 32 58 88 77
Genova 40 39 23 36 81
Milano 28 58 45 25 38
Napoli 20 82 23 44 57
Palermo 76 56 88 62 31
Roma 12 81 59 74 72
Torino 46 53 72 45 23
Venezia 4 12 42 64 20
Nazionale 63 44 78 10 55
In questo quadro Palermo 1° e 3° sono pari;
distanza 12; 12/2=6;
76+6=82 che troviamo nel mezzo a napoli in 2°....quindi a formare una piramide;
76+88=74 tale somma orizzontale è presente una sola volta nel quadro estrazionale; quindi la previsione è 82-74 ambo principale, per terno la somma 82-74-66
Grazie spero di essere stato chiaro.
Io non so fare Script.
Guarda il foglio Phil79 nel file che posto se ti va bene:

"Questo sistema analizza le estrazioni del lotto cercando:
  1. Coppie di numeri pari o dispari nelle posizioni:
    • Prima e terza posizione (1-3)
    • Seconda e quarta posizione (2-4)
    • Prima e quinta posizione (1-5)
  2. La distanza tra i numeri trovati deve essere maggiore di 8
  3. Per ogni coppia trovata:
    • Calcola la somma dei due numeri (con fuori 90)
    • Divide la somma per 2
    • Aggiunge il risultato al primo numero dell'estrazione
  4. Verifica vincite nelle 9 estrazioni successive su tutte le ruote cercando almeno 2 numeri tra:
    • Numero Centrale (risultato del punto 3)
    • Somma (dei due numeri trovati)
    • Terno (somma del numero centrale con la somma)"
    • 1733122308020.png
  5. Baciccia
 
Ultima modifica:
Se riesci a controllarlo, mi è venuto cosi
Ciauz



Codice:
'https://forum.lottoced.com/threads/richiesta-script.2220591/
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=1 And p2=5)Then
If ((Pari(n1)=True And  Pari(n2)=True) Or (Pari(n1)=False And  Pari(n2)=False))And Distanza(n1,n2)>8 Then

nn=Fuori90(n1+n2)'76+88 74 
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
nn1=(n1+n2)/2  '76+88  164/2 82
nn2=Fuori90(nn1+nn)'82+74  66

For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (n3=nn1) And Distanza(p3,p1)=Distanza(p3,p2) Then


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1


Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k 

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k 
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Se riesci a controllarlo, mi è venuto cosi
Ciauz



Codice:
'https://forum.lottoced.com/threads/richiesta-script.2220591/
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=1 And p2=5)Then
If ((Pari(n1)=True And  Pari(n2)=True) Or (Pari(n1)=False And  Pari(n2)=False))And Distanza(n1,n2)>8 Then

nn=Fuori90(n1+n2)'76+88 74
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
nn1=(n1+n2)/2  '76+88  164/2 82
nn2=Fuori90(nn1+nn)'82+74  66

For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (n3=nn1) And Distanza(p3,p1)=Distanza(p3,p2) Then


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1


Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Ho verificato... La somma degli ambi trovati
Se riesci a controllarlo, mi è venuto cosi
Ciauz



Codice:
'https://forum.lottoced.com/threads/richiesta-script.2220591/
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
 ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5  by phil79   "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=1 And p2=5)Then
If ((Pari(n1)=True And  Pari(n2)=True) Or (Pari(n1)=False And  Pari(n2)=False))And Distanza(n1,n2)>8 Then

nn=Fuori90(n1+n2)'76+88 74
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
nn1=(n1+n2)/2  '76+88  164/2 82
nn2=Fuori90(nn1+nn)'82+74  66

For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (n3=nn1) And Distanza(p3,p1)=Distanza(p3,p2) Then


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1


Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
Ho verificato... La somma degli ambi trovati deve essere presente una sola volta nell estrazione.... Senno si annulla tutto
 
Tralasciando quel metodo che si può riprendere dopo avrei un'altra richiesta.
Vorrei trovare in determinate posizioni e preferibilmente uniti 1-2 2-3 3-4 4-5 1-5 dei numeri specifici che inserisco io....ed ottenere un listato con estrazione e ruota
Grazie
 
Dovrebbe essere cosi, dimmi qual'è la previsione errata
Ciao, grazie delle risposte. Ti indico quelle non valide

sabato, nov 30 2024 < PA 59.58.66.24.29 58 24
sabato, nov 30 2024 < BA 25.46.41.83.89 41

Sommando la differenza/2 al 58 dovrei trovare il 75 in 3° p nelle altre ruote invece non c'è....( 58-24)/2=17+58=75 quindi la previsione non va bene

martedì, nov 26 2024 < VE 03.54.27.14.71 03 27
martedì, nov 26 2024 < GE 52.15.80.08.53 15

27-3=24/2=12+3=15 che trovo a genova in 2p ma la somma 3+27=30 me la ritrovo altre 2 colte nell'estrazione

Per ora queste 2 non sono valide
 
Ciao, grazie delle risposte. Leggendo il codice ed eseguendo i calcoli sbagli nelle istruzioni.

Poi manca la ricerca della 3ª e 5ª posizione

sabato, nov 30 2024 < PA 59.58.66.24.29 58 24
sabato, nov 30 2024 < BA 25.46.41.83.89 41

Sommando la differenza/2 al 58 dovrei trovare il 75 in 3° p nelle altre ruote invece non c'è....( 58-24)/2=17+58=75 (invece nel codice fai la somma 58+24 e dividi per 2 e il risultato lo vai a cercare.....invece non va bene)..... come da calcolo prima il 75 devo trovare

martedì, nov 26 2024 < VE 03.54.27.14.71 03 27
martedì, nov 26 2024 < GE 52.15.80.08.53 15

27-3=24/2=12+3=15 che trovo a genova in 2p ma la somma 3+27=30 me la ritrovo altre 2 colte nell'estrazione
 
Prova ora

'https://forum.lottoced.com/threads/richiesta-script.2220591/
'http://www.nonsololotto.com/topic.asp?TOPIC_ID=46370
ColoreTesto 2 :Scrivi String(17,32)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 1-5 by phil79",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10),ruotee(2),numeri(1)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",120))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",13))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Numeri Pari o Dispari nelle posizioni 1-3 , 2-4 , 3-5 ,1-5 by phil79 "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
If (p1=1 And p2=3)Or (p1=2 And p2=4)Or (p1=3 And p2=5)Or(p1=1 And p2=5)Then
If ((Pari(n1)=True And Pari(n2)=True) Or (Pari(n1)=False And Pari(n2)=False))And Distanza(n1,n2)>8 Then
nn1=(n1+n2)/2 '76+88 164/2 82 ok
nn=Fuori90(n1+n2)'76+88 74 ok
If Decina(n1)=Decina(n2)Then nn1=Diametrale((n1+n2)/2)
nn2=Fuori90(nn1+nn)
numeri(1)=nn
ruotee(1)=11
ruotee(2)=12
Freq=SerieFreq(es,es,numeri,ruotee,1)
If Freq=1 Then
'


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If (n3=nn1) And Distanza(p3,p1)=Distanza(p3,p2) Then


casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1


Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=nn
am3(2)=nn1

ImpostaGiocata 1,am3,ruote,poste,k

am4(1)=nn
am4(2)=nn1
am4(3)=nn2

ImpostaGiocata 2,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
End If
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Ultima modifica:
Ciao allora avevo capito male il procedimento.
Innanzitutto la ricerca in 3 e 5 posizione che mancava va bene.
Bisogna sommare i due numeri pari o dispari, senza fare il fuori 90, e dividere per 2...il numero che ottengo lo devo trovare nel mezzo nelle altre ruote.... Poi la somma dei due numeri pari dispari col fuori 90 deve essere presente una sola volta nell estrazione. Con queste condizioni va bene.
Se capitano due numeri pari o dispari in decina... del numero che trovo nel mezzo dalla somma diviso 2 devo prendere il suo diametrale e porlo in gioco con la somma.
Pertanto l ultimo listato eliminalo così facciamo pulizia
Grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 03 dicembre 2024
    Bari
    38
    26
    58
    36
    65
    Cagliari
    71
    68
    61
    41
    89
    Firenze
    52
    65
    73
    03
    50
    Genova
    37
    41
    70
    40
    06
    Milano
    62
    28
    70
    06
    39
    Napoli
    25
    50
    49
    60
    52
    Palermo
    06
    55
    68
    11
    86
    Roma
    12
    23
    16
    14
    63
    Torino
    16
    06
    44
    14
    88
    Venezia
    07
    67
    01
    38
    89
    Nazionale
    67
    27
    38
    57
    19
    Estrazione Simbolotto
    Venezia
    42
    15
    08
    05
    32
Indietro
Alto