Novità

Una sola ruota CAGLIARI

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
 
Ciao andrea.


c=Estratto (es,12,3) (AL POSTO DEL 12 METTI 6)
n1(2)=Fuori90 (b+c+72)'-----3 GE + 3 Nazion. + 72 (METTI BA al posto di Nazion.)
 
Dove hai trovato lo script, grazie
Ciao, lo ho digitato io. ne ho diversi che tengo d'occhio ma non hanno una gran resa a parte uno che mi ha regalato un bel terno in quartina a gennaio, ma aimè visto il mese anomalo di febbraio per marzo ha saltato e ad aprile stà scorrendo. magari lo posto se risulta ancora efficace. non bisogna creare delle false illusioni la gente ci mette soldi veri ed è difficile con i tempi che corrono tirare avanti bene.
 
Ciao andrea che per caso lo puoi postare qua?, grazie.
Buondì, io la gioco su Na-To con le poste indicate nel listato e 2€ a tutte solo per terno.

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

pt(2)=3
pt(3)=2.5
pt(4)=0.5

clp=13 'colpi di gioco
'------------------------------le ruote BA-TO
'------------------------------dopo sortita a ruota si ruota su FI-MI-VE
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 1a - NAPOLI
'rt(7)=7 '1a ruota di gioco PALERMO
'rt(8)=8 '1a ruota di gioco ROMA
rt(9)=9 '1a ruota di gioco 1a - 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 Then '-- 1a Estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,5,1)
b=Estratto (es,5,1)
c=Estratto (es,10,1)
d=Estratto (es,2,3)


'------------------------------Quartina
n1(1)=Fuori90 (a+c)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
'n1(5)=Vert (c)

ImpostaGiocata 2,n1,rt,pt,clp

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

End Sub
 
BA2T
CA5
FI4T
GE2
MI1
NA2T
PA1
RO1
TO5T
VE4T
NZ0

SOLO STATISTICA A MAGGIO AVREI 3 TERNI (SU TUTTE)SECCHI POI LI POSTO.
Grazie per la cortesia dello script.

T=TERNO.

i numeri sono ambi usciti SU RUOTA + 1 terno
 
Ultima modifica:
Buongiorno a tutti ho fatto i calcoli x il mese di maggio Cagliari ambata 31 x ambo 80-84-29 mi confermate se sono giusti grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 ottobre 2025
    Bari
    50
    79
    52
    88
    45
    Cagliari
    38
    69
    86
    25
    05
    Firenze
    86
    43
    66
    38
    31
    Genova
    33
    13
    45
    77
    09
    Milano
    01
    22
    59
    31
    54
    Napoli
    65
    70
    14
    53
    71
    Palermo
    51
    67
    82
    74
    84
    Roma
    46
    18
    33
    88
    08
    Torino
    78
    20
    23
    05
    65
    Venezia
    58
    33
    40
    51
    89
    Nazionale
    90
    74
    51
    41
    40
    Estrazione Simbolotto
    36
    37
    35
    21
    31

Ultimi Messaggi

Indietro
Alto