DISTANZA 10 SU ROMA E TORINO DI NANDO MANICCIA

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

DISTANZA 10 SU ROMA E TORINO DI NANDO MANICCIA

Messaggio da DjNomade » 18/02/2014, 20:28

DISTANZA 10 SU ROMA E TORINO DI NANDO MANICCIA" ,per le spiegazioni andate QUI

Ciauz



Codice: Seleziona tutto

Scrivi "========================================DISTANZA 10 SU ROMA E TORINO 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=8707
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,8,p1)
n2=Estratto(es,8,p2):ds1=Distanza(n1,n2)
n3=Estratto(es,9,p3)
n4=Estratto(es,9,p4):ds2=Distanza(n3,n4)


If ds1=10  And ds2=10  Then

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

amb=51
abb1=26 
abb2=27
abb3=40
abb4=84


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 10 SU ROMA E TORINO DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1

End Sub

Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: DISTANZA 10 SU ROMA E TORINO DI NANDO MANICCIA

Messaggio da luca92 » 18/02/2014, 21:01

Grazie DjNomade!




Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite