LottoGAM Forum

BIAMBI a TUTTE + NZ con Ritardo Minimo Storico Impostabile, Output su TXT e ricerca frazionabile

« Older   Newer »
  Share  
Gam73
view post Posted on 18/4/2023, 08:39
Avatar

Top Member

Group:
Administrator
Posts:
1,710

Status:


Ciao a tutti,
da una ricerca promossa da Cinzia28 ho realizzato il seguente Script per la ricerca dei Biambi con ritardo massimo impostabile per la sorte su TUTTE+NZ.

SPOILER (clicca per visualizzare)
Option Explicit
Dim FileOut
Sub Main
'-------------------------------------
'Scritto da GAM il 17.04.2023 x Cinzia
'BIAMBI a TUTTE + NZ - v. 1.0
'-------------------------------------

Dim R,R_NZ,Ambo1(2),Ambo2(2)
Dim MatriceAmbi(4005,2)
Dim rAtt,rSto,Pre,Frm
Dim LivArch,Riga,SFile
Dim x,y,q,i,j,eIni,eFin,n,RitMin

eIni = 7440'EstrazioneIni
eFin = EstrazioneFin

RitMin = 50 ' Ritardo Minimo
R = TT_
R_NZ = 12

SFile = GetDirectoryTemp & "Ricerca_di_Biambi_su_TT_e_NZ_" & "_da_" & EstrazioneIni & "_a_" & EstrazioneFin & "_L" & LivArch & ".txt"

Call EliminaFile(SFile) ' cancella eventualmente il file se gia esiste

For x = 1 To 89
For y = x + 1 To 90
q = q + 1
MatriceAmbi(q,1) = x
MatriceAmbi(q,2) = y
Next
Next
' ScriviMatrice (MatriceAmbi)
For i = 1 To 4004
If ScriptInterrotto Then
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n
Exit Sub
End If

Ambo1(1) = MatriceAmbi(i,1)
Ambo1(2) = MatriceAmbi(i,2)
For j = i + 1 To 4005
If ScriptInterrotto Then
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n
Exit Sub
End If

Ambo2(1) = MatriceAmbi(j,1)
Ambo2(2) = MatriceAmbi(j,2)
n = n + 1

Riga = FormattaStringa(n,"0000000") & " Ambo " & StringaNumeri(Ambo1,,1) & " " & StringaNumeri(Ambo2,,1)',,0

'Messaggio(i & " " & j & " -> " & n & " Ambi")
AvanzamentoElab 1,8018018,n

Call AddNumeriToGruppoStatistico(Ambo1,R)
Call AddNumeriToGruppoStatistico(Ambo2,R)
Call AddNumeriToGruppoStatistico(Ambo1,R_NZ)
Call AddNumeriToGruppoStatistico(Ambo2,R_NZ)

Call StatisticaGruppoFormazioni(2,rAtt,rSto,Pre,Frm,eIni,eFin,LivArch)

If rSto < RitMin Then

Riga = Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
Call ScriviFile (SFile,Riga)
End If
Next
Next
Call ScriviFile(SFile,TempoTrascorso)
Call CloseFileHandle(SFile) ' chiudo l'handle al file
Call LanciaFile(SFile) ' lancio il file si aprira notepad

Scrivi
Scrivi TempoTrascorso
Scrivi i
Scrivi j
Scrivi n

End Sub


Per i meno avvezzi ecco qualche delucidazione su come elabora la ricerca lo script.

Già nelle prime righe è possibile vedere che genera nelle prime righe una matrice con tutti i 4.005 ambi che si formano coi 90 estratti.

Se togliete l'apice alla seguente riga
' ScriviMatrice (MatriceAmbi)
E stoppate lo script, li vedete tutti nell' output.

A quel punto i due cicli for non fanno altro che prendere il primo ambo e tenerlo fisso, poi passano al secondo e via via fino al 4005, poi diventa fisso il secondo e via via fino alla fine.

Se fate un copia&incolla dei 4005 ambi in Excel, potete verificare cosa fanno gli indici.

Senza dover fare la ricerca tutta d'un fiato, potete intervenire sugli indici, soprattutto la "i", vi consiglio.
Per esempio, impostando

For i = 520 To 1002

la ricerca parte dal seguente Biambo
07.08 - 07.09.
Verificabile via Excel, infatti alla riga 520 troverete il biambo citato.

l'altro ciclo rimane come scritto:

For j = i + 1 To 4005

Ovvio che più il valore i si avvicina a 4004, meno diventano gli ambi da verificare e più rapidi saranno i cicli.

Lo script scrive gli ambi che soddisfano lo storico minore di 50 su un file di txt.

Se però volete interrompere prima che sia terminato l'intervallo che avete impostato, potete farlo.

Si aprirà il file di txt coi biambi trovati (copiateli e salvateli altrove, oppure fate salva con nome diverso, perché se rifate partire il file nuovo cancella il precedente) mentre in output avrete come informazioni il tempo trascorso, l'indice raggiunto fino a quel momento, sia i, sia j. Così potete ripartire da dove vi siete fermati.

Spero sia tutto chiaro.
Saluti
 
Web  Top
Cinzia28
view post Posted on 15/5/2023, 23:30

Top Member

Group:
Member
Posts:
208

Status:


Grazie per aver portato qui questa ricerca, Gam.
Da quando l'abbiamo iniziata 2 biambi hanno oltrepessato lo storico di 49.
Pertanto, li ho esclusi. Da 82 sono diventati 80.
Posto lo script per chi volesse tenerli d'occhio.

SPOILER (clicca per visualizzare)
Option Explicit

Sub Main
Dim ru(11),fr,fr1,fre,fre1,frre,us,us1,usc,cc
Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
Dim n(2),n1(2)
Dim es,m,i,j,i1,j1,frr,rt,rt1

r1 = 1:r2 = 2:r3 = 3:r4 = 4:r5 = 5:r6 = 6:r7 = 7:r8 = 8:r9 = 9:r10 = 10:r11 = 12
ru(1) = r1:ru(2) = r2:ru(3) = r3:ru(4) = r4:ru(5) = r5:ru(6) = r6:ru(7) = r7:ru(8) = r8:ru(9) = r9:ru(10) = r10:ru(11) = r11
Scrivi " RITARDI ATTUALI DEGLI 81 BIAMBI AVENTI MASSIMO STORICO TRA 44 E 49 - Cinzia27 "
Scrivi " Impostato all'estrazionefin-1 per visualizzare i biambi sortiti"
Scrivi
For es = EstrazioneFin - 60 To EstrazioneFin - 1

i = 1 : j = 5 : i1 = 51 : j1 = 81
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If


i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 1 : j = 9 : i1 = 6 : j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 1 : j = 22 : i1 = 31 : j1 = 52
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 1 : j = 22 : i1 = 45 : j1 = 74
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 1 : j = 22 : i1 = 47 : j1 = 55
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 1 : j = 22 : i1 = 64 : j1 = 74
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If



i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 4 : j = 46 : i1 = 6: j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 4 : j = 51 : i1 = 6: j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 4 : j = 51 : i1 = 22 : j1 = 30
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 4 : j = 51 : i1 = 22 : j1 = 47
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 4 : j = 61 : i1 = 6 : j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 17 : i1 = 8 : j1 = 61
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 30 : i1 = 63 : j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 57 : i1 = 26 : j1 = 30
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 77 : i1 = 10 : j1 = 13
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 84 : i1 = 54 : j1 = 65
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 89 : i1 = 15 : j1 = 34
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 89 : i1 = 27 : j1 = 66
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 89 : i1 = 33 : j1 = 36
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 89 : i1 = 36 : j1 = 74
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 6: j = 89 : i1 = 40 : j1 = 82
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 7: j = 48 : i1 = 38 : j1 = 61
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 8: j = 18 : i1 = 48 : j1 = 67
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 8: j = 62 : i1 = 9: j1 = 56
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 8: j = 63 : i1 = 20: j1 = 51
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 8: j = 85 : i1 = 57: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 9: j = 45 : i1 = 75: j1 = 82
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 10: j = 13 : i1 = 61: j1 = 69
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 10: j = 13 : i1 = 82: j1 = 86
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 10: j = 34 : i1 = 75: j1 = 82
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 10: j = 44 : i1 = 64: j1 = 78
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 10: j = 70 : i1 = 33: j1 = 36
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 11: j = 16 : i1 = 32: j1 = 76
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 11: j = 29 : i1 = 15: j1 = 21
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 12: j = 49 : i1 = 16: j1 = 51
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 12: j = 62 : i1 = 22: j1 = 47
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 13: j = 47 : i1 = 43: j1 = 51
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 13: j = 47 : i1 = 61: j1 = 69
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 14: j = 29 : i1 = 75: j1 = 82
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 14: j = 63 : i1 = 74: j1 = 90
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 14: j = 85 : i1 = 70: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 15: j = 82 : i1 = 37: j1 = 41
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 16: j = 68 : i1 = 51: j1 = 81
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 17: j = 22 : i1 = 29: j1 = 34
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 18: j = 52 : i1 = 43: j1 = 73
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 39 : i1 = 33: j1 = 48
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 51 : i1 = 42: j1 = 60
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 51 : i1 = 63: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 54 : i1 = 30: j1 = 85
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 55 : i1 = 58: j1 = 90
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 20: j = 81 : i1 = 65: j1 = 69
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 23: j = 54 : i1 = 36: j1 = 74
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 24: j = 72 : i1 = 65: j1 = 79
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 25: j = 89 : i1 = 42: j1 = 79
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 26: j = 71 : i1 = 47: j1 = 62
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 26: j = 71 : i1 = 59: j1 = 63
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 29: j = 31 : i1 = 32: j1 = 58
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 29: j = 50 : i1 = 63: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 29: j = 56 : i1 = 82: j1 = 86
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 29: j = 86 : i1 = 42: j1 = 87
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 30: j = 59 : i1 = 44: j1 = 63
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 30: j = 87 : i1 = 63: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 31: j = 77 : i1 = 34: j1 = 53
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 31: j = 90 : i1 = 79: j1 = 86
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 32: j = 57 : i1 = 65: j1 = 83
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 32: j = 79 : i1 = 57: j1 = 80
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 33: j = 38 : i1 = 43: j1 = 50
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 33: j = 38 : i1 = 68: j1 = 81
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 34: j = 53 : i1 = 37: j1 = 39
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 37: j = 41 : i1 = 39: j1 = 55
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 37: j = 47 : i1 = 43: j1 = 87
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 37: j = 49 : i1 = 48: j1 = 67
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 37: j = 73 : i1 = 45: j1 = 74
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 38: j = 65 : i1 = 82: j1 = 86
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 39: j = 74 : i1 = 59: j1 = 61
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 42: j = 77 : i1 = 85: j1 = 88
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 47: j = 54 : i1 = 73: j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 54: j = 84 : i1 = 80: j1 = 82
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 60: j = 88 : i1 = 73: j1 = 89
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If

