Novità

calcola numeri cruciverba

Zetrix

Advanced Premium Member
5533.PNG

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

Advanced Member >PLATINUM PLUS<
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

Advanced Premium Member
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

Advanced Premium Member
5550.PNG

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

Zetrix

Advanced Premium Member
5551.PNG

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

Zetrix

Advanced Premium Member
5552.PNG

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

Advanced Member >PLATINUM PLUS<
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

Advanced Premium Member
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

Advanced Member >PLATINUM PLUS<
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

Advanced Premium Member
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..
 
Ultima modifica:

Mike58

Advanced Member >PLATINUM PLUS<
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

Advanced Premium Member
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

Advanced Member >PLATINUM PLUS<
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.

Codice:
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

Advanced Premium Member
GRAZIE MIKE dello script poi ci guardo un po come sistemare i colori
 
Ultima modifica:

Zetrix

Advanced Premium Member
5555.png
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 ..

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
 
Ultima modifica:

Zetrix

Advanced Premium Member
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..


Codice:
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

Advanced Premium Member
5558.PNG

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)
 
Ultima modifica:

Zetrix

Advanced Premium Member
5553.png
[NA] [.. .. .. .. 59] C.1 Estratto 02104 [04/04/2023] [46.17.86.29.59]

Numeri in gioco 59.03 su TT per Ambo
 

Zetrix

Advanced Premium Member
Codice:
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

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 16 marzo 2024
    Bari
    17
    57
    87
    39
    24
    Cagliari
    09
    59
    12
    08
    63
    Firenze
    13
    73
    41
    43
    17
    Genova
    06
    58
    10
    37
    62
    Milano
    43
    71
    21
    85
    23
    Napoli
    89
    66
    11
    44
    14
    Palermo
    87
    23
    13
    46
    45
    Roma
    89
    08
    43
    68
    55
    Torino
    32
    52
    11
    39
    65
    Venezia
    78
    65
    16
    27
    21
    Nazionale
    78
    16
    44
    60
    28
    Estrazione Simbolotto
    Firenze
    18
    31
    43
    30
    45
Alto