CODICE
Sub Main()
ColoreTesto 1 :Scrivi "-----------------Formula 23-41-68 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
Dim ruota(1),amb(20),nu3(6),pt(1),pt1(3),ruote(2),nu1(6),nu2(6),pt2(3)
pt(1) = 1
pt1(2) = 1
pt2(2) = 1:pt2(3) = 1
clp = 15
co = 0
ini = 9000
For es = ini To EstrazioneFin
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
For p1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r,p1)
b = Estratto(es,r,p2)
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 5
c = Estratto(es,r1,p)
ok = 0
If(a = 23 Or a = 41 Or a = 68)_
And(b = 23 Or b = 41 Or b = 68)_
And(c = 23 Or c = 41 Or c = 68) Then :amb(1) = 9 :amb(2) = 9:amb(3) = 20:amb(4) = 9:amb(5) = 73:amb(6) = 9:amb(7) = 80:amb(8) = 9:amb(9) = 86:amb(10) = 11:amb(11) = 20:amb(12) = 73:amb(13) = 80:amb(14) = 86 :ok = 1
If ok = 1 Then
If(r <> r1 And c <> a And c <> b) Then
co = co + 1
ColoreTesto 2
Scrivi String(65,"=") : ColoreTesto 0
Scrivi "Data " & DataEstrazione(es) & " "
Scrivi SiglaRuota(r) & " " & StringaEstratti(es,r)
Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
Scrivi "Su " & FormatSpace(NomeRuota(r),10) & " Spie " & a & " " & b
Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " Spia " & c
Scrivi
ruote(1) = r
ruote(2) = r1
cg = 0
nu1(1) = amb(1)
cg = cg + 1
ImpostaGiocata cg,nu1,ruote,pt,clp,1
nu2(1) = amb(2)
nu2(2) = amb(3)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(4)
nu2(2) = amb(5)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(6)
nu2(2) = amb(7)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu2(1) = amb(8)
nu2(2) = amb(9)
cg = cg + 1
ImpostaGiocata cg,nu2,ruote,pt1,clp,2
nu3(1) = amb(10)
nu3(2) = amb(11)
nu3(3) = amb(12)
nu3(4) = amb(13)
nu3(5) = amb(14)
cg = cg + 1
ImpostaGiocata cg,nu3,ruote,pt2,clp,2
Gioca es,1
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi : Scrivi "Casi Analizzati Validi su " & tmp & " Estrazioni ... " & CInt(co),1
ScriviResoconto
ColoreTesto 1 :Scrivi "-----------------Formula 23-41-48 di marco",1
ColoreTesto 1 :Scrivi "------------------- Listato Marco",1
Scrivi : ColoreTesto 0
End Sub
