ricerca numero da somma stessa ruota

In questa sezione è possibile postare gli script relativi a metodi e ricerche.

ricerca numero da somma stessa ruota

Messaggioda lottomoney il 15/08/2020, 15:32

Buongiorno e buon ferragosto a tutti. :D
riprendendo il mio argomento:
viewtopic.php?f=10&t=4105
desideravo sapere se sia possibile la ricerca nella stessa ruota del numero somma di un ambo e cioè:
Esempio estrazione del 13/08/2020
Ruota di GENOVA: 2 - 57 - 16 - 9 - 59
dove il 59 in 5a posizione è la somma dei primi due numeri estratti 2 e 57.
Una volta trovata la condizione sommeremo il 2 al 59 = 61 = AMBATA
Gli abbinamenti saranno il +30 e - 30 dell'AMBATA e i tre numeri originari: 2 - 57 - 59
Li metteremo in gioco nella ruota di calcolo e la sua diametrale, in questo caso TORINO anche per la sorte di Ambetto.
Grazie mille a chi vorrà provarci :) :)
lottomoney
lottomoney
 
Messaggi: 174
Iscritto il: 22/08/2014, 13:59

Re: ricerca numero da somma stessa ruota

Messaggioda DjNomade il 17/08/2020, 13:52

Prova cosi
Ciauz


Codice: Seleziona tutto

'http://www.lottopassion.it/forum/viewtopic.php?f=10&t=4121

ColoreTesto 2 :Scrivi String(17,32)&" Metodo ricerca numero da somma a RUOTA  di Lottomoney",1

Scrivi String(17,32)&" List. DjNomade",1

ColoreTesto 0




Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am1(2),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 ricerca numero da somma  di Lottomoney   "


For r1=1 To 10
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)
For p3=1 To 5
n3=Estratto(es,r1,p3)
If n3=Fuori90(n1+n2) And n1<90 And n2<90 Then

rr=r1+5
If r1>5 Then rr=r1-5

n4=Fuori90(n1+n3) 'ambata
n5=Fuori90(n4+30) '
n6=Fuori90(90+n4-30) '




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)& "  =  "&Format2(n3),1



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

am(1)=n4
co=co+1
ImpostaGiocata co,am,ruote,posta,k
am1(1)=n4
am1(2)=n5
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n6
co=co+1
ImpostaGiocata co,am1,ruote,poste,k

am1(1)=n4
am1(2)=n1
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n2
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n3
co=co+1
ImpostaGiocata co,am1,ruote,poste,k



Gioca es

End If
Next

Next

Next
Next
Next

ScriviResoconto
End Sub
DjNomade
 
Messaggi: 689
Iscritto il: 24/03/2013, 22:21

Re: ricerca numero da somma stessa ruota

Messaggioda lottomoney il 17/08/2020, 14:39

Ciao DjNomade,
direi che va bene, ma hai dimenticato la lunghetta con gli abbinamenti?
E anche il calcolo sulla NAZIONALE?

"Gli abbinamenti saranno il +30 e - 30 dell'AMBATA e i tre numeri originari: 2 - 57 - 59"

Sempre molto gentile, grazie mille.
lottomoney
lottomoney
 
Messaggi: 174
Iscritto il: 22/08/2014, 13:59

Re: ricerca numero da somma stessa ruota

Messaggioda DjNomade il 17/08/2020, 19:46

La nazionale non l'ho messa perche poi la diametrale come la trovo?
cosi rimane da sola


Ciauz

Codice: Seleziona tutto
Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am1(2),am(2),am3(3),am4(10)
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 ricerca numero da somma  di Lottomoney   "


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)
For p3=1 To 5
n3=Estratto(es,r1,p3)
If n3=Fuori90(n1+n2) And n1<90 And n2<90 Then

rr=r1+5
If r1>5 Then rr=r1-5
If r1=12 Then rr=12
n4=Fuori90(n1+n3) 'ambata
n5=Fuori90(n4+30) '
n6=Fuori90(90+n4-30) '




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)& "  =  "&Format2(n3),1



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

am(1)=n4
co=co+1
ImpostaGiocata co,am,ruote,posta,k
am1(1)=n4
am1(2)=n5
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n6
co=co+1
ImpostaGiocata co,am1,ruote,poste,k

am1(1)=n4
am1(2)=n1
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n2
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am1(1)=n4
am1(2)=n3
co=co+1
ImpostaGiocata co,am1,ruote,poste,k
am4(1)=n4
am4(2)=n5
am4(3)=n6
am4(4)=n1
am4(5)=n2
am4(6)=n3
co=co+1
ImpostaGiocata co,am4,ruote,poste3,k


Gioca es

End If
Next

Next

Next
Next
Next

ScriviResoconto
End Sub
DjNomade
 
Messaggi: 689
Iscritto il: 24/03/2013, 22:21

Re: ricerca numero da somma stessa ruota

Messaggioda lottomoney il 17/08/2020, 20:41

Ti ringrazio veramente tanto, anche se non proficuo è veramente interessante.
Per la Nazionale non importa, va bene così, anche se come conteggio Napoli dovrebbe essere la più indicata.
Grazie, grazie, grazie ;) ;)
lottomoney
lottomoney
 
Messaggi: 174
Iscritto il: 22/08/2014, 13:59


Torna a Script


Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite