Novità

x Cinzia27

Zetrix

Premium Member
ciao Cinzia volevo chiederti una cortesia vorrei evidenziare i numeri che si
sono ripetuti 2 o 3 volte nelle estrazioni

For R = 1 To 12

For E = 1 To 5

For N = 1 To 90


aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)

If SerieFreq(N) > 2 Then ----> se aggiungo questa riga mi da errore

If(aQuadroNum(R,E)) = N Then



1785.PNG
 

lotto_tom75

Advanced Premium Member
ciao Cinzia volevo chiederti una cortesia vorrei evidenziare i numeri che si
sono ripetuti 2 o 3 volte nelle estrazioni

For R = 1 To 12

For E = 1 To 5

For N = 1 To 90


aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)

If SerieFreq(N) > 2 Then ----> se aggiungo questa riga mi da errore

If(aQuadroNum(R,E)) = N Then



Vedi l'allegato 2219017

Ciao zetrix (ma sei m o f?) :)

Ad ogni modo ti da errore per questo motivo... indicato anche nell'errore stesso...

tidaerroreperquestomotivo.jpg

Come puoi vedere dall'immagine i parametri obbligatori per la funzione SerieFreq sono ben 5 ovvero:

Inizio
Fine
VetNumeri
VetRuote
Sorte

Tu invece ne hai messo solo uno (VetNumeri).

Ciao

Ps: per vedere i parametri obbligatori richiesti da ogni funzione basta che aspetti qualche secondo dopo aver digitato la prima parentesi tonda...
 

Zetrix

Premium Member
Ciao tom la prima domanda la risposta e milano

ho visto in alcuni script che usano seriefreq per evidenziare i numeri ripetuti
ma ti spiego alcune cose dello script che evidenzia i numeri
in tabella

For R = 1 To 12 --->questa riga dimensiona le righe

For E = 1 To 5 ---->questa riga dimensiona le colonne

For N = 1 To 90 ---->questa riga dimensiona i numeri

adesso se io scrivo questa riga

For N = 1 To 90 step 9 ---->questa riga dimensiona la figura 1

If(aQuadroNum(R,E)) = N Then

un altro esempio

If E < 2 Then ' EVIDENZIA LA 1°COLONNA

se uso questa riga evidenzia i numeri raddoppiati
esempio 34 e 68

If(aQuadroNum(R,E)) = N+N Then ---->EVIDENZIA i numeri raddoppiati


adesso la domanda e questa
se N dimensiona tutti i 90 numeri che riga bisogna scrivere
affinchè evidenzia solo i numeri uguali che sono ripetuti nelle estrazioni
esempio nell'ultima estr il 34 e sortito tre volte


1787.png
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Ciao tom la prima domanda la risposta e milano

ho visto in alcuni script che usano seriefreq per evidenziare i numeri ripetuti
ma ti spiego alcune cose dello script che evidenzia i numeri
in tabella

For R = 1 To 12 --->questa riga dimensiona le righe

For E = 1 To 5 ---->questa riga dimensiona le colonne

For N = 1 To 90 ---->questa riga dimensiona i numeri

adesso se io scrivo questa riga

For N = 1 To 90 step 9 ---->questa riga dimensiona la figura 1

If(aQuadroNum(R,E)) = N Then

un altro esempio

If E < 2 Then ' EVIDENZIA LA 1°COLONNA

se uso questa riga evidenzia i numeri raddoppiati
esempio 34 e 68

If(aQuadroNum(R,E)) = N+N Then ---->EVIDENZIA i numeri raddoppiati


adesso la domanda e questa
se N dimensiona tutti i 90 numeri che riga bisogna scrivere
affinchè evidenzia solo i numeri uguali che sono ripetuti nelle estrazioni
esempio nell'ultima estr il 34 e sortito tre volte


Vedi l'allegato 2219105

Zetrix mi spiace ma non ho capito nè se sei un m (milano?) nè cosa hai chiesto dopo... Ti lascio a Cinzia che sicuramente sarà in grado di aiutarti... Ciao
 

