Sub Main()
Dim idestr
Dim Inizio
Dim Fine
Dim ruote(10)
Dim poste(10)
Dim pos
Dim nanalisis
Dim nColpiDiGioco
Dim nu(2)
poste(2) = 1
pos = CInt(InputBox(" Inserisci la posizione di rilevamento - da 1 a 5 ",,"5"))
nanalisis = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
Inizio = EstrazioneFin - nanalisis
Fine = EstrazioneFin
co = 0
ok = 0
For idestr = Inizio To Fine
Messaggio idestr
Call AvanzamentoElab(Inizio,Fine,idestr)
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
For r1 = 1 To 10
a = Estratto(idestr - 1,r1,pos)
b = Estratto(idestr,r1,pos)
If a = b Then
c = Figura(a)
d = a / 10
e = Int(d)
f = a Mod 10
g = Abs(e - f)
For r2 = 1 To 10
h = Estratto(idestr - 1,r2,pos)
i = Estratto(idestr,r2,pos)
q = Figura(h)
l = i / 10
m = Int(l)
n = i Mod 10
o = Abs(m - n)
If r2 <> r1 Then
If q = c And o = g Then
ok = 1
If ok = 1 Then
nu(1) = h
nu(2) = i
ruote(1) = r1
ruote(2) = r2
ruote(3) = 11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(idestr - 1) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idestr - 1,r1) & " ** " & " * SPIA ISOTOPA : " & a & " *** Figura Positiva : " & c,1
ColoreTesto 1
Scrivi DataEstrazione(idestr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idestr,r1) & " ** " & " * SPIA ISOTOPA : " & b & " *** Figura Negativa : " & g,1
ColoreTesto 2
Scrivi String(100,"="),1
ColoreTesto 0
Scrivi DataEstrazione(idestr - 1) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idestr - 1,r2) & " ** " & " * CONTROSPIA : " & h & " *** Figura Positiva : " & q,1
ColoreTesto 1
Scrivi DataEstrazione(idestr) & " -- " & SiglaRuota(r2) & " - " & StringaEstratti(idestr,r2) & " ** " & " * CONTROSPIA : " & i & " *** Figura Negativa : " & o,1
ColoreTesto 0
Scrivi String(100,"°"),1
Scrivi
ImpostaGiocata 1,nu,ruote,poste,nColpiDiGioco
Gioca idestr
End If
End If
End If
Next
End If
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
