da lotto a 10elotto serale

[giorgioantonio]

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

 

[Alien.]

SU, su che adesso abbiamo il 2020 con due zeri,facciamo questa prova......................

 

[giorgioantonio]

Caro Alien,
devono smaltire i rumori e soprattutto il
mangiare di capo... danno.

 

[Alien.]

? ? ? ? ?

 

[giorgioantonio]

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?

 

[giorgioantonio]

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

 

[Alien.]

Si dobbiamo cambiare l'archivio, trova un listato per il 10elotto e vedi se riesci a trovare l'archivio.

 

[giorgioantonio]

estrazionifinDL

 

[Alien.]

è prova a cambiarlo.............. da 20 numeri devi passare a 5
ti darà diversi errori

 

[giorgioantonio]

a me non da nessun errore solo che legge
o dovrebbe leggere dalla prima alla quinta colonna

 

[giorgioantonio]

ti dice qualcosa....
"ci vorrebbe un amico....""

 

[Alien.]

ACC..... e come hai fatto ? che numeri ti da ?
puoi inserire qua lo script con la tua correzione ?,grazie.

 

[Alien.]

? ? ? ? ?

 

[giorgioantonio]

'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

 

[giorgioantonio]

va bene con Venditti che ci sentiamo la canzone
ma ci vorrebbe un amico capace di script

 

[Alien.]

Si,si quello lo avevo capito...........


variabile non definita !! errore

r = InputBox("Quale ruota analizzo",,1)

 

[giorgioantonio]

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

 

[Mike58]

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

'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

 

[Alien.]

Grazie Mike,
giorgioantonio e adesso come si scelgono i numeri da giocare ?

 

[giorgioantonio]

Un bel GRAZIE a Mike per l'aiuto