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:
5576.png

[RO] [.. .. .. .. 85] C.1 Estratto 02105 [06/04/2023] [31.51.49.83.85]
 
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
    sabato 14 giugno 2025
    Bari
    43
    28
    11
    04
    79
    Cagliari
    44
    24
    17
    54
    40
    Firenze
    51
    68
    85
    05
    58
    Genova
    35
    40
    22
    31
    45
    Milano
    84
    30
    47
    28
    85
    Napoli
    12
    06
    24
    83
    82
    Palermo
    66
    03
    88
    41
    45
    Roma
    15
    77
    68
    70
    59
    Torino
    81
    25
    06
    33
    77
    Venezia
    77
    79
    12
    49
    87
    Nazionale
    01
    84
    11
    31
    45
    Estrazione Simbolotto
    Napoli
    06
    18
    07
    23
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto