sistemare una tabella

[Zetrix]

Ciao Cinzia27 volevo chiederti a te e chi puo se si puo sistemare questa tabella..
in pratica quanto abbiamo due numeri che hanno una dist dispari faremo questo calcolo
39x2=78-10=68 e 10x2=20-39=71
ma come vedi nella tabella scrive soltanto il 68 e forse ho sbagliato qualcosa a scrivere nello script

If pari(Abs(A - B)) Then N1 =((A + B)/2) End If

If dispari(Abs(A -B)) Then N1 = Fuori90(A*2 - B) Or N1 = Fuori90(B*2 - A) End If

D1 = Distanza(A,N1)
D2 = Distanza(N1,B)

T2 = Array(T2,Format2(A),Format2(D1),Format2(N1),Format2(D2),Format2(B))

se scrivo N1 E N2 mi scrive in tutte le tabelle..anche se hanno una dist pari..
If dispari(Abs(A -B)) Then N1 = Fuori90(A*2 - B) : N2 = Fuori90(B*2 - A) End If
D1 = Distanza(A,N1)
D2 = Distanza(N2,B)


T2 = Array(T2,Format2(A),Format2(D1),Format2(N1) & Space(2)& Format2(N2) ,Format2(D2),Format2(B))

se no devo provare a fare un altro calcolo nella tabella..


buona Pasqua

 

[Zetrix]

Cinzia forse ho risolto la tabella si deve scrivere in questo modo..
adesso devo risistemare lo script che casino con tutti questi If And Or e End If


If pari(Abs(A - B)) Then
N1 =((A + B)/2) : D1 = Distanza(A,N1) : D2 = Distanza(N1,B)
T2 = Array(T2,Format2(A),Format2(D1),Format2(N1),Format2(D2),Format2(B))
End If
If dispari(Abs(A - B)) Then
N1 = Fuori90(A*2 - B) : N2 = Fuori90(B*2 - A) : D1 = Distanza(A,N1) : D2 = Distanza(N2,B)
T2 = Array(T2,Format2(A),Format2(D1),Format2(N1) & Space(2) & Format2(N2),Format2(D2),Format2(B))
End If
If Distanza(A,B) = 30 Then
N1 = Fuori90(A*2 - B) : D1 = Distanza(A,N1) : D2 = Distanza(N1,B)
T2 = Array(T2,Format2(A),Format2(D1),Format2(N1),Format2(D2),Format2(B))
End If

 

[Zetrix]

 

[Cinzia27]

Ciao, Zetrix.
Hai risolto?
Sennò prova così.
Buona Pasqua


Sub main()

r=1
For p=1 To 4
For p1=p+1 To 5
a=Estratto(estrazionefin,r,p)
b=Estratto(estrazionefin,r,p1)
d=Distanza(a,b)
If Pari(d)=False Then
co=co+1
c=Fuori90((39*2)-10)
d=Fuori90((10*2)-39+90)
If co=1 Then
Scrivi c
Scrivi d
End if
End if
Next
Next

End Sub

 

[Zetrix]

Ciao Cinzia,

ho risolto lo script anche se non e stato semplice..

d=Distanza(a,b)
If Pari(d)=False Then

questa stringa non lo mai scritto negli script mi spieghi che vuol dire If Pari(d)=False Then

 

[Zetrix]

Cinzia devo chiederti un altra cosa ho un altro script da risolvere dovrei evidenziare le figure nella tabella..
vedi la tabella a lato con le figure vorrei evidenziare una figura a mia scelta..
se puoi mi dici se si puo fare e ti metto lo script..

 

[Cinzia27]

d è la variabile a cui ho assegnato la distanza (d=Distanza(a,b))
If Pari(d)=False
vuol dire se è dispari...
altrimenti se voglio la distanza pari al posto di false metto true

 

[Cinzia27]

Per le figure, prova a postare solo l'istruzione relativa alla figura e al colore.

 

[Zetrix]

grazie Cinzia per le spiegazioni della dist..aspetta vedo se riesco a mettere solo l'istruzione relativa alla figura..

For R = 1 To 12
For E = 1 To 5
For I = 1 To 90
N(1) = I
aQuadroNum(R,E) =(Estratto(EstrazioneFin - X,R,E))
aQuadroNum(R,E + 6) =(FuoriX(Estratto(EstrazioneFin - X,R,E),9))
'
'
If Figura(I) = 1 Then
'

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


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

'
End If

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



il problema adesso e come evidenziare le figure nella tabella a lato ho provato in diversi modi..

If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = Figura(I) Then

cosi non va bene..

 

[Cinzia27]

Prova ad adattarlo all'istruzione del tuo script
Sub main()
a=21
If Figura(a)=1 Then ColoreTesto 0:scrivi a
If Figura(a)=2 Then ColoreTesto 1:scrivi a
If Figura(a)=3 Then ColoreTesto 2:scrivi a
If Figura(a)=4 Then ColoreTesto 3:scrivi a
If Figura(a)=5 Then ColoreTesto 4:scrivi a
If Figura(a)=6 Then ColoreTesto 5:scrivi a
If Figura(a)=7 Then ColoreTesto 6:scrivi a
End Sub

 

[Zetrix]

Cinzia ma non dobbiamo colorare le figure ma si devono evidenziare nella tabella
come sono evidenziati i numeri estratti in tabella..

If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = Figura(I) Then <--------

questa e la riga per evidenziare sia i numeri estratti che i numeri delle figure ,,
ma si deve fare una correzione perche cosi non evidenzia le figure a lato della tabella..

Figura(I) <--------

 

