codice:
Sub Main()
Dim colpi(200)
r = InputBox("Inserisci la ruota su cui effettuare la ricerca(1 - 10)",,1)
ColoreTesto(1)
Scrivi " -----------------------------------------------------------------",1
Scrivi " Verifica Esito dell'ambo dopo l'uscita isotopa di 1 numeri uguale",1
Scrivi " In 2 concorsi consecutivi (ARMAUS2)",1
Scrivi " Verifica effettuata su Ruota " & NomeRuota(r)
Scrivi " -----------------------------------------------------------------",1
ColoreTesto(0)
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 1 ' inizio tutte le altre ruote
If r = 12 Then dal = 7440 'inizio nazionale
If r = 1 Then dal = 174 'inizio bari
If r = 2 Then dal = 3649 'inizio cagliari
If r = 4 Then dal = 3577 'inizio genova
max = 0
For n = dal To EstrazioneFin
If n < EstrazioneFin Then
ReDim nr(9)
For i = 1 To 4
For II = i + 1 To 5
If Cadenza(Estratto(n,r,i)) = Cadenza(Estratto(n,r,II)) Then
uscito = ""
For y = 1 To 5
If Cadenza(Estratto(n - 1,r,y)) = Cadenza(Estratto(n,r,i)) Or Cadenza(Estratto(n + 1,r,y)) = Cadenza(Estratto(n,r,i)) Then
If Cadenza(Estratto(n - 1,r,y)) = Cadenza(Estratto(n,r,i)) Then
uscito = Estratto(n - 1,r,y)
End If
If Cadenza(Estratto(n + 1,r,y)) = Cadenza(Estratto(n,r,i))Then
uscito = Estratto(n + 1,r,y)
End If
If Cadenza(Estratto(n,r,i)) = 0 Then
cv = Cadenza(Estratto(n,r,i)) + 10
For x = 1 To 9
nr(x) = cv
cv = cv + 10
Next
Else
cv = Cadenza(Estratto(n,r,i))
For x = 1 To 9
nr(x) = cv
cv = cv + 10
Next
End If
parte = n + 2
ReDim ruote(1)
ruote(1) = r
If VerificaEsito(nr,ruote,parte,2,,,RetColpi,RetEstratti,RetIdEstr,aRetRuote) Then
Scrivi n & "/" & DataEstrazione(n) & " " & Format2(Estratto(n,r,i)) & " " & Format2(Estratto(n,r,II)) & ".esce ambo cad.." & Cadenza(Estratto(n,r,i)) & "...Preced o Successiva. esce estratto.." & Format2(uscito),1
ColoreTesto(1)
Scrivi nr(1) & " " & nr(2) & " " & nr(3) & " " & nr(4) & " " & nr(5) & " " & nr(6) & " " & nr(7) & " " & nr(8) & " " & nr(9) & "......Esito...." & RetIdEstr & "- n.colpo." & RetEstratti
Scrivi "-------------"
ColoreTesto(0)
Else
Scrivi n & "/" & DataEstrazione(n) & " " & Format2(Estratto(n,r,i)) & " " & Format2(Estratto(n,r,II)) & ".esce ambo cad.." & Cadenza(Estratto(n,r,i)) & "...Preced o Successiva..esce estratto.." & Format2(uscito) & ".........In corso.........."
End If
If Int(RetEstratti) > max Then Max = RetEstratti
colpi(Int(RetEstratti)) = colpi(Int(RetEstratti)) + 1
End If
Next
End If
Next
Next
End If
Next
ColoreTesto(2)
Scrivi " Il Ritardo Massimo per l'uscita di 1 ambo è stato di n.colpi. " & max,1
Scrivi " Riepilogo colpi..."
For f = 1 To 200
If colpi(f) > 0 Then Scrivi " colpo n." & f & "...." & colpi(f)
Next
ColoreTesto(0)
End Sub