calcola numeri cruciverba

[Zetrix]

ok MIKE per la tabella va bene anche cosi puoi vedere lo script perche le somme
non sono corrette nella tabella
poi volevo chiederti un altra cosa si possono inserire i quattro numeri
soltanto in un input box oppure non si puo fare

 

[Mike58]

Per lo script con i tuoi calcoli, vedo che hai pastrugnato (si dice cosi dalle mie parti) parecchio, francamente non lo capisco.
Rivediti bene e con calma quello che vuoi calcolare.
francamente
A = A
B = B
non lo comprendo è nullo in quanto A ha già il suo valore.
Non è difficile capire se stessi, rivedi i tuoi calcoli in fase di impostazione.
Ciao

 

[Mike58]

Se non ne vieni a capo fammi un esempio reale dei numeri che vuoi sommare e fare le differenze, che magari comprendo anche io.
Ciao

 

[Zetrix]

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,X,Y
   Dim N1,N2,N3,N4,N5
   Dim S1,S2,S3
   A = InputBox("1 numero ? A")
   B = InputBox("2 numero ? B")
   C = InputBox("3 numero ? C")
   D = InputBox("4 numero ? D")
   '
   T = Array(T,"  ","  ","  ","  ","  ")
   Call InitTabella(T)
   '-------------------------------
   X = Fuori90(C - D + A)
   N1 = Differenza(X,A)
   N2 = Differenza(A,B)
   '-------------------------------
   T = Array(T,X,N1,A,N2,B)
   Call AddRigaTabella(T)
   Call SetColoreCella(1,3,1)
   Call SetColoreCella(3,4,1)
   Call SetColoreCella(5,4,1)
   '-------------------------------
   Y = Fuori90(B - A + D)
   '---------
   N3 = Differenza(A,D)
   '-----------------------------------
   N4 = Differenza(C,D)
   N5 = Differenza(D,Y)
   '---------------------------------
   T1 = Array(T1,N3,".",N3,".",N3)
   Call AddRigaTabella(T1)
   T2 = Array(T2,C,N4,D,N5,Y)
   Call AddRigaTabella(T2)
   Call SetColoreCella(1,4,1)
   Call SetColoreCella(3,4,1)
   Call SetColoreCella(5,3,1)
   '--------------------------------
   T3 = Array(T3,"  ","  ","  ","  ","  ")
   Call AddRigaTabella(T3)
   S1 = Fuori90(B + C)
   S2 = Fuori90(A + D)
   S3 = Fuori90(X + Y)
   T4 = Array(T4,S1,".",S2,".",S3)
   Call AddRigaTabella(T4)
   Call SetColoreCella(1,1,5)
   Call SetColoreCella(3,1,5)
   Call SetColoreCella(5,1,5)
   T5 = Array(T5,"  ","  ","  ","  ","  ")
   Call AddRigaTabella(T5)
   Call SetColoreCella(1,5,5)
   Call SetColoreCella(3,5,5)
   Call SetColoreCella(5,5,5)
   T6 = Array(T6,"  ","  ","calcola","  ","  ")
   Call AddRigaTabella(T6)
   Call SetColoreCella(1,5,5)
   Call SetColoreCella(3,4,1)
   Call SetColoreCella(5,5,5)
   T7 = Array(T7,"  ","  ","  ","  ","  ")
   Call AddRigaTabella(T7)
   Call SetColoreCella(1,5,5)
   Call SetColoreCella(3,5,5)
   Call SetColoreCella(5,5,5)
   Call SetTableWidth("20%")
   CreaTabella
End Sub

mike a me sembra che i calcoli siano corretti non so forse ho fatto qualche errore
le somme non sono corrette,ho aggiunto la scritta calcola ma forse non va bene
comunque si possono scrivere i quattro numeri in unico input box oppure no..

 

[Mike58]

comunque si possono scrivere i quattro numeri in unico input box oppure no..

si possono aggiungere, ma poi devi splittarli, in questo momento non ti so dire esattamente come (vedi se hai qualche esempio, poi magari ci guardo)
Per i calcoli devi stare attento al concetto del numero calcolato a1 in verde fai una sottrazione (C-D) che può risultare negativa che poi sommi con A in tutto col fuori 90 (rivedi questa espressione)
C = 10
D = 20
A = 5
risultato matematico c-d + a = -5
risultato fuori90 = 85
vedi se questo calcolo è corretto.
Mi spiace ma non saprei come aiutarti ulteriormente, le basi li hai trova un qualche escamotage.

 

[Mike58]

'...........................................................................
AA = InputBox("DIGITA NUMERI SEPARATI DA PUNTO ","Inserire Numeri e punto","1.2.3.4.5.6")
ReDim num(0)
Call SplitByChar(AA,".",num) ' split carattere separatore
'---------------------------------------------------------------------------
come vedi c'è un inputBox che contiene i numeri separati dal carattere punto.
poi la ReDim NumeriVettori a zero
poi splitti i numeri dal carattere separatore
i tuoi numeri vettori saranno num(1) num(2)...... num(6).
cerca di applicarlo al tuo scopo.

 

[Zetrix]

[TT] [BA][.. .. 64 .. 20] C.1 Ambo 02105 [06/04/2023] [73.24.64.10.20]
Interrotta per esito verificato

mike ho risolto il problema delle somme, split non split non le ho mai scrittte queste cose
troppo difficile per me, non fa niente ,va bene anche con gli input box
ciao

 

[Zetrix]

Ciao Mike, volevo chiederti ma se voglio cambiare i colori nella tabella ce la possibilità
di scegliere altri colori..esempio si possono usare i colori con il sistema RGB..
oppure la tabella va bene cosi..

 

[Zetrix]

Sub Main
   Dim T,T2,T1,T3,T4,T5,T6,T7
   Dim A,B,C,D,X,Y
   Dim N1,N2,N3,N4,N5
   Dim A2,B2,C2,D2
   Dim S1,S2,S3
   A2 = InputBox("1 numero A")
   B2 = InputBox("2 numero B")
   C2 = InputBox("3 numero C")
   D2 = InputBox("4 numero D")
   '
   T = Array(T,"  ","  ","  ","  ","  ")
   Call InitTabella(T)
   '-------------------------------
   For A = A2 To A2
      For B = B2 To B2
         For C = C2 To C2
            For D = D2 To D2
            '---------------------------------
               X = Fuori90(D - C + B)
               N1 = Differenza(A,B)
               N2 = Differenza(B,X)
               '-------------------------------
               T = Array(T,A,N1,B,N2,X)
               Call AddRigaTabella(T)
               Call SetColoreCella(1,4,1)
               Call SetColoreCella(3,4,1)
               Call SetColoreCella(5,3,1)
               '-------------------------------
               Y = Fuori90(A - B + C)
               '---------
               N3 = Distanza(B,C)
               '-----------------------------------
               N4 = Differenza(Y,C)
               N5 = Differenza(C,D)
               '---------------------------------
               T1 = Array(T1,N3,"  ",N3,"  ",N3)
               Call AddRigaTabella(T1)
               T2 = Array(T2,Y,N4,C,N5,D)
               Call AddRigaTabella(T2)
               Call SetColoreCella(1,3,1)
               Call SetColoreCella(3,4,1)
               Call SetColoreCella(5,4,1)
               '--------------------------------
               T3 = Array(T3,"  ","  ","  ","  ","  ")
               Call AddRigaTabella(T3)
               S1 = Fuori90(X + Y)
               S2 = Fuori90(B + C)
               S3 = Fuori90(A + D)
               T4 = Array(T4,S1,"  ",S2,"  ",S3)
               Call AddRigaTabella(T4)
               Call SetColoreCella(1,1,5)
               Call SetColoreCella(3,2,5)
               Call SetColoreCella(5,1,5)
               T5 = Array(T5,"  ","  ","  ","  ","  ")
               Call AddRigaTabella(T5)
               Call SetColoreCella(1,5,5)
               Call SetColoreCella(3,5,5)
               Call SetColoreCella(5,5,5)
               T6 = Array(T6,"  ","  ","  ","  ","  ")
               Call AddRigaTabella(T6)
               Call SetColoreCella(1,5,5)
               Call SetColoreCella(3,5,1)
               Call SetColoreCella(5,5,5)
               T7 = Array(T7,"  ","  ","  ","  ","  ")
               Call AddRigaTabella(T7)
               Call SetColoreCella(1,5,5)
               Call SetColoreCella(3,5,5)
               Call SetColoreCella(5,5,5)
               Call SetTableWidth("18%")
               CreaTabella
            Next
         Next
      Next
   Next
End Sub

 

[Zetrix]

 

[Zetrix]

[TT] [VE][76 .. 78 .. ..] C.9 Ambo 02102 [30/03/2023] [76.71.78.04.90]
Interrotta per esito verificato

x Mike

Anticipazione (Spoiler)

ai provato a sommare questi numeri
79+78=157=67
76+75=151=61
vedi nelle estr successive e uscito il 61 67 a tutte

 

[Mike58]

Ciao Mike, volevo chiederti ma se voglio cambiare i colori nella tabella ce la possibilità
di scegliere altri colori..esempio si possono usare i colori con il sistema RGB..
oppure la tabella va bene cosi..

Certo che i colori si possono cambiare ed usare gli rgb

Poi Complimenti per gli ambi estrapolati, terrò presente e cercherò di monitorarlo anch'io.

Ciao

 

[Sakti]

Se può servire, per Zetrix questo ed altro..

 

[Zetrix]

ok Mike per i colori e grazie per i complimenti ,devo vedere come scrivere i codici dei colori..
grazie toon per la tabella con i codici rgb..
dopo vi farò vedere un altro disegno con le distanze uguali nel cruciverba..

 

[Zetrix]

[RO] [.. .. .. .. 85] C.1 Estratto 02105 [06/04/2023] [31.51.49.83.85]

 

[Zetrix]

Mike questa combinazione e in prova poi vediamo gli sviluppi del gioco

 

[Zetrix]

 

[Zetrix]

 

[joe]

Si ma un "bottone" con su scritto ... calcola ...

è in una immagine grafica ovvero è SOLO l' immagine di ciò che si vorrebbe

 

[Zetrix]

buongiorno,
Joe ho provato a scrivere calcola nella tabella ma disordina tutta la tabella