X Metus o chi c'ha voglia

[morena59]

Famme sto script (x cortesia)
sega mentale che si basa sulla ciclometria spaziometrica:
1° step:
rilevare 1 ambo in qualsiasi ruota in ditanza 30
2° step:
rilevare in una 2° ruota 1 dei 2 numeri in forma isotopa
3° step:
il numero che non centra na mazza sulla 2° ruota,
lo moltiplichiamo x2 col fuori 90 (capogioco)
4° step:
il numero mancante della terzina simmetrica è l'abbinamento assieme al diametrale
te faccio un esempio:
estrazione 5/7
BA 44-14 3° e 4° estratto
NZ 66-44 3°e 4° estratto
66x2=42
BA-NZ 42-74/42-29
a colpo 42-29 sulla NZ
volendo x recupero la quartina con i vertbili
cioè 5-50-22-47 x pararsi er culo
buon lavoro
me raccomando....lascia perdere er gioco d'ambata[^]

 

[CocoNut]

<center>E te lascia perde "er romanesco" che un te se addice per niente !

...Polenton! </center>

Dicette Pulicenella:
I' nun so' fesso, ma aggi' 'a fà 'o fesso,
pecché facenno 'o fesso, ve pozzo fà fesse!

 

[Roby]

Vedo che di voglia ce n'è in abbondanza!!!
Ho capito dateme 5 minuti e il solito pirla del metus vi sforna lo scriptillo!!
Ciao


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[Roby]

quote:Originally posted by metus

Vedo che di voglia ce n'è in abbondanza!!!
Ho capito dateme 5 minuti e il solito pirla del metus vi sforna lo scriptillo!!
Ciao


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

ihihih io non sono capace per me è troppo complicato
METUS GUARDATI PM
Ciao

Blackmore

 

[Roby]

Senti na cosa antellao .... non c'ho mica capito molto con quei vertibili a parte il 22 e 47.
Ciao

Sub main()
Dim num(2)
Dim num1(2)
Dim ruote(10)
Dim poste(10)
poste(1)=0
poste(2)=1
tmp=InputBox("Quante estrazioni controllo?","SEGHE MENTALI ANTELAO",100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r,p1)
c=Distanza(a,b)
d=Estratto(es,r1,p) 
e=Estratto(es,r1,p1)
If c=30 Then
If d=a Or d=b Or e=a Or e=b  Then 
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" --> "&Format2(a)&"-"&Format2(b)
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" --> "&Format2(d)&"-"&Format2(e)
If d=a Or d=b Then a1=e
If e=a Or e=b Then a1=d
If b=Fuori90(a+30)Then a2=Fuori90(a+60)
If b=Fuori90(a+60)Then a2=Fuori90(a+30)
Scrivi Format2(a1)&" <----- quarto numero"
Scrivi Format2(a2)&" <----- numero mancante terzina simmetrica PRIMO ABBINAMENTO"
a3=Fuori90(a1*2)'capogioco
a4=Diametrale(a2)
ruote(1)=r
ruote(2)=r1
num(1)=a3
num(2)=a2
ImpostaGiocata 1,num,ruote,poste,10
num1(1)=a3
num1(2)=a4
ImpostaGiocata 2,num1,ruote,poste,10
Gioca es
Scrivi"**************************" 
End If 
End If
Next
Next
Next
Next
Next 
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[morena59]

Infatti ce sta un errorino
24-42-22-47

 

[Roby]

Sub main()
Dim num(2)
Dim num1(2)
Dim num2(4)
Dim ruote(10)
Dim poste(10)
Dim post(4)
poste(1)=0
poste(2)=1
post(2)=1
post(3)=1
post(4)=1
tmp=InputBox("Quante estrazioni controllo?","SEGHE MENTALI ANTELAO",100) 
fin=EstrazioneFin 
ini=fin-tmp 
For es=ini To fin 
Messaggio CStr (EstrazioneFin - es) 
For r=1 To 10
For r1=r+1 To 11
If r1=11 Then r1=12
For p=1 To 4
For p1=p+1 To 5
a=Estratto(es,r,p) 
b=Estratto(es,r,p1)
c=Distanza(a,b)
d=Estratto(es,r1,p) 
e=Estratto(es,r1,p1)
If c=30 Then
If d=a Or d=b Or e=a Or e=b  Then 
Scrivi DataEstrazione(es),True 
Scrivi Left(NomeRuota(r),3)&" "& StringaEstratti(es,r)&" --> "&Format2(a)&"-"&Format2(b)
Scrivi Left(NomeRuota(r1),3)&" "& StringaEstratti(es,r1)&" --> "&Format2(d)&"-"&Format2(e)
If d=a Or d=b Then a1=e
If e=a Or e=b Then a1=d
If b=Fuori90(a+30)Then a2=Fuori90(a+60)
If b=Fuori90(a+60)Then a2=Fuori90(a+30)
Scrivi Format2(a1)&" <----- quarto numero"
Scrivi Format2(a2)&" <----- numero mancante terzina simmetrica PRIMO ABBINAMENTO"
a3=Fuori90(a1*2)'capogioco
a4=Diametrale(a2)
a5=Vert(a3)
a6=Vert(a2)
a7=Vert(a4)
ruote(1)=r
ruote(2)=r1
num(1)=a3
num(2)=a2
ImpostaGiocata 1,num,ruote,poste,10
num1(1)=a3
num1(2)=a4
ImpostaGiocata 2,num1,ruote,poste,10
num2(1)=a3
num2(2)=a5
num2(3)=a6
num2(4)=a7
ImpostaGiocata 3,num2,ruote,post,10
Gioca es
Scrivi"**************************" 
End If 
End If
Next
Next
Next
Next
Next 
ScriviResoconto
End Sub

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[morena59]

Grazie orsacchiotto
ottimo lavoro

 

[morena59]

Dalle mie molteplici xxxxx</u> mentali,
consiglio l'ambo secco
NA 82-70

[/img]

 

[Roby]

OHHHH A ANTELAO !!!!!!!!!!!!!Cerca de usa' un linguaggio meno servaggio(aaazzzzzz colla rima.......)sinno quarche animo pio e suscettibbbbbile te delaziona all'inquisizzzzzzione !!!![}]

SUERTE !!!!