تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة فى عمل كلاس
#1
السلام عليكم ورحمة الله

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

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

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


الملفات المرفقة
.rar   vcf.rar (الحجم : 1.93 ك ب / التحميلات : 11)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام 
حسب ما فهمت وعلى عجل

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
الرد
تم الشكر بواسطة: hsab , Amir_Alzubidy , Amir_Alzubidy , Ahmed_Mansoor
#3
(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
أرجو إذا تكرمت مراجعته
هو نفس المطلوب وأريد أن أضعه فى موديول لأننى أحتاجه فى أكثر من ثلاث شاشات
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Ahmed_Mansoor
#4
اخي الكريم

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

لم اعدل عليها اذا كانت لا تراعي اي كمبو فهذا حسب كودك المصدر
الرد
تم الشكر بواسطة: hsab , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص Listview haniblack 3 834 26-05-18, 02:56 PM
آخر رد: Abdellah
  طلب مساعدة في ربط الباركود بالفيجوال بسيك 6 ناصر شير 0 344 03-05-18, 02:01 PM
آخر رد: ناصر شير
  مساعدة في تحزيم المشروع VB6 عبد الرحمان البسكري 14 1,414 15-04-17, 11:01 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 556 10-04-17, 01:45 PM
آخر رد: Amir_Alzubidy
  مساعدة فى تقسيم الشهر إلى 3 أقسام hsab 7 1,137 06-02-17, 10:39 PM
آخر رد: اسلام الكبابى
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 1,120 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 624 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 917 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 746 21-07-16, 12:24 PM
آخر رد: Amir_Alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 626 18-07-16, 03:10 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم