| Autore |
 Discussione  |
|
|
vinci
Utente Sfegatato
Italy
1351 invii |
 Spedito - 06 novembre 2015 : 16:31:50
|
Sub Main()
Dim ru(1),ps(3),a1(5),g1(5),h1(5),i1(5),f1(5)
ps(2) = 0.80
ps(3) = 0.20
r = 2
ru(1) = 2
For es = EstrazioneFin - 1200 To EstrazioneFin
If Posizione(es,r,88) > 0 Then
a = Estratto(es,2,5)
b = Estratto(es,2,1)
c = Estratto(es,2,2)
d = Estratto(es,2,4)
a1(1) = Fuori90(b + 22)
a1(2) = Fuori90(b + 49)
a1(3) = Fuori90(b + 89)
a1(4) = Fuori90(a + 27)
a1(5) = Fuori90(a + 67)
g1(1) = Fuori90(c + 15)
g1(2) = Fuori90(c + 57)
g1(3) = Fuori90(c + 78)
g1(4) = Fuori90(a + 27)
g1(5) = Fuori90(a + 67)
h1(1) = Fuori90(c + 28)
h1(2) = Fuori90(c + 60)
h1(3) = Fuori90(c + 86)
h1(4) = Fuori90(a + 27)
h1(5) = Fuori90(a + 67)
i1(1) = Fuori90(c + 12)
i1(2) = Fuori90(c + 49)
i1(3) = Fuori90(c + 60)
i1(4) = Fuori90(a + 27)
i1(5) = Fuori90(a + 67)
f1(1) = Fuori90(d + 12)
f1(2) = Fuori90(d + 22)
f1(3) = Fuori90(d + 49)
f1(4) = Fuori90(a + 27)
f1(5) = Fuori90(a + 67)
EliminaRipetuti a1
ImpostaGiocata 1,a1,ru,ps,10,2
EliminaRipetuti g1
ImpostaGiocata 2,g1,ru,ps,10,2
EliminaRipetuti h1
ImpostaGiocata 3,h1,ru,ps,10,2
EliminaRipetuti i1
ImpostaGiocata 4,i1,ru,ps,10,2
EliminaRipetuti f1
ImpostaGiocata 5,f1,ru,ps,10,2
Scrivi " @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@",1
Scrivi : ColoreTesto 0 : Scrivi " [ Metodo "" Spia 88 a Cagliari ""] ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
ColoreTesto 2 : Scrivi DataEstrazione((es),1) & " " & " [" & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " & "] Cagliari sortito numero spia !!! = " & "" & Format2(88) & " ",1
ColoreTesto 2 : Scrivi " - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ",1
Gioca es
End If
Next
ScriviResoconto
Scrivi : ColoreTesto 0 : Scrivi " [ Listato con riepilogo e grafico... by Roberto Vinci] ",1
End Sub
|
Roberto Vinci |
|
|
vinci
Utente Sfegatato
Italy
1351 invii |
Spedito - 06 novembre 2015 : 16:34:04
|
PREVISIONE IN CORSO
Estrazione generatrice del pronostico 09077 [132 - 03/11/2015]
G 0001 Numeri in gioco : 20.38.47.87.88 su CA per Ambo,Terno
N. [20.38.47.87.88 ] [CA] [.. .. .. .. ..] C. 1 09078 [133 - 05/11/2015]
In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 06.27.38.54.88 su CA per Ambo,Terno
N. [06.27.38.54.88 ] [CA] [.. .. .. .. ..] C. 1 09078 [133 - 05/11/2015]
In corso per altre 9 estrazioni
G 0003 Numeri in gioco : 09.35.38.67.88 su CA per Ambo,Terno
N. [09.35.38.67.88 ] [CA] [.. .. .. .. ..] C. 1 09078 [133 - 05/11/2015]
In corso per altre 9 estrazioni
G 0004 Numeri in gioco : 09.38.51.88 su CA per Ambo,Terno
N. [09.38.51.88 ] [CA] [.. .. .. .. ..] C. 1 09078 [133 - 05/11/2015]
In corso per altre 9 estrazioni
G 0005 Numeri in gioco : 38.42.52.79.88 su CA per Ambo,Terno
N. [38.42.52.79.88 ] [CA] [.. .. .. .. ..] C. 1 09078 [133 - 05/11/2015]
In corso per altre 9 estrazioni
|
Roberto Vinci |
 |
|
| |
Discussione |
|
|
|
Spia 88 a Cagliari
