Novità

Ciao, correggere script è fermo al 2016 perchè

Alien.

Advanced Premium Member
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.:p:p
 
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
 
fatto prima ma non funziona ci deve essere altro..

ha trovato cambiare tutti gli anni.
 
Ultima modifica:
è si potrebbe fare anche per superenalotto e 10elotto serale si ma qua ci vuole un professore di script :p:p:p
 
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à.


Codice:
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
 
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.
 
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
 
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.

Codice:
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto