1°estrazione a Bari

[albert]

prendere il 3° Nazionale + 44 sara' l'ambata da giocare come estratto semplice e determinata in 5° pos. poi abbinamenti x ambo saranno 3
43+ IL 5° DI NAPOLI
17+ IL 4° DI GENOVA
72+ IL 4° DI TORINO
I COLPI DI GIOCO SONO 8 DI CUI DUE GIA' ANDATI LA RUOTA DI GIOCO E' SOLO BARI E PER CHI PUO' AZZARDARE METTEREI ANCHE ORO SPESSO ESCONO IN 5° POSIZIONE
BUONA FORTUNA

 

[spike]

grazie

 

[secco]

Albert la ruota su cui giocare e Bari?

 

[secco]

Seguo anche l altra tua previsione per ambo e terno spia 17

 

[albert]

Albert la ruota su cui giocare e Bari?

Ciao secco grazie per la fiducia si Bari e' la ruota su cui giocare e poi sulla previsione spia 17 sarebbero finiti i colpi con un nulla di fatto ma io 2/3 colpi li gioco ancora perche' il 24 mi sembra maturo
Algoritmi
Ultima data di calcolo previsione: giovedì 01 ott 2026
A1: 43.. +5°NA - Decod.: 77 - Capog.: 26 - Cop.: 5/10 - Ruote gioco: BA
A2: 17.. +4°GE - Decod.: 46 - Capog.: 26 - Cop.: 4/10 - Ruote gioco: BA
A3: 72.. +4°TO - Decod.: 31 - Capog.: 26 - Cop.: 4/10 - Ruote gioco: BA
Copertura cumulativa: 9/10 (90,00% )

​

 

[secco]

Albert grazie per la risposta, per quanto riguarda il 24 ho unito la previsione in una sestina il 24 su bari mi stuzzica almeno per altri 2 colpi in euro lo metto...

 

[vinci]

Sub Main() ColoreTesto 1
Scrivi
Scrivi " Calcolo alla 1° ESTRAZIONE MENSILE per BARI una Quartina da anno 2026",1
Scrivi
Scrivi
Scrivi " metodo da testare per Ambo, Terno e Quaterna (r+n) ",1
Scrivi
ColoreTesto 0
Dim ruote(12)
Dim ruot(1)
Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
poste(2) = 0.80
poste(3) = 0.15
poste(4) = 0.05

klp = 12
ini = 10780
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then

ruote(5) = 1


casi = casi + 1
co = co + 1

ColoreTesto 2:Scrivi String(95,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0

nn1(1) = Fuori90(Estratto(es,12,3) + 44)
nn1(2) = Fuori90(Estratto(es,6,5) + 43)
nn1(3) = Fuori90(Estratto(es,4,4) + 17)
nn1(4) = Fuori90(Estratto(es,9,4) + 72)


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nn1) Then
rip = 1
While NumeriRipetuti(nn1)
For x = 1 To 04 ' numeri totali 7-1=6
For y = x + 1 To 5 ' 7 perche i numeri in totale sono 7
If nn1(x) = nn1 Then nn1 = Fuori90(nn1 + 1)
Next
Next
Wend
End If
Rem fine formula

EliminaRipetuti nn1
ImpostaGiocata 1,nn1,ruote,poste,klp,3

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

______________________________________________________________________________________________________________________

Salve mi sono permesso di fare uno script mettendo assieme tutti e 4 i numeri
formando una quartina che da inizio anno ha dato dei buoni risultati entro i 12 colpi di gioco
La previsione in corso è la sottostante quartina da giocare per ambo, terno e quaterna

BARI 26-31-46-77

 

[albert]

Sub Main() ColoreTesto 1
Scrivi
Scrivi " Calcolo alla 1° ESTRAZIONE MENSILE per BARI una Quartina da anno 2026",1
Scrivi
Scrivi
Scrivi " metodo da testare per Ambo, Terno e Quaterna (r+n) ",1
Scrivi
ColoreTesto 0
Dim ruote(12)
Dim ruot(1)
Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
poste(2) = 0.80
poste(3) = 0.15
poste(4) = 0.05

klp = 12
ini = 10780
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then

ruote(5) = 1


casi = casi + 1
co = co + 1

ColoreTesto 2:Scrivi String(95,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0

nn1(1) = Fuori90(Estratto(es,12,3) + 44)
nn1(2) = Fuori90(Estratto(es,6,5) + 43)
nn1(3) = Fuori90(Estratto(es,4,4) + 17)
nn1(4) = Fuori90(Estratto(es,9,4) + 72)


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nn1) Then
rip = 1
While NumeriRipetuti(nn1)
For x = 1 To 04 ' numeri totali 7-1=6
For y = x + 1 To 5 ' 7 perche i numeri in totale sono 7
If nn1(x) = nn1 Then nn1 = Fuori90(nn1 + 1)
Next
Next
Wend
End If
Rem fine formula

EliminaRipetuti nn1
ImpostaGiocata 1,nn1,ruote,poste,klp,3

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

______________________________________________________________________________________________________________________

Salve mi sono permesso di fare uno script mettendo assieme tutti e 4 i numeri
formando una quartina che da inizio anno ha dato dei buoni risultati entro i 12 colpi di gioco
La previsione in corso è la sottostante quartina da giocare per ambo, terno e quaterna

BARI 26-31-46-77

Bravissimo vinci tutto quello che serve a far vincere piu' persone possibile ben venga buone vincite