[Zetrix]

Option Explicit
Sub Main
   Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,S,N(1)
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim cifra
   Dim qt,anum1,anum2,anum3
   Dim Totale,Total
   Dim stesto
   Dim aQuadroNum
   Dim aNumDaEvid
   '
   nRighe = 12
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(100,1)
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   ReDim anum(0)
   '
   For R = 1 To 12
      For E = 1 To 5
         For I = 1 To 90
            N(1) = I
            aQuadroNum(R,E) =(Estratto(EstrazioneFin - X,R,E))
            aQuadroNum(R,E + 6) =(FuoriX(Estratto(EstrazioneFin - X,R,E),9))
            '
            If Figura(I) = 1 Then
               '
               If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = Figura(I) Then
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  '
               End If
            End If
         Next
      Next
   Next
   '
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))
   Scrivi
   Call DisegnaEstrazione(EstrazioneFin - X,CLng(0))
   Scrivi
End Sub

Cinzia ti metto lo script vedi se ci riesci te a evidenziare le figure..
secondo me si deve fare una correzione su questa riga..

If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = N(1) Then

 

[Cinzia27]

Basta che cambi qua
If Figura(I) = 1 Then

al posto di 1 metti 2 o 3,ecc

 

[Zetrix]

Option Explicit
Sub Main
   Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,F,N(1)
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim cifra
   Dim qt,anum1,anum2,anum3
   Dim Totale,Total
   Dim stesto
   Dim aQuadroNum
   Dim aNumDaEvid
   '
   nRighe = 12
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(100,1)
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   ReDim anum(0)
   '
   For R = 1 To 12
      For E = 1 To 5
         For I = 1 To 90
            N(1) = I
            aQuadroNum(R,E) =(Estratto(EstrazioneFin - X,R,E))
            aQuadroNum(R,E + 6) =(FuoriX(Estratto(EstrazioneFin - X,R,E),9))
            '
            If Figura(I) = 1 Or Figura(F) = 1 Then
               '
               If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = N(1) Then
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R
                  aNumDaEvid(nCaselleDaEvid,1) = E+6

                  '
               End If
            End If
         Next
      Next
   Next
   '
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))
   Scrivi
   Call DisegnaEstrazione(EstrazioneFin - X,CLng(0))
   Scrivi
End Sub

Cinzia il problema non e la figura se metti la figura 1 o 2 si deve evidenziare la figura nella tabella a lato

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

ho aggiunto queste due righe adesso evidenzia la figura 1 nella tabella
ma non evidenzia la figura 1 dei numeri estratti..

 

[Zetrix]

Option Explicit
Sub Main
   Dim R,E,X,I,RB,RX,RK,K,Z,RT,RF,F,N(1)
   Dim nRighe,nColonne
   Dim nCaselleDaEvid
   Dim cifra
   Dim qt,anum1,anum2,anum3
   Dim Totale,Total
   Dim stesto
   Dim aQuadroNum
   Dim aNumDaEvid
   '
   nRighe = 12
   nColonne = 11
   ReDim aQuadroNum(nRighe,nColonne)
   ReDim aNumDaEvid(100,1)
   '
   X = InputBox("Quante estrazioni vuoi controllare?",,0)
   ReDim anum(0)
   '
   For R = 1 To 12
      For E = 1 To 5
         For I = 1 To 90
            N(1) = I
            aQuadroNum(R,E) =(Estratto(EstrazioneFin - X,R,E))
            aQuadroNum(R,E + 6) =(FuoriX(Estratto(EstrazioneFin - X,R,E),9))
            '
            If Figura(I) = 1 Or Figura(F) = 1 Then
               '
               If(aQuadroNum(R,E)) = N(1) Or aQuadroNum(R,E + 6) = N(1) Then
                 '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R
                  aNumDaEvid(nCaselleDaEvid,1) = E
                  '
                  nCaselleDaEvid = nCaselleDaEvid + 1
                  '
                  aNumDaEvid(nCaselleDaEvid,0) = R
                  aNumDaEvid(nCaselleDaEvid,1) = E + 6
                  '
               End If
            End If
         Next
      Next
   Next
   '
   Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,CLng(0))
   Scrivi
   Call DisegnaEstrazione(EstrazioneFin - X,CLng(0))
   Scrivi
End Sub

wow Cinzia ho risolto la tabella adesso evidenzia la figura degli estratti e anche le figure a lato della tabella..

 

[Zetrix]

For R = 1 To 12
If R = 11 Then R = 12 End If

Cinzia ai un altro modo per non far evidenziare la ruota a tutte..
su alcune figure evidenzia anche la ruota a tutte..

 

[Cinzia27]

In realtà ti evidenzia le figure se sono presenti su NZ.
All'ultima estrazione su NZ ci sono le figure 7,5,2
Non saprei come fare.

 

[Zetrix]

Cinzia in alcune figure evidenzia delle pallline nere alla riga 11 invece la nazionale non la evidenzia proprio
forse questo problema e dovuto alla matrice della tabella e come se la 11 riga legge solo la ruota tutte..
la nazionale non la calcola proprio ho fatto anche una prova con R = 11 False ma non si risolve niente..

 

[Zetrix]

se si evidenzia la figura 1 non da problemi ma se si evidenzia la figura 7 --> NZ.. 79 52 25...
non la evidenzia proprio..evidenzia delle palline nere sulla riga 11..
si dovrebbe scrivere in un modo che salti la riga 11 e legge la riga 12 della nazionale..ma non e mica semplice..

 

[Cinzia27]

Infatti non è semplice.
Speriamo che qualche esperto intervenga.