imported_n/a
Advanced Premium Member
lo so che lo stai facendo apposta!!! [}
]


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.
======================================================================
gio 04.06.2009 [ Ba - 90.64.56.21.23 ] [ 90 ] in 1^ pos.
gio 04.06.2009 [ Ca - 35.05.28.82.85 ] [ 35 ] in 1^ pos.
gio 04.06.2009 [ Fi - 60.87.01.55.25 ] [ 60 ] in 1^ pos.
---------------------------------------------------------- caso n° 109
gio 04.06.2009 [8073]
G 1: M 90.35.60 Ba Ca Fi 1/14
in corso (1° su 14)
G 2: AT 35.60.53.06 Ba Ca Fi 1/14
in corso (1° su 14)
G 3: AT 35.60.53.06 Tu 1/14
in corso (1° su 14)
======================================================================
gio 04.06.2009 [ Ba - 90.64.56.21.23 ] [ 90 ] in 1^ pos.
gio 04.06.2009 [ Ve - 14.32.34.73.44 ] [ 14 ] in 1^ pos.
gio 04.06.2009 [ Ca - 35.05.28.82.85 ] [ 35 ] in 1^ pos.
---------------------------------------------------------- caso n° 110
gio 04.06.2009 [8073]
G 1: M 90.14.35 Ba Ca Ve 1/14
in corso (1° su 14)
G 2: AT 14.35.41.53 Ba Ca Ve 1/14
in corso (1° su 14)
G 3: AT 14.35.41.53 Tu 1/14
in corso (1° su 14)
======================================================================
gio 04.06.2009 [ Ba - 90.64.56.21.23 ] [ 90 ] in 1^ pos.
gio 04.06.2009 [ Ve - 14.32.34.73.44 ] [ 14 ] in 1^ pos.
gio 04.06.2009 [ To - 68.10.27.45.87 ] [ 68 ] in 1^ pos.
---------------------------------------------------------- caso n° 111
gio 04.06.2009 [8073]
G 1: M 90.14.68 Ba To Ve 1/14
M 68 su Ve 1° colpo [8074/06.06.2009]
in corso (1° su 14)
G 2: AT 14.68.41.86 Ba To Ve 1/14
A 41.68 su Ve 1° colpo [8074/06.06.2009]
in corso (1° su 14)
G 3: AT 14.68.41.86 Tu 1/14
A 41.68 su Tu (Ve) 1° colpo [8074/06.06.2009]
in corso (1° su 14)
======================================================================
sab 06.06.2009 [ Ge - 33.90.37.44.06 ] [ 90 ] in 2^ pos.
sab 06.06.2009 [ Ca - 09.08.87.57.69 ] [ 08 ] in 2^ pos.
sab 06.06.2009 [ Fi - 16.49.33.63.75 ] [ 49 ] in 2^ pos.
---------------------------------------------------------- caso n° 112
sab 06.06.2009 [8074]
G 1: M 90.08.49 Ca Fi Ge 0/14
n.i. (14 colpi)
G 2: AT 08.49.80.44 Ca Fi Ge 0/14
n.i. (14 colpi)
G 3: AT 08.49.80.44 Tu 0/14
n.i. (14 colpi)
======================================================================
sab 06.06.2009 [ Ge - 33.90.37.44.06 ] [ 90 ] in 2^ pos.
sab 06.06.2009 [ Fi - 16.49.33.63.75 ] [ 49 ] in 2^ pos.
sab 06.06.2009 [ Mi - 60.88.80.14.45 ] [ 88 ] in 2^ pos.
---------------------------------------------------------- caso n° 113
sab 06.06.2009 [8074]
G 1: M 90.49.88 Fi Ge Mi 0/14
n.i. (14 colpi)
G 2: AT 49.88.44.89 Fi Ge Mi 0/14
n.i. (14 colpi)
G 3: AT 49.88.44.89 Tu 0/14
n.i. (14 colpi)
======================================================================
sab 06.06.2009 [ Ge - 33.90.37.44.06 ] [ 90 ] in 2^ pos.
sab 06.06.2009 [ Mi - 60.88.80.14.45 ] [ 88 ] in 2^ pos.
sab 06.06.2009 [ Na - 14.21.77.38.15 ] [ 21 ] in 2^ pos.
---------------------------------------------------------- caso n° 114
sab 06.06.2009 [8074]
G 1: M 90.88.21 Ge Mi Na 0/14
n.i. (14 colpi)
G 2: AT 88.21.89.12 Ge Mi Na 0/14
n.i. (14 colpi)
G 3: AT 88.21.89.12 Tu 0/14
n.i. (14 colpi)
======================================================================
[b]di solito le ruote consecutive sono la precedente e la successiva, altrimenti troppi casi[/b]
======================================================================
gio 04.06.2009 [ Ba - 90.64.56.21.23 ] [ 90 ] in 1^ pos.
gio 04.06.2009 [ Ve - 14.32.34.73.44 ] [ 14 ] in 1^ pos.
gio 04.06.2009 [ Ca - 35.05.28.82.85 ] [ 35 ] in 1^ pos.
---------------------------------------------------------- caso n° 110
gio 04.06.2009 [8073]
G 1: M 90.14.35 Ba Ca Ve 1/14
in corso (1° su 14)
G 2: AT 14.35.41.53 Ba Ca Ve 1/14
in corso (1° su 14)
G 3: AT 14.35.41.53 Tu 1/14
in corso (1° su 14)
======================================================================
[b]di solito le ruote consecutive sono la precedente e la successiva.[/b]
[b]comunque a domani.[/b]
gio 04.06.2009 [ Ca - 35.05.28.82.85 ] [ 35 ] in 1^ pos.
gio 04.06.2009 [ Fi - 60.87.01.55.25 ] [ 60 ] in 1^ pos.
---------------------------------------------------------- caso n° 109
gio 04.06.2009 [8073]
G 1: M 90.35.60 Ba Ca Fi 1/14
in corso (1° su 14)
G 2: AT 35.60.53.06 Ba Ca Fi 1/14
in corso (1° su 14)
G 3: AT 35.60.53.06 Tu 1/14
in corso (1° su 14)
Resoconto da ven 02.01.2009 a sab 06.06.2009 (67 estr.)
======================================================================
sab 10.01.2009 [ Ca - 37.58.09.90.04 ] [ 90 ] in 4^ pos.
sab 10.01.2009 [ Ba - 78.87.37.15.05 ] [ 15 ] in 4^ pos.
sab 10.01.2009 [ Fi - 54.50.49.27.33 ] [ 27 ] in 4^ pos.
---------------------------------------------------------- caso n° 1
sab 10.01.2009 [8011]
G 1: M 90.15.27 Ba Ca Fi 14/14
M 15 su Ca 2° colpo [8013/15.01.2009]
M 90 su Fi 3° colpo [8014/17.01.2009]
M 15 su Fi 4° colpo [8015/20.01.2009]
M 27.15 su Fi 8° colpo [8019/29.01.2009]
M 15 su Ba 9° colpo [8020/31.01.2009]
M 27.15 su Ba 11° colpo [8022/05.02.2009]
M 90 su Ca 13° colpo [8024/10.02.2009]
M 90 su Fi 13° colpo [8024/10.02.2009]
G 2: AT 15.27.51.72 Ba Ca Fi 14/14
A 27.15 su Fi 8° colpo [8019/29.01.2009]
A 27.15 su Ba 11° colpo [8022/05.02.2009]
G 3: AT 15.27.51.72 Tu 14/14
A 15.51 su Tu (Mi) 2° colpo [8013/15.01.2009]
A 72.51 su Tu (Na) 3° colpo [8014/17.01.2009]
A 27.15 su Tu (Fi) 8° colpo [8019/29.01.2009]
A 27.15 su Tu (Ba) 11° colpo [8022/05.02.2009]
======================================================================
sab 10.01.2009 [ Ge - 78.20.90.36.29 ] [ 90 ] in 3^ pos.
sab 10.01.2009 [ Fi - 54.50.49.27.33 ] [ 49 ] in 3^ pos.
sab 10.01.2009 [ Mi - 15.37.07.85.65 ] [ 07 ] in 3^ pos.
---------------------------------------------------------- caso n° 2
sab 10.01.2009 [8011]
G 1: M 90.49.07 Fi Ge Mi 14/14
M 49 su Ge 1° colpo [8012/13.01.2009]
M 90 su Mi 1° colpo [8012/13.01.2009]
M 07 su Ge 2° colpo [8013/15.01.2009]
M 90 su Fi 3° colpo [8014/17.01.2009]
M 49 su Mi 4° colpo [8015/20.01.2009]
M 49 su Fi 7° colpo [8018/27.01.2009]
M 90 su Ge 9° colpo [8020/31.01.2009]
M 90.07 su Fi 13° colpo [8024/10.02.2009]
M 07 su Ge 13° colpo [8024/10.02.2009]
M 90 su Mi 13° colpo [8024/10.02.2009]
G 2: AT 49.07.44.70 Fi Ge Mi 14/14
negativo
G 3: AT 49.07.44.70 Tu 14/14
A 44.49 su Tu (Ve) 10° colpo [8021/03.02.2009]
======================================================================
mar 13.01.2009 [ Mi - 66.88.90.09.18 ] [ 90 ] in 3^ pos.
mar 13.01.2009 [ Ge - 49.50.47.66.22 ] [ 47 ] in 3^ pos.
mar 13.01.2009 [ Na - 55.52.58.56.15 ] [ 58 ] in 3^ pos.
---------------------------------------------------------- caso n° 3
mar 13.01.2009 [8012]
G 1: M 90.47.58 Ge Mi Na 14/14
M 90 su Na 1° colpo [8013/15.01.2009]
M 58 su Mi 2° colpo [8014/17.01.2009]
M 58 su Mi 3° colpo [8015/20.01.2009]
M 47 su Ge 4° colpo [8016/22.01.2009]
M 90 su Na 6° colpo [8018/27.01.2009]
M 90 su Ge 8° colpo [8020/31.01.2009]
M 58 su Mi 8° colpo [8020/31.01.2009]
M 58 su Ge 9° colpo [8021/03.02.2009]
M 90 su Mi 12° colpo [8024/10.02.2009]
G 2: AT 47.58.74.85 Ge Mi Na 14/14
negativo
G 3: AT 47.58.74.85 Tu 14/14
A 85.74 su Tu (Ro) 2° colpo [8014/17.01.2009]
A 58.74 su Tu (Ca) 4° colpo [8016/22.01.2009]
A 58.74 su Tu (To) 5° colp
Sub main()
Dim nr1(3),nr2(4)
Dim ruote(3),ruota(1)
Dim posta(1),poste(5)
posta(1)=3:poste(2)=3:poste(3)=1.3
k=CInt(InputBox("per quante estrazioni deve durare il gioco?","durata gioco",14))
ce=InputBox("da quanle estrazione vuoi controllare? ","controllo estrazioni",8007)
ini=ce
fin=EstrazioneFin
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 10
For p1=1 To 5
a=Estratto(es,r1,p1)
If a=90 Then
For r2=1 To 10
For r3=1 To 10
If (r2=r1-1 And r3=r1+1) Or (r1=1 And r2=10 And r3=2) Then
n1=Estratto(es,r2,p1)
n2=Estratto(es,r3,p1)
If n1<>n2 Then
casi=casi+1:Scrivi String(51,"=")&" script by maxma62 ",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] [ "&format2(a)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] [ "&format2(n1)&" ] in "&(p1)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r3)&" - "&StringaEstratti(es,r3)&_
" ] [ "&format2(n2)&" ] in "&(p1)&"^ pos."
Scrivi String(58,"-")&" caso n° "&(casi)
ruote(1)=r1:ruote(2)=r2:ruote(3)=r3:ruota(1)=11
nr1(1)=90:nr1(2)=n1:nr1(3)=n2
ImpostaGiocata 1,nr1,ruote,posta,k,0
nr2(1)=n1:nr2(2)=n2:
nr2(3)=Vert(n1):nr2(4)=Vert(n2)
ImpostaGiocata 2,nr2,ruote,poste,k,0
ImpostaGiocata 3,nr2,ruota,poste,k,0
Gioca es
End If
End If
Next:Next
End If 'n1<>n2
Next:Next:Next
ScriviResoconto
scrivi"script by maxma62",1
End Sub