Ciao, correggere script è fermo al 2016 perchè

[Alien.]

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





grazie.

 

[salvo50]

Perchè è impostato per 8 anni, dal 2009 al 2016, senza cambiare l'impostazione di 8 anni, si potrebbe impostare dal 2012 al 2019, ma non l'ho capito se basta cambiare

2009 con 2012
2010 con 2013
2011 con 2014
ecc...

o se c'è altro da cambiare oltre agli anni

 

[Alien.]

fatto prima ma non funziona ci deve essere altro..

ha trovato cambiare tutti gli anni.

 

[Alien.]

è si potrebbe fare anche per superenalotto e 10elotto serale si ma qua ci vuole un professore di script

 

[Mike58]

Quello script è costruito in modo rigido, ad ogni anno è stata associata una condizione.
Sicuramente si può ampliare e modificare, ma fra qualche anno qualcuno potrebbe richiedere ancora modifiche varie.
Poi come si nota dalla richiesta Per Super o 10 e lotto.

In questi anni si è discusso tanto su come fare script, con tante lezioni, ma in pochi hanno raccolto e hanno saputo prendere come insegnamento personale tali lezioni e discussioni.

Io fra questi pochi, ed ogni tanto mi diletto ad elaborare quello che mi fa piacere vedere in una risultanza.

Quindi dovete cercare di crescere in questo altrimenti copiare script e basta e solo un accumulo di Niente.

ad ogni modo provate questo per mesi e valutate che ogni script è diverso da altri per costrutto e finalità.

Sub Main()
   Dim x(90),ru(1),nu(1)
   r = InputBox("Inserisci la ruota di ricerca","RUOTA",9)
   kk = CInt(InputBox("Inserisci mese di ricerca","MESE",1))
   An1 = CInt(InputBox("Inserisci INIZIO ANNO di ricerca","ANNO",2009))
   An2 = CInt(InputBox("Inserisci FINE ANNO di ricerca","ANNO",2019))
   ini = 1
   fin = EstrazioneFin
   T = Array(T,"Numero","Presenza","Verifica Mese Corrente","ID Data","colpo","Ritardo","Presenze Mese")
   Call InitTabella(T)
   For a = 1 To 90
      x(a) = 0
   Next
   For n = ini To fin
      If Mese(n) = kk And Anno(n) >= An1 And Anno(n) <= An2 Then
         'For r=1 To 10
         ru(1) = r
         For e = 1 To 5
            n1 = Estratto(n,r,e)
            x(n1) = x(n1) + 1
         Next
         'Next
      End If
   Next
   Scrivi " Quantità per ogni numero estratto DA ANNO N." & An1 & " FINO ANNO N." & aN2 & " sulla ruota di " & NomeRuota(r) & " nel MESE di " & MeseNome(kk),1
   For i = 1 To 90
      nu(1) = i
      Ind = IndiceMensile(fin)
      ess = fin - Ind '
      Call VerificaEsito(nu,ru,ess + 1,1,13,,,clp,es1,id)
      er = EstrattoRitardo(r,i,1,fin)
      sf = SerieFreq(ess + 1,fin,nu,ru,1)
      If EstrattoFrequenza(r,i,ess,fin) > 0 Then
         k = k + 1
         ReDim Preserve aNum(k)
         aNum(k) = i
      End If
      V = Array(V,i,x(i),es1,GetInfoEstrazione(id),clp,er,sf)
      Call AddRigaTabella(V)
      For xx = 1 To 6
         If er = 0 Then Call SetColoreCella((xx),7,5)
      Next
   Next
   Call CreaTabellaOrdinabile(2)
   Call Scrivi("Numeri Sortiti Nel Mese corrente..... " & StringaNumeri(aNum) & "  ( " & k & " )",1,,,1,3)
End Sub

 

[Alien.]

Mike hai pienamente ragione ma ogni uno di noi è un universo a se ,con il suo sole,la luna e le tempeste ecc.

se per caso mi dai dei link vedo di approfondire, grazie.

 

[Mike58]

Ciao Alien, tu oltre ad essere un Alieno simpatico, frequenti questo sistema planetario da molto tempo e meglio di me sai come e dove reperire i vari link delle lezioni scriptiche.

Ho già ribadito altre volte che chi vuole solo leggendo uno script può capire passo passo quello che si sta costruendo, magari solo i piccoli problemi e con poche istruzioni.

Poi tutto il resto leggendo la guida si può capire cosa fa un codice e cosa bisogna dare al codice stesso come istruzione.

Prima di tutto bisogna avere chiaro un problema o un progetto da svolgere e poi vedere ed immettere passo passo i codice nella fattispecie.

Ciao penso sia chiaro il pensiero.

Mike

 

[Alien.]

è si,si prendo la canna.................e pesco hahahahahah

 

[Mike58]

Guarda Alien ti metto un semplice script per farti capire come svolgere un determinato problema.
Il tutto è remmato passo passo.

Mettiamo che vogliamo elencare quali sono i + ritardatari del momento e conoscere anche altri dati.

Leggi attentamente lo script.

se capisci da qui poi puoi cominciare a capire anche tutti gli altri.

Sub Main
   Dim nu(1),ru(1),aR(90,6)' Numeri Vettori
   Ini = EstrazioneIni' range inizio
   fin = EstrazioneFin'range fine
   For r = 1 To 12 'ciclo ruote
      For n = 1 To 90 ' ciclo numeri
         nu(1) = n'assegno al vettore numeri il numero ciclato for
         ru(1) = r ' assegno al vettore ruote la ruota ciclata for

         Call StatisticaFormazioneTurbo(nu,ru,1,sr,max,Incr,fre,Ini,fin)' faccio operare il codice con i suoi parametri
         If sr > 99 Then ' condiziono la sr = serieritardo superiore a 99
            k = k + 1 'conto i casi trovati dalla condizione
            aR(n,0) = n ' assehno ad ogni matrice bidimensionale un qualcosa in questo caso il numero ciclato = n
            aR(n,1) = SiglaRuota(r) ' assegno la ruota
            aR(n,2) = sr' assegno il ritardo
            aR(n,3) = max' assegno lo storico ritardo
            data = SerieEstrazioneStorico(Ini,fin,nu,ru,1)' assegno la data storica
            aR(n,4) = Incr' assegni l'incremento massimo attuale in confronto allo storico
            aR(n,5) = GetInfoEstrazione(data)' assegno la data storica
            aR(n,6) = fre ' assegno la frequenza
         End If' chiudo la condizione if
         Call OrdinaMatrice(aR,- 1,2)' ordino la matrice in ordine decrescente
      Next ' chiudo il ciclo for dei numeri
   Next ' chiudo il ciclo for ruote
   'scrivo il tutto.................................
   Scrivi "=============================================================================="
   Scrivi "  Num     Ruota  Rit    Sto     Incr       DataSto             Fre"
   Scrivi "=============================================================================="
   Call ScriviMatrice(aR)' scrive le risultanze


   Scrivi "Trovati... " & k,1' scrivo il contatore trovato
End Sub