Quando Esce Ambo Spia su Ruota Giochiamo 2 Diverse Previsioni

Sub Main()
ColoreTesto 0: Scrivi "--------------------METODO IDEATO BY SEAN69 ------------------",1
ColoreTesto 1: Scrivi "=================== AMBO SPIA CASI ANALIZZATI= " & co & "=====================",1
ColoreTesto 2: Scrivi "----------------GIOCA TERZINA SU BA-FI:27-41-54-----------------",1
ColoreTesto 2: Scrivi "----------------GIOCA TERZINA SU CA-GE:13-51-89-----------------",1
ColoreTesto 0: Scrivi "-------------------------------------------------------------------",1
Scrivi

Dim ruota(2)
Dim ambata(1)
Dim num(3)
Dim num1(3)
Dim posta(5)
Dim ruo(2)
'posta(1) = 1
posta(2) = 2
posta(3) = 1
k = 12
ini = EstrazioneFin - 2120
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
If Posizione(es,6,41)>0 And Posizione(es,6,42)>0 Then
co = co + 1
Scrivi String(90,"*"),1

ColoreTesto 0
ColoreTesto 2
Scrivi DataEstrazione(es) & " * " & NomeRuota(6) & " * " & StringaEstratti(es,6) & " * AMBO SPIA * 41-42 " ,1
ColoreTesto 0
ColoreTesto 2
ritar=SerieRitardo(ini,es,num,ruo,2)'--------> ritardo per ambo
ritar1=SerieRitardo(ini,es,num1,ruota,2)'--------> ritardo per ambo

'Scrivi "IL RITARDO DELL'AMBO sulla terzina ba-fi ALL'ESTRAZIONE DI CALCOLO E' DI: " & Format2(ritar) & " ESTRAZIONI",1
'Scrivi "IL RITARDO DELL'AMBO sulla terzina ca-ge ALL'ESTRAZIONE DI CALCOLO E' DI: " & Format2(ritar1) & " ESTRAZIONI",1

ColoreTesto 0
Scrivi String(90,"*") & " Caso n°" & co,1

ruo(1) = 1
ruo(2) = 3
ruota(1) = 2
ruota(2) = 4:cg = 0
num(1) = 27
num(2) = 41
num(3) = 54
num1(1) = 13
num1(2) = 51
num1(3) = 89

cg = cg + 1
ImpostaGiocata cg,num,ruo,posta,k
cg = cg + 1
ImpostaGiocata cg,num1,ruota,posta,k

Gioca es
End If
Next


ScriviResoconto
End Sub

--------------------METODO IDEATO BY SEAN69 ------------------
=================== AMBO SPIA CASI ANALIZZATI= =====================
----------------GIOCA TERZINA SU BA-FI:27-41-54-----------------
----------------GIOCA TERZINA SU CA-GE:13-51-89-----------------
-------------------------------------------------------------------

******************************************************************************************
15.10.1994 * Napoli * 41.42.28.78.84 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°1
sab 15.10.1994  [6458]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  41.54            su Ba    9° colpo   [6467/17.12.1994]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  51.89            su Ca    2° colpo   [6460/29.10.1994]

******************************************************************************************
04.10.1997 * Napoli * 12.36.41.42.44 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°2
sab 04.10.1997  [6643]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  41.27            su Ba    6° colpo   [6649/25.10.1997]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  51.89            su Ca    4° colpo   [6647/18.10.1997]

******************************************************************************************
29.10.1997 * Napoli * 14.59.41.55.42 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°3
mer 29.10.1997  [6650]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  41.54            su Ba    7° colpo   [6657/22.11.1997]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  89.13            su Ca    7° colpo   [6657/22.11.1997]

******************************************************************************************
06.05.1998 * Napoli * 05.42.41.10.18 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°4
mer 06.05.1998  [6704]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  41.27            su Ba    1° colpo   [6705/09.05.1998]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  89.13            su Ge    6° colpo   [6710/27.05.1998]

******************************************************************************************
12.05.2004 * Napoli * 66.21.28.41.42 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°5
mer 12.05.2004  [7338]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  41.27            su Ba    1° colpo   [7339/15.05.2004]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  51.13            su Ge    3° colpo   [7341/22.05.2004]

******************************************************************************************
22.09.2004 * Napoli * 11.81.42.41.47 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°6
mer 22.09.2004  [7376]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  54.27            su Fi    7° colpo   [7383/16.10.2004]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  51.89            su Ca    7° colpo   [7383/16.10.2004]

******************************************************************************************
20.05.2006 * Napoli * 77.90.38.42.41 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°7
sab 20.05.2006  [7597]
 G  1:  AT      27.41.54   Ba Fi    12/12    
    A  54.27.41         su Fi    4° colpo   [7601/30.05.2006]
    T  54.27.41         su Fi    4° colpo   [7601/30.05.2006]

 G  2:  AT      13.51.89   Ca Ge    12/12    
    A  51.13            su Ca    2° colpo   [7599/25.05.2006]

******************************************************************************************
13.03.2012 * Napoli * 79.69.42.41.02 * AMBO SPIA * 41-42
****************************************************************************************** Caso n°8
mar 13.03.2012  [8507]
 G  1:  AT      27.41.54   Ba Fi    2/12    
    in corso (2° su 12)
 G  2:  AT      13.51.89   Ca Ge    2/12    
    in corso (2° su 12)