Option Explicit
Sub Main
Dim a,b,c,d,e,x1,x2,x3,x4,x5
Dim es,r,x,j,esX,esj,ini,fin,co,clp
Dim Ruote(11)
Dim posta(10)
posta(1) = 1
clp = 18
ini = 10000 ' 4121'Inizio 1950
fin = EstrazioneFin
ResetTimer
For r = 1 To 11
If r = 11 Then r = 12
co = 0
Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4
Scrivi " Controllo Colonne Isotopie ",1
Scrivi
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)
Call AvanzamentoElab(ini,fin,es)
If IndiceMensile(es) = 1 Then
For j = 0 To 20
esj = es + j
a = Estratto(esj,r,1)
b = Estratto(esj,r,2)
c = Estratto(esj,r,3)
d = Estratto(esj,r,4)
e = Estratto(esj,r,5)
Scrivi " A . B . C . D . E . ",,,,2,2
Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(a) & " . " & Format2(b) & " . " & Format2(c) & " . " & Format2(d) & " . " & Format2(e) & " . ",1,,,1,2
If IsUltimaDelMese(esj) = True Then Exit For
Next
For x = 1 To 20
esX = es + x
If IsUltimaDelMese(esX) Then x1 = Estratto(esX,r,1) : x2 = Estratto(esX,r,2) : x3 = Estratto(esX,r,3) : x4 = Estratto(esX,r,4) : x5 = Estratto(esX,r,5): Exit For
Next
If esX + 1 > EstrazioneFin Then Exit For
ReDim aNum(1)
aNum(1) = 1
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2
Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1
Scrivi "Ultima Estrazione Mese " & DataEstrazione(esX) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esX,r),1
Scrivi String(100,"°"),1
Ruote(1) = r
ImpostaGiocata 1,aNum,Ruote,posta,clp,1' è una giocata fittizzia !!!
Gioca esX,1,,1
Scrivi
End If
Next
Next
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
ScriviResoconto,False
End Sub