Biglietto TO VE

[SoLillo]

Si va avanti comanda il 10 o TO O VE

 

[kira]

uscita l'ambata si va avanti o si lascia? grazie

 

[Reacher]

Porto avanti su Torino ambi separati con ambata e terno

 

[SoLillo]

buongiorno risveglio un pò giù di tono ma comunque ho dato un'occhio a mesi precedenti la previsione ha dato esiti multipli dopo uscita ambata quindi io la tengo ancora in gioco su tutte.

Ci vuole un pò di fattore cappa

 

[SoLillo]

Ci fermiamo e attendiamo

 

[Alien.]

in viaggio per il natale

CONDIZIONI
--------------------
Indice mensile: 1
Ruote di gioco: TO;VE;
Colpi: 13

sviluppo numeri
--------------------
1) Ambata : 1° di NA + 33 [0] -> TO,VE;
2) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 1° di TO + 31 [0] -> TO,VE;
3) Ambata : 1° di NA + 33 [0] -> TO,VE; Abb. per ambo: 5° di PA + 60 [0] -> TO,VE;
4) lunghetta : 1° di NA + 33 [0] -> TO,VE; Abb. : 1° di TO + 31 [0] -> TO,VE; Abb. : 1° di NA + 2 [0] -> TO,VE; Abb. : 4° di NA + 30 [0] -> TO,VE;



NON SONO MOLTO BRAVO CON GLI SCRIPT MA CI PROVO

Option Explicit

Sub Main
' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
Const BA_ = 1
Const CA_ = 2
Const FI_ = 3
Const GE_ = 4
Const MI_ = 5 ' ? Milano = 5
Const NA_ = 6 ' ? Napoli = 6
Const PA_ = 7
Const RM_ = 8
Const TO_ = 9
Const VE_ = 10
Const NZ_ = 11 ' ? Nazionale = 11
Const TT_ = 12 ' ? Tutte = 12

Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,N5,N6,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,E,F,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Ambo2(5),Ambo3(3),Posta(1),Poste(2),Ruo(3),Ruo1(2),Ruo3(3)

FIn = EstrazioneFin
If FIn < 1 Then
MsgBox "Archivio estrazioni non disponibile!",vbCritical
Exit Sub
End If

' --- Input utente ---
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 200)
If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
Ini = CLng(Ini)

Clp = InputBox("Per quanti colpi vuoi giocare?",,13)
If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 13
Clp = CInt(Clp)

Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 13)",,1)
If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 13
Ind_Me = CInt(Ind_Me)

Posta(1) = 1
Poste(2) = 1

Ruo(1) = TO_ : Ruo(2) = VE_: Ruo3(1) = NZ_

Casi = 0

For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es

Dim tA,tB,tC,tD,tE,tF
tA = Estratto(Es,NA_,1) ' NA, 1° estratto
tB = Estratto(Es,TO_,1) ' TO, 1° estratto
tC = Estratto(Es,PA_,5) ' PA, 5° estratto
tD = Estratto(Es,NA_,4) ' NA, 4° estratto
tE = Estratto(Es,PA_,1) ' PA , 1° estratto
tF = Estratto(Es,RM_,2) ' RM, 2° estratto

If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Or IsNull(tE) Or IsNull(tF) Then
Continue
End If

A = CInt(tA)
B = CInt(tB)
C = CInt(tC)
D = CInt(tD)
E = CInt(tE)
F = CInt(tF)


N1 = Fuori90(A + 33)
N2 = Fuori90(B + 31)
N3 = Fuori90(C + 60)
N4 = Fuori90(A + 2)
N5 = Fuori90(D + 30)


Caso = Caso + 1
Casi = Casi + 1

' --- Stampa ---
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " & Es & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0
Scrivi " INDICE MENSILE: " & Ind_Me & " | Gruppo1=" & N1 & "." & N2 & "." & N3 & " | Gruppo2=" & N4 & "." & N5 & "." & N6,1
Scrivi

If N1 Then
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,3
End If


If N1 <> N2 And N1 <> N3 And N2 <> N3 Then
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
End If

If N1 <> N3 Then
Ambo1(1) = N1 : Ambo1(2) = N3 :
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,3
End If

