رابعا
تحليل المثال رقم 3 رقم الحظ


كود:
PictureBox1.Visible = False
معنى Visible يعنى مرئى فيكون معنى السطر إجعل خاصية رؤية محتويات PictureBox1
إذا اختارنا False فهذا يعنى (لا) فإذا كانت True فهذا يعنى (نعم) فيكون المعنى كاملا فى الحالة المذكورة
لاتقم بإظهار محتوى صندوق الصورة
إذا نظرنا إلى التركيبة فنجد أنة تم تكوينها بالصورة التالية
(العنصر).(الخاصية المطلوب التعامل معها) =قيمة
كأنها معادلة رياضية
العنصرهنا هو( PictureBox1)
ثم الفصل بينهما باستخدام (.)
الخاصية هنا( Visible)
القيمة المتغيرة هى Boolean وكما أشرنا فإنها تأخذ أحد قيمتين True أو False

كود:
Label.Text = CStr(Int(Rnd() * 10))
إن CStr هى فى الحقيقة إختصار للجملة Convert String وكلمة String تعنى نص
إذن المعنى قم بتحويل النص
وهى ليست CStr بل هى()CStr و يصبح معنى () أى المحتوى بين القوسين
أما بالنسبة لكلمة Int فهى اختصار Integer وهو رقم صحيح لا يحتوى على كسور أو علامات عشرية
وهى هنا ()Int أى الرقم الصحيح الموجود داخل المحتوى التالى
بالنسبة لأهم تركيبة هنا فهى هذة Rnd() * 10
Rndهى اختصار Random ومعناها (عشوائى) إذن لدينا الان رقم صحيح عشوائى سوف يحل محل Text فى Label
ولايضاح معنى Rnd() * 10 وما سينتج عنة نتابع هذا التسلسل
Rnd() * 100 تعطى الأرقام الصحيحة من 0 إلى 99
Rnd() * 1000 تعطى الأرقام الصحيحة من 0 إلى 999
Rnd() * 10000 تعطى الأرقام الصحيحة من 0 إلى 9999
Rnd() * 100000 تعطى الأرقام الصحيحة من 0 إلى 99999
Rnd() * 1000000 تعطى الأرقام الصحيحة من 0 إلى 999999
وهكذا وهذا التتابع يسمى تتابع لوغاريتمى
فيكون معنى هذا السطر

كود:
Label.Text = CStr(Int(Rnd() * 10))
قم بتحويل النص الموجود فى العنوان إلى عدد عشوائى صحيح بشرط أن يكون أكبر من ولا يساوى -1 وأقل من ولا يساوى 10
كود:
If (Label1.Text = "7") Or (Label2.Text = "7") _
Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Label4.Visible = True
Beep()
End IfIf
إذا وهى أداة الشرط
قيمة العنوان الأول =7
Or أو
قيمة العنوان الثانى =7

Or أو

قيمة العنوان الثالث =7
Then يأتى الان دور جواب الشرط
ماذا سيحدث
PictureBox1.Visible = True
Label4.Visible = True
ماهيب محتاجة خلاص
Beep()
وصوت
End If
نهاية الشرط


***
خامسا
التعامل مع الديالوج(مهم)

يتم إدراج ديالوج عن طريق فتح Dialogs فى مربع الأدوات ToolBox
-عند إدراج ديالوج فإنة سييتم إدراجة خارج الفورم وبالتحديد فى البار أسفل الفورم

-ديالوج إختيار اللونColor Dialog
قم بإدراج Button و ColorDialog
اكتب الكود التالى فى Button

كود:
Dim colors() As Integer = { _
&HFF, &H11FF, &H22FF, &H33FF, _
&H44FF, &H55FF, &H66FF, &H77FF, _
&H88FF, &H99FF, &HAAFF, &HBBFF, _
&HCCFF, &HDDFF, &HEEFF, &HFFFF}
ColorDialog1.CustomColors = colors
ColorDialog1.Color = Button1.BackColor
If ColorDialog1.ShowDialog() = DialogResult.OK Then
Button1.BackColor = ColorDialog1.Color
End If
عند اختيار لون فإنة يتم تغيير لون الزر إلى اللون الذى قمت باختيارة
................................................
......................

