Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
- Stato
L
LuigiB
Guest
per Silop , per ora ho scoperto che l'errore è un problema di conteggio in realta le statistiche vengono corrette è solo la procedura che conteggia le estrazioni valide che conteneva un errore ..ho gia corretto ora cerco di capire qualcosa sul problema segnalatomi da Metus
a stasera per l'aggiornamento
a stasera per l'aggiornamento
L
LuigiB
Guest
per Metus
Ciao Metus allora ti confermo che ho fatto delle prove di comparazione
tra spazio e ld.
Come ti avevo detto per poter far delle prove ho avuto necessita
di esportare in excel l'archivio di ld e poi importarlo
in spaziometria.
Questo è stato necessario poiche io non possiedo la versione completa di ld ma la demo , nella versione demo l'archivio non è quello reale ma uno che di volta in volta viene ricreato casualmente percio per allineare gli archivi al fine delel prove ho dovuto fare questa preparazione.
Bene , fatta questa piccola premessa e stabilito che i due programmi
per il presupposto di cui sopra operano con lo stesso medesimo archivio mi sono prodigato nella scrittura di un semplicissimo script
di test.
Questo script doveva avere come caratteristica quella di operare
su tutte le 11 ruote quindi in sintesi ho fatto uno script che appena trova il numero 5 su una qualsiasi ruota se lo rigioca per 5 estrazioni.
Mi sono reso conto che Ld non mi fa fare piu di 100 giocate con gli script (forse è un limite della demo) percio ho potuto esaminare solo un ristretto range di estrazioni , ma questo non cambia nulla il
numero di estrazioni incide esclusivamente sul tempo di elaborazione.
Ora posto lo script che ho creato per la circostanza e le immagini
di output di spazio e ld , noterai che sono identiche</u> questo vuol dire che non ci sono errori nel programma e che presumibilmente il problema da te segnalato è da ricercarsi in differenze nell'archivio e se non dovesse essere manco quella la causa allora potrebbe essere lo script tuo ma da un semplice ragionamento la ritengo un ipotesi improbabile.
Prova a far girare questo script sui 2 programmi usando l'archivio reale visto che col tuo ld lo puoi fare
Ciao !
SCRIPT
Ciao Metus allora ti confermo che ho fatto delle prove di comparazione
tra spazio e ld.
Come ti avevo detto per poter far delle prove ho avuto necessita
di esportare in excel l'archivio di ld e poi importarlo
in spaziometria.
Questo è stato necessario poiche io non possiedo la versione completa di ld ma la demo , nella versione demo l'archivio non è quello reale ma uno che di volta in volta viene ricreato casualmente percio per allineare gli archivi al fine delel prove ho dovuto fare questa preparazione.
Bene , fatta questa piccola premessa e stabilito che i due programmi
per il presupposto di cui sopra operano con lo stesso medesimo archivio mi sono prodigato nella scrittura di un semplicissimo script
di test.
Questo script doveva avere come caratteristica quella di operare
su tutte le 11 ruote quindi in sintesi ho fatto uno script che appena trova il numero 5 su una qualsiasi ruota se lo rigioca per 5 estrazioni.
Mi sono reso conto che Ld non mi fa fare piu di 100 giocate con gli script (forse è un limite della demo) percio ho potuto esaminare solo un ristretto range di estrazioni , ma questo non cambia nulla il
numero di estrazioni incide esclusivamente sul tempo di elaborazione.
Ora posto lo script che ho creato per la circostanza e le immagini
di output di spazio e ld , noterai che sono identiche</u> questo vuol dire che non ci sono errori nel programma e che presumibilmente il problema da te segnalato è da ricercarsi in differenze nell'archivio e se non dovesse essere manco quella la causa allora potrebbe essere lo script tuo ma da un semplice ragionamento la ritengo un ipotesi improbabile.
Prova a far girare questo script sui 2 programmi usando l'archivio reale visto che col tuo ld lo puoi fare
Ciao !
SCRIPT
Codice:
Sub main()
Dim k
Dim r
Dim e
Dim nGioc
Dim aNum(1)
Dim aRuote(1)
Dim aPoste(1)
Dim TotEstr
aNum(1)= 5
aPoste(1) = 1
TotEstr = 8188
For k = 8088 To 8188
For r = 1 To 12
If r <> 11 then 'non su tutte then
For e = 1 To 5
If Estratto (k ,r,e) = aNum(1) Then
ngioc = ngioc +1
aRuote(1) = r
Call ImpostaGiocata (nGioc , aNum ,aRuote,aPoste,5,1)
Call Gioca (k)
Exit for
End If
Next
End If
Next
Call AvanzamentoElab(1,TotEstr,k)
Next
Call ScriviResoconto
End Sub
R
Roby
Guest
Ciao luigi, forse ho individuato l'inghippo.
Ho fatto anch'io un piccolo listato e quello che succede, è che la condizione mi deve ricercare una somma su di una estrazione e il complemento a 90 deve essere il primo estratto dell'altra estrazione.
Cosa succede?
Dato ho sempre detto che è un imbecille elettronico dal resoconto risulta questo:
Sulla Nazionale quando non esisteva sono stati inseriti 00-00 ecc
Bene dato che la mia condizione è primo estratto 90 meno somma estrazione, ovviamente ragiona da imbecille elettronico (giustamente) e mi trova in questo caso che il primo estratto è esattamente 00 .....azzz, mica scemo!!!
E di conseguenza mi mette in gioco tutta la pappardella inutilmente.
Questo è quanto ho potuto capire. allego il listato di prova e alcuni resoconti incriminati.
Ciao
metus
Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
Ho fatto anch'io un piccolo listato e quello che succede, è che la condizione mi deve ricercare una somma su di una estrazione e il complemento a 90 deve essere il primo estratto dell'altra estrazione.
Cosa succede?
Dato ho sempre detto che è un imbecille elettronico dal resoconto risulta questo:
Sulla Nazionale quando non esisteva sono stati inseriti 00-00 ecc
Bene dato che la mia condizione è primo estratto 90 meno somma estrazione, ovviamente ragiona da imbecille elettronico (giustamente) e mi trova in questo caso che il primo estratto è esattamente 00 .....azzz, mica scemo!!!
E di conseguenza mi mette in gioco tutta la pappardella inutilmente.
Questo è quanto ho potuto capire. allego il listato di prova e alcuni resoconti incriminati.
Ciao
Codice:
03.06.2004 Naz 00 1° estr. rilevato --> [00]
29.05.2004 Naz 00 Somma rilevata --> [90]
Estrazione generatrice del pronostico 07345 [ 44 - 03/06/2004]
G 0001
Numeri in gioco : 09.45 su NZ per Estratto,Ambo
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 1 07346 [ 45 - 05/06/2004]
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 2 07347 [ 46 - 09/06/2004]
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 3 07348 [ 47 - 12/06/2004]
Interrotta per raggiunta durata
G 0002
Numeri in gioco : 09.45 su TT per Ambo
N. [09.45 ] [TT] [ ][.. .. .. .. ..] C. 1 07346 [ 45 - 05/06/2004]
N. [09.45 ] [TT] [BA][.. .. 09 .. ..] C. 2 Estratto 07347 [ 46 - 09/06/2004]
N. [09.45 ] [TT] [GE][.. .. .. .. 09] C. 3 Estratto 07348 [ 47 - 12/06/2004]
Interrotta per raggiunta durata
*********************************************************
*********************************************************
05.06.2004 Naz 00 1° estr. rilevato --> [00]
03.06.2004 Naz 00 Somma rilevata --> [90]
Estrazione generatrice del pronostico 07346 [ 45 - 05/06/2004]
G 0001
Numeri in gioco : 09.45 su NZ per Estratto,Ambo
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 1 07347 [ 46 - 09/06/2004]
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 2 07348 [ 47 - 12/06/2004]
N. [09.45 ] [NZ] [.. .. .. .. ..] C. 3 07349 [ 48 - 16/06/2004]
Interrotta per raggiunta durata
Sub Main()
Dim num(5)
Dim ruote(10)
Dim ruot(1)
Dim poste(2)
Dim post(2)
poste(1) = 1
poste(2) = 1
post(2)=1
tmp=InputBox("Quante estrazioni controllo?",,0)
clp=CInt(InputBox("Per quanti colpi?",,3))
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
For r=12 To 12
Messaggio "Elaborazione ruota di "&NomeRuota(r)& " Estrazione del " &DataEstrazione(es)
a1=Estratto(es,r,1)
a2=Estratto(es,r,2)
a3=Estratto(es,r,3)
a4=Estratto(es,r,4)
a5=Estratto(es,r,5)
a6=Estratto(es-1,r,1)
a7=Estratto(es-1,r,2)
a8=Estratto(es-1,r,3)
a9=Estratto(es-1,r,4)
a10=Estratto(es-1,r,5)
aa4=Fuori90(a6+a7+a8+a9+a10)
If a1=90-aa4 Then
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(r),3)& " " &StringaEstratti(es,r)&_
" 1° estr. rilevato --> ["&Format2(a1)&"]",1
Scrivi DataEstrazione(es-1)& " "& Left(NomeRuota(r),3)& " "& StringaEstratti(es-1,r)&_
" Somma rilevata --> ["&Format2(aa4)&"]",1
ruote(1) = r
ruot(1) = 11
num(1) = Vert(a1)
num(2) = Diametrale(a1)
ImpostaGiocata 1,num,ruote,poste,clp
ImpostaGiocata 2,num,ruot,post,clp
Gioca es
Scrivi"*********************************************************"
Scrivi"*********************************************************"
End If
Next
Next
ScriviResoconto
End Submetus
Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus
L
LuigiB
Guest
ciao metus ormai ho appena inserito un nuovo aggiornamento magri nell prossima versione mettero il controllo sulle giocate che contengono 0 numeri pwer ora nel tuo script ti basta certamente fare un piccola modifica per non giocare le estrazioni a 0.
keeper
Advanced Member >PLATINUM PLUS<
ciao luigi
volevo chiederti poichè il 10 e lotto ogni 5 minuti è un gioco rapido e veloce secondo e quindi ha bisogno di rapide statistiche, il suo archivio non potrebbe essere ridotto e lititato a solo sessa 60 giorni di ricerca in modo da avere un acrchivio leggero tanto per la frequenza di estrazioni i cicli sono molti e giornalieri che ne pensi?
volevo chiederti poichè il 10 e lotto ogni 5 minuti è un gioco rapido e veloce secondo e quindi ha bisogno di rapide statistiche, il suo archivio non potrebbe essere ridotto e lititato a solo sessa 60 giorni di ricerca in modo da avere un acrchivio leggero tanto per la frequenza di estrazioni i cicli sono molti e giornalieri che ne pensi?
L
LuigiB
Guest
Ciao Keeper .. non saprei io manco gioco... ad ogni modo c'è la funzione tronca archivio che ti consente di tagliare l'archivio e mantenere soltanto le estrazioni che vuoi tu ...di tanto in tanto adoperala per mantenere solo le ultime estrazioni a tua discrezione
Ciao carissimo LuigiB e complimenti per il programma Spaziometria davvero completo e funzionale...........grazieeee.
volevo chiederti se possibile fare qualche correzione in merito ad uno script : Quadro esteso dei numeri ripetuti n2 3 4 etc su una ruota come letto nel post: RICERCHE E PREVISIONI DI SPAZIOMETRIA 2011
Si legge nel post:
Angie se ti puo interessare e fa al tuo caso ho questo script della mitica Rosanna,non funziona su spaziometria ma sicuramente un bravo
scripter sapra adattarlo anche sulla singola conta degli estratti,ti posto una videata dell'output,fammi sapere.
Questo lo script postato che da alcuni problemi :
un caloroso saluto a tutti .complimenti alla nostra Angie
x angie e bergie ecco quanto richiesto
Sub main()
'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota
'visualizza il quadro esteso con colorazione dei numeri ripetuti in una frequenza scelta
Dim Vet(),stat(),temp(),nu(),max(12)
fin=EstrazioneFin-(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,0))
estr= InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f= CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
ini= fin-(estr-1)
Redim vet(0) : Redim stat(2,0): Redim temp(0): Redim nu(12,0)
For r= 1 To 12
If r<> 11 Then nu(r,0)=r
Next
'-----------------------------
For r= 1 To 11
If r=11 Then r=12
Erase vet : Erase stat
Redim vet(estr*5)
n=0
For es=ini To fin
For p= 1 To 5
n=n+1 : vet
=Estratto(es,r,p)
Next
Next
'------------------------
OrdinaMatrice vet
x=UBound(vet)
Redim stat(2,0)
For i= 1 To x
If vet(i)> vet(i-1) Then
co=co+1
Redim preserve stat(2,co)
stat(1,co)=vet(i)
stat(2,co)=1
For y= i+1 To x
If vet(i)=vet
Then stat(2,co)=stat(2,co)+1
Next
End If
Next
'------------------------
cu=0 : Redim temp(0)
For i= 1 To co
If stat(2,i)= 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
cu=cu+1 : Redim preserve temp(cu)
If cu>maxcu Then maxcu=cu
temp(cu) = stat(1,i)
End If
Next
max(r)=cu
Redim preserve nu(12,maxcu)
For i= 1 To cu : nu(r,i)=temp(i) : Next
Next
'--------------------------------------
Scrivi Chr(10)& " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0 : ColoreTesto 2
Scrivi "--> "& f &" <-- ",1,0: ColoreTesto 0: Scrivi " VOLTE SU RUOTA UNICA "&CHR(10),1
Scrivi Space(4)& "Ru - Ripetuti ",1
riga=Space(11)
For r= 1 To 12
If max(r)>0 Then riga=riga& Space(6)&SiglaRuota(r)& Space(7)
rigo=""
If max(r)>0 Then
rigo=Space(4)& SiglaRuota(nu(r,0))&space(2)
For t= 1 To max(r)
rigo=rigo& " "& Format2(nu(r,t))
Next
u=u+1
End If
If rigo<>"" Then Scrivi rigo
Next
If u>0 Then
Scrivi
Scrivi riga,1
For es=ini To fin
ColoreTesto 0
Scrivi DataEstrazione(es),0,0:
For r= 1 To 11 : If r= 11 Then r= 12
If max(r)>0 Then
ColoreTesto 0 : Scrivi "|",0,0
If Not Pari(r) Or r= 12 Then cl=2 Else cl=1
For p=1 To 5
For m= 1 To max(r)
ColoreTesto 0
If Estratto(es,r,p)=nu(r,m) Then
ColoreTesto cl
Exit For
End If
Next
If p<5 Then s=" " Else s=""
Scrivi Format2(Estratto(es,r,p))& s ,1,0
Next
If r=12 And p=6 Or r= u And p=6 Then Scrivi Chr(13)
End If
Next
Next
End If
ColoreTesto 2
If u=0 Then Scrivi Chr(10)& " Nessun ripetuto con i parametri impostati "
If u>0 And u <11 Then Scrivi Chr(10)& "NB: le ruote prive di "& f & " ripetuti, non vengono visualizzate"
End Sub
Primo problema :
scusate mi si blocca in questa riga
non capisco perchè.
mi potete aiutare?
...OrdinaMatrice vet... risolto poi: Se può servire io l'ho aperto con spaziometria mettendo la virgola ossia:
ordinamatrice,vet
In effetti lo script non si blocca e questo primo problema risolto.
Secondo problema :
non avete una videata con estrazioni che vanno sul rigo successivo?
A me personalmente il problema riscontrato è di una schermata che riproduce la sequenza
volevo chiederti se possibile fare qualche correzione in merito ad uno script : Quadro esteso dei numeri ripetuti n2 3 4 etc su una ruota come letto nel post: RICERCHE E PREVISIONI DI SPAZIOMETRIA 2011
Si legge nel post:
Angie se ti puo interessare e fa al tuo caso ho questo script della mitica Rosanna,non funziona su spaziometria ma sicuramente un bravo
scripter sapra adattarlo anche sulla singola conta degli estratti,ti posto una videata dell'output,fammi sapere.
Questo lo script postato che da alcuni problemi :
un caloroso saluto a tutti .complimenti alla nostra Angie
x angie e bergie ecco quanto richiesto
Sub main()
'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota
'visualizza il quadro esteso con colorazione dei numeri ripetuti in una frequenza scelta
Dim Vet(),stat(),temp(),nu(),max(12)
fin=EstrazioneFin-(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,0))
estr= InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f= CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
ini= fin-(estr-1)
Redim vet(0) : Redim stat(2,0): Redim temp(0): Redim nu(12,0)
For r= 1 To 12
If r<> 11 Then nu(r,0)=r
Next
'-----------------------------
For r= 1 To 11
If r=11 Then r=12
Erase vet : Erase stat
Redim vet(estr*5)
n=0
For es=ini To fin
For p= 1 To 5
n=n+1 : vet
=Estratto(es,r,p)Next
Next
'------------------------
OrdinaMatrice vet
x=UBound(vet)
Redim stat(2,0)
For i= 1 To x
If vet(i)> vet(i-1) Then
co=co+1
Redim preserve stat(2,co)
stat(1,co)=vet(i)
stat(2,co)=1
For y= i+1 To x
If vet(i)=vet
Then stat(2,co)=stat(2,co)+1 Next
End If
Next
'------------------------
cu=0 : Redim temp(0)
For i= 1 To co
If stat(2,i)= 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
cu=cu+1 : Redim preserve temp(cu)
If cu>maxcu Then maxcu=cu
temp(cu) = stat(1,i)
End If
Next
max(r)=cu
Redim preserve nu(12,maxcu)
For i= 1 To cu : nu(r,i)=temp(i) : Next
Next
'--------------------------------------
Scrivi Chr(10)& " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0 : ColoreTesto 2
Scrivi "--> "& f &" <-- ",1,0: ColoreTesto 0: Scrivi " VOLTE SU RUOTA UNICA "&CHR(10),1
Scrivi Space(4)& "Ru - Ripetuti ",1
riga=Space(11)
For r= 1 To 12
If max(r)>0 Then riga=riga& Space(6)&SiglaRuota(r)& Space(7)
rigo=""
If max(r)>0 Then
rigo=Space(4)& SiglaRuota(nu(r,0))&space(2)
For t= 1 To max(r)
rigo=rigo& " "& Format2(nu(r,t))
Next
u=u+1
End If
If rigo<>"" Then Scrivi rigo
Next
If u>0 Then
Scrivi
Scrivi riga,1
For es=ini To fin
ColoreTesto 0
Scrivi DataEstrazione(es),0,0:
For r= 1 To 11 : If r= 11 Then r= 12
If max(r)>0 Then
ColoreTesto 0 : Scrivi "|",0,0
If Not Pari(r) Or r= 12 Then cl=2 Else cl=1
For p=1 To 5
For m= 1 To max(r)
ColoreTesto 0
If Estratto(es,r,p)=nu(r,m) Then
ColoreTesto cl
Exit For
End If
Next
If p<5 Then s=" " Else s=""
Scrivi Format2(Estratto(es,r,p))& s ,1,0
Next
If r=12 And p=6 Or r= u And p=6 Then Scrivi Chr(13)
End If
Next
Next
End If
ColoreTesto 2
If u=0 Then Scrivi Chr(10)& " Nessun ripetuto con i parametri impostati "
If u>0 And u <11 Then Scrivi Chr(10)& "NB: le ruote prive di "& f & " ripetuti, non vengono visualizzate"
End Sub
Primo problema :
scusate mi si blocca in questa riga
non capisco perchè.
mi potete aiutare?
...OrdinaMatrice vet... risolto poi: Se può servire io l'ho aperto con spaziometria mettendo la virgola ossia:
ordinamatrice,vet
In effetti lo script non si blocca e questo primo problema risolto.
Secondo problema :
non avete una videata con estrazioni che vanno sul rigo successivo?
A me personalmente il problema riscontrato è di una schermata che riproduce la sequenza
L
LuigiB
Guest
Ciao , proverò a vedere ma considera che non mi piace mettere mano sui codici scritti dagli altri ...
Carissimo ti ringrazio per il tuo aiuto.......sto vedendo le videoguide sul programma Spaziometria.........un casino l'audio ma con cuffiette se po fare........poi passo pure a Vbscript SpazioScript Videotutorial e manuali di riferimento.
Io gioco al lotto e mi interessano di più le tecniche etc attinenti al gioco ma trovo stuzzicante anche tutto quello che riguarda i listati e relativo linguaggio di programmazione.
Sulla programmazione ci vorrà un bel po? Non lo so ma in effetti vedere una tecnica e riproporla nel programma con un script in effetti ha un certo fascino.
Dimenticavo ripeto........ è da poco che uso il tuo programma spaziometria......ma rispetto le funzioni di stampa estrazioni,stampa tabellone analitico selezione sul tabellone analitico di parte dei numeri visualizzati e relativa stampa sono implementate nel programma? Non ci sono? Non le trovo io?
Ti ringrazio per la tua cortesia............grazie.
Io gioco al lotto e mi interessano di più le tecniche etc attinenti al gioco ma trovo stuzzicante anche tutto quello che riguarda i listati e relativo linguaggio di programmazione.
Sulla programmazione ci vorrà un bel po? Non lo so ma in effetti vedere una tecnica e riproporla nel programma con un script in effetti ha un certo fascino.
Dimenticavo ripeto........ è da poco che uso il tuo programma spaziometria......ma rispetto le funzioni di stampa estrazioni,stampa tabellone analitico selezione sul tabellone analitico di parte dei numeri visualizzati e relativa stampa sono implementate nel programma? Non ci sono? Non le trovo io?
Ti ringrazio per la tua cortesia............grazie.
L
LuigiB
Guest
Eh considera che le videoguide si riferiscono al programma come era piu di un anno fa ad ogni modo sono utili per farsi un'idea di base sul funzionamento del programma
Riguardo gli script i videotutorial che ho messo costituiscono una buona base di partenza , il linguaggio non è difficile ,ovviamente come
tutte le cose che in apparenza sembrano complicate ci vuole un po' di impegno per apprenderle ma superati i primi ostacoli iniziali il resto della strada è in discesa..ciao !
Riguardo gli script i videotutorial che ho messo costituiscono una buona base di partenza , il linguaggio non è difficile ,ovviamente come
tutte le cose che in apparenza sembrano complicate ci vuole un po' di impegno per apprenderle ma superati i primi ostacoli iniziali il resto della strada è in discesa..ciao !
L
LuigiB
Guest
No l'aspetto stampe non è completo (non gli ho dato particolare importanza) e non credo che lo completero , al limite le tabelle che è possibile esportare in excel possono essere stampate da excel stesso.
imported_n/a
Advanced Premium Member
Luigi, scusa se ti segnalo un altro baco ma nella parte metodi sommativi numeri adattatori una volta elaborata la condizione il risultato dei casi positivi è sempre zero anche se trova dei casi positivi e la relativa percentuale da chiaramente zero.
altre volte ho usato le metodologia ed il risultato era corretto.
Puoi verificare !!! versione 1.2.10
Ciao Mike58
altre volte ho usato le metodologia ed il risultato era corretto.
Puoi verificare !!! versione 1.2.10
Ciao Mike58
L
LuigiB
Guest
Ciao mike , sinceramente non ho toccato niente che possa compromettere quella funzione ...non credo che ci siano dei bug all'epoca quando l'avevo testata dava gli stessi output di visual lotto.
Ho l'impressione che alcune funzioni del programa dato la mancanza dell'help non siano chiare lasciando spazio a equivoci ...
Ho l'impressione che alcune funzioni del programa dato la mancanza dell'help non siano chiare lasciando spazio a equivoci ...
L
LuigiB
Guest
SCRIPT ADATTATO
Codice:
Option Explicit
Sub Main()
'rif. 0902_83a Ro - Ripetuti sul quadro esteso - a ruota
'visualizza il quadro esteso con colorazione dei numeri ripetuti in una frequenza scelta
Dim Vet(),stat(),temp(),nu(),max(12)
Dim fin,estr,Ini,r,es,f,n,p,x,y,i,cu,maxcu,co,riga,rigo,t,u,cl,m,s
Dim sTmpRiga , nTmpColor
fin = EstrazioneFin -(InputBox("Quante es vuoi andare indietro rispetto a Estrazionefin?",,100))
estr = InputBox("Su quante estrazioni vuoi cercare i ripetuti?",,12)
f = CInt(InputBox("Quale frequenza devono avere i ripetuti?",,2)) 'se vuoi con freq maggiori metti l'apice
' davanti a f e sostituisci la riga dove tovi questo segno<<<<<<<<<<<<<<<
Ini = fin -(estr - 1)
ReDim vet(0)
ReDim stat(2,0)
ReDim temp(0)
ReDim nu(12,0)
For r = 1 To 12
If r <> 11 Then nu(r,0) = r
Next
'-----------------------------
For r = 1 To 11
If r = 11 Then r = 12
Erase vet
Erase stat
ReDim vet(estr*5)
n = 0
For es = Ini To fin
For p = 1 To 5
n = n + 1
vet(n) = Estratto(es,r,p)
Next
Next
'------------------------
OrdinaMatrice vet,1
x = UBound(vet)
ReDim stat(2,0)
For i = 1 To x
If vet(i) > vet(i - 1) Then
co = co + 1
ReDim Preserve stat(2,co)
stat(1,co) = vet(i)
stat(2,co) = 1
For y = i + 1 To x
If vet(i) = vet(y) Then stat(2,co) = stat(2,co) + 1
Next
End If
Next
'------------------------
cu = 0
ReDim temp(0)
For i = 1 To co
If stat(2,i) = 2 Then ' <<<<<<<<<< sostituisci con questa If stat(2,i)=> 2 Then
cu = cu + 1
ReDim Preserve temp(cu)
If cu > maxcu Then maxcu = cu
temp(cu) = stat(1,i)
End If
Next
max(r) = cu
ReDim Preserve nu(12,maxcu)
For i = 1 To cu
nu(r,i) = temp(i)
Next
Next
'--------------------------------------
Scrivi Chr(10) & " QUADRO ESTESO DEI NUMERI RIPETUTI ",1,0
ColoreTesto 2
Scrivi "--> " & f & " <-- ",1,0
ColoreTesto 0
Scrivi " VOLTE SU RUOTA UNICA " & Chr(10),1
Scrivi Space(4) & "Ru - Ripetuti ",1
riga = FormattaTesto("Data",Space(10),2)
For r = 1 To 12
'If max(r) > 0 Then riga = riga & Space(6) & SiglaRuota(r) & Space(7)
If max(r) > 0 Then riga = riga & FormattaTesto(SiglaRuota(r),Space(15),2)
rigo = ""
If max(r) > 0 Then
rigo = Space(4) & SiglaRuota(nu(r,0)) & Space(2)
For t = 1 To max(r)
rigo = rigo & " " & Format2(nu(r,t))
Next
u = u + 1
End If
If rigo <> "" Then Scrivi rigo
Next
If u > 0 Then
Scrivi
Scrivi riga,1
For es = Ini To fin
'ColoreTesto 0
'Call Scrivi(DataEstrazione(es),0,0)
sTmpRiga = DataEstrazione(es)
For r = 1 To 11
If r = 11 Then
r = 12
End If
If max(r) > 0 Then
'ColoreTesto 0
'Scrivi "|",0,0
sTmpRiga = sTmpRiga & "|"
If Not pari(r) Or r = 12 Then
cl = "#FF0000" ' rosso
Else
cl = "#0000FF" ' blue
End If
For p = 1 To 5
For m = 1 To max(r)
'ColoreTesto 0
nTmpColor ="#000000"
If Estratto(es,r,p) = nu(r,m) Then
'ColoreTesto cl
nTmpColor = cl
Exit For
End If
Next
If p < 5 Then s = " " Else s = ""
sTmpRiga = sTmpRiga & GetTestoColorato (Format2(Estratto(es,r,p)) , nTmpColor ) & s
'Call Scrivi(Format2(Estratto(es,r,p)) & s,1,0)
Next
'If r = 12 And p = 6 Or r = u And p = 6 Then Scrivi Chr(13)
'If r = 12 And p = 6 Then Scrivi Chr(13)
End If
Next
Call Scrivi (sTmpRiga)
Next
End If
ColoreTesto 2
If u = 0 Then Scrivi Chr(10) & " Nessun ripetuto con i parametri impostati "
If u > 0 And u < 11 Then
Scrivi Chr(10) & "NB: le ruote prive di " & f & " ripetuti, non vengono visualizzate"
End If
End Sub
Function FormattaTesto(sValue,sFmt,nAllineamento)
' nAllineamento
' 0 = allinea a sinistra
' 1 = allinea a destra
' 2 = allinea al centro
Dim k
Dim nSpSx,nSpDx,nLen
If sValue <> "" Then
If Len(imported_n/a
Advanced Premium Member
Ciao Luigi, ti garantisco che prima molte versioni fà funzionava la sezione dei numeri sommativi e riportava correttamente i numeri di casi positivi, poi qualcuno ti ha chiesto di immettere la ricerca per ambo su più numeri e può essere che da allora hai toccato qualche routine.
Ora se vedi i casi nel dettaglio ci sono ma il riepilogo sono sempre zero.
la funzione è chiara da seguire non penso sia colpa dell'help mancante !!!
Se ritieni utile posso postare l'immagine ma penso che non c'è ne sia bisogno.
Ciao Mike58
L
LuigiB
Guest
e' vero Mike ora che mi hai dato un indizio in piu sono riuscito a correggere un errore che era capitato proprio per il motivo che
sospettavi ovvero le modifiche per la ricerca con gli ambi.
Nella prossima versioen sara corretto.
Ciao
sospettavi ovvero le modifiche per la ricerca con gli ambi.
Nella prossima versioen sara corretto.
Ciao
imported_n/a
Advanced Premium Member
Che collaborazione Ragazzi !!!!!
- Stato
Ultima estrazione Lotto
-
Estrazione del lotto
lunedì 03 novembre 2025Bari8028116750Cagliari2029713315Firenze3350210911Genova3215900923Milano6622480377Napoli5764272026Palermo2265789074Roma3257432008Torino7480665401Venezia0175821311Nazionale7105557761Estrazione Simbolotto
Torino
1306400210