من طرف 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
~~~~~~~~~
اخيرا تكون الاكواد كما في الصورة
-----------
انتهينا
آما ان تستفادوا منها
اتبع الخطوات :
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
~~~~~~~~~
اخيرا تكون الاكواد كما في الصورة
-----------
انتهينا
آما ان تستفادوا منها
