Lottoamicinews :: Leggi Argomento - METODO DISTANZA 10 NAPOLI


Nuovo Argomento   Rispondi    Indice del Forum -> METODI
METODO DISTANZA 10 NAPOLI -
  Precedente :: Successivo
mariano.manciocchi MessaggioInviato: 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

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: 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

Esperto



Registrato: 11/05/14 00:02
Messaggi: 1967

ProfiloInvia Messaggio Privato Rispondi Citando
mariano.manciocchi MessaggioInviato: 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

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: Gio 12 Apr, 2018 18:16

Vero..... l'ho corretto ricontrolla

Ciauz
Esperto

Esperto



Registrato: 11/05/14 00:02
Messaggi: 1967

ProfiloInvia Messaggio Privato Rispondi Citando
mariano.manciocchi MessaggioInviato: Ven 13 Apr, 2018 14:36

NON C'E' IL LISTATO HAHAHAH
Esperto

Esperto



Registrato: 11/02/16 02:38
Messaggi: 692
Residenza: ITALIA

_________________
MANCIOCCHI MARIANO
ProfiloInvia Messaggio PrivatoHomePage Rispondi Citando
DjNomade MessaggioInviato: Ven 13 Apr, 2018 18:23

Felice   Si devi riprendere il primo che avevo messo

Ciauz
Esperto

Esperto



Registrato: 11/05/14 00:02
Messaggi: 1967

ProfiloInvia Messaggio Privato Rispondi Citando
Mostra prima i Messaggi di:   
Nuovo Argomento   Rispondi    Indice del Forum -> METODI Tutti i fusi orari sono GMT + 1 ora
Pagina 1 di 1

 
Vai a:  
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.1425s (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
Template by Jasidog Template by Jasidog