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

 

[volf]

Esempio CASO N. 14 - Agosto - Estrazione: [10287] [107] 22.08.2023
Figura rilevata sul 3° di NZ: 2
Numeri in gioco: 16-72 e 2-1
Estrazione generatrice del pronostico 10287 [107 - 22/08/2023]
G 0001 Numeri in gioco : 16.72 su BA TT per Ambo,Terno,Quaterna
V N. [16.72 ] [BA] [16 .. .. .. 72] C. 1 Ambo 10288 [108 - 24/08/2023]
V N. [16.72 ] [TT] [BA][16 .. .. .. 72] C. 1 Ambo 10288 [108 - 24/08/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 02.01 su BA TT per Ambo,Terno,Quaterna
V N. [02.01 ] [TT] [NA][02 .. .. 01 ..] C. 3 Ambo 10290 [110 - 26/08/2023]
V N. [02.01 ] [BA] [.. 02 01 .. ..] C. 9 Ambo 10296 [116 - 07/09/2023]
V N. [02.01 ] [TT] [BA][.. 02 01 .. ..] C. 9 Ambo 10296 [116 - 07/09/2023]
V N. [02.01 ] [TT] [TO][01 02 .. .. ..] C. 13 Ambo 10300 [120 - 14/09/2023]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 16.72.02.01 su BA TT per Ambo,Terno,Quaterna
V N. [16.72.02.01 ] [BA] [16 .. 01 .. 72] C. 1 Terno 10288 [108 - 24/08/2023]
V N. [16.72.02.01 ] [TT] [BA][16 .. 01 .. 72] C. 1 Terno 10288 [108 - 24/08/2023]
Interrotta per esito verificato

VERIFICA AMBETTI - Bari Nazionale = Figura : 2
Ambetto Ambo 1 su NZ: TT-16.71[16.72-1] del 05.09.2023
Vincita: 61,1x

3 estratto nazionale 11 quindi la figura era 2 e prendi i sommativi della figura 2

 

[volf]

Estrazione generatrice del pronostico 10287 [107 - 22/08/2023]

il terzo estratto della ruota nazionale era 11 e si ricava figura e da tabella si fanno i calcoli




65 5 estratto + 41 tot 16
83 4 estratto +79 tot 72

16 72 primo ambo

83 4 estratto + 09 tot 2
11 3 estratto + 80 tot 1 fuori novanta obbligo

02 01 secondo ambo da giocare x 15 colpi
BA Ambi
BA NZ Ambetti

lunghetta Ambo terno e quaterna BA e TT 16.72.02.01 su BA TT per Ambo,Terno,Quaterna


esiti

Estrazione generatrice del pronostico 10287 [107 - 22/08/2023]
G 0001 Numeri in gioco : 16.72 su BA TT per Ambo
V N. [16.72 ] [BA] [16 .. .. .. 72] C. 1 Ambo 10288 [108 - 24/08/2023]
V N. [16.72 ] [TT] [BA][16 .. .. .. 72] C. 1 Ambo 10288 [108 - 24/08/2023]
Interrotta per raggiunta durata

G 0002 Numeri in gioco : 02.01 su BA TT per Ambo
V N. [02.01 ] [TT] [NA][02 .. .. 01 ..] C. 3 Ambo 10290 [110 - 26/08/2023]
V N. [02.01 ] [BA] [.. 02 01 .. ..] C. 9 Ambo 10296 [116 - 07/09/2023]
V N. [02.01 ] [TT] [BA][.. 02 01 .. ..] C. 9 Ambo 10296 [116 - 07/09/2023]
V N. [02.01 ] [TT] [TO][01 02 .. .. ..] C. 13 Ambo 10300 [120 - 14/09/2023]
Interrotta per raggiunta durata

G 0003 Numeri in gioco : 16.72.02.01 su BA TT per Ambo,Terno,Quaterna
V N. [16.72.02.01 ] [BA] [16 .. 01 .. 72] C. 1 Terno 10288 [108 - 24/08/2023]
V N. [16.72.02.01 ] [TT] [BA][16 .. 01 .. 72] C. 1 Terno 10288 [108 - 24/08/2023]
Interrotta per esito verificato

VERIFICA AMBETTI - Bari Nazionale = Figura : 2
Ambetto Ambo 1 su NZ: TT-16.71[16.72-1] del 05.09.2023
Vincita: 61,1x

ok