calcola numeri cruciverba

[Zetrix]

Ciao MIKE vorrei fare un programmino che calcola i numeri nel cruciverba
vorrei chiedere a LuigiB ma sta seguendo il twin basic figurati se si mette a fare
la mia richiesta,se qualcuno e interessato poi gli darò maggiori informazioni
su cio che deve fare il programma..

 

[Mike58]

Ciao Zetrix,Purtroppo per quello che vorresti ottenere ci sarebbe bisogno o di un plugin in spaziometria o di un Form con TwinBasic
in entrambe le soluzioni, io non riesco ad aiutarti, in quanto , ne ho approfondito la creazione del plugin , ne saprei come creare il form per twinbasic.
Potresti ottenere facilmente la stessa cosa in excel.

 

[Zetrix]

Ciao MIKE, purtroppo il programma non si puo fare con gli script
con excel meglio di no a parte che non ce lo neanche excel

 

[Zetrix]

questo e il programmino che vorrei fare purtroppo non so niente di programmazione
se no l'avrei fatto gia questo programmino

 

[Zetrix]

MIKE ma e difficile fare un plugin in spaziometria..
con uno script non si puo fare ..

 

[Zetrix]

MIKE questo e il programmino che voglio fare se qualcuno
e interessato poi gli darò maggiori informazioni su come fare
i calcoli dei numeri anche se e facilissimo
il difficile e fare il programma

 

[Mike58]

Zetrix , per fare un plugin è necessario avere installato il programma vb6 ed allacciato o comunicante anche a spaziometria.

Io non ho il programma e quando lo avevo non era comunicante con spaziometria e quindi ho approfondito poco questo tipo di progetto.

Sicuramente con twinbasic che permette di creare il form e calcolarne le numeriche inserite non sarebbe complicato crearlo, ma come ti dicevo ho perso qualche passaggio e non saprei creare il form con i calcoli allacciaiti.

Se altri che sono riusciti a sviluppare per intero il progetto TB leggono e vogliono aiutarti benvenuti per te.

Se con uno script semplice si può fare ? ma in definitiva sono solo calcoli si potrebbe anche fare, ma poi graficamente devi tu sistemarlo.

Poi come ti dicevo excel si presta molto di più per questa tipologia di project , ma se non lo hai allora niente.

Ciao

 

[Zetrix]

ok MIKE e una tabella si puo fare magari con un input box possiamo
inserire i numeri ma e difficile scriverla nella tabella
se no devo chiedere a un altro programmatore che fa questi programmi..

Ciao

 

[Mike58]

vedi tu Zetrix, ma ribadisco excel con le sue formule o codici Vba è molto più vicino e facile al tuo modo di operare.
vedi esempio con le sole formule (in giallo i numeri da inserire - le altre celle sono formule).

 

[Zetrix]

SI MIKE ho visto la tabella in excel ma non ho excel ma le caselle sono tutte in giallo
e quali sono i numeri calcolati, le caselle da inserire i numeri devono essere bianche
e le caselle gialle o arancione i numeri calcolati..sai se ce una versione gratis in excel..

 

[Mike58]

Versioni gratis di excel sicuro non ce ne sono, sicuramente ci sono versioni craccate, io ho una di quelle vecchie versione 2007, completa in tutto, però esistono nuove versioni con crack in rete. ( io non scarico + quindi non saprei dirti dove)
Poi nel mio esempio ho messo nelle celle in giallo solo i numeri da inserire le altre celle (formattabili come si vuole) sono frutto di calcoli e formule.
esempio per una differenza cella A1 e cella A3
=SE(A1>A3);A3-A1;A1-A3
in sostanza sottrae il numero + grande - il numero + piccolo con la condizionale SE.

Per la grafica in excel puoi gestirla come credi.

Ciao

 

[Zetrix]

MIKE ti ringrazio lo stesso ma non mi piace excel,devo vedere se riesco a fare
un programmino ma gratis nessuno lo fa ti chiedono i soldi..

Ciao

 

[Mike58]

Senti Zetrix , devi vedere tu cosa ti piace per i tuoi scopi, ma dubito che troverai qualcosa senza pagare.
Piuttosto è possibile avere le stesse risultalnze anche con gli script x spaziometria
vedi tu a sistemarlo con i colore che vuoi.
Poi ti lascio alle tue scelte.

Sub Main
   Dim T,T2,T1,T3
   T = Array(T," N1 "," df1 "," N2 "," df2 "," N3 ")
   Call InitTabella(T)
   '...............................
   a1 = 21
   a2 = 49
   a3 = 58
   da1 = Differenza(a1,a2)
   da2 = Differenza(a2,a3)
   '..............................
   T = Array(T,a1,da1,a2,da2,a3)
   Call AddRigaTabella(T)
   Call SetColoreCella(1,4,2)
   Call SetColoreCella(3,4,2)
   Call SetColoreCella(5,4,2)
   '..............................
   b1 = 14
   b2 = 42
   b3 = 51
   '---------
   db1 = Differenza(b1,b2)
   db2 = Differenza(b2,b3)
   '.............................
   c1 = Differenza(a1,b1)
   c2 = Differenza(a2,b2)
   c3 = Differenza(a3,b3)
   T1 = Array(T1,c1,".",c2,".",c3)
   Call AddRigaTabella(T1)
   T2 = Array(T2,b1,db1,b2,db2,b3)
   Call AddRigaTabella(T2)
   Call SetColoreCella(1,4,2)
   Call SetColoreCella(3,4,2)
   Call SetColoreCella(5,4,2)
   '--------------------------------
   d1 = Fuori90(a1 + b3)
   d2 = Fuori90(a2 + b2)
   d3 = Fuori90(a3 + b1)
   T3 = Array(T3,d1,".",d2,".",d3)
   Call AddRigaTabella(T3)
   Call SetColoreCella(1,1,5)
   Call SetColoreCella(3,1,5)
   Call SetColoreCella(5,1,5)
   CreaTabella
