Per Mike58

[solare]

Ciao, volevo chiederti, se possibile inserire anche il totale delle frequenza per ogni decina analizzata evidenziandola .
Grazie
Sub Main
Dim nu(5),ru(1),T,V,aN(90)
Ini = EstrazioneFin - 25
fin = EstrazioneFin
r = ScegliRuota
Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r),1,,,,3,,1
ReDim T(92)'--------------------------------------------------------
T(1) = "info data"
T(2) = "Estratti"
For x = 1 To 90
T(x + 2) = Format2(x)
Next
Call InitTabella(T,,,1)
For es = Ini To fin
' For r = 1 To 1
ReDim V(92)'------------------------------------------------------
ReDim freq(92)
ReDim rit(92)
ReDim sto(92)
ReDim Lettere(92)
V(1) =(es)
V(2) = StringaEstratti(es,r)
For xx = 1 To 90
aN(xx) = ""
'aN(xx) = xx
For p = 1 To 5
nu(p) = Estratto(es,r,p)
If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin-180,es))
kk = kk + 1

V(xx + 2) = aN(xx)
'If V(xx + 2) > 0 Then kk = kk +1
Next
sf = EstrattoFrequenza(r,xx,fin-180,fin)
freq(1) = "Freq"
freq(2) = " <> "
freq(xx + 2) = sf
sr = EstrattoRitardo(r,xx,Ini,fin)
rit(1) = "Ritardo"
rit(2) = " <> "
rit(xx + 2) = sr
st = EstrattoStorico(r,xx,Ini,fin)
sto(1) = "Rit Sto"
sto(2) = " <> "
sto(xx + 2) = st
fr = Hex(sf)
Lettere(1) = "Codifica"
Lettere(2) = " <> "
Lettere(xx + 2) = fr

Next
Call AddRigaTabella(V,,,1)
For y = 1 To 92
If y < 10 Then Call SetColoreCella((y + 2),6,0)
If y > 19 And y < 30 Then Call SetColoreCella((y + 2),6,0)
If y > 39 And y < 50 Then Call SetColoreCella((y + 2),6,0)
If y > 59 And y < 70 Then Call SetColoreCella((y + 2),6,0)
If y > 79 And y < 90 Then Call SetColoreCella((y + 2),6,0)
Next
Next
'Next
Call AddRigaTabella(freq,,,1)
Call AddRigaTabella(rit,,,1)
Call AddRigaTabella(sto,,,1)
Call AddRigaTabella(Lettere,,,1)
Call SetTableWidth("100%")
CreaTabella
End Sub

 

[claudio8]

Qualche post dopo quello dello script troverai la correzione della colorazione tabella.

 

[solare]

ok grazie

 

[Mike58]

Ciao Solare.
Premesso che questo script è costruito solo per evidenze numeri su Tabellone estratti in decina e non ha niente a che fare con il tabellone del "mastro lettere o come si vuole chiamare".
La mia codifica in lettere è convertita da un codice Hex che converte le frequenza numeriche in lettere da 10 a 14 con ABCD e quindi solo una simulazione.
Premesso anche che non sono interessato a quello sviluppo ti metto la presenza numeri estratti per decine.

Sub Main
   Dim nu(5),ru(1),T,V,aN(90),num(5),eff(90)
   q = InputBox("Quante estrazioni visualizzo",,25)
   Ini = EstrazioneFin - q
   fin = EstrazioneFin
   r = ScegliRuota
   Scrivi "Tabellone in Decina Ruota di : " & NomeRuota(r) & Space(28) & " script By Mike58",1,,,,3,,1
   ReDim T(92)'--------------------------------------------------------
   T(1) = "info data"
   T(2) = "Estratti"
   For x = 1 To 90
      T(x + 2) = Format2(x)
   Next
   Call InitTabella(T,,,1)
   For es = Ini To fin
      ReDim V(92)'------------------------------------------------------
      ReDim freq(92)
      ReDim rit(92)
      ReDim sto(92)
      ReDim Lettere(92)
      ReDim pres(92)
      V(1) =(es)
      V(2) = StringaEstratti(es,r)
      For xx = 1 To 90
         aN(xx) = ""
         eff(xx) = EstrattoFrequenza(r,xx,Ini,fin)
         For p = 1 To 5
            nu(p) = Estratto(es,r,p)
            'If nu(p) = xx Then aN(xx) = aN(xx) & Hex(EstrattoFrequenza(r,(nu(p)),fin - 180,es))' codifica lettere
            If nu(p) = xx Then aN(xx) = aN(xx) & nu(p) ' Hex(EstrattoFrequenza(r,(nu(p)),fin - 180,es))' scrive i numeri
            V(xx + 2) = aN(xx)
         Next
         '-------------------------------
         sf = EstrattoFrequenza(r,xx,fin - 180,fin)
         freq(1) = "Freq"
         freq(2) = " <> "
         freq(xx + 2) = sf
         sr = EstrattoRitardo(r,xx,Ini,fin)
         rit(1) = "Ritardo"
         rit(2) = " <> "
         rit(xx + 2) = sr
         st = EstrattoStorico(r,xx,Ini,fin)
         sto(1) = "Rit Sto"
         sto(2) = " <> "
         sto(xx + 2) = st
         fr = Hex(sf)
         Lettere(1) = "Codifica"
         Lettere(2) = " <> "
         Lettere(xx + 2) = fr
         '--------------------------------------
         pres(1) = "Presenze Dec"
         pres(2) = " <> "
         pres(7) = eff(1) + eff(2) + eff(3) + eff(4) + eff(5) + eff(6) + eff(7) + eff(8) + eff(9) + eff(10)
         pres(17) = eff(11) + eff(12) + eff(13) + eff(14) + eff(15) + eff(16) + eff(17) + eff(18) + eff(19) + eff(20)
         pres(27) = eff(21) + eff(22) + eff(23) + eff(24) + eff(25) + eff(26) + eff(27) + eff(28) + eff(29) + eff(30)
         pres(37) = eff(31) + eff(32) + eff(33) + eff(34) + eff(35) + eff(36) + eff(37) + eff(38) + eff(39) + eff(40)
         pres(47) = eff(41) + eff(42) + eff(43) + eff(44) + eff(45) + eff(46) + eff(47) + eff(48) + eff(49) + eff(50)
         pres(57) = eff(51) + eff(52) + eff(53) + eff(54) + eff(55) + eff(56) + eff(57) + eff(58) + eff(59) + eff(60)
         pres(67) = eff(61) + eff(62) + eff(63) + eff(64) + eff(65) + eff(66) + eff(67) + eff(68) + eff(69) + eff(70)
         pres(77) = eff(71) + eff(72) + eff(73) + eff(74) + eff(75) + eff(76) + eff(77) + eff(78) + eff(79) + eff(80)
         pres(87) = eff(81) + eff(82) + eff(83) + eff(84) + eff(85) + eff(86) + eff(87) + eff(88) + eff(89) + eff(90)
      Next
      Call AddRigaTabella(V,,,1)
      For y = 1 To 92
         If y <= 10 Then Call SetColoreCella((y + 2),6,0)
         If y > 20 And y <= 30 Then Call SetColoreCella((y + 2),6,0)
         If y > 40 And y <= 50 Then Call SetColoreCella((y + 2),6,0)
         If y > 60 And y <= 70 Then Call SetColoreCella((y + 2),6,0)
         If y > 80 And y <= 90 Then Call SetColoreCella((y + 2),6,0)
      Next
   Next
   Call AddRigaTabella(freq,,,1)
   Call AddRigaTabella(rit,,,1)
   Call AddRigaTabella(sto,,,1)
   Call AddRigaTabella(Lettere,,,1)
   Call AddRigaTabella(pres,,,1)
   For yy = 3 To 92
      If pres(yy) > 0 Then Call SetColoreCella((yy),4,0)
   Next
   Call SetTableWidth("100%")
   CreaTabella
End Sub

 

[solare]

Grazie comunque della tua gentilezza.