B
Blackmore
Guest
Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=4 'colpi di gioco
rt(1)=11 '11a ruota di gioco
ini=EstrazioneFin -70
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=8 Then '1a estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,5)'<<--- questo è il 5^estr. di Bari!!!
'------------------------------Ambo
nn(1)=Fuori90 (a+42)
nn(2)=Fuori90 (a+63)
ImpostaGiocata 1,nn,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
_________________________________________________________________________________________________________
============================================================
Estrazione generatrice del pronostico 08314 [151 - 18/12/2010]
G 0001
Numeri in gioco : 89.20 su TT per Ambo
V N. [89.20 ] [TT] [VE][.. 20 .. 89 ..] C. 1 Ambo 08315 [152 - 21/12/2010]
N. [89.20 ] [TT] [FI][.. 89 .. .. ..] C. 2 Estratto 08316 [153 - 23/12/2010]
V N. [89.20 ] [TT] [RM][.. 20 89 .. ..] C. 3 Ambo 08317 [154 - 27/12/2010]
N. [89.20 ] [TT] [BA][.. .. .. 20 ..] C. 4 Estratto 08318 [155 - 28/12/2010]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08327 [ 8 - 18/01/2011]
G 0001
Numeri in gioco : 15.36 su TT per Ambo
N. [15.36 ] [TT] [PA][.. .. .. .. 36] C. 1 Estratto 08328 [ 9 - 20/01/2011]
N. [15.36 ] [TT] [ ][.. .. .. .. ..] C. 2 08329 [ 10 - 22/01/2011]
N. [15.36 ] [TT] [RM][.. .. 36 .. ..] C. 3 Estratto 08330 [ 11 - 25/01/2011]
V N. [15.36 ] [TT] [GE][36 15 .. .. ..] C. 4 Ambo 08331 [ 12 - 27/01/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08340 [ 21 - 17/02/2011]
G 0001
Numeri in gioco : 88.19 su TT per Ambo
V N. [88.19 ] [TT] [BA][.. .. 88 19 ..] C. 1 Ambo 08341 [ 22 - 19/02/2011]
N. [88.19 ] [TT] [NA][.. .. .. 19 ..] C. 2 Estratto 08342 [ 23 - 22/02/2011]
N. [88.19 ] [TT] [BA][88 .. .. .. ..] C. 3 Estratto 08343 [ 24 - 24/02/2011]
N. [88.19 ] [TT] [ ][.. .. .. .. ..] C. 4 08344 [ 25 - 26/02/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08352 [ 33 - 18/03/2011]
G 0001
Numeri in gioco : 83.14 su TT per Ambo
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 1 08353 [ 34 - 19/03/2011]
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 2 08354 [ 35 - 22/03/2011]
V N. [83.14 ] [TT] [NA][14 .. 83 .. ..] C. 3 Ambo 08355 [ 36 - 24/03/2011]
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 4 08356 [ 37 - 26/03/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08366 [ 47 - 19/04/2011]
G 0001
Numeri in gioco : 75.06 su TT per Ambo
N. [75.06 ] [TT] [BA][.. .. .. .. 06] C. 1 Estratto 08367 [ 48 - 21/04/2011]
N. [75.06 ] [TT] [ ][.. .. .. .. ..] C. 2 08368 [ 49 - 23/04/2011]
N. [75.06 ] [TT] [ ][.. .. .. .. ..] C. 3 08369 [ 50 - 26/04/2011]
V N. [75.06 ] [TT] [VE][.. 06 .. 75 ..] C. 4 Ambo 08370 [ 51 - 28/04/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pr
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=4 'colpi di gioco
rt(1)=11 '11a ruota di gioco
ini=EstrazioneFin -70
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=8 Then '1a estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,5)'<<--- questo è il 5^estr. di Bari!!!
'------------------------------Ambo
nn(1)=Fuori90 (a+42)
nn(2)=Fuori90 (a+63)
ImpostaGiocata 1,nn,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
_________________________________________________________________________________________________________
============================================================
Estrazione generatrice del pronostico 08314 [151 - 18/12/2010]
G 0001
Numeri in gioco : 89.20 su TT per Ambo
V N. [89.20 ] [TT] [VE][.. 20 .. 89 ..] C. 1 Ambo 08315 [152 - 21/12/2010]
N. [89.20 ] [TT] [FI][.. 89 .. .. ..] C. 2 Estratto 08316 [153 - 23/12/2010]
V N. [89.20 ] [TT] [RM][.. 20 89 .. ..] C. 3 Ambo 08317 [154 - 27/12/2010]
N. [89.20 ] [TT] [BA][.. .. .. 20 ..] C. 4 Estratto 08318 [155 - 28/12/2010]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08327 [ 8 - 18/01/2011]
G 0001
Numeri in gioco : 15.36 su TT per Ambo
N. [15.36 ] [TT] [PA][.. .. .. .. 36] C. 1 Estratto 08328 [ 9 - 20/01/2011]
N. [15.36 ] [TT] [ ][.. .. .. .. ..] C. 2 08329 [ 10 - 22/01/2011]
N. [15.36 ] [TT] [RM][.. .. 36 .. ..] C. 3 Estratto 08330 [ 11 - 25/01/2011]
V N. [15.36 ] [TT] [GE][36 15 .. .. ..] C. 4 Ambo 08331 [ 12 - 27/01/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08340 [ 21 - 17/02/2011]
G 0001
Numeri in gioco : 88.19 su TT per Ambo
V N. [88.19 ] [TT] [BA][.. .. 88 19 ..] C. 1 Ambo 08341 [ 22 - 19/02/2011]
N. [88.19 ] [TT] [NA][.. .. .. 19 ..] C. 2 Estratto 08342 [ 23 - 22/02/2011]
N. [88.19 ] [TT] [BA][88 .. .. .. ..] C. 3 Estratto 08343 [ 24 - 24/02/2011]
N. [88.19 ] [TT] [ ][.. .. .. .. ..] C. 4 08344 [ 25 - 26/02/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08352 [ 33 - 18/03/2011]
G 0001
Numeri in gioco : 83.14 su TT per Ambo
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 1 08353 [ 34 - 19/03/2011]
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 2 08354 [ 35 - 22/03/2011]
V N. [83.14 ] [TT] [NA][14 .. 83 .. ..] C. 3 Ambo 08355 [ 36 - 24/03/2011]
N. [83.14 ] [TT] [ ][.. .. .. .. ..] C. 4 08356 [ 37 - 26/03/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pronostico 08366 [ 47 - 19/04/2011]
G 0001
Numeri in gioco : 75.06 su TT per Ambo
N. [75.06 ] [TT] [BA][.. .. .. .. 06] C. 1 Estratto 08367 [ 48 - 21/04/2011]
N. [75.06 ] [TT] [ ][.. .. .. .. ..] C. 2 08368 [ 49 - 23/04/2011]
N. [75.06 ] [TT] [ ][.. .. .. .. ..] C. 3 08369 [ 50 - 26/04/2011]
V N. [75.06 ] [TT] [VE][.. 06 .. 75 ..] C. 4 Ambo 08370 [ 51 - 28/04/2011]
Interrotta per raggiunta durata
============================================================
Estrazione generatrice del pr