| R E V I S I O N E D E L L A D I S C U S S I O N E |
| vinci |
Posted - 17 febbraio 2013 : 23:06:34
Ruota di Gioco: Bari
Colpi di gioco: 12
Estrazione di calcolo: 1ª estrazione mensile
Cinquina: 1° di Ba x 70 ** 5° di Na + 56 ** 3° di Ca + 7 ** 5° di Pa + 44 ** 1° di Ba + 21
Gioco: Ambo, Terno, Quaterna, Cinquina
Eliminare i numeri doppi
Sospedere il gioco dopo la prima vincita
++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Main() ColoreTesto 1
Scrivi
Scrivi "1 CINQUINA SU BARI ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY VINCI",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim ruot(1)
Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
poste(2) = 0.70
poste(3) = 0.15
poste(4) = 0.10
poste(5) = 0.05
klp = 12
ini = 8228
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 1
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(80,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,1,1) * 70)
nn1(2) = Fuori90(Estratto(es,6,5) + 56)
nn1(3) = Fuori90(Estratto(es,2,3) + 07)
nn1(4) = Fuori90(Estratto(es,7,5) + 44)
nn1(5) = Fuori90(Estratto(es,1,1) + 21)
EliminaRipetuti nn1
ImpostaGiocata 1,nn1,ruote,poste,klp,2
Gioca es
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
|
| 1 U L T I M E R E P L I C H E (Newest First) |
| vinci |
Posted - 17 febbraio 2013 : 23:10:15
Previsione in corso
02.02.2013--->1° Estrazione Mensile
Estrazione generatrice del pronostico 08647 [ 15 - 02/02/2013]
G 0001
Numeri in gioco : 07.20.21.53.83 su BA per Ambo,Terno,Quaterna,Cinquina
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 1 08648 [ 16 - 05/02/2013]
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 2 08649 [ 17 - 07/02/2013]
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 3 08650 [ 18 - 09/02/2013]
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 4 08651 [ 19 - 12/02/2013]
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 5 08652 [ 20 - 14/02/2013]
N. [07.20.21.53.83 ] [BA] [.. .. .. .. ..] C. 6 08653 [ 21 - 16/02/2013]
In corso per altre 6 estrazioni
|
|
|
