1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

Visual Basic 6 تعلم صنع ادوات الـ Ocx الخاصة بك + مثال جاهز + شرح بالصور

الموضوع في 'قسم فيجوال بيسك 6 و لغة Delphi' بواسطة Dr.hac, بتاريخ ‏9 سبتمبر 2011.

كاتب الموضوع : Dr.hac المشاهدات : 2,476 الردود : 2 ‏9 سبتمبر 2011
حالة الموضوع:
مغلق
  1. غير متصل

    Dr.hac
    rankrank
    Developer

    عضو منذ:
    ‏8 سبتمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    الإقامة:

    بسم الله الرحمن الرحمن

    اخواني اخواتي الاعزاء بما ان اليوم هو الجمعة لن ابخل عليكم بما لدي سوف اعلمكم كيفية صنع اداوتك الخاصة بامتداد 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. غير متصل

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

    عضو منذ:
    ‏2 أكتوبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:

    تسلم عاشت الايادي
     


  3. غير متصل

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

    عضو منذ:
    ‏15 نوفمبر 2011
    عدد المشاركات:
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    الوظيفة:
    آختراق الآجهزة
    الإقامة:

    رد: تعلم صنع ادوات الـ Ocx الخاصة بك + مثال جاهز + شرح بالصور

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


حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...