bonjour,

j ai fais une application en vb2005 que je veux traduire en vb6

mon probleme c'est que je ne sais pas comment utiliser le log10 en vb6

mon code en vb2005 est :

'declare variable

Dim logtxt50rec AsDouble

'calculate cetane index D976

If btnci976.Checked Then

logtxt50rec = Math.Log10(Val(txtcit50.Text))

lblci.Text = 454.74 - 1641.416 * Val(txtcidensity.Text) + 774.74 * (Val(txtcidensity.Text) ^ 2) - 0.554 * Val(txtcit50.Text) + 97.803 * (Val(logtxt50rec) ^ 2)


quel serait mon code en vb6 pour replacer le code: logtxt50rec = Math.Log10(Val(txtcit50.Text))??

merci!

Bondoir,

Voilà ce que l'on peut lire dans l'aide en ligne (la mienne est en anglais), en consultant tout simplement sur la fonction Log :

The natural logarithm is the logarithm to the base e. The constant e is approximately 2.718282.
You can calculate base-n logarithms for any number x by dividing the natural logarithm of x by the natural logarithm of n as follows:

Logn(x) = Log(x) / Log(n)

The following example illustrates a custom Function that calculates base-10 logarithms:

Static Function Log10(X)
 Log10 = Log(X) / Log(10#)
End Function

merci de la reponse rapide,

mais mon probleme c'est que je sais pas comment l'utiliser dans mon code, je suis debutant.

en vb2005 je l utiilise en en faisant
 
mavariable = math.log (val(montextbox.text))

mais comment faire en vb6 ?

merci

ben ... ce n'est plus du log10, mais du log tout seul ...

mavariable = math.log (val(montextbox.text))  ====>>> mavariable = log (val(montextbox.text))

désolé...je me suis trompé...c'est:

mavariable = math.log10 (val(montextbox.text))

Tu te moques, là ????

Relis :

Static Function Log10(X)
 Log10 = Log(X) / Log(10#)
End Function

Regarde bien ce qui est écrit en rouge !
 X, c'est mavariable

Dis voir, toi... je sais que c'est bientôt Noël, mais quand-même !!!!

D'autant qu'on a déjà répondu le 21 à la même question

Ca, alors !!!

Je viens de voir et de découvrir qu'en plus, c'est lui !!!!

lol, je me disais que j'avais déjà vu ce topic il n'y avait pas longtemps, je ne me doutais pas que c'était en réalité deux topics différents, postés par la même personne

philjoyal, écris quelque part dans ton code: 

Public Function Log10(byval X as double) as double
Log10 = Log(X) / Log(10#)
End Function
(Tu remarqueras que c'est ce que t'as donné jmfmarques et les gens qui ont répondu à ton post du 21/12/2007)

et remplace tous tes Math.Log10 par log10


 Pourapprendretoujoursplus!

salut,
p-e que c'est moi ki s'exprime mal ou je ne comprend vraiment rien...

j'ai un textbox (txtcit50.Text)
une variable (logtxt50rec)

je veux calculer le log10 du textbox et donner la valeur du résultat a la variable...

selon ce qu'on me dis je devrais re trouver le code suivant :

'declare variable
Dim logtxt50rec As Double


Private Sub cmdcalcci_Click()
'calculate cetane index D976
If btnci976.Value = True Then
logtxt50rec = Log10(Val(txtcit50.Text))
End Sub


Public Function Log10(ByVal logtxt50rec As Double) As Double
Log10 = Log(logtxt50rec) / Log(10#)
End Function

mais voila, quand je fais un debug...vb6 me dis que la ligne: Log10 = Log(logtxt50rec) / Log(10#) est une "invalid procedure call or argument"