Novità

Spia 90 su Roma

Yugioh71

Senior Member
Buona domenica a tutti. Posto un mio metodo che ricava una cinquina da giocare sulle ruote di Bari e Cagliari, ogni qualvolta viene estratto il numero “spia 90” sulla ruota di Roma.
Con l’estrazione del 29.03.2025 il nr. 90 è sortito in 3ª posizione sulla ruota di Roma.
Riporto gli esiti del metodo calcolati sugli ultimi 15 casi compresi nel periodo che va dal 02.11.2023 ad oggi.
Casi esaminati: 15
Casi Positivi: 13
Casi negativi: 01
In gioco: 01 (dal 01.04.2025)
Colpi di gioco: 10 + 1 (recupero)
Totale vincite (comprese le vincite multiple e gli ambi che si sono formati con i terni)
Ambate vinte: 31
Ambi vinti: 31
Terni: 10
Previsione attualmente in gioco dal 1° Aprile 2025
:

BARI/CAGLIARI
Ambata: 31
Lunghetta per sorti superiori: 31- 60-11-76-78

1743351493605.jpeg
 
Ultima modifica:
grazie, per favore hai la statistica x vedere i vari esiti, a che colpo sono usciti gli ambi perchè nei conteggi ci capisco poco, mi faresti un gran favore, grazie
 
Io preferisco la cinquina. L'ambata se non è determinata non è mai conveniente. Comunque può essere una buona base nel caso ci fossero convergenze, con altri metodi, su quelle ruote
 
Buongiorno gruppo ... su Bari nell'ultima estrazione, dei 5 numeri da mettere in gioco, sono già usciti 31 e 78. Si prosegue ugualmente???? buona giornata
 
serve script in ambo e in cinquina,grazie
Io ho una bozza, per ora, di script; la posizione del 90 sortito preferisco chiederla con Input; Scrivero' la correzione piu avanti:

Option Explicit
Sub Main
' Spia90Roma.ls V.1.6.34 del 31/03/2025
' Script per Spaziometria
'
' Link - https://forum.lottoced.com/threads/spia-90-su-roma.2222511/
'
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)

Dim spia,ini,fin,cp,n,e,app,app1,app2,app3,ru,pos,r1,flarit

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 2
Importi(2,4) = 3
Importi(2,5) = 5
Importi(2,6) = 8
Importi(2,7) = 10
Importi(2,8) = 13
Importi(2,9) = 15
Importi(2,10) = 20
Importi(2,11) = 25
Importi(2,12) = 30

posta(1) = 1
posta(2) = 0
poste(1) = 0
poste(2) = 1

spia = 90
ru = 8
pos = 2

ini = InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10500)
ru = InputBox("Per quale Ruota 1-12, vuoi giocare Num. Spia?",,8)
pos = InputBox("Per quale Posizione 1-5, vuoi giocare Num. Spia?",,2)
flarit = InputBox("Vuoi evidenziare Ritardi Correnti? 1 = Si / Zero = No",,0)
cp = InputBox("Per quanti colpi vuoi giocare?",,6)

ColoreTesto 1
Scrivi String(37,32) & " Estrazione per Ruota: " & ru & " In Posizione: " & pos & " numero spia 90 - Ambo Secco Bari/Cagliari - ",1
Scrivi

ColoreTesto 0

fin = EstrazioneFin

For n = ini To fin

'If(spia = Estratto(n,8,1) Or spia = Estratto(n,8,2) Or spia = Estratto(n,8,3) Or spia = Estratto(n,8,4) Or spia = Estratto(n,8,5)) Then

If(spia = Estratto(n,ru,pos)) Then

'
ReDim MatriceCaselleDaEvid(ru,1)
'
MatriceCaselleDaEvid(1,0) = ru
MatriceCaselleDaEvid(1,1) = pos
'
Call DisegnaEstrazione(n,MatriceCaselleDaEvid)

ruote(1) = 1
ruote(2) = 2
ruote(3) = 0

ColoreTesto 2 :Scrivi "-- Nell' estrazione di ROMA esce Spia 90, Preparo Ambata e Ambo Secco Bari-Cagliari -- script: Spia90Roma.ls ",1

' app = CStr(Estratto(n,8,4))

If e = 1 Then
app3 = CInt(app1)
Else
app3 = CInt(CInt(app1) + CInt(app2))
End If

numeri1(1) = Vert(Fuori90(Estratto(n,8,4) + 73))
numeri1(2) = 91 - Fuori90(Estratto(n,8,4) + 75)

app = Fuori90(Estratto(n,8,3) + 16)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(3) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(3) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(3) = app - 5
Else
If app2 > 4 Then
numeri1(3) = app - 5
Else
numeri1(3) = app + 5
End If
End If
End If

' numeri1(3) = Diametrale (Fuori90(Estratto(n,8,3) + 16)) ' Calcolo il diametrale in decina

app = Fuori90(Estratto(n,8,4) + 43)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(4) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(4) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(4) = app - 5
Else
If app2 > 4 Then
numeri1(4) = app - 5
Else
numeri1(4) = app + 5
End If
End If
End If

app = Fuori90(Estratto(n,8,5) + 25)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(5) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(5) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(5) = app - 5
Else
If app2 > 4 Then
numeri1(5) = app - 5
Else
numeri1(5) = app + 5
End If
End If
End If

If flarit = 1 Then
For r1 = 1 To 2 ' Ruote di Bari e Ca
Scrivi ""
Scrivi "Num:" & Format2(numeri1(1)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(1))) & " Num:" & Format2(numeri1(2)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(2))) & " Num:" & Format2(numeri1(3)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(3))) & " "
Scrivi "Num:" & Format2(numeri1(4)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(4))) & " Num:" & Format2(numeri1(5)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(5))) & " Ruota: " & NomeRuota(r1)
' Scrivi ""
Next
End If

ImpostaGiocata 1,numeri1,ruote,posta,eval(cp),1

ImpostaProgressione 1,Importi

ImpostaGiocata 1,numeri1,ruote,poste,eval(cp),1

ImpostaProgressione 2,Importi

Gioca n

End If

Next
Scrivi

ScriviResoconto ' Questo OK

Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")

End Sub
'
 
Ultima modifica:
Nuova Versione dello Script:

Option Explicit
Sub Main
' Spia90Roma.ls V.1.6.34 del 31/03/2025
' Script per Spaziometria
'
' Link - https://forum.lottoced.com/threads/spia-90-su-roma.2222511/
'
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
Dim poste(5)

Dim spia,ini,fin,cp,n,e,app,app1,app2,app3,ru,pos,r1,flarit,p,tro,bloc

Dim Importi(2,12)

Importi(1,1) = 1
Importi(1,2) = 2
Importi(1,3) = 4
Importi(1,4) = 8
Importi(1,5) = 16
Importi(1,6) = 32
Importi(1,7) = 64
Importi(1,8) = 128
Importi(1,9) = 256
Importi(1,10) = 512
Importi(1,11) = 1024
Importi(1,12) = 2048

Importi(2,1) = 1
Importi(2,2) = 1
Importi(2,3) = 2
Importi(2,4) = 3
Importi(2,5) = 5
Importi(2,6) = 8
Importi(2,7) = 10
Importi(2,8) = 13
Importi(2,9) = 15
Importi(2,10) = 20
Importi(2,11) = 25
Importi(2,12) = 30

posta(1) = 1
posta(2) = 0
poste(1) = 0
poste(2) = 1

spia = 90
ru = 8
pos = 2

ini = InputBox("Da quale Estrazione vuoi controllare [nr.9572 02/01/2019]?",,10250)
ru = InputBox("Per quale Ruota 1-12, vuoi giocare Num. Spia?",,8)
bloc = InputBox("Vuoi terminare al primo Riscontro valido?",,0)
flarit = InputBox("Vuoi evidenziare Ritardi Correnti? 1 = Si / Zero = No",,0)
cp = InputBox("Per quanti colpi vuoi giocare?",,12)

fin = EstrazioneFin

For n = ini To fin

tro = 0
For p = 1 To 5
If(spia = Estratto(n,ru,p)) Then tro = 1: pos = p End If
Next

If tro = 1 Then

ColoreTesto 1
Scrivi String(37,32) & " Estrazione per Ruota: " & ru & " In Posizione: " & pos & " numero spia 90 - Ambo Secco Bari/Cagliari - ",1
Scrivi
ColoreTesto 0

'
ReDim MatriceCaselleDaEvid(ru,1)
'
MatriceCaselleDaEvid(1,0) = ru
MatriceCaselleDaEvid(1,1) = pos
'
Call DisegnaEstrazione(n,MatriceCaselleDaEvid)

ruote(1) = 1
ruote(2) = 2

ColoreTesto 2 :Scrivi "-- Nell' estrazione di ROMA esce Spia 90, Preparo Ambata e Ambo Secco Bari-Cagliari -- script: Spia90Roma.ls ",1

' app = CStr(Estratto(n,8,4))

If e = 1 Then
app3 = CInt(app1)
Else
app3 = CInt(CInt(app1) + CInt(app2))
End If

numeri1(1) = Vert(Fuori90(Estratto(n,8,4) + 73))
numeri1(2) = 91 - Fuori90(Estratto(n,8,4) + 75)

app = Fuori90(Estratto(n,8,3) + 16)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(3) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(3) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(3) = app - 5
Else
If app2 > 4 Then
numeri1(3) = app - 5
Else
numeri1(3) = app + 5
End If
End If
End If

' numeri1(3) = Diametrale (Fuori90(Estratto(n,8,3) + 16)) ' Calcolo il diametrale in decina

app = Fuori90(Estratto(n,8,4) + 43)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(4) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(4) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(4) = app - 5
Else
If app2 > 4 Then
numeri1(4) = app - 5
Else
numeri1(4) = app + 5
End If
End If
End If

app = Fuori90(Estratto(n,8,5) + 25)

e = Len(app)
If e = 1 Then ' numero ompreso tra 1 e 9
If app < 5 Then numeri1(5) = app + 5 Else numeri1(3) = app - 5 End If
If app = 0 Then numeri1(5) = 90 End If
Else
app1 = Mid(app,1,1)
app2 = Mid(app,2,1)
If app2 = 0 Then
numeri1(5) = app - 5
Else
If app2 > 4 Then
numeri1(5) = app - 5
Else
numeri1(5) = app + 5
End If
End If
End If

If flarit = 1 Then
For r1 = 1 To 2
Scrivi ""
Scrivi "Num:" & Format2(numeri1(1)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(1))) & " Num:" & Format2(numeri1(2)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(2))) & " Num:" & Format2(numeri1(3)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(3))) & " "
Scrivi "Num:" & Format2(numeri1(4)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(4))) & " Num:" & Format2(numeri1(5)) & " Rit.:" & Format2(EstrattoRitardo(r1,numeri1(5))) & " Ruota: " & NomeRuota(r1)
' Scrivi ""
Next
End If

ImpostaGiocata 1,numeri1,ruote,posta,eval(cp),bloc

ImpostaProgressione 1,Importi

ImpostaGiocata 1,numeri1,ruote,poste,eval(cp),bloc

ImpostaProgressione 2,Importi

Gioca n

End If

Next
Scrivi

ScriviResoconto ' Questo OK

Call ScriviDistribuzioneCasiInCorso(True,"1,2,3,4,5,6,7,8,9,10,11,12,13")

End Sub
'

Alcuni risultati sono non corrispondenti allo specchietto dell'Autore !
comunque la maggior parte e' OK
 
Salve YuGioh71 , Ho inserito un paio di Script; il Secondo molto corrispondente con i tuoi risultati:
Una piccola differenza il 3 5 2024 ho un 20 al posto del 15 , e' non esce terno ma ambo a CA ( 31 - 78 )
Hai modo di far girare lo Script ? E controllare Grazie
Non appena riesco controllo subito. Comunque ottimo lavoro, grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 24 aprile 2025
    Bari
    80
    69
    75
    58
    16
    Cagliari
    88
    05
    51
    65
    75
    Firenze
    74
    65
    19
    47
    42
    Genova
    87
    89
    22
    32
    26
    Milano
    27
    13
    15
    56
    23
    Napoli
    24
    87
    62
    41
    28
    Palermo
    76
    20
    33
    62
    35
    Roma
    80
    23
    84
    15
    85
    Torino
    78
    34
    18
    41
    62
    Venezia
    05
    84
    83
    31
    46
    Nazionale
    72
    69
    25
    54
    64
    Estrazione Simbolotto
    Genova
    21
    40
    27
    35
    16

Ultimi Messaggi

Indietro
Alto