imported_n/a
Advanced Premium Member
Codice:
Sub main()
Dim num(10)
Dim ruote(2)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=1
poste(5)=1
tmp=InputBox("Inserire il numero di estrazioni da controllare?",,1000)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For r=1 To 10
For p=1 To 3
For p1=p+1 To 4
For p2=p1+1 To 5
a=Estratto(es,r,p)
b=Estratto(es,r,p1)
c=Estratto(es,r,p2)
If a<10 And b<10 And c<10 Then
Scrivi DataEstrazione(es),True
Scrivi Left(NomeRuota(r),2)&" "& StringaEstratti(es,r)
ruote(1)=r
ruote(2)=r+1
If ruote(1)=10 Then ruote(2)=1
num(1)=10
num(2)=11
num(2)=12
num(4)=13
num(5)=14
num(6)=15
num(7)=16
num(8)=17
num(9)=18
num(10)=19
ImpostaGiocata 1,num,ruote,poste,7,2
Gioca es
Scrivi"*******************************************************************"
End If
Next
Next
Next
Next
Next
ScriviResoconto
End Sub
Codice:
28.07.2001
Pa 34.05.02.01.55
sab 28.07.2001 [7041]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Pa Ro 7/7
negativo
*******************************************************************
18.08.2001
Ve 03.84.73.05.01
sab 18.08.2001 [7047]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ba Ve 4/7
A 10.18 su Ba 4° colpo [7051/01.09.2001]
I4
*******************************************************************
16.01.2002
Fi 46.05.09.71.07
mer 16.01.2002 [7091]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Fi Ge 1/7
A 12.10 su Fi 1° colpo [7092/19.01.2002]
A 19.12 su Ge 1° colpo [7092/19.01.2002]
I1
*******************************************************************
25.05.2002
Ve 02.09.67.08.18
sab 25.05.2002 [7128]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ba Ve 7/7
negativo
*******************************************************************
05.06.2002
Ge 01.04.44.08.43
mer 05.06.2002 [7131]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ge Mi 4/7
A 12.19.17 su Ge 4° colpo [7135/19.06.2002]
T 12.19.17 su Ge 4° colpo [7135/19.06.2002]
I4
*******************************************************************
16.10.2002
Ve 09.02.36.04.82
mer 16.10.2002 [7169]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ba Ve 1/7
A 10.15 su Ba 1° colpo [7170/19.10.2002]
I1
*******************************************************************
16.11.2002
To 01.70.62.02.07
sab 16.11.2002 [7178]
G 1: ATQC 10.12.13.14.15.16.17.18.19 To Ve 7/7
negativo
*******************************************************************
03.12.2002
Ro 05.84.03.43.09
mar 03.12.2002 [7183]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ro To 1/7
A 14.19 su Ro 1° colpo [7184/05.12.2002]
I1
*******************************************************************
24.12.2002
Fi 01.04.07.68.40
mar 24.12.2002 [7192]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Fi Ge 1/7
A 19.15 su Ge 1° colpo [7193/27.12.2002]
I1
*******************************************************************
04.01.2003
Ge 07.05.88.24.03
sab 04.01.2003 [7197]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ge Mi 7/7
negativo
*******************************************************************
15.01.2003
Mi 02.09.89.08.69
mer 15.01.2003 [7200]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Mi Na 7/7
negativo
*******************************************************************
29.01.2003
Ba 05.07.04.49.51
mer 29.01.2003 [7204]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Ba Ca 7/7
negativo
*******************************************************************
08.02.2003
Pa 31.79.03.05.01
sab 08.02.2003 [7207]
G 1: ATQC 10.12.13.14.15.16.17.18.19 Pa Ro 2/7
A 12.17 su Ro 2° colpo [7209/15.02.2003]
I2
*******