Novità

x Cinzia27

Zetrix

Zetrix

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



1785.PNG
 
Zetrix ha scritto:
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
Clicca per espandere...

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...
 
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:
Zetrix ha scritto:
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
Clicca per espandere...

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
 
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
 
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:
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
 
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
 
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
 
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 ?
 
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?
 
alla fine non sai darmi una risposta ho dovuto mettere il mio script personale
nel forum senza risolvere niente
 
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
 
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
 
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.
 
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
 
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
 
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..
 
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
 
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

:)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto