حالة الموضوع:
مغلق
  1. Dr.hac

    Dr.hac Developer

    الأنتساب:
    ‏8 سبتمبر 2011
    المشاركات:
    53
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    الإقامة:
    IQ-TeaM
    بسم الله الرحمن الرحمن

    اخواني اخواتي الاعزاء بما ان اليوم هو الجمعة لن ابخل عليكم بما لدي سوف اعلمكم كيفية صنع اداوتك الخاصة بامتداد Ocx نبــــــــــــــــــــــــــــــــــــــــــــــــ ــــــــدء : -

    اولا لنفتح برنامج فيجوال بيسك بالنقر عليه نقرا مزدوجا او من خلال

    Start >> All programs >> Microsoft Visual Studio >> Microsoft Visual Basic

    بعد فتح برنامج فيجوال بيسك سوف يظهر في الحال مربع حوار كما في الصورة اختر منه

    [​IMG]



    اختر منه [​IMG]




    بعد اختيار المشروع نبدء بكتابة الاكواد بالحال بالمناسبة البرنامج يقوم بالتحقق من اذا قام المستخدم بالقيام بعملية رياضية بصورة صحيحة والان ننشء الاجراء بتاع التحقق من عملية الجمع اولا كالاتي مع التعريف عن متغير الذي يحمل الخبر الكود هو كله بالشكل التالي


    Public Konw_If_Right As Boolean

    Public Sub Plus(ByVal Number1 As String, Number2 As String, Equal As String)
    Dim The_Right As String
    The_Right
    = Val(Number1) + Val(Number2)
    If
    The_Right = Equal Then
    Konw_If_Right
    = True
    Else
    Konw_If_Right = False
    End
    If
    End Sub

    شرح الكود السابق اولا Public Konw_If_Right As Boolean
    هنا قمنا بالاعلان عن متغير عام لجميع الوحدات سوف استطيع ان اوصل لك الفكره في هذه الصورة [​IMG]



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


    Public Sub Plus(ByVal Number1 As String, Number2 As String, Equal As String)

    اما هنا فعملنا اجراء عام واعطينها المتغيرات التي نحتاج ان يدخلها المستخدم لاتمام العملية لاحظ الصورة لتفهم اكثر

    [​IMG]


    حيث هنا وفي الكود السابق حددنا ما نود من المستخدم ان يدخله وهو الرقم الاول والثاني والمجموع الذي عمله هو للتاكد من الناتج




    The_Right = Val(Number1) + Val(Number2)

    في السطر السابق قمنا باجراء عملية الجمع على الرقمين المدخله وعطينا القيمة للمتغير



    If The_Right = Equal Then

    في حالة كانت قيمة المتغير The_Right وهو المتغير الذي حمل قيمة جمع العددين المدخله = الناتج الذي ادخله المستخدم فيقوم بالاتي


    Konw_If_Right = True


    اعطينا القيمة True للمتغير اي ان العملية التي قام بها المستخدم هي عملية صحيحة والناتج الذي ادخل صحيح ميه بالميه


    Else

    بما معني اما اذا لم تكن القيمة متساوية فيقوم بالاتي


    Konw_If_Right = False

    يعطي المتغير القيمة False اي الناتج الذي ادخله خاطىء ثم بعد ذلك End If وهي النهاية لجملة اف الشرطية و End Sub نهاية الاجراء

    الان لنجرب تجربة الاداة بعد اضافتها واعادة تسميتها نكتب الكود الاتي في زر امر مع اضافة 3 صناديق نص



    Private Sub Command1_Click()
    Check1.Plus Text1.Text, Text2.Text, Text3.Text
    If Check1.Konw_If_Right = True Then
    MsgBox
    "النتيجة صحيحة"
    Else
    MsgBox "النتيجة خاطئة"
    End If
    End Sub

    وهنا انتيهنا من كل شيء وجربنا البر نامج مع العلم انه يمكن اضافة مشروع جديد لتجربة الاداة من خلال الاتي تابع الصور

    [​IMG]




    [​IMG]




    طبعا ويمكن ايظا عمل تحقق للضرب او الطرح وغيرها سوف اعطي الكود والشرح نفس الكود الاول هذا هو كود الــ الاداة كله


    Option Explicit

    Public Konw_If_Right As Boolean


    Public Sub Plus(ByVal Number1 As String, Number2 As String, Equal As String)
    Dim The_Right As String
    The_Right
    = Val(Number1) + Val(Number2)
    If
    The_Right = Equal Then
    Konw_If_Right
    = True
    Else
    Konw_If_Right = False
    End
    If
    End Sub


    Public Sub Min(ByVal Number1 As String, Number2 As String, Equal As String)
    Dim The_Right As String
    The_Right
    = Val(Number1) - Val(Number2)
    If
    The_Right = Equal Then
    Konw_If_Right
    = True
    Else
    Konw_If_Right = False
    End
    If
    End Sub

    Public Sub By(ByVal Number1 As String, Number2 As String, Equal As String)
    Dim The_Right As String
    The_Right
    = Val(Number1) * Val(Number2)
    If
    The_Right = Equal Then
    Konw_If_Right
    = True
    Else
    Konw_If_Right = False
    End
    If
    End Sub

    Public Sub Divided_by(ByVal Number1 As String, Number2 As String, Equal As String)
    Dim The_Right As String
    The_Right
    = Val(Number1) Val(Number2)
    If
    The_Right = Equal Then
    Konw_If_Right
    = True
    Else
    Konw_If_Right = False
    End
    If
    End Sub


    الان بقى شيء واحد وهو كيف سوف تحول اداتك الى Ocx اخي العزيز الطريقة سهله اتبع الخطوات الاتية


    [​IMG]



    [​IMG]




    [​IMG]





    شكراااااااااااااااااااااااااااااااااااا

     
  2. برنس القراصنة

    برنس القراصنة Developer

    الأنتساب:
    ‏2 أكتوبر 2011
    المشاركات:
    16
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    تسلم عاشت الايادي
     
  3. LoVer hEx

    LoVer hEx موقوف لمخالفة الشروط

    الأنتساب:
    ‏15 نوفمبر 2011
    المشاركات:
    21
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    الوظيفة:
    آختراق الآجهزة
    الإقامة:
    البحرين
    رد: تعلم صنع ادوات الـ Ocx الخاصة بك + مثال جاهز + شرح بالصور

    الله يعطيك الف عافية ع الموضوع الرآئع
    مبدع وربيَ
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة