Semplice per ambo e terno senza fretta medio

[Mauro-emme]

Sub Main
Dim ruota(2),pt(5),ruote(3),a1(12)
pt(2) = 1
pt(3) = 1
clp = 1
ini = InputBox("Da quale estrazione vuoi iniziare?:","Ideato e scritto da Milanetto Mauro per LottoCED",EstrazioneFin - 145)
fine = EstrazioneFin
For es = ini To EstrazioneFin
' ------ INIZIO CODICE RILEVAMENTO CONDIZIONE
ruote(1) = 3
ruote(2) = 6
a = Estratto(es,1,1)
b = Estratto(es + 1,3,1)
c = Estratto(es,5,1)
d = Estratto(es + 1,6,1)
e = Estratto(es,7,1)
f = Estratto(es + 1,8,1)
' ------ FINE CODICE RILEVAMENTO CONDIZIONE
a1(1) = a
a1(2) = b
a1(3) = c
a1(4) = d
a1(5) = e
a1(6) = f
Scrivi "-------------------------------------- semplice per ambo e terno ----------------------------------------------"
ImpostaGiocata 1,a1,ruote,pt,clp,1
Gioca es,1
Scrivi "---------------------------------------------------------------------------------------------------------------"
Scrivi
Next
ScriviResoconto

End Sub

 

[cadrega]

Ma non si può postare il metodo così è chiaro a tutti?

 

[Mauro-emme]

Ma non si può postare il metodo così è chiaro a tutti?

Hai perfettamente ragione, ma nel leggere lo script per esporre il metodo mi sono accorto che è sbagliato. I risultati sono falsati.

Appena ho tempo rielaborerò il metodo come si deve.

Mi scuso per l'errore.