|
|
|
|
METODO DISTANZA 10 NAPOLI - |
Precedente
:: Successivo |
mariano.manciocchi
Inviato:
Mer 11 Apr, 2018 21:25 |
|
|
METODO DISTANZA 10 NAPOLI
RINTRACCIARE SU QUALSIASI ESTRAZIONE E SOLO SULLA RUOTA DI NAPOLI UN AMBO DISTANZA CICLOMETRICA 10
CIO' CI PERMETTERA' DI RICAVARE DUE AMBI DA METTERE IN GIOCO SULLA RUOTA DI CALCOLO NAPOLI E TUTTE .....
DURATA DI INSEGUIMENTO MASSIMO 14 COLPI DI GIOCO
OPERAZIONI DI CALCOLO
IL TERZO ESTRATTO DI NAPOLI DOVRA' ESSERE COMPLEMENTATO A 91 .
IL NUMERO RICAVATO E IL SUO VERTIBILI SARANNO I DUE ABBINAMENTI
L'ESTRATTO CAPOGIOCO SARA SEMPRE 10 DALLA DISTANZA RILEVATA DEI DUE AMBI .
BUONE VINCITE
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
|
|
|
|
DjNomade
Inviato:
Mer 11 Apr, 2018 23:14 |
|
|
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
Codice: |
'http://www.lottoamicinews.net/forum/viewtopic.php?t=60520
'12-04-2018
Scrivi "======================================== METODO DISTANZA 10 NAPOLI DI MARIANO MANCIOCCHI",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruota(3),ruote(3)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=6 To 6
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If ds1=10 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 10< "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=11:ruota(1)=1: k=14:co=0
nu1(1)=10
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu2(1)=10:nu2(2)=91-Estratto(es,6,3)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=10:nu2(2)=Vert(91-Estratto(es,6,3))
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next':Next':Next:next
ScriviResoconto
Scrivi "======================================== METODO DISTANZA 10 NAPOLI DI MARIANO MANCIOCCHI",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
End Sub
|
Ultima modifica di DjNomade il Gio 12 Apr, 2018 18:15, modificato 2 volte in totale
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 1997
|
|
|
|
|
|
|
mariano.manciocchi
Inviato:
Gio 12 Apr, 2018 00:31 |
|
|
DjNomade ha scritto: |
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
Codice: |
'http://www.lottoamicinews.net/forum/viewtopic.php?t=60520
'12-04-2018
Scrivi "======================================== METODO DISTANZA 10 NAPOLI DI MARIANO MANCIOCCHI",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruota(3),ruote(3)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r1=6 To 6
For p1=1 To 4
For p2=p1+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2):ds1=Distanza(n1,n2)
If ds1=10 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > ambo distanza 10< "&Format2(n1)&"."&Format2 (n2)&" >"
Scrivi String(65,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=11:ruota(1)=1: k=14:co=0
nu1(1)=10
co=co+1
ImpostaGiocata co,nu1,ruota,posta,k
nu2(1)=10:nu2(2)=91-Estratto(es,6,3)
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=5:nu2(2)=Vert(91-Estratto(es,6,3))
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next:Next
Next':Next':Next:next
ScriviResoconto
Scrivi "======================================== METODO DISTANZA 10 NAPOLI DI MARIANO MANCIOCCHI",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
End Sub
|
|
DJ questo e' errato la seconda ambata e' 10 non 5 E STAZIONE se lo correggi grazie
Ultima modifica di mariano.manciocchi il Gio 12 Apr, 2018 01:34, modificato 1 volta in totale
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
|
|
|
|
DjNomade
Inviato:
Gio 12 Apr, 2018 18:16 |
|
|
Vero..... l'ho corretto ricontrolla
Ciauz
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 1997
|
|
|
|
|
|
|
mariano.manciocchi
Inviato:
Ven 13 Apr, 2018 14:36 |
|
|
NON C'E' IL LISTATO HAHAHAH
|
|
Esperto
Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA
|
_________________ MANCIOCCHI MARIANO |
|
|
|
|
|
DjNomade
Inviato:
Ven 13 Apr, 2018 18:23 |
|
|
Si devi riprendere il primo che avevo messo
Ciauz
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 1997
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Non puoi inserire nuovi Argomenti Non puoi rispondere a nessun Argomento Non puoi modificare i tuoi Messaggi Non puoi cancellare i tuoi Messaggi Non puoi votare nei Sondaggi Non puoi allegare files Non puoi downloadare gli allegati
|
Page generation time: 0.1123s (PHP: 100% - SQL: 0%) - SQL queries: 27 - GZIP enabled - Debug on
Jasidogdotcom template v.1.0.4 © jasidog.com
Powered by phpBB
2.0.16 © 2001, 2004 phpBB Group
Traduzione Italiana V-0.16 phpBB.it
|