Scrivi " CERCA SOMMA 90 ISOTOPO SU 2 RUOTE CONSECUTIVE - MODIFICATO DA Blackmore"
Sub Main()
Dim ruote(2)
tmp = InputBox("Quante estrazioni controllo??",,100)
fin = EstrazioneFin
ini = fin - tmp
For es = ini To fin
Messaggio CStr(EstrazioneFin - es)
For r = 1 To 9
r1 = r + 1
'For r1=r+1 To 10 '<<<< se scegli con ruote non cosecutive togli l'apostrofo e lo metti su
For p = 1 To 5
a = Estratto(es,r,p)
b = Estratto(es,r1,p)
If Fuori90(a + b) = 90 Then
ruote(1) = r
ruote(2) = r1
Scrivi "----------------------------------"
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r),2) & " " & StringaEstratti(es,r) & " " & Format2(a)
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) & " " & Format2(b)
End If
Next
Next
Next
End Sub