Sub Main()
Dim idEstr
Dim Inizio
Dim Fine
Dim ruote(10)
Dim ruota(1)
Dim posta(10)
Dim poste(10)
Dim r1
Dim r2
Dim r3
Dim p1
Dim p2
Dim nAnalisi
Dim nColpiDiGioco
Dim n(4)
posta(1) = 1
poste(2) = 1
poste(3) = 1
r1 = CInt(InputBox(" Scegli la Ruota Base ",,"1"))
nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"50"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nAnalisi
Fine = EstrazioneFin
co = 0
For idEstr = Inizio To Fine
Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
Call AvanzamentoElab(Inizio,Fine,idEstr)
For p1 = 1 To 5
For p2 = p1 + 1 To 5
a1 = Estratto(idEstr,r1,p1)
b1 = Estratto(idEstr,r1,p2)
ok = 0
If a1 < 10 Then
If b1 < 10 Then
ok = 1
End If
End If
If r1 <> 1 Then
r2 = r1 - 1
a2 = Estratto(idEstr,r2,p1)
b2 = Estratto(idEstr,r2,p2)
End If
'------------------------------
If r1 = 1 Then
r2 = 10
a2 = Estratto(idEstr,r2,p1)
b2 = Estratto(idEstr,r2,p2)
End If
'------------------------------
r3 = r1 + 1
'------------------------------
a3 = Estratto(idEstr,r3,p1)
b3 = Estratto(idEstr,r3,p2)
'------------------------------
If r1 = 10 Then
r3 = 1
a3 = Estratto(idEstr,r3,p1)
b3 = Estratto(idEstr,r3,p2)
End If
'-----------------------------
k1 = Fuori90(a1 + a2)
k2 = Fuori90(a1 + a3)
k3 = Fuori90(b1 + b2)
k4 = Fuori90(b1 + b3)
n(1) = k1
n(2) = k2
n(3) = k3
n(4) = k4
If ok = 1 Then
ruote(1) = r1
ruote(2) = r2
ruote(3) = r3
ruota(1) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1),1
ColoreTesto 1
Scrivi "Ambo Base a : " & NomeRuota(r1) & " * " & Format2(a1) & " - " & Format2(b1) & " In " & p1 & "° e In " & p2 & "° pos.",1
ColoreTesto 7
Scrivi "Isotopi Ruota precedente : " & SiglaRuota(r2) & " * " & Format2(a2) & " - " & Format2(b2) & " In " & p1 & "° e In " & p2 & "° pos.",1
Scrivi "Isotopi Ruota Successiva : " & SiglaRuota(r3) & " * " & Format2(a3) & " - " & Format2(b3) & " In " & p1 & "° e In " & p2 & "° pos.",1
ReDim MatriceCaselleDaEvid(6,1)
MatriceCaselleDaEvid(1,0) = r1
MatriceCaselleDaEvid(1,1) = p1
MatriceCaselleDaEvid(2,0) = r1
MatriceCaselleDaEvid(2,1) = p2
MatriceCaselleDaEvid(3,0) = r2
MatriceCaselleDaEvid(3,1) = p1
MatriceCaselleDaEvid(4,0) = r2
MatriceCaselleDaEvid(4,1) = p2
MatriceCaselleDaEvid(5,0) = r3
MatriceCaselleDaEvid(5,1) = p1
MatriceCaselleDaEvid(6,0) = r3
MatriceCaselleDaEvid(6,1) = p2
Call DisegnaEstrazione(idEstr,MatriceCaselleDaEvid)
ColoreTesto 0
Scrivi String(65,"="),1
ImpostaGiocata 1,n,ruote,posta,nColpiDiGioco,1
ImpostaGiocata 2,n,ruote,poste,nColpiDiGioco',2
ImpostaGiocata 3,n,ruota,poste,nColpiDiGioco',2
Gioca idEstr,1
End If
If ScriptInterrotto Then Exit For
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" LISTATO BY B A F F O B L U "),1,3,0
ScriviResoconto
End Sub
Ciao a tutti, stamattina mi è venuta la seguente idea: ho provato a sommare i numeri della decina 0 ovvero i numeretti 1,2,3,4,5,6,7,8,9 con il numero a due cifre in posizione isotopa in una delle due ruote adiacenti a quella di rilevamento (BA, CA, FI, GE, MI, NA, PA, RO, TO, VE) 
