COMPLIMENTI A TATOO64 AL QUARTO COLPO AMBO SECCO 06-84 MI
COMPLIMENTI A LANCILLOTTO CENTRA AMBO SECCO 12-74 a GE
COMPLIMENTI A DJNOMADE AMBATA 78 E AMBO SECCO 78-02 a BARI

Metodo Distanza 18 by Ombra

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

Metodo Distanza 18 by Ombra

Messaggio da DjNomade »

Le spiegazioni del metodo le trovate http://www.pentambo.info/forum/viewtopi ... 3cc#p31496

Codice: Seleziona tutto


'06-06-2020  http://www.pentambo.info/forum/viewtopic.php?p=31496&sid=031a3b3d430b970d8476fa7edb4b73cc#p31496

ColoreTesto 2 :Scrivi String(17,32)&" Metodo Distanza 18  by Ombra",1


 Scrivi String(45,32)&"by DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)
posta(1)=1
posta(9)=1
posta(10)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",60))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Distanza 18  by Ombra    "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

If Distanza(n1,n2)=18 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If Distanza(n1,n2)=18 And  Fuori90(n1+n2)=n3 And (p3=p1 Or p3=p2)Then

n4=Fuori90(90+n3-18)
n5=Vert(n4)



casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
If p3=p1 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "    "&Format2(n3),1
If p3=p2 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "          "&Format2(n3),1

Scrivi
ruote(1)=r1:ruote(2)=r2:ruote(3)=12
:ruota(1)=r1:ruota(2)=r2:ruota(3)=12


:co=0


am3(1)=n4
am3(2)=n5
ImpostaGiocata 1,am3,ruota,posta,k 
am3(1)=n4
am3(2)=n1
ImpostaGiocata 2,am3,ruote,poste,k 
am3(1)=n4
am3(2)=n2
ImpostaGiocata 3,am3,ruote,poste,k
am3(1)=n4
am3(2)=n3
ImpostaGiocata 4,am3,ruote,poste,k


am3(1)=n5
am3(2)=n1
ImpostaGiocata 5,am3,ruote,poste,k 
am3(1)=n5
am3(2)=n2
ImpostaGiocata 6,am3,ruote,poste,k
am3(1)=n5
am3(2)=n3
ImpostaGiocata 7,am3,ruote,poste,k


am4(1)=n4
am4(2)=n5
am4(3)=n1
am4(4)=n2
am4(5)=n3
ImpostaGiocata 8,am4,ruote,poste2,k


Gioca es
End If
End If

Next
Next
End If
Next
Next
Next
Next

ScriviResoconto
End Sub

Avatar utente
xxombraxx
Messaggi: 933
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: Metodo Distanza 18 by Ombra

Messaggio da xxombraxx »

grazieeeeee :abb: chiedo troppo se si può verificare l 'uscita degli ambetti?le ambate come numeri principali
esempio :
48-24
48-42
48-66
84-24
84-42
84-66
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

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

Re: Metodo Distanza 18 by Ombra

Messaggio da DjNomade »

Controlla questo
Ciauz


Codice: Seleziona tutto


'06-06-2020   http://www.pentambo.info/forum/viewtopic.php?p=31496&sid=031a3b3d430b970d8476fa7edb4b73cc#p31496

ColoreTesto 2 :Scrivi String(17,32)&" Metodo Distanza 18 +ambetti by Ombra",1


 Scrivi String(45,32)&"by DjNomade",1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)
posta(1)=1
posta(9)=1
posta(10)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",60))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",10))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" Metodo Distanza 18  by Ombra    "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

If Distanza(n1,n2)=18 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If Distanza(n1,n2)=18 And  Fuori90(n1+n2)=n3 And (p3=p1 Or p3=p2)Then

n4=Fuori90(90+n3-18)
n5=Vert(n4)






casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
If p3=p1 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "    "&Format2(n3),1
If p3=p2 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "          "&Format2(n3),1

Scrivi
ruote(1)=r1:ruote(2)=r2:ruote(3)=12
:ruota(1)=r1:ruota(2)=r2:ruota(3)=12



:co=0

 

am3(1)=n4
am3(2)=n5
co=co+1
ImpostaGiocata co,am3,ruota,posta,k 
am3(1)=n4
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n4
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k
am3(1)=n4
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k
am3(1)=n5
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n5
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k
am3(1)=n5
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k
am4(1)=n4
am4(2)=n5
am4(3)=n1
am4(4)=n2
am4(5)=n3
co=co+1
ImpostaGiocata co,am4,ruote,poste2,k
am3(1)=n4
am3(2)=Fuori90(90+n1-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n4
am3(2)=Fuori90(n1+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n4-1)
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n4+1)
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 

am3(1)=n4
am3(2)=Fuori90(90+n2-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n4
am3(2)=Fuori90(n2+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n4-1)
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n4+1)
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 

am3(1)=n4
am3(2)=Fuori90(90+n3-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n4
am3(2)=Fuori90(n3+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n4-1)
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n4+1)
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 


am3(1)=n5
am3(2)=Fuori90(90+n1-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n5
am3(2)=Fuori90(n1+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n5-1)
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n5+1)
am3(2)=n1
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 

am3(1)=n5
am3(2)=Fuori90(90+n2-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n5
am3(2)=Fuori90(n2+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n5-1)
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n5+1)
am3(2)=n2
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 

am3(1)=n5
am3(2)=Fuori90(90+n3-1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=n5
am3(2)=Fuori90(n3+1)
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(90+n5-1)
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 
am3(1)=Fuori90(n5+1)
am3(2)=n3
co=co+1
ImpostaGiocata co,am3,ruote,poste,k 



Gioca es
End If
End If

Next
Next
End If
Next
Next
Next
Next

ScriviResoconto
End Sub


Avatar utente
xxombraxx
Messaggi: 933
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: Metodo Distanza 18 by Ombra

Messaggio da xxombraxx »

grazi molto gentile.....
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

Avatar utente
xxombraxx
Messaggi: 933
Iscritto il: 27/10/2011, 21:56
Località: macerata
Contatta:

Re: Metodo Distanza 18 by Ombra

Messaggio da xxombraxx »

torino ambata determinata + ambetto 84-25
http://ombra.forumattivo.it
Il gioco è vietato ai minori di anni 18. Giocare troppo può causare dipendenza patologica.

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

Re: Metodo Distanza 18 by Ombra

Messaggio da Tatoo64 »

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

Rispondi