R
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
mettiamo la convergenza anche ici' dalla coppia piu' bella del mondoquote:Originally posted by occhidigiada58
stasera c'e' una condizione da calcolare...ba 71 venezia 26
quindi ba ve 7.52 .... gli abbinamenti 12.21.62.17!!!
![]()
ed ecco l'ambo a bari 71.12 e di nuovo ambata 7 a venezia...piu' di cosi'!!!quote:Originally posted by occhidigiada58
stasera c'e' una condizione da calcolare...ba 71 venezia 26
quindi ba ve 7.52 .... gli abbinamenti 12.21.62.17!!!
![]()
=================================================================
sab 21.03.2009 [ Ro 74.40.66.20.60 ] [ 20 ]
sab 21.03.2009 [ To 75.66.55.65.46 ] [ 65 ]
distanza tra 20.65 = 45
-----------------------------------------------------------------
sab 21.03.2009 [8041]
G 1: M 85.40 Ro To 2/14
in corso (2° su 14)
G 2: AT 85.40.90.09.05.50 Ro To 2/14
in corso (2° su 14)
=================================================================
sab 21.03.2009 [ Ro 74.40.66.20.60 ] [ 20 ]
sab 21.03.2009 [ To 75.66.55.65.46 ] [ 65 ]
distanza tra 20.65 = 45
-----------------------------------------------------------------
sab 21.03.2009 [8041]
G 1: M 85.40 Ro To 6/14
in corso (6° su 14)
G 2: AT 85.40.90.09.05.50 Ro To 6/14
A 09.90 su Ro 6° colpo [8047/04.04.2009]
in corso (6° su 14)
=================================================================
gio 02.04.2009 [ Mi 89.16.42.38.01 ] [ 38 ]
gio 02.04.2009 [ Na 12.76.59.83.73 ] [ 83 ]
distanza tra 38.83 = 45
-----------------------------------------------------------------
gio 02.04.2009 [8046]
G 1: M 31.76 Mi Na 1/14
in corso (1° su 14)
G 2: AT 31.76.36.63.41.86 Mi Na 1/14
in corso (1° su 14)
=================================================================
gio 02.04.2009 [ Mi 89.16.42.38.01 ] [ 38 ]
gio 02.04.2009 [ Na 12.76.59.83.73 ] [ 83 ]
distanza tra 38.83 = 45
-----------------------------------------------------------------
gio 02.04.2009 [8046]
G 1: M 31.76 Mi Na 12/14
M 31 su Na 2° colpo [8048/07.04.2009]
in corso (12° su 14)
G 2: AT 31.76.36.63.41.86 Mi Na 12/14
Sub main
Dim ruota(2),ruot(1),posta(1),poste(4),n(2),n1(6)
posta(1)=2:poste(2)=1:poste(3)=1
ColoreTesto 1:Scrivi "list per distanze X by maxma62",1:coloretesto 0
d=CInt(InputBox("distanza? ","distanza",45))
k=InputBox("durata gioco? ","durata gioco",14)
fin=EstrazioneFin
ini=fin-200
For es=ini To fin
For p=1 To 5
For r1=1 To 10
a=Estratto(es,r1,p)
r2=r1+1
If r1=10 Then r2=1
b=Estratto(es,r2,p)
If Distanza(a,b)=d Then
ruota(1)=r1:ruota(2)=r2
Scrivi String(65,"=")
'Scrivi DataEstrazione(es,1)&" [ "&""&siglaRuota(r1)&" "&_ 'metti l'apostrofo qui
StringaEstratti(es,r1) &" ] [ "&format2(a)&" ]"
'Scrivi DataEstrazione(es,1)&" [ "&""&siglaRuota(r2)&" "&_ ' e qui
StringaEstratti(es,r2)&" ] [ "&format2(b)&" ]"
Scrivi "distanza"&" tra "&Format2(a)&"."&format2(b)& " = "&(d)
Scrivi String(65,"-")
nu1=Fuori90(a+b)
nu2=Fuori90 (nu1+45)
n(1)=nu1
n(2)=nu2
ImpostaGiocata 1,n,ruota,posta,k,0
n1(1)=nu1
n1(2)=nu2
n1(3)=Fuori90(nu1+5)
n1(4)=Vert(n1(3))
n1(5)=Abs(Fuori90(n1(1)+10))
n1(6)=Abs(Fuori90(n1(2)+10))
ImpostaGiocata 2,n1,ruota,poste,k,0
ruot(1)=11
ImpostaGiocata 3,n1,ruot,poste,k,0
Gioca es
End If
Next:Next:next
ScriviResoconto
ColoreTesto 1:Scrivi "list per distanze X by maxma62",1
End Sub