Ciao A tutti dove scarico "spazioscript"?
Per mike questo script di seguito mi dà o le presenze teoriche diverse per ogni singola ruota , non dovrebbe dare uguali presenze teoriche per fasce di ritardo uguali? o forse lo script va bene solo su spazioscript?
Sub Main
Dim Ru(1),T,V
ritroso = CInt(InputBox("quante Estrazioni indietro",,1))
Ini = EstrazioneFin - 300
fin = EstrazioneFin - ritroso
Fine = EstrazioneFin
fs = CInt(InputBox("Quale fascia di ritardo Minima",,54))
fsx = CInt(InputBox("Quale fascia di ritardo Massima",,210))
Scrivi
SetColorSezione(6)
Scrivi "Inizio Range : " & GetInfoEstrazione(Ini)
Scrivi "Fine Range : " & GetInfoEstrazione(fin)
Scrivi "Fascie di Ritardo > a " & fs,1
Scrivi "Fascie di Ritardo > a " & fsx,1
Scrivi
EndColorSezione
T = Array(T,"Ruota","Presenze Reali","Numeri","Ritardi Relativi Num","Min","Max","Presenza teorica","Scarto","Colpo","VerificaEsito","Ritardo Rp_Gruppo")
Call InitTabella(T,,,3,1,"Cambria")
For r = 1 To 12
If r = 11 Then r = 12
Ru(1) = r
For n = 1 To 90
Nrit = EstrattoRitardo(r,n,Ini,fin)
If Nrit > fs And Nrit < fsx Then
k = k + 1
ReDim Preserve aNum(k)
aNum(k) = n
ReDim Preserve pos(k)
pos(k) = RitPosCrono(n,Ru,fine)
minGr = MinimoV(pos,1,- 1) ' visualizza il minimo Rp_Gruppo
'slr = RitSincDiLiv(n,Ru,fine,k)
End If
If Nrit > fs And Nrit < fsx Then
ReDim Preserve NritNum(k)
NritNum(k) = Nrit
min = MinimoV(NritNum,1,- 1)
max = MassimoV(NritNum)
End If
Next
If k > 0 Then
kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1,1,1),2)
kkk = k - kk
Call VerificaEsitoTurbo(aNum,Ru,fine,1,1,,,clp,es1)
'aa = SerieRitardoTurbo(Ini,fin,aNum,Ru,1) ' visualizza anche il ritardo minimo
V = Array(V,SiglaRuota(r),k,StringaNumeri(aNum),StringaNumeri(NritNum),min,max,kk,kkk,clp,es1,minGr)
Call AddRigaTabella(V,,,3,,"Cambria")
Else
vv = Array(vv,SiglaRuota(r),"-","..","..","..","..","..","..","..","..","..","..")
Call AddRigaTabella(vv,,,3,,"Cambria")
End If
If kkk > 1.20 Then Call SetColoreCella(8,,2)
k = 0
kk = 0
If ScriptInterrotto Then Exit For
Next
Call SetTableWidth("100%")
CreaTabella
Scrivi
Scrivi "Script by Mike58",1,,,2,3,,1
End Sub
non si finisce mai di imparare .. mi fa piacere che hai risolto ..a breve un nuovo aggironamento.
