Sempre che sia possibile

solare · 2 Giugno 2016

Ciao, chiedo agli esperti di listato quanto segue:
Mi piacerebbe conoscere la frequenza mensile in tot. anni da me stabilito.
Es. il listato mi dovrebbe chiedere Quante volte deve essere analizzato il mese di maggio "5" analizzerà negli ultimi 5 anni il mese di maggio considerando tutti i novanta numeri e dando la relativa frequenza e se possibile ritardo attuale e storico del periodo.......ancora meglio se viene riportato anno per anno la relativa frequenza del numero,ovviamente ci sarà da selezionare la ruota singola e non.
Cosa ne pensate ?

Mike58 · 2 Giugno 2016

Ciao Solare avevo già fatto questo tipo di script e penso che possa andarti bene.
A mio parere cosi è sufficiente per l'analisi che vuoi vedere, altri dati sono irrilevanti.

P.S. non mi è possibile scrivere in inputBox gli anni voluti in quanto ogni anno va scritto con un IF-Then.
prova

Codice:

Sub Main()
 Dim ru(1),nua(4005,13),nn(2)
 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(1) = r
 q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
 If q = "" Then Exit Sub
 '
 fin = EstrazioneFin
 '------------init tabella ------------------
 ReDim atitoli(13)
 atitoli(1) = " "
 atitoli(2) = " Numero "
 atitoli(3) = " Frequenza "
 atitoli(4) = " Ritardo Attuale "
 atitoli(5) = " Anno_2016 "
 atitoli(6) = " Anno_2015 "
 atitoli(7) = " Anno 2014 "
 atitoli(8) = " Anno 2013 "
 atitoli(9) = " Anno 2012 "
 atitoli(10) = " Anno 2011 "
 atitoli(11) = " Anno 2010 "
 atitoli(12) = " Anno 2009 "
 atitoli(13) = " "
 Call InitTabella(atitoli,1,,3,5)
 For es = PrimaSuccessiva(ee) To fin
  If Mese(es) = ms Then
   co = 0
   'For x = 1 To 89
   'x = cg
   'For y = x + 1 To 90
   For x = 1 To 90
    'If x <> y Then
    co = co + 1
    nua(co,1) = co
    nua(co,2) = x
    'nua(co,3) = y
    nn(1) = x
    'nn(2) = y
    k = SerieFreqTurbo(es,es,nn,ru,1)
    rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
    nua(co,4) = nua(co,4) + k
    nua(co,5) = rt
    If Anno(es) = 2016 Then k1 = SerieFreq(es,es,nn,ru,1)
    nua(co,6) = nua(co,6) + k1
    If Anno(es) = 2015 Then k2 = SerieFreq(es,es,nn,ru,1)
    nua(co,7) = nua(co,7) + k2
    If Anno(es) = 2014 Then k3 = SerieFreq(es,es,nn,ru,1)
    nua(co,8) = nua(co,8) + k3
    If Anno(es) = 2013 Then k4 = SerieFreq(es,es,nn,ru,1)
    nua(co,9) = nua(co,9) + k4
    If Anno(es) = 2012 Then k5 = SerieFreq(es,es,nn,ru,1)
    nua(co,10) = nua(co,10) + k5
    k6 = 0
    If Anno(es) = 2011 Then k6 = SerieFreq(es,es,nn,ru,1)
    nua(co,11) = nua(co,11) + k6
    If Anno(es) = 2010 Then k7 = SerieFreq(es,es,nn,ru,1)
    nua(co,12) = nua(co,12) + k7
    If Anno(es) = 2009 Then k8 = SerieFreq(es,es,nn,ru,1)
    nua(co,13) = nua(co,13) + k8
   Next
   'Next
  End If
 Next
 OrdinaMatrice nua,- 1,4
 ColoreTesto 2
 Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
 ColoreTesto 0
 Scrivi "I " & q & " Numeri più frequenti " & " a " & NomeRuota(r) & " nel mese di " & MeseNome(ms),1
 Scrivi
 For z = 1 To q
  ReDim avalori(13)
  avalori(1) = "  "
  avalori(2) = nua(z,2)
  avalori(3) = nua(z,4)
  avalori(4) = nua(z,5)
  avalori(5) = nua(z,6)
  avalori(6) = nua(z,7)
  avalori(7) = nua(z,8)
  avalori(8) = nua(z,9)
  avalori(9) = nua(z,10)
  avalori(10) = nua(z,11)
  avalori(11) = nua(z,12)
  avalori(12) = nua(z,13)
  avalori(13) = " "
  Call AddRigaTabella(avalori,,,3)
  For xx = 5 To 12
   Call SetColoreCella((xx),4,1)
  Next
  'If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
  If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
  If avalori(5) = 0 Then Call SetColoreCella(2,3,1)
  If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
  Call SetColoreCella(1,1,0)
  Call SetColoreCella(13,1,0)
  k11 = k11 + avalori(5)
  k12 = k12 + avalori(6)
  k13 = k13 + avalori(7)
  k14 = k14 + avalori(8)
  k15 = k15 + avalori(9)
  k16 = k16 + avalori(10)
  k17 = k17 + avalori(11)
  k18 = k18 + avalori(12)
  'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
  'Scrivi Space(10) & riga,1
  'riga = ""
 Next
 ReDim avalori1(13)
 avalori1(1) = " "
 avalori1(5) = k11
 avalori1(6) = k12
 avalori1(7) = k13
 avalori1(8) = k14
 avalori1(9) = k15
 avalori1(10) = k16
 avalori1(11) = k17
 avalori1(12) = k18
 'avalori1(13) = k19
 Call AddRigaTabella(avalori1,1,,3,5)
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi "     Tabella listed by Mike58      ",1,- 1,3
End Sub

