Decima estrazione su Napoli

[Mauro-emme]

Nuova tecnica, seguitela per vedere se da qualche soddisfazione!

Sub Main
Dim ruota(2),am(3),pt(4),ruote(6),a1(4),a2(4),a3(4),a4(4),a5(4)
pt(2) = 1
pt(3) = 1
pt(4) = 1
clp = 8
ini = 145
pr = 145
fine = EstrazioneFin
ini = EstrazioneFin - pr
r = InputBox("scegli ruota?","Metodo e script di Mauro per lottoced",6)
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
If IndiceMensile(es) = 10 Then
ruote(6) = 11
a = Estratto(es,r,5)
b = Estratto(es,r,4)
c = Estratto(es,r,3)
d = Estratto(es,r,2)
e = Estratto(es,r,1)
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
cg = 0
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
cg = cg + 1
ImpostaGiocata cg,a1,ruote,pt,clp,0
a2(1) = a
a2(2) = b
a2(3) = c
a2(4) = e
cg = cg + 1
ImpostaGiocata cg,a2,ruote,pt,clp,0
a3(1) = a
a3(2) = b
a3(3) = d
a3(4) = e
cg = cg + 1
ImpostaGiocata cg,a3,ruote,pt,clp,0
a4(1) = a
a4(2) = c
a4(3) = d
a4(4) = e
cg = cg + 1
ImpostaGiocata cg,a4,ruote,pt,clp,0
a5(1) = b
a5(2) = c
a5(3) = d
a5(4) = e
cg = cg + 1
ImpostaGiocata cg,a5,ruote,pt,clp,0
Gioca es,1
Scrivi
Scrivi
Scrivi "---------------------------------------Script di Mauro---------------------------------------"
Scrivi "---------------------------------866% - STATISTICO SU NAPOLI---------------------------------"
Scrivi
Scrivi
End If
Next
ScriviResoconto
End Sub

 

[Aline]

Peccato non capisco come estrapolare la previsione

 

[paulo]

con lo Script non ci capisco un tubo, per me è arabo

 

[Mauro-emme]

Appena ho tempo vi spiego. Forse c'è anche un errore nello sviluppo o c'è un errrore in Spaziometria. Devo controllare meglio.

Buon pomeriggio.

 

[80Sete]

Grazie Mauro-emme..... non sono male i risultati, complimenti
comunque x Aline e paulo, ci sono in gioco 5 numeri 24.49.76.88.89 su TUTTE Ambo-Terno Quat.
divisi in 4 quaterne a girare, questo mese (10° di settembre) ha già dato 9 Ambi,
può continuare la serie ? solo l'autore potrà dirlo.
c'è da aspettare l'estrazione del 23 ottobre, x la nuova previsione.
Buona serata a tutti.

 

[Aline]

Grazie