i = 0:j = 0:i1 = 0:j1 = 0:fr = 0:fr1 = 0:frr = 0:rt = 0:rt1 = 0:m = 0
i = 73: j = 87 : i1 = 85: j1 = 88
n(1) = i:n(2) = j:n1(1) = i1:n1(2) = j1
fr = SerieFreq(es,es,n,ru,2)
fr1 = SerieFreq(es,es,n1,ru,2)
frr = fr + fr1
If frr > 0 Then
fre = SerieFreq(es + 1,EstrazioneFin - 1,n,ru,2)
fre1 = SerieFreq(es + 1,EstrazioneFin - 1,n1,ru,2)
frre = fre + fre1
If frre = 0 Then
rt = SerieRitardo(es - 800,EstrazioneFin - 1,n,ru,2)
rt1 = SerieRitardo(es - 800,EstrazioneFin - 1,n1,ru,2)
m = Minimo(rt,rt1)
Scrivi FormatSpace(es,4,1) & " " & StringaNumeri(n) & ";" & StringaNumeri(n1) & " at " & FormatSpace(m,4,1) & " ",0,0
us = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
us1 = SerieFreq(EstrazioneFin,EstrazioneFin,n1,ru,2)
usc = us + us1
If usc > 0 Then cc = cc + 1:ColoreTesto 2: Scrivi " sortito" Else Scrivi
ColoreTesto 0
End If
End If
Next
Scrivi
Scrivi "Biambi sortiti " & cc
End Sub
 
Top
Gam73
view post Posted on 16/5/2023, 09:05
Avatar

Top Member

Group:
Administrator
Posts:
1,710

Status:


Ciao @cinzia28,
grazie per lo script.

Ti ho preparato anche un'alternativa, che si presta bene come base anche per altre ricerche.
SPOILER (clicca per visualizzare)
Option Explicit
'-------------------------------------
'Scritto da GAM il 16.05.2023 x Cinzia
'VERIFICA BIAMBI a TUTTE + NZ - v. 1.0
'
'Sulla base del file di testo fornito con tutti i Biambi,
'gli stessi vengono analizzati segnalando quelli in avvicinamento al max storico (a meno di 10 estrazioni)
'e quelli ormai fuori classifica
'-------------------------------------
Sub Main
Dim fso 'filesystemobject
Dim sFile ' percorso del file
Dim myFile ' è lo strream per leggere il file
Dim sLinea ' è la linea letta corrente
Dim Riga,k
Dim bAmbo1(2)
Dim bAmbo2(2)
Dim rAtt,rSto,Pre,Frm
Dim es,eini,efin,c,i,fr,con,ce,cs,x
Dim R_TT,R_NZ,Ru(2)
Dim ArrayFormazioni()',mAmbi()
Dim n(2),mt(4005,5),LivArch,nRP

LivArch = 0
eini = 7440
efin = EstrazioneFin

