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
 
U PERIPOCCU by Salvo Badessa


Codice:
'https://www.youtube.com/watch?v=jmqouROMyYA&t=846s

   Scrivi " U PERIPOCCU by Salvo Badessa",1
   Scrivi
Sub Main()
Dim ruote(5),n1(2),n2(4),ruota(5),ruota1(5)
Dim posta(2),poste(5)
posta(2) = 1
poste(2) = 1
poste(3) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",90)
k = InputBox("per quanti colpi?","colpi di gioco",13)
ini = EstrazioneFin - ce  '9337'
fin = EstrazioneFin  '10480
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
g = 0
For r1 = 1 To 10
For p1 = 1 To 5 : a = Estratto(es-1,r1,p1) : b = Estratto(es,r1,p1) ':dab = Distanza(a,b)
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p2 = 1 To 5 : c = Estratto(es-1,r2,p2) : d = Estratto(es,r2,p2):' dcd = Distanza(c,d)
If a = b And c = d Then g = g + 1 : nu1 = a : nu2 = b : nu3 = c :nu4 = d :ro1 = r1 : ro2 = r2 :'dst = dab
Next : Next : Next : Next :' Next :' Next
If g = 1 Then
nn1 = Fuori90(nu1*3)
nn2 = Fuori90(nu3*3)
casi = casi + 1
Scrivi String(80,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es-1,1) & " [ " & SiglaRuota(ro1) & " - " & StringaEstratti(es-1,ro1) & _
" ] * [ " & Format2(nu1) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(ro1) & " - " & StringaEstratti(es,ro1) & _
" ] * [ " & Format2(nu2) & " ] ",1
Scrivi
Scrivi DataEstrazione(es-1,1) & " [ " & SiglaRuota(ro2) & " - " & StringaEstratti(es-1,ro2) & _
" ] * [ " & Format2(nu3) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(ro2) & " - " & StringaEstratti(es,ro2) & _
" ] * [ " & Format2(nu4) & " ] ",1

ColoreTesto 0
ruota(1) = ro1
ruota1(1) = ro2

ruote(1) = ro1
ruote(2) = ro2
ruote(3) = 11
ruote(4) = 12
n1(1) = nu1
n1(2) = nn1
ImpostaGiocata 1,n1,ruota,posta,k
n1(1) = nu3
n1(2) = nn2
ImpostaGiocata 2,n1,ruota1,posta,k

n2(1) = nu1
n2(2) = nn1
n2(3) = nu3
n2(4) = nn2
ImpostaGiocata 3,n2,ruote,poste,k

Gioca es  ',1
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End Sub
 
Buongiorno
Vorrei chiedere la compilazione di questo metodo...
Rintracciare nel quadro estrazione un ambo in qualsiasi posizione e ruota la cui somma fuori 90 risulti essere isotopa ad uno dei numeri che formano l ambo. Quindi fare la differenza tra la somma rintracciata e il secondo numero isotopo all ambo, complemento a 90 del secondo numero, differenza tra somma e ambata.
Roma 31 43
Venezia 4 27
Il 31 è somma di 4 e 27 quindi deve essere isotopo....
31-43=12 differenza matematica
Complimento a 90 di 43=47
31-12=19
Giocare sulle due ruote ambo terno
Grazie
 
469802847_8998326463522491_7591819996328234607_n.jpg




Naturalmente è da controllare

'https://scontent.faoi2-2.fna.fbcdn....DeLrPFcjhf4M1QB_5LGluf0PN_XeTLhNA&oe=675E118A
'10-12-2024

ColoreTesto 2 :Scrivi String(17,32)&" Metodo con 3 numeri SOMMA DI CHIUSURA by Antonio Zufolo ",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)
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",20))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo con 3 numeri SOMMA DI CHIUSURA by Antonio Zufolo "


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 Figura(n1)=Figura(n2) 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 Fuori90 (n1+n2)=n3 And n3<>n1 And n3<>n2 And (p3=p1 Or p3=p2)Then




If p3=p1 Then n4=Estratto(es,r2,p2)
If p3=p2 Then n4=Estratto(es,r2,p1)'

n5=Abs(n4-n3)' 43-31 12 ambata
n6=90-n4 '90-43 47 abb
n7=Abs(n3-n5)' 31-12 19 abb

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
If p3=p2 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
If p3=p1 Then 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

am(1)=n5
ImpostaGiocata 1,am,ruote,posta,k

am3(1)=n5
am3(2)=n6

ImpostaGiocata 2,am3,ruote,poste,k
am3(1)=n5
am3(2)=n7

ImpostaGiocata 3,am3,ruote,poste,k
am4(1)=n5
am4(2)=n6
am4(3)=n7
ImpostaGiocata 4,am4,ruota,poste2,k
Gioca es
End If
End If
Next
Next
'End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
Ho trovato questo di Joe

Sub Main()
'Stu_Cin_Test_By Joe
Dim Ru(1)
Ini = EstrazioneFin-15 : Fin = EstrazioneFin

L=InputBox ("Digita i 5 numeri ","NUMERI","80.52.21.85.67")

Scrivi DataEstrazione(Ini) & " Num: " & L,True : Scrivi
NU = Split("0." & L,".")
For Es = Ini To EstrazioneFin
For R = 1 To 12
If R=11 Then R=12
Ru(1) = R
If SerieFreq(ES,Es,NU,Ru,2) > 0 Then
Scrivi DataEstrazione(Es) & " " & SiglaRuota(R) & " ",0,0
For P = 1 To 5
E = Estratto(Es,R,P)
For x = 1 To 5
If CInt(Nu(x)) = E Then ColoreTesto 2 : GR = True
Next
Scrivi Format2(E) & " ",GR,0 : ColoreTesto 0 : GR = False
Next
Scrivi
End If
Next
Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 24 dicembre 2024
    Bari
    26
    50
    16
    58
    61
    Cagliari
    72
    43
    48
    79
    90
    Firenze
    10
    14
    24
    76
    89
    Genova
    17
    86
    39
    15
    48
    Milano
    69
    84
    06
    78
    60
    Napoli
    12
    59
    69
    11
    77
    Palermo
    63
    44
    57
    21
    16
    Roma
    55
    83
    07
    67
    66
    Torino
    31
    59
    43
    76
    06
    Venezia
    02
    84
    10
    50
    88
    Nazionale
    63
    88
    55
    29
    22
    Estrazione Simbolotto
    Venezia
    44
    23
    06
    30
    10
Indietro
Alto