'frequenza mensile Estratti in tot, anni di Mike58
Sub Main()
Dim ru(01),nua(4005,13),nn(01)
ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/2008")
ms = CInt(InputBox("In quale mese? ",,5))
If ms = "" Then Exit Sub
r = CInt(InputBox("Di quale ruota? ",,5))
If r = "" Then Exit Sub
ru(01) = r
q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
If q = "" Then Exit Sub
'
fin = EstrazioneFin
'------------init tabella ------------------
ReDim atitoli(13)
atitoli(01) = " "
atitoli(02) = " Numero "
atitoli(03) = " Frequenza "
atitoli(04) = " Ritardo Attuale "
atitoli(05) = " Anno_2016 "
atitoli(06) = " Anno_2015 "
atitoli(07) = " Anno 2014 "
atitoli(08) = " Anno 2013 "
atitoli(09) = " Anno 2012 "
atitoli(10) = " Anno 2011 "
atitoli(11) = " Anno 2010 "
atitoli(12) = " Anno 2009 "
atitoli(13) = " "
Call InitTabella(atitoli,01,,03,05)
For es = PrimaSuccessiva(ee) To fin
Messaggio es
AvanzamentoElab PrimaSuccessiva(ee),fin,es
If Mese(es) = ms Then
co = 00
For x = 01 To 90
co = co + 01
nua(co,01) = co
nua(co,02) = x
nn(01) = x
k = SerieFreqTurbo(es,es,nn,ru,01)
rt = SerieRitardoTurbo(Ini,fin,nn,ru,01)
nua(co,04) = nua(co,04) + k
nua(co,05) = rt
k1 = 00
If Anno(es) = 2016 Then k1 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,06) = nua(co,06) + k1
k2 = 00
If Anno(es) = 2015 Then k2 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,07) = nua(co,07) + k2
k3 = 00
If Anno(es) = 2014 Then k3 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,08) = nua(co,08) + k3
k4 = 00
If Anno(es) = 2013 Then k4 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,09) = nua(co,09) + k4
k5 = 00
If Anno(es) = 2012 Then k5 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,10) = nua(co,10) + k5
k6 = 00
If Anno(es) = 2011 Then k6 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,11) = nua(co,11) + k6
k7 = 00
If Anno(es) = 2010 Then k7 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,12) = nua(co,12) + k7
k8 = 00
If Anno(es) = 2009 Then k8 = SerieFreqTurbo(es,es,nn,ru,01)
nua(co,13) = nua(co,13) + k8
Next
End If
Next
OrdinaMatriceTurbo nua,- 01,04
ColoreTesto 02
Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),01
ColoreTesto 00
Scrivi "I " & Format2(q) & " Numeri più frequenti " & " a " & NomeRuota(r) & " nel mese di " & MeseNome(ms),01
Scrivi
For z = 01 To q
ReDim avalori(13)
avalori(01) = " "
avalori(02) = nua(z,02)
avalori(03) = nua(z,04)
avalori(04) = nua(z,05)
avalori(05) = nua(z,06)
avalori(06) = nua(z,07)
avalori(07) = nua(z,08)
avalori(08) = nua(z,09)
avalori(09) = nua(z,10)
avalori(10) = nua(z,11)
avalori(11) = nua(z,12)
avalori(12) = nua(z,13)
avalori(13) = " "
Call AddRigaTabella(avalori,,,03)
For xx = 05 To 12
Call SetColoreCella((xx),04,01)
If avalori(5) > 0 And avalori(06) > 00 And avalori(07) > 00 And avalori(8) > 00 And avalori(09) > 00 And avalori(10) > 00 And avalori(11) > 00 And avalori(12) > 00 Then
Call SetColoreCella((xx),06,01)
Call SetColoreCella(02,06,01)
End If
Next
If avalori(05) = 00 Then Call SetColoreCella(02,03,01)
If avalori(04) = 00 Then Call SetColoreCella(04,03,02)
Call SetColoreCella(01,01,00)
Call SetColoreCella(13,01,00)
k11 = k11 + avalori(05)
k12 = k12 + avalori(06)
k13 = k13 + avalori(07)
k14 = k14 + avalori(08)
k15 = k15 + avalori(09)
k16 = k16 + avalori(10)
k17 = k17 + avalori(11)
k18 = k18 + avalori(12)
Next
ReDim avalori1(13)
avalori1(01) = " "
avalori1(05) = k11
avalori1(06) = k12
avalori1(07) = k13
avalori1(08) = k14
avalori1(09) = k15
avalori1(10) = k16
avalori1(11) = k17
avalori1(12) = k18
Call AddRigaTabella(avalori1,01,,03,05)
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Tabella listed by Mike58 ",01,- 01,03
End Sub