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

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

اتبع الخطوة :

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

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




-----------

انتهينا