مساعدة في كود اللوغاريتم

تفضل

Private Sub Command1_Click()
Dim StLog As Double
	StLog = 1 / Log(10)
	Text2.Text = Math.Log(Val(Text1.Text) ^ StLog)
End Sub

مشكور جدا استاذ عبدالفتاح بس الكود الاول هل به خطا

وشكرا

السلام عليكم

كودك ليس به خطأ

وإنما يحسب اللوغاريتم الطبيعي، أي أنه يحسب اللوغاريتم للاساس هـ (العدد النايبيري ويساوي تقريباً 2.718281828 وهو عدد غير نسبي)

أنت تريد ان تحسب اللوغاريتم للأساس 10.

عن طريق قوانين اللوغاريتم:

لوغاريتم العدد أ للأساس ب = لوغاريتم العدد أ للأساس هـ ÷ لوغاريتم العدد ب للأساس هـ ( ويمكن استبدال هـ بأي ثابت)

أنت تريد لوغاريتم العدد للأساس 10

لوغاريتم العدد للأساس 10 = لوغاريتم العدد للأساس هـ ÷ لوغاريتم 10 للأساس هـ

بالكود:

Text2.Text = Log(Val(Text1.Text)) / Log(10)