2-ديالوج فتح مجلد Browse For Folder
قم بإدراج Button وTextBox1 وFolderBrowserDialog
قم بوضع هذا الكود فى الزر Button

كود:
FolderBrowserDialog1.SelectedPath = ""
FolderBrowserDialog1.Description = _
"قم باختيار مجلد"
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End If
..................................................
.............................
3- ديالوج اختيار خصائص الخط Font Dialog
قم بإدراج Button وFontDialog
قم بوضع هذا الكود فى الزر Button

كود:
FontDialog1.Font = Me.Font
FontDialog1.Color = Me.ForeColor
FontDialog1.ShowColor = True
If FontDialog1.ShowDialog() = DialogResult.OK Then
Me.Font = FontDialog1.Font
Me.ForeColor = FontDialog1.Color
End If
لتغيير خصائص ونوع ولون الخط
..................................................
.............................
4-ديالوج فتح ملف OpenFileDialog
يستخدم هذا الديالوج لفتح أى ملف دون النظر إلى امتدادة
قم بإدراج Button و OpenFileDialog
قم بوضع هذا الكود فى الزر Button

كود:
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(OpenFileDialog1.FileName)
End If
.................................................. .................................................. .............................
5-ديالوج فتح ملف بامتداد محدد OpenFileDialog
يستخدم هذا الديالوج لفتح ملف لة امتداد معين مثل ملف نص .txt أو ملف صورة .Bmp .....وهكذا
قم بإدراج
Button و OpenFileDialog
إذهب إلى خصائص OpenFileDialog ثم إلى Filter وقم بكتابة السطر التالى

كود:
Text (*.txt)|*.txt"

فى OpenFileDialog
نقوم بكتابة الكود التالى

كود:
For Each file_name As String In OpenFileDialog1.FileNames
If Not file_name.EndsWith(".txt") Then
MessageBox.Show("File '" & file_name & _
"' هذا ليس ملف نص", _
"نوع الملف غير معروف", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
e.Cancel = True
Exit Sub
End If
Next file_name
فى Button

كود:

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim file_names As String = Strings.Join(OpenFileDialog1.FileNames, " ")
MessageBox.Show(file_names)
End If

................................................
.............................
6-ديالوج حفظ ملف بأى امتداد SaveFileDialog
يستخدم هذا الديالوج لحفظ ملف بأى امتداد اختيارى
قم بإدراج Button و SaveFileDialog
إذهب إلى خصائص SaveFileDialog ثم إلى Filter وقم بكتابة السطر التالى

كود:
All Files (*.*)|*.*"
الكود
فى SaveFileDialog
الكود التالى

كود:
e.Cancel = True
وهذا الكود فى زر Button

كود:
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(SaveFileDialog1.FileName)
End If
.................................................. ..........
7-ديالوج حفظ ملف بامتداد محدد SaveFileDialog
يستخدم هذا الديالوج لحفظ ملف بامتداد محدد .txt أو .dat مثلا
قم بإدراج Button و SaveFileDialog
إذهب إلى خصائص SaveFileDialog ثم إلى Filter وقم بكتابة السطر التالى

كود:
Data Files (*.dat)|*.*"
الكود
فى SaveFileDialog
الكود التالى

كود:
If Not SaveFileDialog1.FileName.EndsWith(".dat") Then
MsgBox("File " & SaveFileDialog1.FileName & _
" is not a .dat file", _
MsgBoxStyle.Exclamation, _
"Invalid File Type")
e.Cancel = True
End If
وهذا الكود فى زر Button

كود:
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
MessageBox.Show(SaveFileDialog1.FileName)
End If

أنتها درس اليوم

و يتبع......

__________________



كثر الله خير و جمل الله حالك ياهبشان
لو أنني كنت شاعراً لكتبت معلقة غزل في روعة و جمال هذى النظام
أضغط على الصورة

كم هي جميلة شبكتنا .. وكم هي كبيره بكم
فشبكة قحطان بكم ولكم
فلننهظ بها
بصدق وأمانه
وبلا تذمر