In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 15/08/2020, 15:32
Buongiorno e buon ferragosto a tutti. riprendendo il mio argomento: viewtopic.php?f=10&t=4105desideravo 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
da 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
da 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
da DjNomade il 17/08/2020, 19:46
La nazionale non l'ho messa perche poi la diametrale come la trovo? cosi rimane da solaCiauz - 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
da 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
- Tutti gli orari sono UTC + 1 ora
|