sFile = "C:\BiAmbi_dalla_7440_su_TUTTE_e_NZ.txt" ' DEFINIRE LA POSIZIONE DEL FILE DI TESTO DA LEGGERE

Set fso = CreateObject("Scripting.FileSystemObject")
Set myFile = fso.OpenTextFile(sFile)
Do While Not myFile.AtEndOfStream
sLinea = myFile.ReadLine()
Riga = Riga + 1
ReDim Preserve ArrayFormazioni(Riga)
ArrayFormazioni(Riga) = sLinea
Loop
myFile.Close
ReDim mAmbi(Riga + 1,4)
For k = 1 To Riga
Call AvanzamentoElab(1,Riga,k)
mAmbi(k,1) = Mid(ArrayFormazioni(k),1,2)
mAmbi(k,2) = Mid(ArrayFormazioni(k),4,2)
mAmbi(k,3) = Mid(ArrayFormazioni(k),7,2)
mAmbi(k,4) = Mid(ArrayFormazioni(k),10,2)

Next
Dim numForm
Riga = numForm
R_TT = 11
R_NZ = 12
Ru(1) = 11
Ru(2) = 12


For i = 1 To k - 1
Messaggio(i)
Call AvanzamentoElab(1,k - 1,i)

bAmbo1(1) = mAmbi(i,1)
bAmbo1(2) = mAmbi(i,2)
Call AddNumeriToGruppoStatistico(bAmbo1,R_TT)
Call AddNumeriToGruppoStatistico(bAmbo1,R_NZ)
bAmbo2(1) = mAmbi(i,3)
bAmbo2(2) = mAmbi(i,4)
Call AddNumeriToGruppoStatistico(bAmbo2,R_TT)
Call AddNumeriToGruppoStatistico(bAmbo2,R_NZ)

Call StatisticaGruppoFormazioniTurbo(2,rAtt,rSto,Pre,Frm,eini,es,LivArch)

Riga = FormattaStringa(i,"00") & " Ambo " & StringaNumeri(bAmbo1,,1) & " " & StringaNumeri(bAmbo2,,1)',,0
Riga = Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
If rAtt + 9 > rSto Then Riga = Riga & " ***"
If rAtt >= rSto Then Riga = Riga & " ESCE DALLA CLASSIFICA"
Scrivi Riga
Next
Scrivi TempoTrascorso
End Sub

Serve un file di testo con una lista di bi.ambi con il seguente format:

01.05 51.81
01.09 06.89
01.22 31.52
01.22 45.74
01.22 47.55
01.22 64.74
...

Lo script analizza e restituisce il risultato in un secondo.
Spero vi sia utile
Saluti

Download attachment
BiAmbi_dalla_7440_su_TUTTE_e_NZ.txt ( Number of downloads: 25 )

 
Web  Top
Cinzia28
view post Posted on 16/5/2023, 16:58

Top Member

Group:
Member
Posts:
208

Status:


Ciao, Gam.
Mi dice che non trova il file, in quale cartella lo devo mettere?
 
Top
Gam73
view post Posted on 16/5/2023, 17:15
Avatar

Top Member

Group:
Administrator
Posts:
1,710

Status:


Ciao,
l'indicazione è espressamente riportata nello script

sFile = "C:\BiAmbi_dalla_7440_su_TUTTE_e_NZ.txt" ' DEFINIRE LA POSIZIONE DEL FILE DI TESTO DA LEGGERE

Mettilo dove vuoi e poi sostituisci la posizione qui sopra in blu (se vuoi puoi anche cambiare nome) con la tua posizione.
Io l'ho messo per comodità nel disco "c:\" per fare un esempio.

Saluti
 
Web  Top
Cinzia28
view post Posted on 16/5/2023, 17:26

Top Member

Group:
Member
Posts:
208

Status:


Ciao, credo che vada bene solo su Spaziometria. Appena finisco un'elaborazione lo provo.
Grazie, Gam
 
Top
Gam73
view post Posted on 16/5/2023, 21:04
Avatar

Top Member

Group:
Administrator
Posts:
1,710

Status:


Beh, siamo nella sezione Spaziometria... Mi stupirei del contrario! 😅

Saluti
 
Web  Top
Cinzia28
view post Posted on 24/5/2023, 15:57

Top Member

Group:
Member
Posts:
208

Status:


Ciao, Gam.
Ho scaricato il tuo script e il file txt, è un lampo.
Grazie
 
Top
7 replies since 18/4/2023, 08:39   254 views
  Share  
 

Software SpazioMetria - Listati&Discussioni
 

Create your forum and your blog! · Top Forum · Categories · Help · Status · Contacts · Powered by ForumFree