Code voor de wortel uit een Textbox gezocht.

[wat]

In een userform heb ik textbox staan hier word een getal ingevuld door de gebruiker.
Met dit getal wil ik een berekening laten uitvoeren. En de uitkomst in het zelfde userform in een textlabel plaatsen.
In de berekening moet ik wortel trekken. Hoe doe ik dat?

gr.Wat

 

[madref]

gebruik iets van SQRT (square root)

 

[Wigi]

Helemaal uitgewerkt: zie bijlage.

Wigi

 

[wat]

Helaas nog niet gelukt!

Ik heb de SQRT geprobeerd. Ik ben tot hier gekomen.

Private Sub textbox4_Change()


Dim strLabel19 As String
Dim strLabel22 As String

strLabel19 = (0.0909 / (SQRT(((Val(TextBox5.Text) - Val(TextBox4.Text)) / (Val(TextBox3.Text) - Val(TextBox2.Text))) - 0.0909)) * (253.75 / Val(TextBox12.Text)))

Label19 = Format(strLabel, "#,####0.0000")


De volgende formule probeer ik hierboven te beschrijven.

X =(0.0909/(antilog(( E4 - E3)/( E2 - E1)-0.0909))x(253.75/inweeg))

Heeft iemand nog een idee?

 

[Wigi]

- Ik zie nergens de variabele strLabel gedeclareerd worden, laat staan gebruikt worden?

- Het is Sqr en niet SQRT.

- Wat is een antilog?

 

[wat]

Wortel moet anti log zijn!



Ik schaam mij dood.

Het zal wel door de vrijdag de 13de komen.
Zit de hele dag op die wortel te pezen tewijl ik een antilog moet hebben.
Antilog is het tegenovergestelde van een logaritme.

Iemand voor deze vraag nog een oplossing?

Ik heb de antwoorden van de wortel vraag een beetje door elkaar geknutseld en ben nu tot hier gekomen.

Label19.Caption = (0.0909 / (Log10(((Val(TextBox5.Text) - Val(TextBox4.Text)) / (Val(TextBox3.Text) - Val(TextBox2.Text))) - 0.0909))) * (253.75 / Val(TextBox12.Text))

strLabel19 = Label19.Caption

Label19.Caption = Format(strLabel19, "#,#0.0")

 

[Wigi]

Het getal e is het "tegenovergestelde" van logaritme met basis 10. Normaal gezien vind je dat in Excel en VBA met exp().

Wigi

 

[wat]

code gerealiseerd.

Mijn anti log staat er inverwerkt en het werkt.
Iedereen bedankt die heeft meegedacht.

gr.Wat


strLabel19 = (0.0909 / ((10 ^ ((strTB5 - strTB4) / (strTB3 - strTB2))) - 0.909)) * (253.75 / strTB12)

Label19.Caption = Format(strLabel19, "#,####0.0000")