Novità

calcola numeri cruciverba

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


5561.PNG
 
Ultima modifica:
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
 
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
 
Codice: 
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..
 
Ultima modifica:
comunque si possono scrivere i quattro numeri in unico input box oppure no..
Clicca per espandere...

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.
 
'...........................................................................
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.
 
5564.png
[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
 
5567.png

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..
 
Ultima modifica:
Codice: 
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
 
5573.png
[TT] [VE][76 .. 78 .. ..] C.9 Ambo 02102 [30/03/2023] [76.71.78.04.90]
Interrotta per esito verificato

x Mike
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
 
Ultima modifica:
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..
Clicca per espandere...

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
 
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..
 
Ultima modifica:
Si ma un "bottone" con su scritto ... calcola ...

è in una immagine grafica ovvero è SOLO l' immagine di ciò che si vorrebbe
 
buongiorno,
Joe ho provato a scrivere calcola nella tabella ma disordina tutta la tabella
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 17 aprile 2025
    Bari
    82
    36
    16
    03
    81
    Cagliari
    46
    13
    40
    47
    09
    Firenze
    23
    87
    68
    48
    86
    Genova
    12
    68
    63
    41
    17
    Milano
    66
    58
    51
    21
    61
    Napoli
    84
    32
    71
    61
    22
    Palermo
    69
    18
    82
    75
    12
    Roma
    64
    78
    54
    89
    05
    Torino
    68
    49
    86
    23
    25
    Venezia
    29
    18
    44
    25
    47
    Nazionale
    02
    74
    67
    88
    84
    Estrazione Simbolotto
    Genova
    29
    38
    43
    03
    28
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto