Settenario
Super Member >PLATINUM<
ciao joe91 è possibile evidenziare e verificare gli esiti dei primi tre numeri ritardatari ,di ogni ruota, dalla tabella che viene creata dallo script seguente:
es del 18-10-2014:
BA 02(rit 29), 31( rit27), 72(rit 20) esito: 6° colpo 2
CA 01(rit 29), 09(rit 35), 38(rit 38) esito: 1° colpo 9
ecc...ecc
Vedi l'allegato 13715
grazie anticipatamente
Alberto
HTML:
Sub Main
'Ritardi Medi Minori di Kondor13 Script di Mike58 Rev 2.0. By Joe. Alba 18/10/2014
Dim Ru(1),Nu(1),Rit(10)
tr = CInt(InputBox("Quale ritardo inferiore a ",,36))
Scrivi Space(4) & "Considera Ritardi Inferiori di " & tr & " (in tutte le 10 Ruote)" & Space(4),1,1,2,4,3
Scrivi
Ini = EstrazioneFin - 250 : Fin = EstrazioneFin
ColoreTesto 2 : Scrivi "NU" & Space(2),1,0 : ColoreTesto 0
For R = 1 To 10
Scrivi SiglaRuota(R) & Space(2),1,0
Next
Scrivi "SOMMA MEDIA" & Space(3),1,0
ColoreTesto 1 : Scrivi "MIN" & Space(2),1,0
ColoreTesto 2 : Scrivi "MAG" & Space(2),1,0
ColoreTesto 0 : Scrivi "R U O T E",1
For X = 1 To 90
K = 0 : SRT = 0 : Min = 0
For R = 1 To 10
Ru(1) = R
Nu(1) = X
Sr = SerieRitardo(Ini,Fin,Nu,Ru,1)
Rit(R) = Sr
If Sr <= tr Then
SRT = SRT + Sr
SRM = Round((SRT/10),1)
K = K + 1
End If
Next
If K = 10 Then
Scrivi Format2(X) & Space(2),1,0,,2,2
For R = 1 To 10
If Min < Rit(R) And Rit(R) < SRM Then Min = Rit(R)
Scrivi Format2(Rit(R)) & Space(2),0,0
Next
Scrivi FormatSpace(SRT,4,1) & FormatSpace(FormattaStringa(SRM,"###.0"),7,1) & Space(3),1,0
Mag = TR
For R = 1 To 10
For RMax = 0 To Tr
If(Rit(R) < Mag) And(Rit(R) > SRM) Then Mag = Rit(R)
Next
Next
ColoreTesto 1 : Scrivi FormatSpace(Min,3,1) & Space(2),1,0
ColoreTesto 2 : Scrivi FormatSpace(Mag,3,1) & Space(2),1,0
For RR = 1 To 10
If Rit(RR) = SRM Then ColoreTesto 0 : Scrivi SiglaRuota(RR) & " ",1,0 : Min = 0 : Mag = 0
Next
For RR = 1 To 10
If Rit(RR) = Min Then ColoreTesto 1 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
Next
For RR = 1 To 10
If Rit(RR) = Mag Then ColoreTesto 2 : Scrivi SiglaRuota(RR) & " ",1,0 : ColoreTesto 0
Next
Scrivi
End If
Next
End Sub
es del 18-10-2014:
BA 02(rit 29), 31( rit27), 72(rit 20) esito: 6° colpo 2
CA 01(rit 29), 09(rit 35), 38(rit 38) esito: 1° colpo 9
ecc...ecc
Vedi l'allegato 13715
grazie anticipatamente
Alberto
Ultima modifica: