Visual Basic 2013 - Flere decimaler på udregninger, langsom applikation

Tags:    visual-basic

Hej.

Jeg er ved at lave et program i visual basic 2013, men jeg har problemer med at den ikke regner helt præcist pga. manglende decimaler.
Formlen som jeg har lavet ser sådan ud:

Calcform.Label98.Text = Val(Calcform.Label97.Text) * (Val(Me.TextBox7.Text) / 100 + 1)

Det er så "Label98" jeg gerne vil have til at vise flere decimaler ved denne udregning.



Det andet problem er at jeg nu har fået lavet en meget lang kode for 1 knap, og det tager nu længere tid før den viser resultatet, er der en måde man kan gøre ens appliktaion hurtigere på ??



3 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Val funktionen kan returnere både en Double og en Int. Jeg vil faktisk gætte på at den vælger Int i din kode. Prøv om ikke :
Dim d1 As Double
Dim d2 As Double
d1 = Val(Calcform.Label97.Text)
d2 = Val(Me.TextBox7.Text) / 100.0d + 1.0d)
Calcform.Label98.Text = d1 + d2






Hej.

Det syntes jeg ikke jeg kan få til at virke.

Lige nu viser den 1333,5 og hvis jeg regner det samme på lommeregner skrive der 1333,528.

Det er ikke meget, men kan se længere nede i de udregninger den laver at det er hele 5,0 der er i forskel.

Har spurgt inde på et andet forum og de sagde man kunne skrive .ToString("N4") men det kan jeg heller ikke få til at virke.

Håber virkelig i kan hjælpe der ude :)



Hej Christian

Det som Claus skriver burde virke.
Men ellers prøv dette:
Fold kodeboks ind/udVBDotNet kode 


Hvis det ikke virker, så lig din kode her op. Så kan vi nok se hvad fejlen er.



t