begin process at 2012 02 11 23:16:28
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Algorithme

 > 

Maths

 > 

utilisation du log10 en vb6


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

utilisation du log10 en vb6

dimanche 23 décembre 2007 à 21:09:47 | utilisation du log10 en vb6

philjoyal

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!

dimanche 23 décembre 2007 à 21:28:36 | Re : utilisation du log10 en vb6

jmfmarques

Membre Club

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

dimanche 23 décembre 2007 à 21:34:44 | Re : utilisation du log10 en vb6

philjoyal

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

dimanche 23 décembre 2007 à 22:13:49 | Re : utilisation du log10 en vb6

jmfmarques

Membre Club

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

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

dimanche 23 décembre 2007 à 22:22:56 | Re : utilisation du log10 en vb6

philjoyal

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

mavariable = math.log10 (val(montextbox.text))
dimanche 23 décembre 2007 à 22:26:06 | Re : utilisation du log10 en vb6

jmfmarques

Membre Club
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 !!!!

dimanche 23 décembre 2007 à 23:35:54 | Re : utilisation du log10 en vb6

jack

Administrateur CodeS-SourceS
D'autant qu'on a déjà répondu le 21 à la même question
lundi 24 décembre 2007 à 00:04:23 | Re : utilisation du log10 en vb6

jmfmarques

Membre Club
Ca, alors !!!

Je viens de voir et de découvrir qu'en plus, c'est lui !!!!
lundi 24 décembre 2007 à 01:08:00 | Re : utilisation du log10 en vb6

mstarsup5

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!
lundi 24 décembre 2007 à 01:56:40 | Re : utilisation du log10 en vb6

philjoyal

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"


1 2

Cette discussion est classée dans : text, code, vb6, val, log10


Répondre à ce message

Sujets en rapport avec ce message

conversion log10 de vb2005 en vb6 [ par philjoyal ] j'ai fait une application en vb2005 mais je souhaite la convertir en vb6 pour eviter l installation du framework 2.0 voici mon code en vb2005 :If btnc le code pour calculer la surface d'un trapèze [ par DjFlyiA ] Dim gb, pb, h As Integer gb = Val(textgb.Text)pb = Val(textpb.Text)h = Val(texth.Text)r = (gb + pb) * h / 2lblr.Caption = Str(r)je suis débutant et Calcul [ par bilaloch ] Bonjour,Voila, j'essaye d'additionné des nombre a virgules mais le bleme c que par exemple je fai :Text1.Text = Val(0,32) + Val(1,45)T probleme clé etranges [ par validier ] salut tt le monde; je travailles dans une application(vb6,bdd"access") j'ai un petit problème dans les clés étranges. comment ça, quand je vx faire un comment régler ce code [ par zidane22 ] Bonjour à tous, je voudrais calculer la recette journalière et globale. Pour cela j'ai mis trois textboxes. Text1 pour fair entrer les données. (valeu Vb6 probléme de calcul [ par omartt ] Bonjour Veuillez s'il vous plait m'aider à modifier ces codes et je vous serais trés reconnaissant. [code=vb]Private Sub Text1_KeyPress(KeyAscii As In enlever un item d'une combo box [ par anecaca ] Hello, Dans mon petit programme j'utilise des "combo box" de type 2 "Dropdown list" pour ne pas que l'utilisateur puisse y entrer d'autres valeurs qu comment renomer une table access a partir du code vb6 [ par joflo ] bonjour a toussi quelqu'un pouvait m'aiderje voudrais renommer une table access par le code vb6ma table s'appelle NOMmon codeapres avoir ouvert la bas Je vous en supplie, je suis désespéré !!!! Bons develloppeurs AIDER MOI SVP !!! ADODC et DATACOMBO [ par skyzofrenzz ] ADODB et DataCombo Comment faire la laison ?? Lister tous les données d'un champs ?URGENT SVP Bonjour à tous, j'ai trouver un code pour acceder à une Déplacement dans le enregistrements [ par blob73 ] Bonjour, Après avoir essayer moultes methodes pour lire et ecrire dans un fichier texte, j'ai essayer celle ci qui est plutot pas mal mais je ne saist


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,092 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales