Ba NZ Buon rientro a tutti

[volf]

Casi esaminati : 17 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT
Casi vincenti : 16
Casi in corso : 1. | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT
+----------------------------------+ +----------------------------------+ +----------------------------------+

| Percentuale pos. : 94,12 % | | BA | | 40| 6| 1| | | BA | | 100| 100| 100| | | BA |

| Spesa : 1.715,20 €

| Vincita : 22.558,63 €

| Guadagno : 20.843,43 € | | TT | | 66| 6| 1| | | TT | | 165| 100| 100| | | TT | | |

| Perc. Rendimento : 1215,218 %

| Mass. Esposizione : 124,80 € |

| Ambo su ruota : 40 |

| Ambo su tutte : 66 |

| Terno su ruota : 6 |

| Terno su tutte : 6 |

| Quaterna su ruota : 1 |

| Quaterna su tutte : 1 |

Anticipazione (Spoiler): Spoiler

Option Explicit

Sub Main

' --- COSTANTI RUOTE ---

Dim BA_, CA_, FI_, GE_, MI_, NA_, PA_, RO_, TO_, VE_, TT_, NZ_

BA_ = 1 : CA_ = 2 : FI_ = 3 : GE_ = 4 : MI_ = 5 : NA_ = 6

PA_ = 7 : RO_ = 8 : TO_ = 9 : VE_ = 10 : TT_ = 11 : NZ_ = 12


Dim FIn, Es, Es2, Ini, N1, N2, N3, N4, Retnum, Retvinc

Dim Caso, Casi, Clp, Ind_Me, Ambetto, k, flFig

Dim Ambo(2), Ambo1(2), Ambo2(4), Poste(5), Ruo(3), Ruo1(2)

Dim tA, tB, tC, tD, tE



' --- IMPOSTAZIONI ---

FIn = EstrazioneFin

Ini = InputBox("Inserisci l'estrazione da cui iniziare",, FIn - 2800)

Clp = 15 ' Impostato a 15 colpi

Ind_Me = 13 ' 11ª estrazione del mese



' --- Configurazione Poste ---

Poste(2) = 1 ' Posta per Ambo

Poste(3) = 0.5 ' Posta per terno

Poste(4) = 0.10 ' Posta per quaterna


Ruo(1) = BA_ : Ruo(2) = TT_' Ruote di gioco principali

Casi = 0


' --- CICLO PRINCIPALE ---

For Es = Ini To FIn



' FILTRO MESE DI AGOSTO

If Mese(Es) = 8 Then



' FILTRO INDICE MENSILE

If IndiceMensile(Es) = Ind_Me Then



tA = Estratto(Es, NZ_, 1)

tB = Estratto(Es, NZ_, 2)

tC = Estratto(Es, NZ_, 3)

tD = Estratto(Es, NZ_, 4)

tE = Estratto(Es, NZ_, 5)



If tC > 0 Then

flFig = Figura(tC) ' Calcolo figura sul 3° di Nazionale



' --- NUOVA LOGICA FIGURE ---

Select Case flFig

Case 1 : N1 = Fuori90(tA + 50) : N2 = Fuori90(tD + 15) : N3 = Fuori90(tA + 47) : N4 = Fuori90(tC + 29)

Case 2 : N1 = Fuori90(tE + 41) : N2 = Fuori90(tD + 79) : N3 = Fuori90(tD + 09) : N4 = Fuori90(tC + 80)

Case 3 : N1 = Fuori90(tD + 86) : N2 = Fuori90(tA + 84) : N3 = Fuori90(tE + 49) : N4 = Fuori90(tD + 20)

Case 4 : N1 = Fuori90(tC + 22) : N2 = Fuori90(tD + 71) : N3 = Fuori90(tE + 33) : N4 = Fuori90(tB + 05)

Case 5 : N1 = Fuori90(tC + 32) : N2 = Fuori90(tE + 24) : N3 = Fuori90(tD + 08) : N4 = Fuori90(tA + 19)

Case 6 : N1 = Fuori90(tC + 85) : N2 = Fuori90(tB + 32) : N3 = Fuori90(tD + 16) : N4 = Fuori90(tA + 33)

Case 7 : N1 = Fuori90(tB + 67) : N2 = Fuori90(tE + 60) : N3 = Fuori90(tB + 73) : N4 = Fuori90(tC + 27)

Case 8 : N1 = Fuori90(tD + 06) : N2 = Fuori90(tC + 29) : N3 = Fuori90(tE + 55) : N4 = Fuori90(tD + 80)

Case 9 : N1 = Fuori90(tB + 85) : N2 = Fuori90(tD + 53) : N3 = Fuori90(tE + 67) : N4 = Fuori90(tB + 81)

End Select


Casi = Casi + 1

Scrivi String(100, "=")

Scrivi "CASO N. " & Casi & " - Agosto - Estrazione: " & GetInfoEstrazione(Es), 1

Scrivi "Figura rilevata sul 3° di NZ: " & flFig, 1

Scrivi "Numeri in gioco: " & N1 & "-" & N2 & " e " & N3 & "-" & N4, 1


' --- IMPOSTAZIONE GIOCATE ---

Ambo(1) = N1 : Ambo(2) = N2

ImpostaGiocata 1, Ambo, Ruo, Poste, Clp,6



Ambo1(1) = N3 : Ambo1(2) = N4

ImpostaGiocata 2, Ambo1, Ruo, Poste, Clp,6



Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 : Ambo2(4) = N4

ImpostaGiocata 3, Ambo2, Ruo, Poste, Clp,2


Gioca Es, True


' --- Verifica Ambetti SOLO su BA e NZ (come richiesto) ---

Scrivi Space(20) & "VERIFICA AMBETTI - Bari Nazionale = Figura : " & flFig,1,,,2


For k = 1 To Clp

Es2 = Es + k

If Es2 > FIn Then Exit For


' ? Ruote per ambetto:

Ruo1(1) = BA_ : Ruo1(2) = NZ_


' --- ---

Ambetto = VerificaAmbetto(Ambo,1,Es2,Retnum,Retvinc)

If Ambetto > 0 Then

Scrivi " Ambetto Ambo 1 su BA: " & Retnum & " del " & DataEstrazione(Es2),1

Scrivi " Vincita: " & Retvinc & "x",1

End If



Ambetto = VerificaAmbetto(Ambo,12,Es2,Retnum,Retvinc)

If Ambetto > 0 Then

Scrivi " Ambetto Ambo 1 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1

Scrivi " Vincita: " & Retvinc & "x",1

End If

Ambetto = VerificaAmbetto(Ambo1,1,Es2,Retnum,Retvinc)

If Ambetto > 0 Then

Scrivi "Ambetto Ambo 2 su BA: " & Retnum & " del " & DataEstrazione(Es2),1

Scrivi " Vincita: " & Retvinc & "x",1

End If



Ambetto = VerificaAmbetto(Ambo1,12,Es2,Retnum,Retvinc)

If Ambetto > 0 Then

Scrivi " Ambetto Ambo 2 su NZ: " & Retnum & " del " & DataEstrazione(Es2),1

Scrivi " Vincita: " & Retvinc & "x",1

End If


' Scrivi ""


Next

If ScriptInterrotto Then Exit Sub



End If

End If

End If

If ScriptInterrotto Then Exit For

Next



ScriviResoconto

End Sub

Estrazione genaratrice 13a

3 estratto Nazionale si ricava figura per ogni figura si procede a calcoli come tabella

 

[kira]

nn potresti mettere un esempio x ki di questa tabella ne capisce poco? Grazie

 

[volf]

Prendi la 13 Estrazione solo di agosto e ricavi la figura ad ogni figura da tabella procedi con i calcoli

 

[volf]

====================================================================================================
CASO N. 17 - Agosto - Estrazione: [10914] [135] 22.08.2026
Figura rilevata sul 3° di NZ: 7
Numeri in gioco: 89-53 e 5-34
Estrazione generatrice del pronostico 10914 [135 - 22/08/2026]
G 0001 Numeri in gioco : 89.53 su BA TT per Ambo,Terno,Quaterna
In corso per altre 15 estrazioni
G 0002 Numeri in gioco : 05.34 su BA TT per Ambo,Terno,Quaterna
In corso per altre 15 estrazioni
G 0003 Numeri in gioco : 89.53.05.34 su BA TT per Ambo,Terno,Quaterna
In corso per altre 15 estrazioni
VERIFICA AMBETTI - Bari Nazionale = Figura : 7
questa la previsione in corso per agosto e settembre e consigliabile BA ambi per recupero anche ambi a tutte

ma nello studio e nello script ci sono molti ambetti su BA e NZ