[VB] Risoluzione sistemi di 1° grado co Kramer. Quasi riuscito... manca solo una cosa

[programmarefree]

Salve a tutti. #ARRIVIAMO AL DUNQUE#
Sto creando un programmino "Re-SyS" in grado di risolvere i sistemi di 1° grado a 2 o + incognite tramite il metodo di Kramer...
il programma li x li funziona ma ho fatto in modo che chi lo esegue possa anche vedere il procedimento del programma passo per passo (come risolve il sistema).
Sono riuscito a fare anche questo, l'unico problema sta nel fatto che io faccio eseguire al programma tutte le operazioni nelle TextBox
xciò quando divido 2 textbox ottengo un risultato con la virgola molto lungo .
Vorrei sapere se esiste un modo x far visualizzare all' utente solo 2 posti dopo la virgola...
Ho provato con
Val(NomeTextBox.text)
e
val(text1.text / text2.text)
ma il risultato è un numero intero cioè senza virgola...
Il problema sembra facile ma non lo è !
Invito chiunque a postare qualcosa sulle textbox anche se ritiene non importante o necessario...

POSTATE - POSTATE e POSTATE !!!

Tutto è necessario...

Grazie a tutti.

[Giulio C.]

Ciao. Prova così.

Otteni i due decimali:

txtRisultato = "il tuo valore"
nIntero = Int(txtRisultato)
nDecimali = (txtRisultato - nIntero)
nDecimali = Left(nDecimali, 4)

A questo punto "unisci" il valore "intero" e quello "decimale":

txtRisultato = nIntero + nDecimali

ed ottieni il numero con due soli decimali.

Spero di aver compreso bene le tue necessità.

Prova e fammi sapere.

[programmarefree]

Quello che hai postato è perfetto...
ma sarà l'ultima cosa che utilizzerò perche è troppo complicato e dato che devo usarlo in moltissime textbox... OK ???

CMQ GRAZIE

ASPETTO ALTRE RISPOSTE... QUALCOSA TIPO VAL(...) CIOE' + COMODA.

GRAZIE A TUTTI !!!

[xegallo]

e usate una format(valore,#######################,##)

[programmarefree]

Grazie mille moderatore.

Proverò domani il tuo codice.

GRAZIE ANCORA! :tongue:

[programmarefree]

Ho provato il tuo codice ma così come me l'hai postato tu non va...
è un errore di sintassi.
CMQ GRAZIE TANTE.

[programmarefree]

Se non sbaglio ancora il tuo post è esatto ma non riesco a far

visualizzare i valori con 2 numeri prima della virgola e 2 numeri

dopo la virgola, es:

2,5

10,55

1,55

50,1

ecc..

Capito ?


CMQ GRAZIE TANTE !!!

[programmarefree]

POTRESTI POSTARMI IL CODICE CON I "####,####" IN
MODO DA FAR VISUALIZZARE IL CODICE COME HO POSTATO
PRIMA?

GRAZIE TANTE!

[chipdb]

La funzione Round è percaso sparita? :master: :master:

Round(Valore, nDecimali)

Ciao

[programmarefree]

fUNZIONA PERFETTAMENTE.