METODO AMBO DI SOMMA 42 DI NANDO MANICCIA

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

METODO AMBO DI SOMMA 42 DI NANDO MANICCIA

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

METODO AMBO DI SOMMA 42 DI NANDO MANICCIA ,per le spiegazioni andate QUI

Ciauz

Codice: Seleziona tutto

Scrivi "========================================METODO AMBO DI SOMMA 42 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=8456
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=6 To 6
For r2=9 To 9
If r2<>11 Then
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,r1,p1)
n2=Estratto(es,r1,p2):ds1=Fuori90(n1+n2)
n3=Estratto(es,r2,p3)
n4=Estratto(es,r2,p4):ds2=Fuori90(n3+n4)


If ds1=42  And ds2=42  Then

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

amb=9
abb1=33 
abb2=40
abb3=51
abb4=59


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

End If 
Next
Next
Next
ScriviResoconto

Scrivi "========================================METODO DI SOMMA 42 DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1

End Sub

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

Re: METODO AMBO DI SOMMA 42 DI NANDO MANICCIA

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

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

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 2 ospiti