Novità

da lotto a 10elotto serale

G

giorgioantonio

Super Member >PLATINUM<
salve a tutti,
cortesemente vorrei che questo script invece di leggere i dati del lotto
passare al 10elotto serale senza cambiare il contenuto di questo script.

Grazie
'Option Explicit
Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFin -(nCicli * Qcicli)) + 1
fin = EstrazioneFin
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58 *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFin -(5 * 18)) + 1
finx = EstrazioneFin
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub
 
Ultima modifica:
Alien buongiorno,
qualche tempo fa poco poco hai manipolato
qualche listato.
Qui dovrebbe trattarsi di eliminare 11 ruote e
farle diventare uno.
Poi il resto dovrebbe rimanere uguale?
E' solo qualche domanda.
Te paro?
 
Salve a tutti,

nel listato sopra postato vorrei che leggesse i
numeri dell'archivio 10elotto ,
quindi qual'è la parola da cambiare?
e poi se non vado errato il for 1 a 5
cambiarlo for 1 a 20
Almeno questo me lo potete indicare.

Grazie
 
Si dobbiamo cambiare l'archivio, trova un listato per il 10elotto e vedi se riesci a trovare l'archivio.
 
ACC..... e come hai fatto ? che numeri ti da ?
puoi inserire qua lo script con la tua correzione ?,grazie.
 
Ultima modifica:
'Option Explicit
Sub Main
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioneFinDL -(nCicli * Qcicli)) + 1
fin = EstrazioneFinDL
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58 *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = "Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazione(Nu,Ru,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneTurbo(Nu,Ru,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioneFinDL -(5 * 18)) + 1
finx = EstrazioneFinDL
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazione(Nu,Ru,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabellaOrdinabile(12)
End Sub
 
Si,si quello lo avevo capito...........:):):)


variabile non definita !! errore

r = InputBox("Quale ruota analizzo",,1)
 
quando lanci lo script ti fa richiesta di quale ruota,
lascia l'uno perchè va a leggere l'archivio del 10elotto.
A me non da nessun errore.

Questo script è stato scritto da Mike quindi se può
intervenire LUI.....
 
Ciao Ragazzi, anno nuovo vita nuova.
Ogni tanto però guardate e leggete le differenze con i correttivi apportati cosi da capire e fare da soli.
per cambiare uno script con archivio diverso basta modificare il codice con il suo suffisso (DL x 10eLotto) e FT x archivi esterni.
Poi per il 10 e lotto bisognerebbe cambiare la lunghezza ciclo ma questo dovete farlo voi.

Ciao


Codice: 
'Option Explicit
Sub Main
ImpostaArchivio10ELotto (1)
Dim Nu(1),Ru(1),T,V,nCicli,Qcicli
nCicli = 10
Qcicli = 90
'r = InputBox("Quale ruota analizzo",,1)
Ini =(EstrazioniArchivioDL -(nCicli * Qcicli)) + 1
fin = EstrazioniArchivioDL
Tot = fin - Ini + 1
Scrivi "*** Numeri In Frequenza ciclica **** Script & Project By Mike58 *** Forum LottoCed *** ",1,,,1,3,,1
Scrivi
ReDim T(23)'....................................................
T(1) = ""'"Ruota"
T(2) = "Numero"
For x = 3 To 12
T(x) = "C" & x - 2
Next
'T(13) = " Totali "
T(14) = " Tot.Freq "
T(15) = " Ritardo "
T(16) = " RitMax "
For xx = 17 To 21
T(xx) = "C" & xx - 16
Next
T(22) = " Med Freq "
T(23) = " I.C "
Call InitTabella(T)
For y = 1 To 90
Nu(1) = y
Ru(1) = r
ReDim V(23)'...................................................
V(1) = ""'SiglaRuota(Ru(1))
V(2) = StringaNumeri(Nu)
For es = Ini To fin Step Qcicli
k = k + 1
Call StatisticaFormazioneDL(Nu,1,rit,max,Incr,fre,es,es +(Qcicli - 1))

ReDim Preserve freq(k)
freq(k) = fre
som = som + freq(k)
Next
For x = 3 To 12
V(x) = freq(x - 2)
Next
'V(13) = som
Call StatisticaFormazioneDL(Nu,1,rit1,max1,Incr1,fre1,Ini,fin)
ic = Round((fre1/Tot*rit1),2)
V(14) = fre1
V(15) = rit1
V(16) = max1
Inix =(EstrazioniArchivioDL -(5 * 18)) + 1
finx = EstrazioniArchivioDL
For ess = Inix To finx Step 18
kk = kk + 1
Call StatisticaFormazioneDL(Nu,1,rit2,max2,Incr2,fre2,ess,ess + 17)
ReDim Preserve freq18(kk)
freq18(kk) = fre2
Next
For xx = 1 To 5
V(xx + 16) = freq18(xx)
Next
V(22) = Round((900/fre1),2)
V(23) = ic
Call AddRigaTabella(V)
k = 0
som = 0
kk = 0
Next
CreaTabella(12)
End Sub
 
Ultima modifica:
Grazie Mike,
giorgioantonio e adesso come si scelgono i numeri da giocare ? :) :) :) :)
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 27 aprile 2026
    Bari
    38
    78
    24
    40
    33
    Cagliari
    26
    80
    05
    01
    48
    Firenze
    80
    71
    74
    22
    67
    Genova
    68
    39
    49
    59
    13
    Milano
    40
    19
    08
    62
    84
    Napoli
    43
    80
    06
    78
    82
    Palermo
    37
    55
    68
    33
    11
    Roma
    01
    04
    36
    81
    38
    Torino
    17
    15
    75
    69
    76
    Venezia
    70
    85
    24
    56
    53
    Nazionale
    76
    84
    68
    65
    23
    Estrazione Simbolotto
    Genova
    19
    20
    44
    08
    02
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto