Option Explicit
Sub Main
Dim n1(5),ruote(2),poste(10)
Dim n2(5),ce,Ini,fin,es,r1,r2,p1,p2,so1,so2,casi,co,Clp
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
Dim am10(2)
Dim am11(2)
Dim am12(2)
Dim am13(2)
Dim am14(2)
Dim am15(2)
Dim am16(2)
Dim am17(2)
Dim am18(2)
Dim am19(2)
Dim am20(2)
Dim am21(2)
Dim am22(2)
Dim am23(2)
Dim am24(2)
Dim am25(2)
Dim am26(2)
poste(2) = 1
Clp = 9
ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",EstrazioneFin - 9481)
Ini = ce
fin = EstrazioneFin
Scrivi String(86,"="),1
For es = Ini To EstrazioneFin
Messaggio "ASPETTA E SPERA...elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For p1 = 1 To 5
For p2 = 1 To 5
n1(p1) = Estratto(es,r1,p1)
n2(p2) = Estratto(es,r2,p2)
Next
Next
so1 =(n1(1) + n1(2) + n1(3) + n1(4) + n1(5))
so2 =(n2(1) + n2(2) + n2(3) + n2(4) + n2(5))
If so1 = 223 Or so1 = 227 Or so1 = 229 Then
If so2 = 223 Or so2 = 227 Or so2 = 229 Then
If so2 = so1 Then
ruote(1) = r1
ruote(2) = r2
casi = casi + 1
Scrivi String(65,"="),1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ]" & "Somma [ " & Format2(so1) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " ]" & "Somma [ " & Format2(so2) & " ] ",1
Scrivi String(60,"-") & " caso n° " &(casi):co = 0
am1(1) = 45
am1(2) = 25
am2(1) = 45
am2(2) = 1
am3(1) = 45
am3(2) = 43
am4(1) = 45
am4(2) = 48
am5(1) = 45
am5(2) = 62
am6(1) = 45
am6(2) = 3
am7(1) = 25
am7(2) = 35
am8(1) = 25
am8(2) = 3
am9(1) = 25
am9(2) = 43
am10(1) = 43
am10(2) = 35
am11(1) = 43
am11(2) = 62
am12(1) = 43
am12(2) = 50
am13(1) = 22
am13(2) = 3
am14(1) = 62
am14(2) = 3
am15(1) = 62
am15(2) = 48
am16(1) = 48
am16(2) = 35
am17(1) = 43
am17(2) = 79
am18(1) = 22
am18(2) = 79
am19(1) = 48
am19(2) = 22
am20(1) = 79
am20(2) = 80
am21(1) = 79
am21(2) = 50
am22(1) = 79
am22(2) = 61
am23(1) = 43
am23(2) = 64
am24(1) = 48
am24(2) = 63
am25(1) = 79
am25(2) = 76
am26(1) = 62
am26(2) = 64
co = co + 1
ImpostaGiocata 1,am1,ruote,poste,Clp,2
ImpostaGiocata 2,am2,ruote,poste,Clp,2
ImpostaGiocata 3,am3,ruote,poste,Clp,2
ImpostaGiocata 4,am4,ruote,poste,Clp,2
ImpostaGiocata 5,am5,ruote,poste,Clp,2
ImpostaGiocata 6,am6,ruote,poste,Clp,2
ImpostaGiocata 7,am7,ruote,poste,Clp,2
ImpostaGiocata 8,am8,ruote,poste,Clp,2
ImpostaGiocata 9,am9,ruote,poste,Clp,2
ImpostaGiocata 10,am10,ruote,poste,Clp,2
ImpostaGiocata 11,am11,ruote,poste,Clp,2
ImpostaGiocata 12,am12,ruote,poste,Clp,2
ImpostaGiocata 13,am13,ruote,poste,Clp,2
ImpostaGiocata 14,am14,ruote,poste,Clp,2
ImpostaGiocata 15,am15,ruote,poste,Clp,2
ImpostaGiocata 16,am16,ruote,poste,Clp,2
ImpostaGiocata 17,am17,ruote,poste,Clp,2
ImpostaGiocata 18,am18,ruote,poste,Clp,2
ImpostaGiocata 19,am19,ruote,poste,Clp,2
ImpostaGiocata 20,am20,ruote,poste,Clp,2
ImpostaGiocata 21,am21,ruote,poste,Clp,2
ImpostaGiocata 22,am22,ruote,poste,Clp,2
ImpostaGiocata 23,am23,ruote,poste,Clp,2
ImpostaGiocata 24,am24,ruote,poste,Clp,2
ImpostaGiocata 25,am25,ruote,poste,Clp,2
ImpostaGiocata 26,am26,ruote,poste,Clp,2
Gioca es
End If
End If
End If
Next
Next
Next
ScriviResoconto
Scrivi "Ambi da somme prime ",1
End Sub
Buona Domenica a tutte/i.
