prova a darci un occhio. E' un listato per Spaziometria.
Option Explicit
'Storico e Attuale di Lunghette formate da 2 CS(Cinquina Sincrona) in Sincronismo Continuo per la sorte di Ambo o superiori
'Scritto da Gam il 08.05.2020 per Eugenio de Zuliani -> Forum
Sub Main()
Dim cs1(5),cs2(5),Lunghetta(10),ru(1),n(1),LivArch
Dim Ini,fin,es,x,r,z,nn,nnn,d,sorte,lu
sorte = 2
LivArch = 0 ' inserire qui l'archivio da utilizzare: 0 = archivio tradizionale, 1 = archivio dinamico, dal 2 al 5 per archivi paralleli posizione
Ini = EstrazioneIni
fin = EstrazioneFin
For es = Ini To fin - 1
AvanzamentoElab Ini,fin,es
Messaggio(es)
For r = 1 To 12
If r = 11 Then r = 12
ru(1) = r
nn = 0
If Estratto(es,ru(1),1,LivArch) > "0" Then
For z = 1 To 5
nn = nn + 1
cs1(z) = Estratto(es,ru(1),z,LivArch)
Lunghetta(nn) = cs1(z)
nn = nn + 1
cs2(z) = Estratto(es + 1,ru(1),z,LivArch)
Lunghetta(nn) = cs2(z)
Next
EliminaRipetuti Lunghetta
nn = 0
For z = 1 To 10
If Lunghetta(z) > "0" Then nn = nn + 1
Next
If nn = 10 Then
lu = " [" & Format2(nn) & "] [" & StringaNumeri(Lunghetta,,True) & "]"
x = SeriePrima(es + 2,EstrazioneFin,Lunghetta,ru,sorte,,,LivArch)
If x = 0 Then
Call ColoreTesto(2)
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _
FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _
" [" & StringaNumeri(Lunghetta,,True) & "] ATT " & FormattaStringa(EstrazioneFin - es,"0000") & " L" & LivArch & " ***"
Call ColoreTesto(0)
Else If x > 0 And x <> EstrazioneFin Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _
FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _
" [" & StringaNumeri(Lunghetta,,True) & "] STO " & FormattaStringa(x-es-1,"0000") & " L" & LivArch
Else If x > 0 And x = EstrazioneFin Then
Call ColoreTesto(2)
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r,,,LivArch) & " " & _
FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r) & " " & StringaEstratti(es + 1,r,,,LivArch) & _
" [" & StringaNumeri(Lunghetta,,True) & "] ATT " & FormattaStringa(EstrazioneFin - es,"0000") & " L" & LivArch & " ***"
Call ColoreTesto(0)
End If
End If
x = 0
End If
End If
End If
Next
Next
Scrivi TempoTrascorso
End Sub