منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مساعدة فى عمل كلاس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله

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

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

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

PHP كود :
Function Fun_VCF(DEN15 As DoubleDEGC As Double) As String

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 
^ (-ALPHA dT * (0.8 ALPHA dT))
Fun_VCF VBA.FormatNumber(vcf4)

End If

End Function 

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

PHP كود :
Private Sub Command1_Click()
Text1.Text Fun_VCF(Format$(Trim(Combo1.Text), "0"), Trim(Combo2.Text))
End Sub 
بالتوفيق

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

PHP كود :
Function Fun_VCF(DEN15 As DoubleDEGC As Double) As String

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 
^ (-ALPHA dT * (0.8 ALPHA dT))
Fun_VCF VBA.FormatNumber(vcf4)

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
أرجو إذا تكرمت مراجعته
هو نفس المطلوب وأريد أن أضعه فى موديول لأننى أحتاجه فى أكثر من ثلاث شاشات
اخي الكريم

انا حولت نفس كودك الموجود في
إقتباس :Command3_Click()
الى 
إقتباس :Function
فقط 

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