Biglietto TO VE

[Lillo.]

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

 

[Lillo.]

LA CINQUINA VA GIOCATA SU TO VE TT PER AMBO TERNO QUATERNA
CHI PUò CORREGGA LO SCRIPT

 

[kira]

uscito ambo al 1°cp....TOR

 

[notte]

No uscito la quaterna a Torino con 90-15-59-50

 

[Lillo.]

Buongiorno qualcuno ha seguito questa tecnica?

 

[Reacher]

Ciao ecco il resoconto, a modo mio senza ambetti, ho usato uno script personalizzato
Buon metodo

 

[Lillo.]

più o meno cosi vedremo se darà ancora dajee

 

[Lillo.]

 

[giorgio 2]

buona sera non ho capito i numeri da giocare x favore qualcuno può meterli, grazie.

 

[Reacher]

10 54 21 69 73 Torino

 

[Lillo.]

Buongiorno qualcuno sta seguendo la giocata.

Info grazie sono all'esterno

 

[Anniverdi69]

Buon pomeriggio io la sto giocando speriamo bene

 

[vise62]

La sto giocando anch'io. Porta il 54 in ritardo su tante ruote

 

[Lillo.]

Wamoss provo a giocare anche da qui poi da sabato mattina sono operativo e al PC posso vedere meglio andamenti delle mie tecniche pubbliche e no dajeee amici

 

[Lillo.]

La sto giocando anch'io. Porta il 54 in ritardo su tante ruote

Gentilmente mi giri i numeri che stai giocando

 

[Lillo.]

Dovrebbe essere questa

10 54 21 62 73 quindi 10 ambata

 

[Lillo.]

E quindi il 10 che comanda non è uscito andiamo avanti.

La cinquina di super lillo purtroppo non posso pubblicare questo forum non permette invio in forma privata ma se guardate bene nel mio profilo se fate ballare l'occhio trovate la via per averla sempre in forma privata e gratuita

 

[Anniverdi69]

Buonasera SoLillo scusa se sono un po’ stupida ma non capisco dove si trova il tuo profilo x avere la via giusta mi farebbe molto piacere seguirti grazie x la risposta

 

[Lillo.]

Credo due ambetti Torino ma non puntavo a quello

 

[Anniverdi69]

Sì ho visto che sono usciti ma io non ho giocato ambetto grazie ti chiedo sì continua a Torino