fighters

    درس من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة مفكرة )

    شاطر
    avatar
    fighter
    الـمـديـرالـعـام
    الـمـديـرالـعـام

    عدد الرسائل : 226
    العمر : 28
    مزاجى :
    تاريخ التسجيل : 16/04/2008

    03 درس من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة مفكرة )

    مُساهمة من طرف fighter في الثلاثاء مايو 06, 2008 6:17 am

    درس من مشاريع تعلم البرمجة بالفيجوال بيسك ( صناعة مفكرة )

    اتبع الخطوات :

    1- افتح برنامج الفيجوال بيسك واختر مشروع جديد

    -----------
    2- اضافة الأدوات :

    يلزمنا اداتي CommonDialog لاضافتها
    اضغط Ctrl + T
    ومن ثم اختر من القائمة Microsoft Common Dialog Control لاضافة CommonDialog
    ثم Ok
    سوف تلاحظ ظهورادات CommonDialog اضفها الى المشروع
    ثم اضف ايضا

    5 Commandbutton
    1 Timer
    Label 3
    Checkbox 3
    Optionbutton 3
    Combobox 2
    1 Textbox

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



    -----------
    3- الآن وقت تغيير الخصائص

    ~~~~~~~~~
    خصائص Form

    المفكرة = Form1.Caption

    لجعل اسم البرنامج ( المفكرة )

    Form1.BorderStyle = Fixed Dialog
    لظهور ايطار بزر (اغلاق) فقط

    ~~~~~~~~~
    خصائص ال Text

    "" = Text1.Text

    ~~~~~~~~~
    خصائص ال Combo

    Combo1.text = System
    Combo2.text = 10

    ~~~~~~~~~
    خصائص ال Check

    مسطر = Check1.Caption
    عريض = Check1.Caption
    مائل = Check1.Caption

    ~~~~~~~~~
    خصائص ال Option

    يسار = Option1.Caption
    وسط = Option2.Caption
    يمين = Option3.Caption

    Option1.Value = True
    لجعلها مفعلة

    ~~~~~~~~~
    خصائص ال Label

    عدد الحروف = Label1.Caption
    "" = Label2.Caption
    "" = Label3.Caption

    ~~~~~~~~~
    خصائص ال Timer1
    Timer1.Interval = 100
    لكي يعمل

    ~~~~~~~~~
    خصائص ال Commandbutton

    قص = Command1.Caption
    نسخ = Command2.Caption
    لصق = Command3.Caption
    سابق = Command4.Caption
    حذف النص = Command5.Caption

    لتصبح كما في الصورة



    -----------
    4- الآن نكتب الأكواد

    كود قص

    Private Sub Command1_Click()
    If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText
    ' اذا كان النص المحدد في ال Text1 ليس فارغا ..... ضعه في الذاكة
    Text1.SelText = ""
    ' حذف النص المحدد في Text1
    ' لاحظو هنا اننا كتبنا امر الشرط If دون ان نكتب End If
    ' لاننا كتبناه في سطر واحد
    End Sub

    ~~~~~~~~~

    كود نسخ

    لاحظوا بان كود نسخ نفس كود قص لكننا لم نحذف النص المحدد في Text1

    Private Sub Command2_Click()
    If Text1.SelText <> "" Then Clipboard.SetText Text1.SelText
    ' اذا كان النص المحدد في ال Text1 ليس فارغا ..... ضعه في الذاكة
    ' لاحظو هنا اننا كتبنا امر الشرط If دون ان نكتب End If
    ' لاننا كتبناه في سطر واحد
    End Sub

    ~~~~~~~~~

    كود لصق

    Private Sub Command3_Click()
    Text1.SelText = Clipboard.GetText
    ' لقد عوضنا النص الذي في الذاكرة مكان النص المحدد في Text1
    End Sub

    ~~~~~~~~~

    كود السابق

    Private Sub Command4_Click()
    Text1.SetFocus
    ' نعطي التركيز لل Text1
    SendKeys "^{z}"
    ' نرسل الازرار ^{z} وتعني Ctrl + Z
    End Sub

    ~~~~~~~~~

    كود حذف النص

    Private Sub Command5_Click()
    Text1.Text = ""
    ' جعلنا النص داخل ال Text1 = فارغ
    End Sub

    ~~~~~~~~~

    أكود Option

    Private Sub Option1_Click()
    Text1.Alignment = 0
    ' لتجانب النص الى اليسار
    End Sub

    Private Sub Option2_Click()
    Text1.Alignment = 2
    ' لتجانب النص الى الوسط
    End Sub

    Private Sub Option3_Click()
    Text1.Alignment = 1
    ' لتجانب النص الى اليمين
    End Sub

    ~~~~~~~~~

    أكود Check

    Private Sub Check1_Click()
    Text1.Font.Underline = Check1.Value
    ' جعلنا خاصية الخط لل Text1 حسب قيمة ال Check1
    End Sub

    Private Sub Check2_Click()
    Text1.Font.Bold = Check2.Value
    ' جعلنا خاصية العريض لل Text1 حسب قيمة ال Check2
    End Sub

    Private Sub Check3_Click()
    Text1.Font.Italic = Check3.Value
    ' جعلنا خاصية الميول لل Text1 حسب قيمة ال Check3
    End Sub

    ~~~~~~~~~

    كود Text1

    Private Sub Text1_Change()
    Label2.Caption = Str(Len(Text1.Text))
    ' عنوان ال Label2 = عدد حروف Text1
    End Sub

    ~~~~~~~~~

    كود Form

    Private Sub Form_Load()
    Dim i As Integer
    ' عرفنا الحرف i بأنه عدد صحيح
    For i = 0 To Screen.FontCount - 1
    ' حددنا ما هو i ( الخطوط )
    Combo1.AddItem Screen.Fonts(i)
    ' أضفنا عناصر i الى Combo1
    Next i

    With Combo2
    ' استخدمنا With للاختصار حيث سوف نضيف له اكثر من عنصر
    .AddItem "10"
    .AddItem "20"
    .AddItem "30"
    .AddItem "40"
    .AddItem "50"
    ' اضفنا العناصر ( 10 و 20 و 30 و 40 و 50 ) الى Combo2
    End With
    ' اغلقنا With حيث يجب كتابتها في نهاية جملة With
    End Sub

    ~~~~~~~~~

    كود Combo1

    Private Sub Combo1_Click()
    Text1.FontName = Combo1.Text
    ' جعلنا نوع خط ال Text1 حسب قيمة ال Combo1
    End Sub

    ~~~~~~~~~

    كود Combo2

    Private Sub Combo2_Click()
    Text1.FontSize = Combo2.Text
    ' جعلنا حجم ال Text1 حسب قيمة ال Combo2
    End Sub

    ~~~~~~~~~

    كود Timer1

    Private Sub Timer1_Timer()
    Label3.Caption = Time & " " & Date
    ' لجعل عنوان Label3 = ( الوقت ) ثم ( فراغ ) ثم ( التاريخ )
    End Sub

    ~~~~~~~~~
    اخيرا تكون الاكواد كما في الصورة





    -----------

    انتهينا
    آما ان تستفادوا منها



    _________________

      الوقت/التاريخ الآن هو الخميس ديسمبر 14, 2017 3:55 pm