DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA

Rispondi
Avatar utente
DjNomade
Messaggi: 584
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA

Messaggio da DjNomade » 16/06/2015, 21:25

DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA ,per le spiegazioni andate QUI

Ciauz

Codice: Seleziona tutto

'http://www.pentambo.info/forum/viewtopic.php?f=57&t=5385
'16/06/2015
Scrivi "========================================DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA",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=8854
For es=ini To fin
AvanzamentoElab ini,fin,es


For p1=1 To 4
For p2=p1+1 To 5

For p3=1 To 4
For p4=p3+1 To 5
n1=Estratto(es,1,p1)
n2=Estratto(es,1,p2):ds1=Distanza(n1,n2)
n3=Estratto(es,6,p3)
n4=Estratto(es,6,p4):ds2=Distanza(n3,n4)


If ds1=29  And ds2=29  Then

casi=casi+1:Scrivi String(75,"="),1
 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(1)& " "& StringaEstratti(es,1)&_
" > ambo distanza 29 < "&Format2(n1)&"."&Format2 (n2)&" >",1
 Scrivi DataEstrazione(es,1)&" < "&siglaRuota(6)& " "& StringaEstratti(es,6)&_
" > ambo distanza 29 < "&Format2(n3)&"."&Format2 (n4)&" >",1
Scrivi String(65,"-")&" caso n° "&(casi),1
ruote(1)=1:ruote(2)=6: k=9:co=0

amb=86
abb1=27 
abb2=51
abb3=72
abb4=82


nu1(1)=amb

co=co+1
ImpostaGiocata co,nu1,ruote,posta,k



nu2(1)=amb:nu2(2)=abb1

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k

nu2(1)=amb:nu2(2)=abb2

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k

nu2(1)=amb:nu2(2)=abb3

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=amb:nu2(2)=abb4

co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=amb:nu3(2)=abb1:nu3(3)=abb2:nu3(4)=abb3:nu3(5)=abb4

co=co+1
ImpostaGiocata co,nu3,ruote,pos,k
Gioca es

End If 
Next:Next:Next 
Next
Next
ScriviResoconto

Scrivi "========================================DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1

End Sub

Avatar utente
Tatoo64
Site Admin
Messaggi: 3873
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: DISTANZA 29 SU BARI E NAPOLI DI NANDO MANICCIA

Messaggio da Tatoo64 » 20/06/2015, 23:21

Grazie Djnomade

:appl: :appl: :good:
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite