PER CIPISTO O DANIEL

[Roby]

http://forum.lottoced.com/topic.asp?TOPIC_ID=51831&whichpage=2

Razde

 

[razde]

Hops!!!!

Razde

 

[razde]

SU!

Razde

 

[razde]

quote:Originally posted by razde

SU!

Razde

Razde

 

[razde]

quote:Originally posted by razde

quote:Originally posted by razde

SU!

Razde

Razde

Razde

 

[razde]

quote:Originally posted by razde

quote:Originally posted by razde

quote:Originally posted by razde

SU!

Razde

Razde

Razde

Razde

 

[imported_n/a]

Domani vedo di sistemarli tutti e due.
Adesso proprio non connetto!!


Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[razde]

CERTO DANIEL CON COMODO E GRAZIE!!!!!!


Razde

 

[imported_n/a]

Sub main()
Dim num(1)
Dim num1(2)
Dim num2(2)
Dim num3(2)
Dim num4(5)
Dim ruote(10)
Dim poste(2)
Dim post(5)
poste(2)=1
post(2)=1
post(3)=1
post(4)=1
post(5)=1
tmp=InputBox("Quante estrazioni controllo?",,100)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
For r1=1 To 10
For p= 1 To 4
For p1=p+1 To 5
For p2=1 To 5
a=Estratto (es,r,p)
b=Estratto (es,r,p1)
a1=Distanza(a,b)
If a1=30 Then
c=Estratto (es,r1,p2)
a2=Distanza(a,c)
If a2=30 Then
If c=a Or c=b Then
a3=Posizione(es,r,a)
a4=Posizione(es,r,b)
a5=Posizione(es,r1,c)
If a5=a4 Or a5=a3 Then
If r1=r-1 Or r1=r+1 Then
b1=Fuori90(a+30)
If b1=b Or a1=c Then b1=Fuori90(a+60)
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)&" ["&Format2(a)&_
"]"&" ["&Format2(b)&"]"
Scrivi Left(NomeRuota(r1),2)&" "& StringaEstratti(es,r1)&" ["&Format2(c)&"] "&_
Format2(b1)
If c=b Then b2=c
If c=a Then b2=c
b3=Fuori90(b2*2)
b4=Diametrale(b3)
b5=Fuori90(b2+b4)
b6=Abs(b2-b4)
b7=90-b5
b8=90-b6
c1=Figura(a)
c2=Figura(b)
c3=c1&c2
c4=Vert(c3)
ruote(1)=r
ruote(2)=r1
num1(1)=b1
num1(2)=b7
ImpostaGiocata 1,num1,ruote,poste,10
num2(1)=b1
num2(2)=b8
ImpostaGiocata 2,num2,ruote,poste,10
num3(1)=b7
num3(2)=b8
ImpostaGiocata 3,num3,ruote,poste,10
num4(1)=b1
num4(2)=b7
num4(3)=b8
num4(4)=c3
num4(5)=c4
ImpostaGiocata 4,num4,ruote,post,10
Gioca es
Scrivi"*****************************************"
End If
End If
End If
End If
End If
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Daniel
"I numeri non hanno memoria......e il banco lo sa!!!

 

[razde]

GRANDE DANIEL, GRRRRRRRRRRRRAZZZZZZZZZZZIEEEEE!!!!!

STASERA LO PROVO.

CIAO!!!!

Razde