Sub Main()
Dim ci(12,90),nci(90)
fin = EstrazioneFin
ini = 10178
rem ini=174
ciclo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
totciclo = 0
estpen = 0
For y = 1 To 12
If y = 11 Then y = 12
Scrivi Space(30) & NomeRuota
& Space(50),1,1,1,4,6,"courier New",0,0
For es = ini To fin
estrazione = DataEstrazione(es) & " - " & SiglaRuota
& " " & StringaEstratti(es,y):estrciclo = estrciclo + 1
For p1 = 1 To 5
If ci(y,Estratto(es,y,p1)) = 0 Then ciclo = ciclo + 1:ci(y,Estratto(es,y,p1)) = 1
If ciclo > 88 Then
If ciclo = 89 And flagpenultimo = 0 Then
penultimo = DataEstrazione(es) & " - " & SiglaRuota
& " " & StringaEstratti(es,y) & " (" & Estratto(es,y,p1) & ")":flagpenultimo = 1
ColoreTesto 1
estrazione = estrazione & " Penultimo Estratto ->> " & Estratto(es,y,p1):estpen = es
End If
If ciclo = 90 And flagultimo = 0 Then
Ultimo = DataEstrazione(es) & " - " & SiglaRuota
& " " & StringaEstratti(es,y) & " (" & Estratto(es,y,p1) & ")":flagultimo = 1
ColoreTesto 2
estrazione = estrazione & " Ultimo Estratto ->> " & Estratto(es,y,p1)
estpen = es - estpen
End If
End If
If p1 = 5 Then Scrivi estrazione
If ciclo = 90 Then
If p1 <> 5 Then Scrivi estrazione
1 = 5
Scrivi
Scrivi "----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",5,1,5,1,"courier New",0,0:ciclo = 0
Scrivi "Ciclo Numero " & numciclo & " Num. estrazione totali Ciclo " & estrciclo & " ",5,1,5,1,"courier New",0,0
Scrivi "Penultimo num ciclo " & penultimo,5,2,5,2,"courier New",0,0
Scrivi "Ultimo num ciclo " & ultimo,5,2,5,2,"courier New",0,0
Scrivi "Differenza estrazioni tra P/U (" & estpen & ")",5,1,5,1,"courier New",0,0
Scrivi "-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",5,1,5,1,"courier New",0,0
For i = 1 To 9
Scrivi DataEstrazione(es + i) & " - " & SiglaRuota
& " " & StringaEstratti(es + i,y),1,2,4,1,"courier new",0,0
Next
Scrivi "------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------",5,1,5,1,"courier New",0,0
ColoreTesto 0
If minciclo = 0 Then minciclo = estrciclo
If maxciclo < estrciclo Then maxciclo = estrciclo
If minciclo > estrciclo Then minciclo = estrciclo
Totciclo = numciclo
For x = 1 To 90
ci(y,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0
End If
Next
Next
Totc = Int((fin - Ini)/Totciclo)
Scrivi "Ciclo Minimo " & minciclo & " Ciclo Massimo " & maxciclo & " Ciclo Medio " & Totc & " Ultimo Ciclo " & ciclo,1,3,3,2,5,"courier New",0,0
For x = 1 To 90
ci(y,x) = 0
Next
ciclo = 0:numciclo = numciclo + 1:estrciclo = 0:flagultimo = 0:flagpenultimo = 0
numciclo = 1
estrciclo = 0
maxciclo = 0
minciclo = 0
Scrivi
Next
End Sub