Ciao Janez,Guarda se va bene.Ho semplificato in 4 terzine e 1 sestina
Sub Main() Dim ruote(2)
Dim posta(1)
Dim poste1(2)
Dim poste2(3)
ruote(1) = 1
ruote(2) = 2
posta(1) = 1
poste1(2) = 1
poste2(2) = 1
poste2(3) = 1
clp = 9
ini = EstrazioneFin - 50
fin = EstrazioneFin
co = 0
For es = ini To fin
AvanzamentoElab ini,fin,es
a = Estratto(es,1,5)
b = Estratto(es,2,5)
c =(a + b)
d = Fuori90(c + 20)'1° numero x la quadratura
e = Fuori90(90 + c) - 20 '2° numero x la quadratura
f =(d + e)
g1 = Fuori90(f - 13) '3° numero x la quadratura
g2 = Fuori90(f - 26) '4° numero x la quadratura
h = Fuori90(d + e) ' 1° abbinamento
h1 = Fuori90(d + g2) ' 2° abbinamento
h2 = Distanza(h,h1) ' 3° abbinamento
h3 = Fuori90(g1 + g2) ' 4 °abbinamento
l = Fuori90(h + h2) ' 1° ambata
l1 = Fuori90(e + g1) ' 2° ambata
ambata = Array(l,l1)
ambo1 = Array(l,l1,h)
ambo2 = Array(l,l1,h1)
ambo3 = Array(l,l1,h2)
ambo4 = Array(l,l1,h3)
lunghetta = Array(l,l1,h,h1,h2,h3)
co = co + 1
ImpostaGiocata 1,ambata,ruote,posta,clp,1
ImpostaGiocata 2,ambo1,ruote,poste1,clp,2
ImpostaGiocata 3,ambo2,ruote,poste1,clp,2
ImpostaGiocata 4,ambo3,ruote,poste1,clp,2
ImpostaGiocata 5,ambo4,ruote,poste1,clp,2
ImpostaGiocata 6,lunghetta,ruote,poste2,clp,2
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ScriviResoconto
End Sub