Sincroni su Tre Ruote

[Xeroxs]

Buongiorno a Tutti

Un mio amico mi dato questo listato che crea una tabella dei Sincroni di un numero tra due Ruote, Io chiedo se possibile modificarlo per il sincrono su tre ruote, ho provato ma per me ci sono diverse variabili da modificare e aggiungere che non riesco ad incastrare

Spero che qualcuno possa darmi una mano per apportare le modifiche

Grazie fin da ora .

Questo è il listato:

Sub Main
Dim Nu(1),Ru(2),po(2)
Dim T,V
Ini = EstrazioneFin - 100
fin = EstrazioneFin
Call ScegliRange(Inix,finx,Ini,fin)
Scrivi "Sincroni su 2 Ruote",1,,,1,3
Scrivi "Estrazioni inizio : " & Inix
Scrivi "Estrazioni Fine : " & finx
Scrivi "Totali in Analisi : " &(finx - Inix) + 1
Scrivi
T = Array(T,"Numero","Ruote","Rit Snc","posiz","Sto R1","Sto R2")
Call InitTabella(T)
For x = 1 To 90
For r1 = 1 To 10
For r2 = r1 + 1 To 12
If r2 = 11 Then r2 = 12
aa = EstrattoRitardo(r1,x,Inix,finx)
bb = EstrattoRitardo(r2,x,Inix,finx)
cc = EstrattoStorico(r1,x,Inix,finx)
dd = EstrattoStorico(r2,x,Inix,finx)
If aa = bb And aa > 1 Then
Nu(1) = x
Ru(1) = r1
Ru(2) = r2
po(1) = Posizione(fin - aa,r1,x)
po(2) = Posizione(fin - bb,r2,x)
V = Array(V,StringaNumeri(Nu),StringaRuote(Ru),aa,StringaNumeri(po,"-"),cc,dd)
Call AddRigaTabella(V)
Call SetColoreCella(1,,2)
Call SetColoreCella(3,,1)
End If
Next
Next
Next
Call CreaTabella(3)
End Sub

 

[druid]

Ciao,
verifica l' esattezza dei risultati....

Sub Main
Dim Nu(1),Ru(3),po(3)
Dim T,V
Ini = EstrazioneFin - 100
fin = EstrazioneFin
Call ScegliRange(Inix,finx,Ini,fin)
Scrivi "Sincroni su 3 Ruote",1,,,1,3
Scrivi "Estrazioni inizio : " & Inix
Scrivi "Estrazioni Fine : " & finx
Scrivi "Totali in Analisi : " &(finx - Inix) + 1
Scrivi
T = Array(T,"Numero","Ruote","Rit Snc","posiz","Sto R1","Sto R2","Sto R3")
Call InitTabella(T)
For x = 1 To 90
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 12
If r3 = 11 Then r3 = 12
aa = EstrattoRitardo(r1,x,Inix,finx)
bb = EstrattoRitardo(r2,x,Inix,finx)
ab = EstrattoRitardo(r3,x,Inix,finx)


cc = EstrattoStorico(r1,x,Inix,finx)
dd = EstrattoStorico(r2,x,Inix,finx)
cd = EstrattoStorico(r3,x,Inix,finx)

If aa = bb And bb= ab And aa > 1 Then
Nu(1) = x
Ru(1) = r1
Ru(2) = r2
Ru(3) = r3

po(1) = Posizione(fin - aa,r1,x)
po(2) = Posizione(fin - bb,r2,x)
po(3) = Posizione(fin - ab,r3,x)

V = Array(V,StringaNumeri(Nu),StringaRuote(Ru),aa,StringaNumeri(po,"-"),cc,dd,cd)
Call AddRigaTabella(V)
Call SetColoreCella(1,,2)
Call SetColoreCella(3,,1)
End If
Next
Next
Next
Next
Call CreaTabella(4)
End Sub

Buon lavoro....

 

[Xeroxs]

Grazie druid,
così ho compreso dove commettevo gli errori.
ho verificato i risultati è corrispondono,

Ti chiedo una sola cosa come si può agire creando output in base al maggiore ritardo che attualmente è dato dall'88 sulle ruote di FI-TO-Naz. Chiedo questo perchè ho notato spesso che alcune tabelle vengono create con criteri giusti ma che magari da un punto di vista visivo rintracci subito i numeri che vuoi analizzare meglio.

Se non si può non è un problema.

Grazie ancora

 

[druid]

Ciao,
se vuoi ordinare in base alla colonna modifica il numero fra parentesi - nel tuo caso il 4 diventa 3;
se vuoi rendere tutta la tabella ordinabile sostituisci al posto di:

Call CreaTabella

l'istruzione

Call CreaTabellaOrdinabile

Ciao

 

[Xeroxs]

Grazie Per anche per i consigli, utili per il futuro.