'RSL/RC/JOE V.3.0. del 21/11/2013
Sub Main()
ATTENZIONE QUESTO SCRIPT NON FUNZIONA
NON DEVE ESSERE USATO. (VEDI MESSAGGI SUCCESSIVI)
Dim Ru(1),Mu(1)
Fin = EstrazioneFin
GeneraAnalitico(Fin)
ReDim aTitoli(5)
aTitoli(1) = "Ruota"
aTitoli(2) = "Numero"
aTitoli(3) = "RSL"
aTitoli(4) = "RC"
aTitoli(5) = "RSL/RC"
Call InitTabella(aTitoli)
Scrivi String(32,"="),1
Scrivi "Capolista del Ritardo",1 : Scrivi
For R = 1 To 12 : If R = 11 Then R = 12
Ru(1) = R
Mem = 0
Rit = TabelloneAnalitico(0,R,0)
Base = Fin - Rit
Nu = Split("0." & StringaEstratti(Base,r),".")
If UBound(nu) = 5 Then
For P = 1 To 5
Mu(1) = Nu(p)
Sp = SeriePrima(Base + 1,Fin,Mu,Ru,1)
If Mem <= Sp Then Mem = Sp
If Sp = 0 Then
End If
Next
ReDim aValori(5)
aValori(1) = SiglaRuota(R)
aValori(2) = Format2(Mu(1))
aValori(3) = Fin - Mem
aValori(4) = Rit
aValori(5) = Round(((Fin - Mem) / Rit),3)
Call AddRigaTabella(aValori)
End If
Next
Call CreaTabella(5)
Scrivi FormatSpace("Aggiornato al " & DataEstrazione(Fin),32,1),1
ColoreTesto 1 : Scrivi FormatSpace("Gift-By-Joe",32,1),1
ColoreTesto 0 : Scrivi String(32,"="),1
End Sub
Sub Main()
'Tabellone Analitico delle Cinquine Sincrone e Isocrone By Cinzia.
'T.A.C.S.I. V. 2.3 By Joe
'Fornisce indicazioni grafiche relative all'estrazione di cinquine in Ritardo per Ambo.
ColoreTesto 2
Scrivi "Tabellone Analitico delle Cinquine Sincrone Isocrone V.2.3 By Joe ",1,0 : ColoreTesto 0
Scrivi "(In Ritardo per AMBO) ",0,0: ColoreTesto 1
Scrivi " Script di Cinzia ",1,1
Scrivi
ColoreTesto 0
Dim Ru(1) : Ctrl = 350 ', Es,Ini,Fin,R,P,Nr,N,Rc,Nar
Scrivi "Rc. ",1,0
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi FormatSpace(NomeRuota(R),15),1,0
Next
Scrivi
Fin = EstrazioneFin
Ini = EstrazioneFin - Ctrl
ColoreTesto 2 : Scrivi "0" & Space(4),0,0
For R = 1 To 12 : If R = 11 Then R = 12
For P = 1 To 5
Scrivi Format2(Estratto(Fin,R,P)),0,0
If P < 5 Then Scrivi ".",0,0
Next
Scrivi Space(1),0,0
Next
ColoreTesto 0 : Scrivi
For Es = Fin - 1 To Ini Step - 1
ColoreTesto(7) : Scrivi FormatSpace(Ctrl - Es + Ini,5),1,0: ColoreTesto(0) : Scrivi "",0,0
AvanzamentoElab Ini,Fin,Es
For R = 1 To 12 : If R = 11 Then R = 12
Ru(1) = R
N = StringaEstratti(Es,R) : N = "0." & N : Nr = Split(N,".") : 'OrdinaMatrice nr
Rc = SerieRitardo(Ini,Fin,Nr,Ru,2)
If SerieFreq(Es + 1,Fin,Nr,Ru,2) > 0 Then
ColoreTesto 2
Scrivi "-- -- -- -- --" & Space(1),0,0
ColoreTesto 0
Else
If SerieFreq(Es + 1,Fin,Nr,Ru,2) = 0 Then
If Int(R/2) = R/2 And R <> 12 Then 'Cambia colore alla Colonna'
ColoreTesto(1)
Else ColoreTesto(0)
End If
Scrivi StringaNumeri(Nr) & Space(1),0,0
End If
End If
Next
Scrivi
Next
End Sub
Avevo trovato in giro ...
questo script, non funzionante che ho rimesso apposto.
Tuttavia se ci fossero discordanze e malfunzionamenti ... segnalatelo.
Codice:'RSL/RC/JOE V.3.0. del 21/11/2013 Sub Main() Dim Ru(1),Mu(1) Fin = EstrazioneFin GeneraAnalitico(Fin) ReDim aTitoli(5) aTitoli(1) = "Ruota" aTitoli(2) = "Numero" aTitoli(3) = "RSL" aTitoli(4) = "RC" aTitoli(5) = "RSL/RC" Call InitTabella(aTitoli) Scrivi String(32,"="),1 Scrivi "Capolista del Ritardo",1 : Scrivi For R = 1 To 12 : If R = 11 Then R = 12 Ru(1) = R Mem = 0 Rit = TabelloneAnalitico(0,R,0) Base = Fin - Rit Nu = Split("0." & StringaEstratti(Base,r),".") If UBound(nu) = 5 Then For P = 1 To 5 Mu(1) = Nu(p) Sp = SeriePrima(Base + 1,Fin,Mu,Ru,1) If Mem <= Sp Then Mem = Sp If Sp = 0 Then End If Next ReDim aValori(5) aValori(1) = SiglaRuota(R) aValori(2) = Format2(Mu(1)) aValori(3) = Fin - Mem aValori(4) = Rit aValori(5) = Round(((Fin - Mem) / Rit),3) Call AddRigaTabella(aValori) End If Next Call CreaTabella(5) Scrivi FormatSpace("Aggiornato al " & DataEstrazione(Fin),32,1),1 ColoreTesto 1 : Scrivi FormatSpace("Gift-By-Joe",32,1),1 ColoreTesto 0 : Scrivi String(32,"="),1 End Sub
