vincenzo4221
Advanced Member >PLATINUM<
Ciao Beppi , potresti fare le modifiche x ottenere i CICLI DI 18 estrazioni anzichè di 90 estr.ni su questo tuo script?
Option Explicit
Sub Main
Dim n,est,est2,r,c,retfre,p,tp1,tp2,tp3,tp4,tp5,gen,rae,retrit,retritmax,teo,perc,descr,frelun,ne,v,perc2,qt,m,ruote,nruotesel,nrt
Dim apos(5),an(10),pr(5)
ReDim ar(10)
nruotesel = ScegliRuote(ar)
ScegliNumeri(an)
qt = UBound(an)
''''''crea tabella combinazione
Dim atitolo(16),aris(16)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
atitolo(1) = "Ruota"
atitolo(2) = "Combin. "
atitolo(3) = " da estr."
atitolo(4) = " a estr. "
atitolo(5) = " 1°P.d. "
atitolo(6) = " 2°P.d. "
atitolo(7) = " 3°P.d. "
atitolo(8) = " 4°P.d. "
atitolo(9) = " 5°P.d. "
atitolo(10) = "Tot.usc."
atitolo(11) = "Fr.ReaP."
atitolo(12) = "Fr.TeoP."
atitolo(13) = " % Per "
atitolo(14) = "Fr.ReaL."
atitolo(15) = "Fr.TeoL."
atitolo(16) = " %Lungo"
SetTableWidth("95%px")
Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
ColoreTesto(2)
For r = 1 To nruotesel
Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
nrt = nrt & SiglaRuota(ar(r)) & " - "
Next
ColoreTesto(0)
est = EstrazioneFin - 909
est2 = EstrazioneFin - 819
tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
For c = 1 To 10
For p = 1 To 5
apos(p) = True
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,est,est2,,apos)
pr(p) = retfre
apos(p) = False
Next
Scrivi nrt & " " & StringaNumeri(an,".") & " da.." & est & " a.." & est2 & " Presenze..." & pr(1) & "..." & pr(2) & "..." & pr(3) & "..." & pr(4) & "..." & pr(5)
tp1 = tp1 + pr(1)
tp2 = tp2 + pr(2)
tp3 = tp3 + pr(3)
tp4 = tp4 + pr(4)
tp5 = tp5 + pr(5)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = est
aris(4) = est2
aris(5) = pr(1)
aris(6) = pr(2)
aris(7) = pr(3)
aris(8) = pr(4)
aris(9) = pr(5)
aris(10) = pr(1) + pr(2) + pr(3) + pr(4) + pr(5)
Call AddRigaTabella(aris,,,1)
If aris(10) < 10 Then
Call SetColoreCella(10,RGB(255,255,176),vbBlack)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
est = est + 91
est2 = est2 + 91
Next
gen = tp1 + tp2 + tp3 + tp4 + tp5
ColoreTesto(2)
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,EstrazioneFin - 899,EstrazioneFin)
teo = 900/(18/qt)*nruotesel
perc = Round((teo - retfre)/teo,2)*100
If perc > 0 Then
ColoreTesto(0)
descr = "(Scarto "
Else
descr = "(Eccesso + "
perc = 0
ColoreTesto(2)
End If
Scrivi "------------------- T o t a l e " & Format2(tp1) & ".." & Format2(tp2) & ".." & Format2(tp3) & ".." & Format2(tp4) & ".." & Format2(tp5) & "------>" & gen & " RaE.." & retrit & " / " & retritmax & " Fr.Reale.." & retfre & " Fr.Teo.." & teo & " " & descr & retfre - teo & ") % " & FormattaStringa(perc,"00.00"),1
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' tabella
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = 3950
aris(4) = EstrazioneFin
aris(5) = tp1
aris(6) = tp2
aris(7) = tp3
aris(8) = tp4
aris(9) = tp5
aris(10) = "Tot. " & gen
aris(11) = gen
aris(12) = teo
aris(13) = FormattaStringa(perc,"00.00")
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,3950,EstrazioneFin)
frelun = retfre
ne = Int((EstrazioneFin - 3950) /(18/qt))*nruotesel
aris(14) = frelun
aris(15) = ne
perc2 = Round((ne - frelun)/ne,2)*100
aris(16) = perc2
Call AddRigaTabella(aris,,,1)
For v = 1 To 16
Call SetColoreCella(Int(v),RGB(224,224,224),vbBlack)
Next
If aris(11) < aris(12) Then
Call SetColoreCella(11,RGB(255,128,128),vbBlack)
End If
If aris(14) < aris(15) Then
Call SetColoreCella(14,RGB(255,128,128),vbBlack)
End If
Call CreaTabella(3,- 1,1)
End Sub
Option Explicit
Sub Main
Dim n,est,est2,r,c,retfre,p,tp1,tp2,tp3,tp4,tp5,gen,rae,retrit,retritmax,teo,perc,descr,frelun,ne,v,perc2,qt,m,ruote,nruotesel,nrt
Dim apos(5),an(10),pr(5)
ReDim ar(10)
nruotesel = ScegliRuote(ar)
ScegliNumeri(an)
qt = UBound(an)
''''''crea tabella combinazione
Dim atitolo(16),aris(16)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
atitolo(1) = "Ruota"
atitolo(2) = "Combin. "
atitolo(3) = " da estr."
atitolo(4) = " a estr. "
atitolo(5) = " 1°P.d. "
atitolo(6) = " 2°P.d. "
atitolo(7) = " 3°P.d. "
atitolo(8) = " 4°P.d. "
atitolo(9) = " 5°P.d. "
atitolo(10) = "Tot.usc."
atitolo(11) = "Fr.ReaP."
atitolo(12) = "Fr.TeoP."
atitolo(13) = " % Per "
atitolo(14) = "Fr.ReaL."
atitolo(15) = "Fr.TeoL."
atitolo(16) = " %Lungo"
SetTableWidth("95%px")
Call InitTabella(atitolo,2,"center",1.5,5,"Cambria")
ColoreTesto(2)
For r = 1 To nruotesel
Scrivi "Ruote Selezionate :" & NomeRuota(ar(r)),1
nrt = nrt & SiglaRuota(ar(r)) & " - "
Next
ColoreTesto(0)
est = EstrazioneFin - 909
est2 = EstrazioneFin - 819
tp1 = 0:tp2 = 0:tp3 = 0:tp4 = 0:tp5 = 0
For c = 1 To 10
For p = 1 To 5
apos(p) = True
Call StatisticaFormazioneTurbo(an,ar,1,,,,retfre,est,est2,,apos)
pr(p) = retfre
apos(p) = False
Next
Scrivi nrt & " " & StringaNumeri(an,".") & " da.." & est & " a.." & est2 & " Presenze..." & pr(1) & "..." & pr(2) & "..." & pr(3) & "..." & pr(4) & "..." & pr(5)
tp1 = tp1 + pr(1)
tp2 = tp2 + pr(2)
tp3 = tp3 + pr(3)
tp4 = tp4 + pr(4)
tp5 = tp5 + pr(5)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = est
aris(4) = est2
aris(5) = pr(1)
aris(6) = pr(2)
aris(7) = pr(3)
aris(8) = pr(4)
aris(9) = pr(5)
aris(10) = pr(1) + pr(2) + pr(3) + pr(4) + pr(5)
Call AddRigaTabella(aris,,,1)
If aris(10) < 10 Then
Call SetColoreCella(10,RGB(255,255,176),vbBlack)
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
est = est + 91
est2 = est2 + 91
Next
gen = tp1 + tp2 + tp3 + tp4 + tp5
ColoreTesto(2)
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,EstrazioneFin - 899,EstrazioneFin)
teo = 900/(18/qt)*nruotesel
perc = Round((teo - retfre)/teo,2)*100
If perc > 0 Then
ColoreTesto(0)
descr = "(Scarto "
Else
descr = "(Eccesso + "
perc = 0
ColoreTesto(2)
End If
Scrivi "------------------- T o t a l e " & Format2(tp1) & ".." & Format2(tp2) & ".." & Format2(tp3) & ".." & Format2(tp4) & ".." & Format2(tp5) & "------>" & gen & " RaE.." & retrit & " / " & retritmax & " Fr.Reale.." & retfre & " Fr.Teo.." & teo & " " & descr & retfre - teo & ") % " & FormattaStringa(perc,"00.00"),1
ColoreTesto(0)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' tabella
aris(1) = nrt
aris(2) = StringaNumeri(an,".")
aris(3) = 3950
aris(4) = EstrazioneFin
aris(5) = tp1
aris(6) = tp2
aris(7) = tp3
aris(8) = tp4
aris(9) = tp5
aris(10) = "Tot. " & gen
aris(11) = gen
aris(12) = teo
aris(13) = FormattaStringa(perc,"00.00")
Call StatisticaFormazioneTurbo(an,ar,1,retrit,retritmax,,retfre,3950,EstrazioneFin)
frelun = retfre
ne = Int((EstrazioneFin - 3950) /(18/qt))*nruotesel
aris(14) = frelun
aris(15) = ne
perc2 = Round((ne - frelun)/ne,2)*100
aris(16) = perc2
Call AddRigaTabella(aris,,,1)
For v = 1 To 16
Call SetColoreCella(Int(v),RGB(224,224,224),vbBlack)
Next
If aris(11) < aris(12) Then
Call SetColoreCella(11,RGB(255,128,128),vbBlack)
End If
If aris(14) < aris(15) Then
Call SetColoreCella(14,RGB(255,128,128),vbBlack)
End If
Call CreaTabella(3,- 1,1)
End Sub