[hsab]

السلام عليكم ورحمة الله

ارجو ان اقدر اوصل فكرة ما اطلبه بالضبط

اريد تعديل المرفق بحيث اعمل فقط function  واحد واستدعيه كل مرة استخدمه فيها مع المتغيرات فى نفس الفورم

بدل كل مره اكتب الكود كامل فى كلعملية حيث عندى متغيرين وناتجهما 
انظر المرق

[sendbad100]

وعليكم السلام 
حسب ما فهمت وعلى عجل

PHP كود :

Function Fun_VCF(DEN15 As Double, DEGC As Double) As String

e = 2.71828182846
  dT = DEGC - 15
If DEN15 <= 770 Then
K0 = 346.42278
K1 = 0.43884
ElseIf DEN15 >= 778 And DEN15 < 839 Then
K0 = 594.5418
K1 = 0
ElseIf DEN15 >= 839 Then
K0 = 186.9696
K1 = 0.48618
 ALPHA = (K0 + K1 * DEN15) / DEN15 ^ 2
vcf = e ^ (-ALPHA * dT * (1 + 0.8 * ALPHA * dT))
Fun_VCF = VBA.FormatNumber(vcf, 4)

End If

End Function 


طريقة استدعائة

PHP كود :

Private Sub Command1_Click()
Text1.Text = Fun_VCF(Format$(Trim(Combo1.Text), "0"), Trim(Combo2.Text))
End Sub 


بالتوفيق

l

[hsab]

(19-03-19, 06:06 PM)sendbad100 كتب : وعليكم السلام 
حسب ما فهمت وعلى عجل

PHP كود :

Function Fun_VCF(DEN15 As Double, DEGC As Double) As String

e = 2.71828182846
  dT = DEGC - 15
If DEN15 <= 770 Then
K0 = 346.42278
K1 = 0.43884
ElseIf DEN15 >= 778 And DEN15 < 839 Then
K0 = 594.5418
K1 = 0
ElseIf DEN15 >= 839 Then
K0 = 186.9696
K1 = 0.48618
 ALPHA = (K0 + K1 * DEN15) / DEN15 ^ 2
vcf = e ^ (-ALPHA * dT * (1 + 0.8 * ALPHA * dT))
Fun_VCF = VBA.FormatNumber(vcf, 4)

End If

End Function 


طريقة استدعائة

PHP كود :

Private Sub Command1_Click()
Text1.Text = Fun_VCF(Format$(Trim(Combo1.Text), "0"), Trim(Combo2.Text))
End Sub 


بالتوفيق

l

تشكر كتير هو نفس المطلوب ولكن عند التنفيذ يعطى رسالة خطأ لم يقرأ محتوى combo1   ولا  combo2
أرجو إذا تكرمت مراجعته
هو نفس المطلوب وأريد أن أضعه فى موديول لأننى أحتاجه فى أكثر من ثلاث شاشات

[sendbad100]

اخي الكريم

انا حولت نفس كودك الموجود في

إقتباس :Command3_Click()

الى 

إقتباس :Function

فقط 

لم اعدل عليها اذا كانت لا تراعي اي كمبو فهذا حسب كودك المصدر