B
Beppignello
Guest
Codice:
Option Explicit
Sub Main
Dim rie(0190,7),gradua(999)
Dim n,fine,r,p,e,t,ix,v,det,iy,w,z,retesito,retcolpi,retestratti,retidestr,Ini,vv,ne,zz,k,b,we,last,ele
Dim RetRit,RetRitMax,RetIncrRitMax,RetFre,grad
fine = InputBox("Estrazione n.",,EstrazioneFin)
r = InputBox("Ruota",,1)
det = InputBox("Dettaglio Graduatorie",,"NO")
''''''crea tabella combinazione con doppia sincronia e sincro-isocronia
Dim atitolo(23),aris(23)
'''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t e x c e l ''''''''''''''''''''''''''''''''''''''''''''''
'''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
atitolo(1) = "Grad."
atitolo(2) = " Ruota "
atitolo(3) = "Comb."
atitolo(4) = " RaE "
atitolo(5) = " Fre "
atitolo(6) = " Somma "
atitolo(7) = " Gr.1 "
atitolo(8) = " Gr.2 "
SetTableWidth("85%px")
Call InitTabella(atitolo,2,"left",1.5,5,"Cambria")
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''
For n = 1 To 90
iy = 1 & Format2(n)
p = p + 1
rie(iy,1) = p
rie(iy,2) = Format2(r) & ".." & Format2(n)
rie(iy,3) = Int(EstrattoRitardoTurbo(r,n,EstrazioneIni,fine))
rie(iy,4) = Int(EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine))
rie(iy,5) = 0
rie(iy,6) = 0
rie(iy,7) = 0
Next
''''graduatoria ritardo
Call OrdinaMatrice(rie,- 1,3)
For e = 1 To 190
If rie(e,2) <> "" Then
rie(e,5) = e
rie(e,6) = 0
rie(e,7) = 0
If det <> "NO" Then Scrivi e & "......" & rie(e,2) & "..." & rie(e,3) & "..." & rie(e,4)
End If
Next
''''graduatoria frequenza
Call OrdinaMatrice(rie,1,4)
we = 0
For e = 1 To 190
If rie(e,2) <> "" Then
If rie(e,4) > 0 Then
we = we + 1
rie(e,6) = we
rie(e,7) = FormattaStringa(rie(e,6) + rie(e,5),"0000")
If det <> "NO" Then Scrivi we & "....." & rie(e,2) & "..." & rie(e,3) & "..." & rie(e,4)
End If
End If
Next
' ''''' graduatoria di somma
Scrivi " Graduatoria Per Somma Pos.Ritardo e Frequenza....all'estrazione n." & fine & "/" & DataEstrazione(fine),1
Scrivi " Ruota di " & NomeRuota(r),1
Call OrdinaMatrice(rie,1,7)
ReDim ttot(99,4)
For b = 0 To 99
ttot(b,3) = 99
Next
For t = 1 To 190
If rie(t,7) > 0 And rie(t,5) > 0 And rie(t,6) > 0 Then
'''''''''''''''''''''calcola alcuni dati '''''''''''''''''''''''''''''''''''''
ReDim ruote(1),numeri(1)
ruote(1) = Left(rie(t,2),2)
numeri(1) = Right(rie(t,2),2)
Call StatisticaFormazioneTurbo(numeri,ruote,1,RetRit,RetRitMax,RetIncrRitMax,RetFre,EstrazioneIni,fine)
v = v + 1
Scrivi "Grad.pos.." & FormattaStringa(v,"000") & " comb..." & SiglaRuota(Left(rie(t,2),2)) & " " & Right(rie(t,2),2) & " Rae..." & FormattaStringa(RetRit,"000") & " Freq..." & FormattaStringa(RetFre,"0000") & " Somma.." & FormattaStringa(rie(t,7),"0000") & " = " & rie(t,5) & " // " & rie(t,6)
zz = Left(rie(t,7),3)
ttot(zz,1) = ttot(zz,1) + 1
If RetRit < ttot(zz,3) Then
ttot(zz,3) = RetRit
End If
'''''''''''''''''scrivi tabella'''''''''''''''''''''''''''''''''''''''''
aris(1) = FormattaStringa(v,"000")
aris(2) = SiglaRuota(Left(rie(t,2),2))
aris(3) = Right(rie(t,2),2)
aris(4) = FormattaStringa(RetRit,"000")
aris(5) = FormattaStringa(RetFre,"0000")
aris(6) = FormattaStringa(rie(t,7),"0000")
aris(7) = rie(t,5)
aris(8) = rie(t,6)
Call AddRigaTabella(aris,,,1)
Call SetColoreCella(3,RGB(2,20,185),vbWhite)
'''''''''''''''''''''verifica esiti'''''''''''''''''''''''''''''''''''''
Ini = fine + 1
Call VerificaEsitoTurbo(numeri,ruote,Ini,1,,,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
vv = vv + 1
ttot(zz,2) = ttot(zz,2) + 1
ColoreTesto(2)
Scrivi " ------------------------------------------->> " & retidestr & "...colpo n." & Format2(retidestr - Ini) & " Estratti..." & retestratti,1
ColoreTesto(0)
Else
ttot(zz,2) = 0
ttot(zz,4) = ttot(zz,4) & numeri(1) & "."
If RetRit > 18 Then
gradua(zz) = gradua(zz) & SiglaRuota(ruote(1)) & " " & numeri(1) & "//"
End If
End If
End If
Next
Call CreaTabellaOrdinabile(1)
ne = EstrazioneFin - fine + 1
ColoreTesto(1)
Scrivi "----------------------------------------------------",1
Scrivi " Ruota di " & NomeRuota(r),1
Scrivi " Periodo esaminato........Dal..estraz.n................." & fine & " / " & DataEstrazione(fine),1
Scrivi " N.estrazioni valutate.in verifica......................" & ne,1
Scrivi " Totale combinazioni in graduatoria....................." & v,1
Scrivi " Totale combinazione uscite............................." & vv,1
Scrivi " % ....................................................." & Round(vv/v,5)*100,1
Scrivi " Reali nr.Vergini ......................................" & 90 - vv
Scrivi " Teorici n.Vergini.900*(17/18)^(ne-1).in graduatoria...." & Int(900*(17/18)^(ne - 1)),1
Scrivi " Teorici n.Vergini .90*(17/18)^(ne-1).singola ruota....." & Int(90*(17/18)^(ne - 1)),1
Scrivi "----------------------------------------------------",1
ColoreTesto(0)
Scrivi "Riepilogo Generale per Gruppi di somma / 100........",1
Scrivi " Ruota di " & NomeRuota(r),1
ReDim av2(99)
For k = 0 To 99
If ttot(k,1) > 0 Then
Call SplitByChar(ttot(k,4),".",av2)
last = UBound(av2)
Scrivi FormattaStringa(k,"000") & "......" & "nr.pres.." & FormattaStringa(ttot(k,1),"000") & "....nr.Usc.." & FormattaStringa(ttot(k,2),"000") & "....Rmin.." & Format2(ttot(k,3)) & "...TotNr.." & Format2(last) & "....nr..." & ttot(k,4)
End If
Next
End Subciao skygirl
ti comunico che questo è uno script che sto ancora lavorandoci sopra, è provvisorio.
quindi ti devi accontentare di quello che fa allo stato attuale.
Non fare la raccolta di script, come molti, che compaiono in questa sezione, solo in queste occasioni
per poi pubblicare nei loro siti, come ideatori di questi programmini, o su you-tube.
Ultima modifica di un moderatore:
