'Script di Rosanna
Sub main()
Dim ru(1),stat(5,12),stat_p(5,12)
'-------------------------------------------------------PREPARO LE MATRICI ED IL VETTORE NU
For i= 1 To 12
stat(1,i)=i : stat_p(1,i)=i
For y=2 To 5
stat(y,i)=0 : stat_p(y,i)=0
Next
Next
n="03.04.06.07.15.17.21.26.35.60.66.67.70.71.90"
nu = Split("0."&n,".")'Assegna a "nu" ogni valore di "n" da "stringatesto" a "Variant"
For x=1 To 15 : nu(x)=CInt(nu(x)) : Next 'trasforma le variabili "Variant" in "Integer"
'----------------------------------------------------------------------------------------
Scrivi "VERIFICA SORTITE DEI NUMERI "& StringaNumeri(NU)&CHR(10),1
For es=3950 To EstrazioneFin
For r=1 To 12
ru(1)=r
If SerieFreq(es,es,nu,ru,2)=0 Then stat_p(2,r)=" " Else stat_p(2,r)=SerieFreq(es,es,nu,ru,2)
If SerieFreq(es,es,nu,ru,3)=0 Then stat_p(3,r)=" " Else stat_p(3,r)=SerieFreq(es,es,nu,ru,3)
If SerieFreq(es,es,nu,ru,4)=0 Then stat_p(4,r)=" " Else stat_p(4,r)=SerieFreq(es,es,nu,ru,4)
If SerieFreq(es,es,nu,ru,5)=0 Then stat_p(5,r)=" " Else stat_p(5,r)=SerieFreq(es,es,nu,ru,5)
If SerieFreq(es,es,nu,ru,2)>0 Then stat(2,r)=stat(2,r)+SerieFreq(es,es,nu,ru,2)
If SerieFreq(es,es,nu,ru,3)>0 Then stat(3,r)=stat(3,r)+SerieFreq(es,es,nu,ru,3)
If SerieFreq(es,es,nu,ru,4)>0 Then stat(4,r)=stat(4,r)+SerieFreq(es,es,nu,ru,4)
If SerieFreq(es,es,nu,ru,4)>0 Then stat(5,r)=stat(5,r)+SerieFreq(es,es,nu,ru,5)
Next
'NOTA SE NON VUOI IL DETTAGLIO X OGNI ESTRAZIONE METTI GLI APICI DAVANTI ALLE PROSSIME 15 RIGHE
' Scrivi
' Scrivi "Esiti del " & DataEstrazione(es)&chr(10),1
' rigaR="" : rigaA="" : rigaT="" : rigaQ="" : rigaC=""
' For i= 1 To 12
' rigaR=rigar& FormatSpace(SiglaRuota(stat_p(1,i)),4,1)
' rigaA=rigaA& FormatSpace((stat_p(2,i)),4,1)
' rigaT=rigaT& FormatSpace((stat_p(3,i)),4,1)
' rigaQ=rigaQ& FormatSpace((stat_p(4,i)),4,1)
' rigaC=rigaC& FormatSpace((stat_p(5,i)),4,1)
' Next
' Scrivi "ruote "& rigaR,1
' Scrivi "ambi "& rigaA
' Scrivi "terni "& rigaT
' Scrivi "quaterne "& rigaQ
' Scrivi "cinquine "& rigaC 'CIOE' FINO A QUESTA RIGA COMPRESA
Next
'=========================================================== SCRIVO IL RIEPILOGO FINALE
ColoreTesto 1
Scrivi
Scrivi "RIEPILOGO COMPLESSIVO DEGLI ESITI ",1
Scrivi "dal " & DataEstrazione(3950) & " al " & DataEstrazione(EstrazioneFin)&chr(10),1
rigaR="" : rigaA="" : rigaT="" : rigaQ="" : rigaC=""
For i= 1 To 12
rigaR=rigar& FormatSpace(SiglaRuota(stat(1,i)),5,1)
rigaA=rigaA& FormatSpace((stat(2,i)),5,1)
rigaT=rigaT& FormatSpace((stat(3,i)),5,1)
rigaQ=rigaQ& FormatSpace((stat(4,i)),5,1)
rigaC=rigaC& FormatSpace((stat(5,i)),5,1)
Next
Scrivi "ruote "& rigaR,1
Scrivi "ambi "& rigaA
Scrivi "terni "& rigaT
Scrivi "quaterne "& rigaQ
Scrivi "cinquine "& rigaC
ColoreTesto 0
End Sub