End Sub

 

[Zetrix]

GRAZIE MIKE dello script poi ci guardo un po come sistemare i colori

 

[Zetrix]

MIKE questa e una delle mie tecniche a z
BA 59 3 E TT
se vinciamo poi mi offri un caffè..

i numeri li ho inseriti con un programma forse faccio prima cosi che fare
un programma con excel ..

Anticipazione (Spoiler)

numeri in sequenza 4 = 03.07.11.15.19.23.27.31.35.39.43.47.51.55.59.63.67.71.75.79.83.87

 

[Zetrix]

buongiorno MIKE,
ho visto lo script ma dobbiamo sistemarla meglio la tabella
volevo chiederti ma in input box si possono inserire i quattro numeri
di calcolo poi per i calcoli automatizzati dei numeri mancanti vedrò io
come posso fare..

Sub Main
   Dim T,T2,T1,T3,T4,T5
   T = Array(T,"  ","  ","  ","  ","  ")
   Call InitTabella(T)
   '...............................
   a1 = 21
   a2 = 49
   a3 = 58
   da1 = Differenza(a1,a2)
   da2 = Differenza(a2,a3)
   '..............................
   T = Array(T,a1,da1,a2,da2,a3)
   Call AddRigaTabella(T)
   Call SetColoreCella(1,3,1)
   Call SetColoreCella(3,4,1)
   Call SetColoreCella(5,4,1)
   '..............................
   b1 = 14
   b2 = 42
   b3 = 51
   '---------
   db1 = Differenza(b1,b2)
   db2 = Differenza(b2,b3)
   '.............................
   c1 = Differenza(a1,b1)
   c2 = Differenza(a2,b2)
   c3 = Differenza(a3,b3)
   T1 = Array(T1,c1,".",c2,".",c3)
   Call AddRigaTabella(T1)
   T2 = Array(T2,b1,db1,b2,db2,b3)
   Call AddRigaTabella(T2)
   Call SetColoreCella(1,4,1)
   Call SetColoreCella(3,4,1)
   Call SetColoreCella(5,3,1)
   '--------------------------------
   T3 = Array(T3,"  ","  ","  ","  ","  ")
   Call AddRigaTabella(T3)
   d1 = Fuori90(a1 + b3)
   d2 = Fuori90(a2 + b2)
   d3 = Fuori90(a3 + b1)
   T4 = Array(T4,d1,".",d2,".",d3)
   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 SetTableWidth("20%")
   CreaTabella
End Sub

 

[Zetrix]

MIKE ma le caselle si possono modificare in altezza
oppure no
numeri di calcolo :
A = 49
B = 58
C= 14
D= 42
numeri mancanti :
X = C-D+A
Y= B-A+D
somme :
A+D
B+C
X+Y
Input box ( A,B,C,D)

 

[Zetrix]

[NA] [.. .. .. .. 59] C.1 Estratto 02104 [04/04/2023] [46.17.86.29.59]

Numeri in gioco 59.03 su TT per Ambo

 

[Zetrix]

Sub Main
   Dim T,T2,T1,T3,T4,T5
   Dim A,B,C,D,X,Y
   Dim N1,N2,N3,N4,N5
   Dim S1,S2,S3
   A = InputBox("Quale numero vuoi controllare ? A",,0)
   B = InputBox("Quale numero vuoi controllare ? B",,0)
   C = InputBox("Quale numero vuoi controllare ? C",,0)
   D = InputBox("Quale numero vuoi controllare ? D",,0)
   '
   T = Array(T,"  ","  ","  ","  ","  ")
   Call InitTabella(T)
   '-------------------------------
   X = Fuori90(C - D + A)
   A = A
   B = B
   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)
   '-------------------------------
   C = C
   D = D
   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 SetTableWidth("20%")
   CreaTabella
End Sub

MIKE ho rifatto lo script ma le somme non sono corrette
forse ho fatto qualche errore nello script

 

[Mike58]

BuonGiorno e buon sabato.
Zetrix riguardo alla tabella si puo variare il size (la grandezza) ma di tutta la riga, quindi la tua grafica la vedo dura simularla.
Per questo esportare la tabella in excel ti permetteva di variare le celle con size voluto.
Per quanto riguarda i numeri in input box, certo che si può fare, ma qui sei e devi essere capace di farlo da solo.

Io da parte mia ho voluto automatizzare i calcoli con lo script, per il resto come ti dicevo bisogna ingegnarsi per i propri scopi.

Ciao