Cinzia27

Advanced Member >PLATINUM<
Ciao, Zetrix
Intendi evidenziarli in questo modo ?


Codice:
Sub Main()
'Per Zetrix - Evidenzia i numeri ripetuti delle estrazioni - Cinzia27

Dim n(2),ru(1)
r=11
ru(1)=r

For es=EstrazioneFin-10 To EstrazioneFin
Scrivi
Scrivi
Scrivi es

For rr=1 To 10
Scrivi
Scrivi SiglaRuota(rr)&" ",0,0


For p=1 To 5

n(1)=Estratto(es,rr,p)

fr=SerieFreq(es,es,n,ru,1)
If fr>1 Then ColoreTesto  2:Scrivi FormatSpace(n(1),4,1)&" ",0,0 Else ColoreTesto 0:Scrivi FormatSpace(n(1),4,1)&" ",0,0
ColoreTesto 0
Next
Next
Next
End Sub
 

Zetrix

Premium Member
Ciao Cinzia , si e esatto lo script però i numeri devono essere evidenziati
in tabella e qui sta il problema non so come si deve impostare

se scrivo questa riga

If N = N Then

mi evidenzia tutti i numeri

If(aQuadroNum(R,E)) = N Then


fr=SerieFreq(es,es,n,ru,1) ---> questa riga come si deve scrivere nello script


aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)


in questa riga non ce es, ce solo EstrazioneFin

X = InputBox("Quante estrazioni vuoi controllare?",,0)

la R sono le ruote e la E sono le colonne che sono 5

la N dimensiona i numeri e qui che si deve scrivere

ma cosa si deve scrivere abbiamo solo la N che dimensiona
tutti i numeri
 
Ultima modifica:

Cinzia27

Advanced Member >PLATINUM<
fr=SerieFreq(es,es,n,ru,1) ---> questa riga come si deve scrivere nello script
Così com' è e sotto ci scrivi
if fr>1 then

Conosco poco le funzioni di Spaziometria. Tutto ciò che posso fare è mettere i numeri rossi in grassetto

Codice:
Sub Main()
'Per Zetrix - Evidenzia i numeri ripetuti delle estrazioni - Cinzia27

Dim n(2),ru(1)
r=11
ru(1)=r

For es=EstrazioneFin-10 To EstrazioneFin
Scrivi
Scrivi
Scrivi es

For rr=1 To 10
Scrivi
Scrivi SiglaRuota(rr)&" ",0,0


For p=1 To 5

n(1)=Estratto(es,rr,p)

fr=SerieFreq(es,es,n,ru,1)
If fr>1 Then ColoreTesto  2:Scrivi FormatSpace(n(1),4,1)&" ",1,0 Else ColoreTesto 0:Scrivi FormatSpace(n(1),4,1)&" ",1,0
ColoreTesto 0
Next
Next
Next
End Sub
 

Zetrix

Premium Member
Cinzia so come si mette il grassetto ai numeri ma non e questo il problema
il problema e che dobbiamo evidenziare i numeri ripetuti in tabella
se vuoi ti posso allegare lo script magari ci puoi provare te
ma questo script e molto diverso dagli altri e tu mi ai detto che conosci poco
spaziometria eppure mi sembra che sei brava a compilare gli script
 

Zetrix

Premium Member
Codice:
Option Explicit
Sub Main
Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,N
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim cifra
Dim qt,anum1,anum2,anum3
Dim Totale,Total

Dim aQuadroNum
Dim aNumDaEvid
' predispone le dimensioni della matrice che contien i numeri
nRighe = 12
nColonne = 6
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100

 
    X = InputBox("Quante estrazioni vuoi controllare?",,0)
    

ReDim anum(0)

qt = ScegliNumeri(anum1)
'qt = ScegliNumeri(anum2)
'qt = ScegliNumeri(anum3)



For R = 1 To 12

For E = 1 To 5

For N = 1 To 90

If R <> 11 Then


aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)

'If dispari (N) Then

 If E < 2 Then ' EVIDENZIA LA 1°COLONNA

'If N > 10 Then  ' EVIDENZIA TUTTI I NUMERI DOPO IL 10


If(aQuadroNum(R,E)) = N Then

Totale = Totale +(aQuadroNum(R,E))
Total = Total + 1



nCaselleDaEvid = nCaselleDaEvid + 1
'
aNumDaEvid(nCaselleDaEvid,0) = R
aNumDaEvid(nCaselleDaEvid,1) = E

End If
End If
End If




Next
Next
Next
'Next

'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)



    
   'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))

 
  Call DisegnaEstrazione(EstrazioneFin - X,aNumDaEvid,CLng(0))


'Scrivi(DataEstrazione(EstrazioneFin - X)),0,0,1,3,4

Scrivi StringaNumeri(anum1)
'Scrivi StringaNumeri(anum2)
'Scrivi StringaNumeri(anum3)

Scrivi " Numeri Sortiti  " & Total & "",0,0,7,4
Scrivi
Scrivi
Scrivi " Totale " & Totale & "",0,0,7,4



End Sub



CInzia provaci tu vedi se ci riesci a evidenziare i numeri ripetuti in tabella
 

Cinzia27

Advanced Member >PLATINUM<
Ma il problema qual' è,
che vorresti evidenziare i numeri di tutta l' estrazione e non colorarli
oppure che vorresti che fossero visibili i ripetuti in una colonna ?
 

Zetrix

Premium Member
Cinzia si devono evidenziare o colorarli come dici te i numeri che sono ripetuti due o più volte nella tabella in pratica quello che ai fatto nel tuo script ma si devono evidenziare
in questa tabella
faccio un esempio

For N=1 To 90 step 9

questa riga dimensiona la figura 1
ed è evidenziata nella tabella
adesso come si deve scrivere affinché saranno evidenziati i numeri ripetuti nella tabella?
 

Zetrix

Premium Member
alla fine non sai darmi una risposta ho dovuto mettere il mio script personale
nel forum senza risolvere niente
 

Cinzia27

Advanced Member >PLATINUM<
Ciao, Zetrix.

Non sempre la soluzione arriva subito.
Spero che vada bene.

Codice:
Option Explicit
Sub Main
Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,N(1),rur(2)
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim cifra
Dim qt,anum1,anum2,anum3
Dim Totale,Total

Dim aQuadroNum
Dim aNumDaEvid
' predispone le dimensioni della matrice che contien i numeri
nRighe = 12
nColonne = 6
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
rur(1)=11
rur(2)=12
 
    X = InputBox("Quante estrazioni vuoi controllare?",,0)
    

ReDim anum(0)

qt = ScegliNumeri(anum1)
'qt = ScegliNumeri(anum2)
'qt = ScegliNumeri(anum3)



For R = 1 To 12

For E = 1 To 5

For I = 1 To 90
N(1)=I
If SerieFreq(EstrazioneFin,EstrazioneFin,N,rur,1)>1 Then



aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)

'If dispari (N) Then

 'If E < 2 Then ' EVIDENZIA LA 1°COLONNA

'If N > 10 Then  ' EVIDENZIA TUTTI I NUMERI DOPO IL 10


If(aQuadroNum(R,E)) = N(1) Then

Totale = Totale +(aQuadroNum(R,E))
Total = Total + 1



nCaselleDaEvid = nCaselleDaEvid + 1
'
aNumDaEvid(nCaselleDaEvid,0) = R
aNumDaEvid(nCaselleDaEvid,1) = E

End If
End If
'End If




Next
Next
Next
'Next

'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)



    
   'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))

 
  Call DisegnaEstrazione(EstrazioneFin - X,aNumDaEvid,CLng(0))


'Scrivi(DataEstrazione(EstrazioneFin - X)),0,0,1,3,4

Scrivi StringaNumeri(anum1)
'Scrivi StringaNumeri(anum2)
'Scrivi StringaNumeri(anum3)

Scrivi " Numeri Sortiti  " & Total & "",0,0,7,4
Scrivi
Scrivi
Scrivi " Totale " & Totale & "",0,0,7,4



End Sub
 

Zetrix

Premium Member
Ciao Cinzia, sembra che abbiamo risolto il problema ho visto lo script,

ho notato che ai sostituito la N con la I ma domani vedrò meglio
le tue correzioni cosi imparo anch'io
scusami se ho risposto con quei toni stasera sono inca. perche non ho vinto
niente
ti ringrazio sei stata di grandissimo aiuto
se avrò qualche altro script da risolvere conterò sul tuo aiuto
se non ti dispiace
ho molti altri script che devo risolvere ma li vedremo piu avanti
intanto grazie per la tua disponibiltà e la tua professionalità

Ciao
 

Cinzia27

Advanced Member >PLATINUM<
Ciao, Zetrix. Nessun problema.

Però non fare troppo affidamento sulle mie capacità che sono limitate.
Cerco di adattare ciò che so fare a Spaziometria.
A volte ci riesco, a volte no.
Quindi, se vuoi prova a postare solo la singola istruzione e non l' intero script, perché se non ci riesco non ci posso far nulla.
Un aiutino me l' hai dato , con quello step ho capito che dovevo agire su N.
Complimenti, lo script è bellissimo.
 

Zetrix

Premium Member
1792.png

Cinzia la nazionale non la legge ce il 41 e 48 sulla nz

If SerieFreq(EstrazioneFin-X,EstrazioneFin-X,N,rur,1)>1 Then

in questa riga ho dovuto fare una correzione bisognava aggiungere la X
per le estrazioni a ritroso

grazie dei complimenti ho altri script fatti da me che sono piu bellissimi

ci leggiamo domani
 

Cinzia27

Advanced Member >PLATINUM<
Prova adesso


Codice:
Option Explicit
Sub Main
Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,N(1),rur(1),rur1(1),freeq1,freeq2,freeq3
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim cifra
Dim qt,anum1,anum2,anum3
Dim Totale,Total

Dim aQuadroNum
Dim aNumDaEvid
' predispone le dimensioni della matrice che contien i numeri
nRighe = 12
nColonne = 6
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
rur(1)=11
rur1(1)=12
 
    X = InputBox("Quante estrazioni vuoi controllare?",,0)
    

ReDim anum(0)

qt = ScegliNumeri(anum1)
'qt = ScegliNumeri(anum2)
'qt = ScegliNumeri(anum3)



For R = 1 To 12

For E = 1 To 5

For I = 1 To 90
N(1)=I
freeq1=SerieFreq(EstrazioneFin,EstrazioneFin,N,rur,1)
freeq2=SerieFreq(EstrazioneFin,EstrazioneFin,N,rur1,1)
freeq3=freeq1+freeq2
If freeq3 >1 Then



aQuadroNum(R,E) = Estratto(EstrazioneFin - X,R,E)

'If dispari (N) Then

 'If E < 2 Then ' EVIDENZIA LA 1°COLONNA

'If N > 10 Then  ' EVIDENZIA TUTTI I NUMERI DOPO IL 10


If(aQuadroNum(R,E)) = N(1) Then

Totale = Totale +(aQuadroNum(R,E))
Total = Total + 1



nCaselleDaEvid = nCaselleDaEvid + 1
'
aNumDaEvid(nCaselleDaEvid,0) = R
aNumDaEvid(nCaselleDaEvid,1) = E

End If
End If
'End If




Next
Next
Next
'Next

'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)



    
   'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))

 
  Call DisegnaEstrazione(EstrazioneFin - X,aNumDaEvid,CLng(0))


'Scrivi(DataEstrazione(EstrazioneFin - X)),0,0,1,3,4

Scrivi StringaNumeri(anum1)
'Scrivi StringaNumeri(anum2)
'Scrivi StringaNumeri(anum3)

Scrivi " Numeri Sortiti  " & Total & "",0,0,7,4
Scrivi
Scrivi
Scrivi " Totale " & Totale & "",0,0,7,4



End Sub
 

Zetrix

Premium Member
Ciao Cinzia sei fantastica anche questa sfida l'abbiamo superata

adesso ce ne un'altra che dobbiamo risolvere ed e questa
se volessimo vedere le estr a ritroso esempio
9 estr indietro come si deve scrivere nello script
affinchè le visualizza tutti i prospetti perchè allo stato attuale
se scrivo 9 estr indietro lo script visualizza solo quella estr
e invece le deve visualizzarle tutte le estr a ritroso
non so se sia fattibile se vuoi provarci
ci proverò anch'io vediamo se riusciamo a risolvere
anche questa sfida..
 

Zetrix

Premium Member
Codice:
Sub Main

ReDim MatriceCaselleDaEvid(1,1)


xx = InputBox("Quante estrazioni vuoi controllare?",,0)


For x = 0 To xx


Call DisegnaEstrazione(EstrazioneFin - x,MatriceCaselleDaEvid)

Call OrdinaMatrice(MatriceCaselleDaEvid,1)


Next

End Sub

Cinzia questo script me la scritto DJNomade ho fatto una prova
con

For x = 0 To xx

ma non va bene
 

joe

Advanced Member >PLATINUM<
Ciao Cinzia,

naturalmente tu che sai programmare, sai anche che per gli script la regola è d'oro:

Se non funzionano, non è mai colpa di chi li rovina, ma di chi li aveva fatti funzionanti.

Ci sarebbe ancora molto, da dire/fare, ma così, qui mi fermo.

Codice:
Option Explicit
Sub Main
    Dim Es
    For Es = EstrazioneFin - 2 To EstrazioneFin
        Disegnino Es
    Next
End Sub
Sub Disegnino(Es)
    Dim R,E,N(1),rur(1),rur1(1),freeq1,freeq2,freeq3
    Dim nRighe,nColonne
    Dim nCaselleDaEvid
    Dim anum1(90)
    Dim Totale,Total
    Dim aQuadroNum
    Dim aNumDaEvid
    nRighe = 12
    nColonne = 6
    ReDim aQuadroNum(nRighe,nColonne)
    ReDim aNumDaEvid(90,1)
    rur(1) = 11
    rur1(1) = 12
    For R = 1 To 12
        For E = 1 To 5
            N(1) = Estratto(Es,R,E)
            freeq1 = SerieFreq(Es,Es,N,rur,1)
            freeq2 = SerieFreq(Es,Es,N,rur1,1)
            freeq3 = freeq1 + freeq2
            If freeq3 > 1 Then
                aQuadroNum(R,E) = Estratto(Es,R,E)
                If(aQuadroNum(R,E)) = N(1) Then
                    anum1(N(1)) = N(1)
                    Totale = Totale +(aQuadroNum(R,E))
                    Total = Total + 1
                    nCaselleDaEvid = nCaselleDaEvid + 1
                    aNumDaEvid(nCaselleDaEvid,0) = R
                    aNumDaEvid(nCaselleDaEvid,1) = E
                End If
            End If
        Next
    Next
    Call DisegnaEstrazione(Es,aNumDaEvid,CLng(0))
    Scrivi
    Scrivi StringaNumeri(anum1,,True)
    Scrivi
    Scrivi " Numeri Sortiti  " & Total & "",0,0,7,4
    Scrivi
    Scrivi
    Scrivi " Totale " & Totale & "",0,0,7,4
    Scrivi
    Scrivi
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 settembre 2021
    Bari
    89
    69
    62
    15
    67
    Cagliari
    35
    82
    68
    43
    13
    Firenze
    78
    70
    76
    83
    45
    Genova
    89
    54
    33
    60
    81
    Milano
    02
    10
    64
    77
    76
    Napoli
    68
    37
    17
    14
    19
    Palermo
    52
    56
    59
    02
    51
    Roma
    04
    79
    49
    37
    47
    Torino
    03
    32
    44
    31
    49
    Venezia
    74
    28
    85
    90
    02
    Nazionale
    51
    60
    41
    31
    01
    Estrazione Simbolotto
    Palermo
    32
    29
    27
    34
    04

Ultimi Messaggi

Alto