solare · 2 Giugno 2016

Ciao Mike58,Ottimo come sempre.......Buona Domenica

solare · 4 Giugno 2016

Ciao mike58, in questo tuo listato è possibile aggiungere la colorazione della riga relativa al numero quando tutti gli anni ha dato positivo
Ovviamente sempre che il tutto sia possibile.
sono in debito min 10 pranzi..........Grazieeee
Ti segnalo anche un errore se tu imposti come data finale 31/5/16 mese giugno ruota venezia numeri 90 l'anno 2013 come frequenza da per ogni numero 25/26/27 ecc sicuramente sbaglia qualcosa

Mike58 · 5 Giugno 2016

Ciao Solare,ho corretto delle righe che a volte danno errore in quanto non confrontavano correttamente gli anni immessi come 2013,2012 etc, azzerando il conteggio.

Poi si va bene per la righa con tutti gli anni > 0 , ma le risultanze saranno poi poche se confrontati con l'ultimo mese corrente.

Ad ogni modo fatene l'uso più appropriato alle esigenze.

Ciao a tutti e buona domenica a chi riposa (io vado al lavoro).

Codice:

Sub Main()
 Dim ru(1),nua(4005,13),nn(2)
 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(1) = r
 q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
 If q = "" Then Exit Sub
 '
 fin = EstrazioneFin
 '------------init tabella ------------------
 ReDim atitoli(13)
 atitoli(1) = " "
 atitoli(2) = " Numero "
 atitoli(3) = " Frequenza "
 atitoli(4) = " Ritardo Attuale "
 atitoli(5) = " Anno_2016 "
 atitoli(6) = " Anno_2015 "
 atitoli(7) = " Anno 2014 "
 atitoli(8) = " Anno 2013 "
 atitoli(9) = " Anno 2012 "
 atitoli(10) = " Anno 2011 "
 atitoli(11) = " Anno 2010 "
 atitoli(12) = " Anno 2009 "
 atitoli(13) = " "
 Call InitTabella(atitoli,1,,3,5)
 For es = PrimaSuccessiva(ee) To fin
  If Mese(es) = ms Then
   co = 0
   'For x = 1 To 89
   'x = cg
   'For y = x + 1 To 90
   For x = 1 To 90
    'If x <> y Then
    co = co + 1
    nua(co,1) = co
    nua(co,2) = x
    'nua(co,3) = y
    nn(1) = x
    'nn(2) = y
    k = SerieFreqTurbo(es,es,nn,ru,1)
    rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
    nua(co,4) = nua(co,4) + k
    nua(co,5) = rt
    k1 = 0
    If Anno(es) = 2016 Then k1 = SerieFreq(es,es,nn,ru,1)
    nua(co,6) = nua(co,6) + k1
    k2 = 0
    If Anno(es) = 2015 Then k2 = SerieFreq(es,es,nn,ru,1)
    nua(co,7) = nua(co,7) + k2
    k3 = 0
    If Anno(es) = 2014 Then k3 = SerieFreq(es,es,nn,ru,1)
    nua(co,8) = nua(co,8) + k3
    k4 = 0
    If Anno(es) = 2013 Then k4 = SerieFreq(es,es,nn,ru,1)
    nua(co,9) = nua(co,9) + k4
    k5 = 0
    If Anno(es) = 2012 Then k5 = SerieFreq(es,es,nn,ru,1)
    nua(co,10) = nua(co,10) + k5
    k6 = 0
    If Anno(es) = 2011 Then k6 = SerieFreq(es,es,nn,ru,1)
    nua(co,11) = nua(co,11) + k6
    k7 = 0
    If Anno(es) = 2010 Then k7 = SerieFreq(es,es,nn,ru,1)
    nua(co,12) = nua(co,12) + k7
    k8 = 0
    If Anno(es) = 2009 Then k8 = SerieFreq(es,es,nn,ru,1)
    nua(co,13) = nua(co,13) + k8
   Next
   'Next
  End If
 Next
 OrdinaMatrice nua,- 1,4
 ColoreTesto 2
 Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
 ColoreTesto 0
 Scrivi "I " & q & " Numeri più frequenti " & " a " & NomeRuota(r) & " nel mese di " & MeseNome(ms),1
 Scrivi
 For z = 1 To q
  ReDim avalori(13)
  avalori(1) = "  "
  avalori(2) = nua(z,2)
  avalori(3) = nua(z,4)
  avalori(4) = nua(z,5)
  avalori(5) = nua(z,6)
  avalori(6) = nua(z,7)
  avalori(7) = nua(z,8)
  avalori(8) = nua(z,9)
  avalori(9) = nua(z,10)
  avalori(10) = nua(z,11)
  avalori(11) = nua(z,12)
  avalori(12) = nua(z,13)
  avalori(13) = " "
  Call AddRigaTabella(avalori,,,3)
  For xx = 5 To 12
   Call SetColoreCella((xx),4,1)
  
  If avalori(5)>0 And avalori(6)>0 And avalori(7)>0 And avalori(8)>0 And avalori(9)>0 And avalori(10)>0 And avalori(11)>0 And avalori(12)>0 Then
  Call SetColoreCella((xx),6,1)
  Call SetColoreCella(2,6,1)
  End If
  Next
  'If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
  'If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
  If avalori(5) = 0 Then Call SetColoreCella(2,3,1)
  If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
  Call SetColoreCella(1,1,0)
  Call SetColoreCella(13,1,0)
  k11 = k11 + avalori(5)
  k12 = k12 + avalori(6)
  k13 = k13 + avalori(7)
  k14 = k14 + avalori(8)
  k15 = k15 + avalori(9)
  k16 = k16 + avalori(10)
  k17 = k17 + avalori(11)
  k18 = k18 + avalori(12)
  'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
  'Scrivi Space(10) & riga,1
  'riga = ""
 Next
 ReDim avalori1(13)
 avalori1(1) = " "
 avalori1(5) = k11
 avalori1(6) = k12
 avalori1(7) = k13
 avalori1(8) = k14
 avalori1(9) = k15
 avalori1(10) = k16
 avalori1(11) = k17
 avalori1(12) = k18
 'avalori1(13) = k19
 Call AddRigaTabella(avalori1,1,,3,5)
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi "     Tabella listed by Mike58      ",1,- 1,3
End Sub

solare · 5 Giugno 2016

Grazie Grazie.....aumentando i pranzi scherzo...!!! se puoi e quando puoi aggiungere la possibilità di selezionare più ruote......Buona domenica

Mike58 · 5 Giugno 2016

ok prova cosi....

Codice:

Sub Main()
 Dim nua(4005,13),nn(2)
 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(1) = r
 q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
 If q = "" Then Exit Sub
 '
 ReDim ru(0)
 r = ScegliRuote(ru)
 fin = EstrazioneFin
 '------------init tabella ------------------
 ReDim atitoli(13)
 atitoli(1) = " "
 atitoli(2) = " Numero "
 atitoli(3) = " Frequenza "
 atitoli(4) = " Ritardo Attuale "
 atitoli(5) = " Anno_2016 "
 atitoli(6) = " Anno_2015 "
 atitoli(7) = " Anno 2014 "
 atitoli(8) = " Anno 2013 "
 atitoli(9) = " Anno 2012 "
 atitoli(10) = " Anno 2011 "
 atitoli(11) = " Anno 2010 "
 atitoli(12) = " Anno 2009 "
 atitoli(13) = " "
 Call InitTabella(atitoli,1,,3,5)
 For es = PrimaSuccessiva(ee) To fin
  If Mese(es) = ms Then
   co = 0
   'For x = 1 To 89
   'x = cg
   'For y = x + 1 To 90
   For x = 1 To 90
    'If x <> y Then
    co = co + 1
    nua(co,1) = co
    nua(co,2) = x
    'nua(co,3) = y
    nn(1) = x
    'nn(2) = y
    k = SerieFreqTurbo(es,es,nn,ru,1)
    rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
    nua(co,4) = nua(co,4) + k
    nua(co,5) = rt
    k1 = 0
    If Anno(es) = 2016 Then k1 = SerieFreq(es,es,nn,ru,1)
    nua(co,6) = nua(co,6) + k1
    k2 = 0
    If Anno(es) = 2015 Then k2 = SerieFreq(es,es,nn,ru,1)
    nua(co,7) = nua(co,7) + k2
    k3 = 0
    If Anno(es) = 2014 Then k3 = SerieFreq(es,es,nn,ru,1)
    nua(co,8) = nua(co,8) + k3
    k4 = 0
    If Anno(es) = 2013 Then k4 = SerieFreq(es,es,nn,ru,1)
    nua(co,9) = nua(co,9) + k4
    k5 = 0
    If Anno(es) = 2012 Then k5 = SerieFreq(es,es,nn,ru,1)
    nua(co,10) = nua(co,10) + k5
    k6 = 0
    If Anno(es) = 2011 Then k6 = SerieFreq(es,es,nn,ru,1)
    nua(co,11) = nua(co,11) + k6
    k7 = 0
    If Anno(es) = 2010 Then k7 = SerieFreq(es,es,nn,ru,1)
    nua(co,12) = nua(co,12) + k7
    k8 = 0
    If Anno(es) = 2009 Then k8 = SerieFreq(es,es,nn,ru,1)
    nua(co,13) = nua(co,13) + k8
   Next
   'Next
  End If
 Next
 OrdinaMatrice nua,- 1,4
 ColoreTesto 2
 Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
 ColoreTesto 0
 Scrivi "I " & q & " Numeri più frequenti " & " a " & StringaRuote(ru) & " nel mese di " & MeseNome(ms),1
 Scrivi
 For z = 1 To q
  ReDim avalori(13)
  avalori(1) = "  "
  avalori(2) = nua(z,2)
  avalori(3) = nua(z,4)
  avalori(4) = nua(z,5)
  avalori(5) = nua(z,6)
  avalori(6) = nua(z,7)
  avalori(7) = nua(z,8)
  avalori(8) = nua(z,9)
  avalori(9) = nua(z,10)
  avalori(10) = nua(z,11)
  avalori(11) = nua(z,12)
  avalori(12) = nua(z,13)
  avalori(13) = " "
  Call AddRigaTabella(avalori,,,3)
  For xx = 5 To 12
   Call SetColoreCella((xx),4,1)
  
  If avalori(5) > 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 And avalori(10) > 0 And avalori(11) > 0 And avalori(12) > 0 Then
  Call SetColoreCella((xx),6,1)
  Call SetColoreCella(2,6,1)
  End If
  Next
  'If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
  'If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
  If avalori(5) = 0 Then Call SetColoreCella(2,3,1)
  If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
  Call SetColoreCella(1,1,0)
  Call SetColoreCella(13,1,0)
  k11 = k11 + avalori(5)
  k12 = k12 + avalori(6)
  k13 = k13 + avalori(7)
  k14 = k14 + avalori(8)
  k15 = k15 + avalori(9)
  k16 = k16 + avalori(10)
  k17 = k17 + avalori(11)
  k18 = k18 + avalori(12)
  'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
  'Scrivi Space(10) & riga,1
  'riga = ""
 Next
 ReDim avalori1(13)
 avalori1(1) = " "
 avalori1(5) = k11
 avalori1(6) = k12
 avalori1(7) = k13
 avalori1(8) = k14
 avalori1(9) = k15
 avalori1(10) = k16
 avalori1(11) = k17
 avalori1(12) = k18
 'avalori1(13) = k19
 Call AddRigaTabella(avalori1,1,,3,5)
 Call SetTableWidth("100%")
 Call CreaTabella()
 Scrivi "     Tabella listed by Mike58      ",1,- 1,3
End Sub

solare · 5 Giugno 2016

Ottimo

solare · 5 Giugno 2016

Grazie Mike58, questo tuo listato delle frequenze mi stuzzica.......non voglio pretendere troppo, ma chiedo come potrebbe essere avere il ritardo attuale e storico prendendo in considerazione i soli mesi da noi analizzati e non il ritardo attuale ad'oggi indipendentemente dal mese selezionato.
Faccio un esempio qual è il ritardo storico del numero 90 analizzando i soli mesi di giugno,luglio.ecc.
forse esagero...chissà.....

Cerca

Cerca

Sempre che sia possibile

solare

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM PLUS<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi