Una sola ruota CAGLIARI

[Yugioh71]

Sì da domani x 2/3 estr. come scritto già

Grazie mille

 

[Gordon9]

Io vado con 5 31 67 solo CA x 2/3 estr.

Solo 67 e... ambetto per quel che serve
Da adesso diventa 2 5 14 21 da aggiornare ad ogni estr. Vediamo se escono uniti almeno un paio
Saluti

 

[Yugioh71]

Solo 67 e... ambetto per quel che serve
Da adesso diventa 2 5 14 21 da aggiornare ad ogni estr. Vediamo se escono uniti almeno un paio
Saluti

Grazie mille

 

[Gordon9]

Non vogliono proprio uscire ... ma continuo per alcune estr. e da stasera
2 14 21 59

 

[Gordon9]

Niente da fare abbandono
GE 23 31 81
Saluti

 

[Gordon9]

Niente da fare abbandono

Provo con questa GE 23 31 81
Saluti

 

[andrea21]

Buonasera a tutti, chiedo un aiuto se qualche buona anima ha voglia e tempo.
il listato che non torna....coi risultati:


Sub main()
Dim rt(11),pt(4),n1(6)

pt(2)=1
pt(3)=1
pt(4)=1

clp=9 'colpi di gioco
'------------------------------le ruote CA

'rt(1)=1 '1a ruota di gioco BARI
rt(2)=2 '1a ruota di gioco CAGLIARI
'rt(3)=3 '1a ruota di gioco FIRENZE
'rt(4)=4 '1a ruota di gioco GENOVA
'rt(5)=5 '1a ruota di gioco MILANO
'rt(6)=6 '1a ruota di gioco NAPOLI
'rt(7)=7 '1a ruota di gioco PALERMO
'rt(8)=8 '1a ruota di gioco ROMA
'rt(9)=9 '1a ruota di gioco TORINO
'rt(10)=10 '1a ruota di gioco VENEZIA
rt(11)=11 '1a ruota di gioco TUTTE

'------------------------------Storia regressa -300 estrazioni
ini=EstrazioneFin -300
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1

a=Estratto (es,5,1)
b=Estratto (es,4,3)
c=Estratto (es,12,3)
d=Estratto (es,1,2)
e=Estratto (es,12,4)
f=Estratto (es,1,4)
g=Estratto (es,10,3)


'------------------------------quartina

n1(1)=Fuori90 (a+1)'-------1 MI + 1 (Ambata principale)
n1(2)=Fuori90 (b+c+72)'-----3 GE + 3 Nazion. + 72
n1(3)=Fuori90 (d+e+22)'------2 BA + 4 Nazion. + 22
n1(4)=Fuori90 (f+g+13)'-----4 BA + 3 VE + 13

ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub