| Autore |
 Discussione  |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
 Spedito - 11 gennaio 2013 : 22:43:29
|
Sub Main()
Scrivi
Scrivi String(42," ") & "Metodo Vinci FI-RO 43 - Listato By Black",1
Scrivi
Dim aruo(10)
Dim aposte(10)
aposte(2) = 0.50
aposte(3) = 0.35
aposte(4) = 0.10
aposte(5) = 0.05
Dim anum(10)
zz = CInt(InputBox("ESTRAZIONE DI PARTENZA?",,7350))
k = CInt(InputBox("QUANTI COLPI?",,10))
co = 0
rr1 = 3
rr2 = 8
ini = zz
fin = EstrazioneFin
For es = ini To fin
For r = 1 To 10
For p = 1 To 5
a = Estratto(es,r,p)
If r = 3 Or r = 8 Then
If a = 43 Then
anum(1) = Fuori90(90 + Estratto(es,FI_,3) - Estratto(es,NA_,2))
anum(2) = Fuori90(90 + Estratto(es,BA_,5) - Estratto(es,FI_,1))
anum(3) = Fuori90(90 + Estratto(es,RO_,4) - Estratto(es,VE_,3))
anum(4) = Fuori90(90 + Estratto(es,NA_,1) - Estratto(es,GE_,5))
anum(5) = Fuori90(90 + Estratto(es,BA_,1) + Estratto(es,GE_,3))
aruo(1) = rr1
aruo(2) = rr2
co = co + 1
Scrivi
ColoreTesto 1
Scrivi String(35,"*") & " Caso n°: " & CInt(co) & " *******************************************",1
ColoreTesto 0
Scrivi StringaEstratti(es,r) & " NUMERO SPIA " & a & " - " & NomeRuota(r) & " - Uscito il: " & DataEstrazione(es),1
ColoreTesto 1
Scrivi String(90,"*"),1
ColoreTesto 0
EliminaRipetuti(anum)
ImpostaGiocata 1,anum,aruo,aposte,k,2
Gioca es
End If
End If
Next
Next
Next
Scrivi
Scrivi" Totale casi: " & co,1
ScriviResoconto
End Sub
|
Roberto Vinci |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 01 febbraio 2013 : 22:28:08
|
76.43.28.31.74 NUMERO SPIA 43 - Roma - Uscito il: 29.01.2013
******************************************************************************************
Estrazione generatrice del pronostico 08645 [ 13 - 29/01/2013]
G 0001
Numeri in gioco : 19.25.33.35.42 su FI RM per Ambo,Terno,Quaterna,Cinquina
N. [19.25.33.35.42 ] [FI] [.. .. .. .. ..] C. 1 08646 [ 14 - 31/01/2013]
V N. [19.25.33.35.42 ] [RM] [.. .. 42 19 ..] C. 1 Ambo 08646 [ 14 - 31/01/2013]
Interrotta per esito verificato
|
Roberto Vinci |
 |
|
| |
Discussione |
|
|
|
Metodo Vinci FI-RO 43