If N1 <> N2 <> N3 <> N4 <> N5 Then
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 :Ambo2(4) = N4 :Ambo2(5) = N5 :
ImpostaGiocata 4,Ambo2,Ruo3,Poste,Clp,3
End If


Gioca Es

Scrivi Space(20) & "VERIFICA AMBETTI",1,,,2

For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For

Ambetto = VerificaAmbetto(Ambo,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If

Ambetto = VerificaAmbetto(Ambo,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,TO_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su TO: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If

Ambetto = VerificaAmbetto(Ambo1,VE_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su VE: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1



End If





Next

If ScriptInterrotto Then Exit Sub
End If
Next

ScriviResoconto
End Sub

PERFETTO , GRAZIE.
MA PUOI INSERIRE DISTRIBUZIONE ESITI RUOTA PER RUOTA PER VEDERE LA RUOTA PIU PROFIQUA.

 

[Reacher]

Ruota Vincenti
---------------------------------
Bari 6 ( 4,00 % )
Cagliari 3 ( 2,00 % )
Firenze 5 ( 3,33 % )
Genova 4 ( 2,67 % )
Milano 2 ( 1,33 % )
Napoli 1 ( 0,67 % )
Palermo 3 ( 2,00 % )
Roma 2 ( 1,33 % )
Torino 8 ( 5,33 % )
Venezia 5 ( 3,33 % )
Nazionale 1 ( 0,67 % )


gio 02.01.2025 [10571]
G 1: ATQ 62.67.14.31.27 To 13/13
A 27.62 su To 12° colpo [10583/23.01.2025]

sab 01.02.2025 [10589]
G 1: ATQ 30.87.10.89.35 To 13/13
A 87.35.30 su To 13° colpo [10602/25.02.2025]
T 87.35.30 su To 13° colpo [10602/25.02.2025]

sab 01.03.2025 [10606]
G 1: ATQ 77.08.47.46.73 To 13/13
A 46.08.77 su To 4° colpo [10610/08.03.2025]
T 46.08.77 su To 4° colpo [10610/08.03.2025]

mar 01.04.2025 [10623]
G 1: ATQ 08.75.55.67.36 To 13/13
A 08.75.36 su To 4° colpo [10627/08.04.2025]
T 08.75.36 su To 4° colpo [10627/08.04.2025]

ven 02.05.2025 [10640]
G 1: ATQ 30.20.18.89.17 To 13/13
A 89.30.20 su To 5° colpo [10645/09.05.2025]
T 89.30.20 su To 5° colpo [10645/09.05.2025]
A 30.18 su To 13° colpo [10653/23.05.2025]

mar 03.06.2025 [10659]
G 1: ATQ 06.69.11.65.76 To 13/13
negativo
mar 01.07.2025 [10675]
G 1: ATQ 30.67.69.89.72 To 13/13
negativo
ven 01.08.2025 [10693]
G 1: ATQ 33.03.60.02.14 To 13/13
A 03.02.60 su To 12° colpo [10705/22.08.2025]
T 03.02.60 su To 12° colpo [10705/22.08.2025]

mar 02.09.2025 [10711]
G 1: ATQ 51.48.25.20.60 To 13/13
negativo
gio 02.10.2025 [10728]
G 1: ATQ 47.10.09.16.65 To 13/13
negativo
lun 03.11.2025 [10746]
G 1: ATQ 90.15.44.59.50 To 13/13
A 90.15.59.50 su To 1° colpo [10747/04.11.2025]
T 90.15.59.50 su To 1° colpo [10747/04.11.2025]
Q 90.15.59.50 su To 1° colpo [10747/04.11.2025]

mar 02.12.2025 [10763]
G 1: ATQ 10.54.21.69.73 To 7/13
in corso (7° su 13)


=======================================
Resoconto complessivo di 1 giocata
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 12
in corso: 1
casi finali: 11
positivi: 7
negativi: 4
Pronostici generati: 12
Pronostici vincenti: 8 (66,7 %)
Estrazioni di gioco: 150
Tentativi (scontrini giocati): 150
Vincite (scontrini vincenti): 8 (5,33 %)
Attesa media: 8,00




Resoconto totale giocate
Dettaglio Ruote (Pronostici)

Ruota Vincenti Giocati
-----------------------------
Torino 8 ( 5,33 % ) 150
Totale 8 ( 5,33 % ) 150