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

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

الحمد لله، وجدت لك طريقة من أحد مشاريع الأخوة مختلفة تماما عما سبق، ولا تحتاج أي تعديلات من جهتك

جرب التالي
PHP كود :
Public Class Form1

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        Dim AbNormal 
"N"
        
Dim SN 1500
        Dim Gender 
"Male"
        
Dim PValue 11

        Dim condition 
As String "(AbNormal = 'N' ( [1500] ) And Gender = 'Male') Or (AbNormal = 'N' And PValue >= 11)"

        
Dim result As Object f(AbNormalSNGenderPValuecondition)

        If 
result IsNot Nothing Then
            
If result Then
                MsgBox
("Valid")
            Else
                
MsgBox("Invalid")
            
End If
        Else
            
MsgBox("Error")
        
End If

    
End Sub

    
Public Function f(ByVal AbNormal As CharByVal SN As IntegerByVal Gender As StringByVal PValue As IntegerByVal condition As String) As Object
        
Try
            
Dim code As String _
            
"Dim AbNormal As Char=""" AbNormal """,Gender As String=""" Gender """,SN As Integer=" SN ",PValue As Integer=" PValue vbCr _
            
"If " condition " Then Return True Else Return False"
            
code "Class c" vbCr "Function f() As Boolean" vbCr code vbCr "End Function" vbCr "End Class"
            
code Replace(code"'""""") : code Replace(code"( ["" And SN=") : code Replace(code"] )"" ")
            
code Replace(code"(["" And  SN=") : code Replace(code"])"" ")
            
Dim res As System.CodeDom.Compiler.CompilerResults = New VBCodeProvider().CompileAssemblyFromSource(New CodeDom.Compiler.CompilerParameterscode)
            
Dim ins As Object res.CompiledAssembly.CreateInstance("c")
            
Dim methodInfo As Reflection.MethodInfo ins.GetType.GetMethod("f")
            Return 
methodInfo.Invoke(insNothing)
        Catch 
ex As Exception
        End 
Try
        Return 
Nothing
    End 
Function

End Class 

الرد }}}
تم الشكر بواسطة: matrixmas
#13
لا اعرف كيف اشكرك سيتم التجربة الان وساخبرك بالنتيجة

هناك خطأ فى
PValue
إذا تم تغيير الرقم إلى
Dim PValue = 2
يعطنى Valid
المفترض يعطنى
Invalid

هل من الممكن شرح مختصر للكود

بارك الله فيك وتقبل منك زكاه علمك

تم إيجاد مشكله تغير قيمة ال PValue

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

سؤال
كيف يكون الحال إذا كان موجود أكثر من SN
فى نفس الكود مع العلم أنى لا اعرف عدد تكرارها
الرد }}}
تم الشكر بواسطة: الوليد ☺
#14

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

جرب وأخبرني بالنتيجة

الرد }}}
تم الشكر بواسطة:
#15
(13-11-14, 11:58 PM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

جرب وأخبرني بالنتيجة


النتيجة ممتازة جزاك الله كل خير 

الان سأستخدم  هذا الكود ولكن
1- عند وضع أكثر من SN وأكثر من PValue
2- أو إذا لم يكن هناك Gender 
فكيف يتم حلها 
الرد }}}
تم الشكر بواسطة:
#16
اقصد تكرار ال SN ولكن بأكثر من معطى
بمعنى المعطيات
Dim SN = 1500
إحتمالية وجود أكثر من معطى ولا اعرف العدد
Dim SN = 1500
Dim SN = 2500
الرد }}}
تم الشكر بواسطة:
#17

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

حسب بداية الموضوع فإن الجدول الأول يحتوي على قيمة واحدة لكل معامل

إذا كنت تقصد التكرار داخل هذا النص مع اختلاف القيم فالمسئلة هي نفسها، مع ملاحظة PValue تكتب في الحالتي => و=<
PHP كود :
Dim condition As String "AbNormal = 'N' ( [2500] ) And Gender = 'Male' Or AbNormal = 'N' And PValue >= 11 and PValue <= 20 And AbNormal = 'N' ( [1500] )" 

الرد }}}
تم الشكر بواسطة:
#18
الحمد لله بدأت تفهمنى
حسب بداية الموضوع فإن الجدول الأول يحتوي على قيمة واحدة لكل معامل

كلام صحيح فعلا
نفترض ان الصف الاول رقم المعاملة 1500 و ال gender = Male وال PValue = 11
نفترض ان الصف الثانى رقم المعاملة 2500 و ال gender = Female وال PValue = 15

الان
سأقوم بإجبار المستخدم بكتابة رقم المعاملة بعد كل شرط
مثلا
AbNormal = 'N' ( [1500] ) And Gender = 'Male' ( [1500] )
ليتم تغيير قيم ال 1500 بقسمة الصف
ما رئيك فى ذلك
هل من طريقة اسهل
الرد }}}
تم الشكر بواسطة:
#19

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

سامحني إذا كنت أتدخل في عملك،

من بداية الموضوع أنا غير مقتنع من وضع SN داخل المعادلة لاعتبار (حسب ظني) أنه رقم عملية لا يتكرر في بقية الأسطر،
يعني أشبه برقم تسلسلي للسجلات

ولكن وضعك للمثال التالي أربكني
PHP كود :
AbNormal 'N' ( [2500] ) And Gender 'Male' Or AbNormal 'N' And PValue >= 11 and PValue <= 20 And AbNormal 'N' ( [1500] ) 

لا أعرف ما ردك

الرد }}}
تم الشكر بواسطة:
#20
(14-11-14, 12:57 AM)الوليد ☺ كتب :
السلام عليكم ورحمة الله

سامحني إذا كنت أتدخل في عملك،

من بداية الموضوع أنا غير مقتنع من وضع SN داخل المعادلة لاعتبار (حسب ظني) أنه رقم عملية لا يتكرر في بقية الأسطر،
يعني أشبه برقم تسلسلي للسجلات

ولكن وضعك للمثال التالي أربكني

PHP كود :
AbNormal 'N' ( [2500] ) And Gender 'Male' Or AbNormal 'N' And PValue >= 11 and PValue <= 20 And AbNormal 'N' ( [1500] ) 


لا أعرف ما ردك


فعلا انت محق وانا اعتزر عن عدم قدرتي علي توصيل المعلومه
انا لدي فكره ولكن لا اعرف مدي تطبيقها
يمكنني التحكم في طريقه كتابه المعادله
بمعني اني ساقوم بوضع رقم السجل بعد كل شرط وسوف نقوم باستبدال رقم السجل بقيمته 
نفترض ان السجل رقم 1500 
قيمه ال gender Female
وقيمه ال Abnormal N
داخل الداتا جريد
ستكون طريقه كتابه المعادله كالتالي
Abnormal ='N' (1500) and Gender ='Female'
بعد كل شرط اكتب رقم السجل ليتم استبداله بقيمته داخل الداتا جريد
ما رئيك في هذا الحل وما مدي صحته وتنفيذه

تستحق لقب المميز
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,124 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,103 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 381 21-12-23, 12:29 AM
آخر رد: dr.programming
  تحزيم المشروع Lamyaa 1 319 17-11-23, 07:44 AM
آخر رد: أبو خالد الشكري
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  ظهور فايروس بعد نشر المشروع LET ME 1 267 12-08-23, 10:00 AM
آخر رد: mrfenix93

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


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