Scrivi
ColoreTesto 1
Scrivi String(38," ") & " ",1
Scrivi String(30," ") & " * CHIUSURA CICLOMETRICA VINCENTE * ",1
ColoreTesto 0
ColoreTesto 1
ColoreTesto 0
Sub Main()
Dim n(2),nn(2),n2(5)
Dim ruote(3),ruota(2)
Dim ambata(1),ambo1(2),ambo2(2),ambo3(2),ambo4(2),lg(5)
Dim posta(1),poste(2),poste1(4)
posta(1) = 1:poste(2) = 1
poste1(2) = 1:poste1(3) = 1:poste1(4) = 1
foo = 10 '<---- imposta estrazioni precedenti
fin = EstrazioneFin
Scrivi
Scrivi String(35," ") & " ",1
Scrivi
Scrivi String(38," ") & DataEstrazione(ini) & " " & DataEstrazione(fin)
ColoreTesto 1
Scrivi String(39," ") & " ",1
ColoreTesto 0
For es = EstrazioneFin - foo To fin
AvanzamentoElab ini,fin,es
Messaggio(es)
For r1 = 1 To 10
For p1 = 1 To 4:For p2 = p1 + 1 To 5
n(1) = Estratto(es,r1,p1): n(2) = Estratto(es,r1,p2)
OrdinaMatrice n
dis1 = Abs(n(1) - n(2)):
For r2 = r1 + 1 To 11
If r2 = 11 Then r2 = 12
For p3 = 1 To 4:For p4 = p3 + 1 To 5
nn(1) = Estratto(es,r2,p3): nn(2) = Estratto(es,r2,p4)
OrdinaMatrice nn
dis2 = Abs(nn(1) - nn(2)):
dab1 = Abs(n(1) - nn(1)):
dab2 = Abs(nn(1) - n(2)):
dab3 = Abs(n(2) - nn(1)):
If n(1) <> nn(1) And n(1) <> nn(2) And n(2) <> nn(1) And n(2) <> nn(2) Then
ok = 0
If dis1 = dis2*2 And dis1 = dab1 Then ambat = Fuori90(n(1) + dis2):ok = 1
If dis1 = dis2/2 And dis1 = dab2 Then ambat = Fuori90(n(2) + dis2):ok = 1
If dis1 = dis2 And dab3 = dis1*2 Then ambat = Fuori90(n(2) + dis1):ok = 1
If ok = 1 Then
n2(1) = n(1) : n2(2) = n(2):n2(3) = nn(1) : n2(4) = nn(2): n2(5) = ambat
OrdinaMatrice n2
ambata(1) = ambat
ambo1(1) = ambat: ambo1(2) = n(1)
ambo2(1) = ambat: ambo2(2) = n(2)
ambo3(1) = ambat: ambo3(2) = nn(1)
ambo4(1) = ambat: ambo4(2) = nn(2)
lg(1) = ambat: lg(2) = n(1): lg(3) = n(2): lg(4) = nn(1):lg(5) = nn(2)
'ruote(1)=r1:ruote(2)=r2:ruote(3)=11
ruota(1) = r1:ruota(2) = r2:co = 0
casi = casi + 1:Scrivi String(65,"-") & " ",1
Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & Format2(n(1)) & " " & Format2(n(2)) & " --- " & Format2(dis1) & Chr(10) & _
DataEstrazione(es) & " " & SiglaRuota(r2) & " " & Format2(nn(1)) & " " & Format2(nn(2)) & " --- " & Format2(dis2) & Chr(10) & _
Format2(n(1)) & " (" & dis1 & ") " & Format2(n(2)) & Space(4) & Format2(nn(1)) & " (" & Format2(dis2) & " ) " & nn(2) & " (" & Format2(dis2) & ") ",1
Scrivi " cinquina completa " & StringaNumeri(n2) & " numero mancante (" & Format2(ambat) & ") ",1
Scrivi String(65,"-")
co = co + 1
ImpostaGiocata co,ambata,ruota,posta,9
co = co + 1
ImpostaGiocata co,ambo1,ruota,poste,9
co = co + 1
ImpostaGiocata co,ambo2,ruota,poste,9
co = co + 1
ImpostaGiocata co,ambo3,ruota,poste,9
co = co + 1
ImpostaGiocata co,ambo4,ruota,poste,9
co = co + 1
ImpostaGiocata co,lg,ruota,poste1,9
Gioca es
End If
End If
Next
Next
Next
Next
Next
Next
Next
End Sub
Cordiali saluti.
