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

[Aboud Aboud]

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

اتبع الخطوة :

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

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

http://i264.photobucket.com/albums/ii196/body-korkis/note1.jpg

-----------
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

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

http://i264.photobucket.com/albums/ii196/body-korkis/note2.jpg

-----------
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

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

http://i264.photobucket.com/albums/ii196/body-korkis/note3.jpg


-----------

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



________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع (http://www.bramjnet.com/vb3/showthread.php?p=5084412) )

[Aboud Aboud]

ملاحظة : اذا احد عنده سؤال او يريد اضافة رد يكتبه على هذا الرابط (http://www.bramjnet.com/vb3/showthread.php?p=5084412)

[mhy_final]

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

اتبع الخطوة :

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

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

http://www.9o9i.com/download/21944773bb2663849.jpg

-----------
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

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

http://www.9o9i.com/download/13704773bb2672701.jpg

-----------
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

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

http://www.9o9i.com/download/3504773bb2683cc7.jpg

وهذا هو المشروع ان صعب على احدكم (http://www.4shared.com/file/33137416/8c7326f/_online.html)

-----------

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




لقراءة الدرس على شكل Pdf (http://www.4shared.com/file/33553115/cb681df/lessons_3.html)




________________

الرجاء عدم الرد هنا بل الرد في ( هــــــــــذا الموضوع (http://www.bramjnet.com/vb3/showthread.php?p=5084412) )



thaaaaaaaaaaaaanks

[Aboud Aboud]

شكرا عالمرور

[milad_korkis]

مشكور الماسي برامج نت

[r.a.i.p.a]

شكرا لك يا مبرمج
أنت محترف في علم البرمجة

[xtobi]

ملاحظة :

خصائص ال Combo

Combo1.text = System
Combo2.text = 10

لازم نضع system بين ضفرين لأنه نص يعني تكست يعني التصحيح كذا

Combo1.Text = "System"
Combo2.Text = 10

[Aboud Aboud]

شكرا على المرور

بالنسبة ل xtobi
انا قصدي تعدلها انت من الخصاثص وليس كتابتها مكان الكود