Valutazione Ambi Trovati con Nuovi codici

[Mike58]

Giusto per dare il merito dovuto a tutti i codici di vecchia e nuova generazione di Spaziometria, ecco uno script con il mix di più codici vecchi e nuovi.

A voi le valutazione future.

'Option Explicit
Sub Main
 Dim aRetNum,aRetAbb,sRetGRuppo
 Dim aPrimiN
 Dim k,kk,r,q,estr,d,p,esito
 Dim ru(1),nu(1)
 Dim Ini,fin,Tot
 Dim aNumA(2),aNumB(2),aNumC(2),aNumD(2),aNumE(2)
 Ini = EstrazioneIni
 fin = EstrazioneFin
 Tot = fin - Ini + 1
 Const cNum = 1
 Const cFrq = 2
 Const cPre = 3
 Const cRit = 4
 Const cRitMax = 5
 r = InputBox("Quale Ruota",,1)
 q = InputBox("Quanti estratti",,10)
 p = InputBox("Quale ordine" & Chr(13) & "2 = Frequenze" & Chr(13) & "3 = Pres Media" & Chr(13) & "4 = Ritardi" & Chr(13) & "5 = Max Storico","ORDINAMENTO",5)
 ResetTimer
 ru(1) = r
 aPrimiN = StatEstratti(Ini,fin,aRetNum,r,,q,p)
 ReDim aV(13)
 aV(1) = "Numero"
 aV(2) = "Freqenze"
 aV(3) = "Presenza Media"
 aV(4) = "Ritardo"
 aV(5) = "RitardoMax"
 aV(6) = "Data Storico"
 aV(7) = "Abb x Ambo"
 aV(8) = "Pres. Ambo"
 aV(9) = " Ambi "
 aV(10) = "Rit Rel"
 aV(11) = "Ritardo Gruppo"
 aV(12) = " Storico Gruppo"
 aV(13) = "Freq Gruppo"
 Call InitTabella(aV,RGB(145,145,145),,3,5)
 For k = 1 To q
  nu(1) = aRetNum(k,cNum)
  aV(1) = aRetNum(k,cNum)
  aV(2) = aRetNum(k,cFrq)
  aV(3) = Round(Tot/(aRetNum(k,cPre)),2)
  aV(4) = aRetNum(k,cRit)
  aV(5) = aRetNum(k,cRitMax)
  d = SerieEstrazioneStorico(EstrazioneIni,EstrazioneFin,nu,ru,1)
  aV(6) = DataEstrazione(d)
  Call Abbinamenti(nu(1),aRetAbb,EstrazioneIni,EstrazioneFin,r)
  For kk = 1 To 5
   ReDim Preserve Abb(kk)
   Abb(kk) = aRetAbb(kk,1)
   aNumA(1) = nu(1)
   aNumA(2) = aRetAbb(1,1)
   aNumB(1) = nu(1)
   aNumB(2) = aRetAbb(2,1)
   aNumC(1) = nu(1)
   aNumC(2) = aRetAbb(3,1)
   aNumD(1) = nu(1)
   aNumD(2) = aRetAbb(4,1)
   aNumE(1) = nu(1)
   aNumE(2) = aRetAbb(5,1)
   Call AddNumeriToGruppoStatistico(aNumA,r)
   Call AddNumeriToGruppoStatistico(aNumB,r)
   Call AddNumeriToGruppoStatistico(aNumC,r)
   Call AddNumeriToGruppoStatistico(aNumD,r)
   Call AddNumeriToGruppoStatistico(aNumE,r)
   Call StatisticaGruppoFormazioniTurbo(2,ritardo,maxx,fr,sRetGRuppo,Ini,fin)
   srA = SerieRitardoTurbo(Ini,fin,aNumA,ru,2)
   srB = SerieRitardoTurbo(Ini,fin,aNumB,ru,2)
   srC = SerieRitardoTurbo(Ini,fin,aNumC,ru,2)
   srD = SerieRitardoTurbo(Ini,fin,aNumD,ru,2)
   srE = SerieRitardoTurbo(Ini,fin,aNumE,ru,2)
   ac = srA & "<br>" & srB & "<br>" & srC & "<br>" & srD & "<br>" & srE
   ReDim Preserve AbbQ(kk)
   AbbQ(kk) = aRetAbb(kk,2)
   aV(7) = StringaNumeri(Abb,,1)
   aV(8) = StringaNumeri(AbbQ,,1)
   ab = StringaNumeri(aNumA) & "<br>" & StringaNumeri(aNumB) & "<br>" & StringaNumeri(aNumC) & "<br>" & StringaNumeri(aNumD) & "<br>" & StringaNumeri(aNumE)
   aV(9) = ab
   aV(10) = ac
   aV(11) = ritardo
   aV(12) = maxx
   aV(13) = fr
  Next
  Call AddRigaTabella(aV)
  Call SetColoreCella((p),7,5)
 Next
 Call SetTableTitle("******* Script By Mike58 ********","Cambria")
 Call SetTableWidth("100%")
 Call CreaTabella
 Scrivi StringaNumeri(aPrimiN) & vbTab,1,0
 Call VerificaEsito(aPrimiN,ru,EstrazioneFin,1,,,esito,,estr)
 Scrivi estr & vbTab & esito,1,1,,2,,,1
 Scrivi
 Scrivi TempoTrascorso
End Sub

Fatene buon uso.

Mike

 

[claudio8]

Che dire, la B di Luigi è l'iniziale di BOMBA...

Mike, una piccola dimenticanza,...
Call VerificaEsito (aPrimiN,ru,EstrazioneFin+1,1,,,esito,,estr)
Bravissimo

ciao