J-Gio91 |
|
| Siamo dunque al poter controllare
*Quale
*Come
*Dove
*Quando
*Quantocade l'estratto del quale si è scelto di avere risconti statistici. Queste poche e semplici aggiunte ci permettono di avere una tabella contenente una moltitudine di riferimenti utili al confermare la presenza di moltissimi errori comuni alla stragrande maggioranza dei lottologi. CODICE Option Explicit
Sub Main
Dim Ini,Fin,Es,R,E,C
Ini = 7000 ' PRIMA ESTRAZIONE
Fin = 7999 ' EstrazioniArchivio ' TUTTE LE ESTRAZIONI IN ARCHIVIO
R = CA_ ' Cagliari
Scrivi NomeRuota(R) & " -N° 1- Primo Estr Det (in 1000 Estrazioni)" & Chr(13),True
Scrivi "Cont IdEs Data Estratti" & Chr(13),True
For Es = Ini To Fin
If SommaEstratti(Es,R) > 0 Then ' TEST Presenza Estratti
C = C + 1 ' AUMENTA IL CONTATORE DELLE ESTRAZIONI
If Posizione(Es,R,1) = 1 Then 'SE NELL'ESTRAZIONE ES, A CAGLIARI, IL NUMERO "UNO"
E = E + 1 ' AUMENTA IL CONTATORE ESTRATTI TROVATI
Scrivi FormatSpace(C,4,1) & FormatSpace(Es,6,1) & Space(2) & DataEstrazione(Es) & Space(2) & StringaEstratti(Es,R)
End If
End If
Next
Scrivi Chr(13)
Scrivi FormatSpace(C,4) & " Estrazioni",1'ESPLICITA IL VALORE DEL CONTATORE "C = ESTRAZIONI"
Scrivi FormatSpace(E,4) & " Presenze",1 'ESPLICITA IL VALORE DEL CONTATORE "E = ESTRATTI TROVATI"
End Sub  |
| | |
