per gli esperti del forum

[Roby]

quando esce il 59 su roma giochiamo su bari
19 48-
19 58-
29 48-
25 48-
1 13
sono 5 ambi ricavati da un metodo tascritto anni fa e visto la presenza del 59 sulla ruota di roma volevo metterli in gioco
se qualcuno può controlla la sua validità lo ringrazio in anticipo

 

[Ben8]

quote:
Sub main()
Dim ru(10)
Dim a1(10)
Dim a2(10)
Dim a3(10)
Dim a4(10)
Dim a5(10)
Dim a6(10)
Dim p1(5)
Dim p2(5)
p1(2)=1
p2(3)=1
p2(4)=1
p2(5)=.1
c=13
k1=2
k2=5
co=0
ini=7429
fin=EstrazioneFin
For es=ini To fin
Messaggio CStr (EstrazioneFin - es)
For p=1 To 5
r=8
s1=59
a=Estratto(es,r,p)
If (a=s1) Then
co=co+1
ru(1)=1
a1(1)=19
a1(2)=48
a2(1)=19
a2(2)=58
a3(1)=29
a3(2)=48
a4(1)=25
a4(2)=48
a5(1)=1
a5(2)=13
a6(1)=1
a6(2)=13
a6(3)=19
a6(4)=25
a6(5)=29
a6(6)=48
a6(7)=58
Scrivi "________________________________________________________________"
ColoreTesto 2
Scrivi " Estratto : " & a &" su "& NomeRuota(r)
ColoreTesto 0
ImpostaGiocata 1,a1,ru,p1,c,k1
ImpostaGiocata 2,a2,ru,p1,c,k1
ImpostaGiocata 3,a3,ru,p1,c,k1
ImpostaGiocata 4,a4,ru,p1,c,k1
ImpostaGiocata 5,a5,ru,p1,c,k1
ImpostaGiocata 6,a6,ru,p2,c,k2
For a=1 To 5
For b=1 To 5
ImpostaInterruzioni a,b,k1
ImpostaInterruzioni a,1,k2
Next
Next
Gioca es
End If
Next
Next
ColoreTesto 1
Scrivi : Scrivi
Scrivi " CASI TROVATI : "& co
ColoreTesto 0
ScriviResoconto
End Sub

________________________________________________________________
 Estratto : 59 su Roma
sab 26.03.2005  [7429]
  G  1:  A          19.48                  Ba    7/13    
     negativo     I7     negativo
  G  2:  A          19.58                  Ba    7/13    
     negativo     I7     negativo
  G  3:  A          29.48                  Ba    7/13    
     negativo     I7     negativo
  G  4:  A          25.48                  Ba    7/13    
     negativo     I7     negativo
  G  5:  A          01.13                  Ba    7/13    
     A  13.01            su Ba    7° colpo   [7436/20.04.2005]
     I7
  G  6:  TQC        01.13.19.25.29.48.58   Ba    13/13    
     T  13.01.58         su Ba    7° colpo   [7436/20.04.2005]

________________________________________________________________
 Estratto : 59 su Roma
sab 21.05.2005  [7445]
  G  1:  A          19.48                  Ba    7/13    
     negativo     I7     negativo
  G  2:  A          19.58                  Ba    7/13    
     negativo     I7     negativo
  G  3:  A          29.48                  Ba    7/13    
     negativo     I7     negativo
  G  4:  A          25.48                  Ba    7/13    
     A  48.25            su Ba    7° colpo   [7452/15.06.2005]
     I7
  G  5:  A          01.13                  Ba    7/13    
     negativo     I7     negativo
  G  6:  TQC        01.13.19.25.29.48.58   Ba    13/13    
     negativo
________________________________________________________________
 Estratto : 59 su Roma
sab 11.06.2005  [7451]
  G  1:  A          19.48                  Ba    1/13    
     negativo     I1     negativo
  G  2:  A          19.58                  Ba    1/13    
     negativo     I1     negativo
  G  3:  A          29.48                  Ba    1/13    
     negativo     I1     negativo
  G  4:  A          25.48                  Ba    1/13    
     A  48.25            su Ba    1° colpo   [7452/15.06.2005]
     I1
  G  5:  A          01.13                  Ba    1/13    
     negativo     I1     negativo
  G  6:  TQC        01.13.19.25.29.48.58   Ba    13/13    
     T  19.48.29.58      su Ba    8° colpo   [7459/02.07.2005]
     Q  19.48.29.58      su Ba    8° colpo   [7459/02.07.2005]

________________________________________________________________
 Estratto : 59 su Roma
mar 28.06.2005  [7457]
  G  1:  A          19.48                  Ba    2/13    
     A  19.48            su Ba    2° colpo   [7459/02.07.2005]
     I2
  G  2:  A          19.58                  Ba    2/13    
     A  19.58            su Ba    2° colpo   [7459/02.07.2005]
     I2
  G  3:  A          29.48                  Ba    2/13    
     A  48.29            su Ba    2° colpo   [7459/02.07.2